71: CLOSE l_systemparams_csr;
72:
73: IF(l_ou_tax_upfront_yn = 'Y') THEN
74: IF(p_le_id IS NULL) THEN
75: OKL_API.SET_MESSAGE (
76: p_app_name => G_APP_NAME
77: ,p_msg_name => 'OKL_SO_LSE_APP_LE_ERR');
78: RAISE OKL_API.G_EXCEPTION_ERROR;
79: END IF;
74: IF(p_le_id IS NULL) THEN
75: OKL_API.SET_MESSAGE (
76: p_app_name => G_APP_NAME
77: ,p_msg_name => 'OKL_SO_LSE_APP_LE_ERR');
78: RAISE OKL_API.G_EXCEPTION_ERROR;
79: END IF;
80: END IF;
81: x_return_status := OKL_API.G_RET_STS_SUCCESS;
82: EXCEPTION
77: ,p_msg_name => 'OKL_SO_LSE_APP_LE_ERR');
78: RAISE OKL_API.G_EXCEPTION_ERROR;
79: END IF;
80: END IF;
81: x_return_status := OKL_API.G_RET_STS_SUCCESS;
82: EXCEPTION
83: WHEN OKL_API.G_EXCEPTION_ERROR THEN
84: x_return_status := OKL_API.G_RET_STS_ERROR;
85:
79: END IF;
80: END IF;
81: x_return_status := OKL_API.G_RET_STS_SUCCESS;
82: EXCEPTION
83: WHEN OKL_API.G_EXCEPTION_ERROR THEN
84: x_return_status := OKL_API.G_RET_STS_ERROR;
85:
86: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
87: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
80: END IF;
81: x_return_status := OKL_API.G_RET_STS_SUCCESS;
82: EXCEPTION
83: WHEN OKL_API.G_EXCEPTION_ERROR THEN
84: x_return_status := OKL_API.G_RET_STS_ERROR;
85:
86: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
87: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
88:
82: EXCEPTION
83: WHEN OKL_API.G_EXCEPTION_ERROR THEN
84: x_return_status := OKL_API.G_RET_STS_ERROR;
85:
86: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
87: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
88:
89: WHEN OTHERS THEN
90: OKL_API.SET_MESSAGE(
83: WHEN OKL_API.G_EXCEPTION_ERROR THEN
84: x_return_status := OKL_API.G_RET_STS_ERROR;
85:
86: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
87: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
88:
89: WHEN OTHERS THEN
90: OKL_API.SET_MESSAGE(
91: p_app_name => G_APP_NAME,
86: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
87: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
88:
89: WHEN OTHERS THEN
90: OKL_API.SET_MESSAGE(
91: p_app_name => G_APP_NAME,
92: p_msg_name => G_UNEXPECTED_ERROR,
93: p_token1 => G_SQLCODE_TOKEN,
94: p_token1_value => SQLCODE,
93: p_token1 => G_SQLCODE_TOKEN,
94: p_token1_value => SQLCODE,
95: p_token2 => G_SQLERRM_TOKEN,
96: p_token2_value => SQLERRM);
97: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
98: END validate_le_id;
99: --Added Bug 5647107 ssdeshpa end
100: -------------------------------------------------------------------------------
101: -- FUNCTION get_lookup_meaning
144: IF lkup_meaning_csr%ISOPEN
145: THEN
146: CLOSE lkup_meaning_csr;
147: END IF;
148: OKL_API.SET_MESSAGE(
149: p_app_name => G_APP_NAME,
150: p_msg_name => G_UNEXPECTED_ERROR,
151: p_token1 => G_SQLCODE_TOKEN,
152: p_token1_value => SQLCODE,
247:
248: BEGIN
249: IF ( p_lease_app_id IS NULL )
250: THEN
251: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
252: END IF;
253:
254: OPEN credit_recom_csr(p_lease_app_id);
255: FETCH credit_recom_csr INTO l_cr_recom, l_cr_status;
274: END IF;
275:
276: RETURN l_cr_decision;
277: EXCEPTION
278: WHEN OKL_API.G_EXCEPTION_ERROR
279: THEN
280: RETURN NULL;
281: WHEN OTHERS
282: THEN
289: IF credit_decision_csr%ISOPEN
290: THEN
291: CLOSE credit_decision_csr;
292: END IF;
293: OKL_API.SET_MESSAGE(
294: p_app_name => G_APP_NAME,
295: p_msg_name => G_UNEXPECTED_ERROR,
296: p_token1 => G_SQLCODE_TOKEN,
297: p_token1_value => SQLCODE,
350: AND LAP.ID = p_lap_id;
351: BEGIN
352: IF ( p_lease_app_id IS NULL )
353: THEN
354: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
355: END IF;
356:
357: OPEN credit_recom_csr(p_lease_app_id);
358: FETCH credit_recom_csr INTO l_cr_recom_count;
366: END IF;
367:
368: RETURN l_exp_date;
369: EXCEPTION
370: WHEN OKL_API.G_EXCEPTION_ERROR
371: THEN
372: RETURN NULL;
373: WHEN OTHERS
374: THEN
381: IF case_folder_csr%ISOPEN
382: THEN
383: CLOSE case_folder_csr;
384: END IF;
385: OKL_API.SET_MESSAGE(
386: p_app_name => G_APP_NAME,
387: p_msg_name => G_UNEXPECTED_ERROR,
388: p_token1 => G_SQLCODE_TOKEN,
389: p_token1_value => SQLCODE,
431: AND CCR.SOURCE_COLUMN1 = cp_lap_id;
432: BEGIN
433: IF ( p_lease_app_id IS NULL )
434: THEN
435: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
436: END IF;
437:
438: OPEN credit_recom_csr(p_lease_app_id);
439: FETCH credit_recom_csr INTO l_cr_recom, l_cr_dec_appeal_flag;
440: CLOSE credit_recom_csr;
441:
442: RETURN l_cr_dec_appeal_flag;
443: EXCEPTION
444: WHEN OKL_API.G_EXCEPTION_ERROR
445: THEN
446: RETURN NULL;
447: WHEN OTHERS
448: THEN
450: IF credit_recom_csr%ISOPEN
451: THEN
452: CLOSE credit_recom_csr;
453: END IF;
454: OKL_API.SET_MESSAGE(
455: p_app_name => G_APP_NAME,
456: p_msg_name => G_UNEXPECTED_ERROR,
457: p_token1 => G_SQLCODE_TOKEN,
458: p_token1_value => SQLCODE,
508: AND CCR.SOURCE_COLUMN1 = p_lap_id;
509: BEGIN
510: IF ( p_lease_app_id IS NULL )
511: THEN
512: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
513: END IF;
514:
515: OPEN credit_recom_csr(p_lease_app_id);
516: FETCH credit_recom_csr INTO l_cr_recom_count;
524: END IF;
525:
526: RETURN l_exp_date_appeal_flag;
527: EXCEPTION
528: WHEN OKL_API.G_EXCEPTION_ERROR
529: THEN
530: RETURN NULL;
531: WHEN OTHERS
532: THEN
539: IF appeal_flag_csr%ISOPEN
540: THEN
541: CLOSE appeal_flag_csr;
542: END IF;
543: OKL_API.SET_MESSAGE(
544: p_app_name => G_APP_NAME,
545: p_msg_name => G_UNEXPECTED_ERROR,
546: p_token1 => G_SQLCODE_TOKEN,
547: p_token1_value => SQLCODE,
754: AND AST.PARENT_OBJECT_ID = p_lsq_id
755: AND ADJ.ADJUSTMENT_SOURCE_TYPE = cp_adj_src_type;
756:
757: BEGIN
758: l_return_status := OKL_API.G_RET_STS_SUCCESS;
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');
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(
770: p_api_name => l_api_name
771: ,p_pkg_name => G_PKG_NAME
772: ,p_init_msg_list => p_init_msg_list
773: ,l_api_version => l_api_version
775: ,p_api_type => G_API_TYPE
776: ,x_return_status => l_return_status);
777:
778: -- check if activity started successfully
779: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
780: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
781: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
782: RAISE OKL_API.G_EXCEPTION_ERROR;
783: END IF;
776: ,x_return_status => l_return_status);
777:
778: -- check if activity started successfully
779: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
780: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
781: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
782: RAISE OKL_API.G_EXCEPTION_ERROR;
783: END IF;
784:
777:
778: -- check if activity started successfully
779: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
780: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
781: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
782: RAISE OKL_API.G_EXCEPTION_ERROR;
783: END IF;
784:
785: --Populate Eligibility criteria rec
778: -- check if activity started successfully
779: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
780: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
781: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
782: RAISE OKL_API.G_EXCEPTION_ERROR;
783: END IF;
784:
785: --Populate Eligibility criteria rec
786: OPEN lse_app_dtls_csr(p_lap_id);
816: lx_okl_ec_rec.item_table := l_item_tbl;
817:
818: x_return_status := l_return_status;
819:
820: OKL_API.END_ACTIVITY(
821: x_msg_count => x_msg_count
822: ,x_msg_data => x_msg_data);
823:
824: EXCEPTION
821: x_msg_count => x_msg_count
822: ,x_msg_data => x_msg_data);
823:
824: EXCEPTION
825: WHEN OKL_API.G_EXCEPTION_ERROR THEN
826: --Lease Application Details cursor
827: IF lse_app_dtls_csr%ISOPEN
828: THEN
829: CLOSE lse_app_dtls_csr;
842: IF l_adj_sum_csr%ISOPEN
843: THEN
844: CLOSE l_adj_sum_csr;
845: END IF;
846: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
847: p_api_name => l_api_name,
848: p_pkg_name => G_PKG_NAME,
849: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
850: x_msg_count => x_msg_count,
845: END IF;
846: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
847: p_api_name => l_api_name,
848: p_pkg_name => G_PKG_NAME,
849: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
850: x_msg_count => x_msg_count,
851: x_msg_data => x_msg_data,
852: p_api_type => G_API_TYPE);
853:
850: x_msg_count => x_msg_count,
851: x_msg_data => x_msg_data,
852: p_api_type => G_API_TYPE);
853:
854: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
855: --Lease Application Details cursor
856: IF lse_app_dtls_csr%ISOPEN
857: THEN
858: CLOSE lse_app_dtls_csr;
871: IF l_adj_sum_csr%ISOPEN
872: THEN
873: CLOSE l_adj_sum_csr;
874: END IF;
875: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
876: p_api_name => l_api_name,
877: p_pkg_name => G_PKG_NAME,
878: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
879: x_msg_count => x_msg_count,
874: END IF;
875: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
876: p_api_name => l_api_name,
877: p_pkg_name => G_PKG_NAME,
878: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
879: x_msg_count => x_msg_count,
880: x_msg_data => x_msg_data,
881: p_api_type => G_API_TYPE);
882:
900: IF l_adj_sum_csr%ISOPEN
901: THEN
902: CLOSE l_adj_sum_csr;
903: END IF;
904: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
905: p_api_name => l_api_name,
906: p_pkg_name => G_PKG_NAME,
907: p_exc_name => 'OTHERS',
908: x_msg_count => x_msg_count,
967:
968: BEGIN
969: IF ( p_lease_qte_id IS NULL )
970: THEN
971: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
972: END IF;
973:
974: l_capital_amount := 0;
975: l_financed_fee := 0;
1005: l_financed_amount := l_capital_amount + l_financed_fee + l_rollover_fee + l_capitalized_fee - l_adj_amount ; -- Subtract adjusted amount (Bug 6596860)
1006:
1007: RETURN l_financed_amount;
1008: EXCEPTION
1009: WHEN OKL_API.G_EXCEPTION_ERROR
1010: THEN
1011: RETURN 0;
1012: WHEN OTHERS
1013: THEN
1020: IF l_fee_csr%ISOPEN
1021: THEN
1022: CLOSE l_fee_csr;
1023: END IF;
1024: OKL_API.SET_MESSAGE(
1025: p_app_name => G_APP_NAME,
1026: p_msg_name => G_UNEXPECTED_ERROR,
1027: p_token1 => G_SQLCODE_TOKEN,
1028: p_token1_value => SQLCODE,
1137: AND LAB.ID = cp_lap_id;
1138: lap_db_val_rec lap_db_val_csr%ROWTYPE;
1139:
1140: BEGIN
1141: l_return_status := OKL_API.G_RET_STS_SUCCESS;
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');
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(
1153: p_api_name => l_api_name
1154: ,p_pkg_name => G_PKG_NAME
1155: ,p_init_msg_list => p_init_msg_list
1156: ,l_api_version => l_api_version
1158: ,p_api_type => G_API_TYPE
1159: ,x_return_status => l_return_status);
1160:
1161: -- check if activity started successfully
1162: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1163: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1164: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1165: RAISE OKL_API.G_EXCEPTION_ERROR;
1166: END IF;
1159: ,x_return_status => l_return_status);
1160:
1161: -- check if activity started successfully
1162: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1163: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1164: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1165: RAISE OKL_API.G_EXCEPTION_ERROR;
1166: END IF;
1167:
1160:
1161: -- check if activity started successfully
1162: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1163: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1164: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1165: RAISE OKL_API.G_EXCEPTION_ERROR;
1166: END IF;
1167:
1168: --Populate lease application rec with database values
1161: -- check if activity started successfully
1162: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1163: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1164: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1165: RAISE OKL_API.G_EXCEPTION_ERROR;
1166: END IF;
1167:
1168: --Populate lease application rec with database values
1169: IF(p_lap_id IS NOT NULL AND
1166: END IF;
1167:
1168: --Populate lease application rec with database values
1169: IF(p_lap_id IS NOT NULL AND
1170: p_lap_id <> OKL_API.G_MISS_NUM)
1171: THEN
1172: OPEN lap_db_val_csr(p_lap_id);
1173: FETCH lap_db_val_csr INTO lap_db_val_rec;
1174: IF(lap_db_val_csr%NOTFOUND)
1172: OPEN lap_db_val_csr(p_lap_id);
1173: FETCH lap_db_val_csr INTO lap_db_val_rec;
1174: IF(lap_db_val_csr%NOTFOUND)
1175: THEN
1176: l_return_status := OKL_API.G_RET_STS_ERROR;
1177: OKL_API.SET_MESSAGE(
1178: p_app_name => G_APP_NAME,
1179: p_msg_name => 'OKL_SO_LSE_APP_INVALID');
1180: RAISE OKL_API.G_EXCEPTION_ERROR;
1173: FETCH lap_db_val_csr INTO lap_db_val_rec;
1174: IF(lap_db_val_csr%NOTFOUND)
1175: THEN
1176: l_return_status := OKL_API.G_RET_STS_ERROR;
1177: OKL_API.SET_MESSAGE(
1178: p_app_name => G_APP_NAME,
1179: p_msg_name => 'OKL_SO_LSE_APP_INVALID');
1180: RAISE OKL_API.G_EXCEPTION_ERROR;
1181: ELSE
1176: l_return_status := OKL_API.G_RET_STS_ERROR;
1177: OKL_API.SET_MESSAGE(
1178: p_app_name => G_APP_NAME,
1179: p_msg_name => 'OKL_SO_LSE_APP_INVALID');
1180: RAISE OKL_API.G_EXCEPTION_ERROR;
1181: ELSE
1182: l_lapv_rec.id := lap_db_val_rec.id;
1183: l_lapv_rec.reference_number := lap_db_val_rec.lease_appl_number;
1184: l_lapv_rec.application_status := lap_db_val_rec.lease_appl_status_code;
1238: --Added Bug 5647107 ssdeshpa end
1239: END IF;
1240: CLOSE lap_db_val_csr;
1241: ELSE
1242: l_return_status := OKL_API.G_RET_STS_ERROR;
1243: OKL_API.SET_MESSAGE(
1244: p_app_name => G_APP_NAME,
1245: p_msg_name => 'OKL_SO_LSE_APP_INVALID');
1246: RAISE OKL_API.G_EXCEPTION_ERROR;
1239: END IF;
1240: CLOSE lap_db_val_csr;
1241: ELSE
1242: l_return_status := OKL_API.G_RET_STS_ERROR;
1243: OKL_API.SET_MESSAGE(
1244: p_app_name => G_APP_NAME,
1245: p_msg_name => 'OKL_SO_LSE_APP_INVALID');
1246: RAISE OKL_API.G_EXCEPTION_ERROR;
1247: END IF; --Lease Application Id is null or G_MISS_NUM
1242: l_return_status := OKL_API.G_RET_STS_ERROR;
1243: OKL_API.SET_MESSAGE(
1244: p_app_name => G_APP_NAME,
1245: p_msg_name => 'OKL_SO_LSE_APP_INVALID');
1246: RAISE OKL_API.G_EXCEPTION_ERROR;
1247: END IF; --Lease Application Id is null or G_MISS_NUM
1248:
1249: x_lapv_rec := l_lapv_rec;
1250: x_lsqv_rec := l_lsqv_rec;
1249: x_lapv_rec := l_lapv_rec;
1250: x_lsqv_rec := l_lsqv_rec;
1251: x_return_status := l_return_status;
1252:
1253: OKL_API.END_ACTIVITY(
1254: x_msg_count => x_msg_count
1255: ,x_msg_data => x_msg_data);
1256: EXCEPTION
1257: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1253: OKL_API.END_ACTIVITY(
1254: x_msg_count => x_msg_count
1255: ,x_msg_data => x_msg_data);
1256: EXCEPTION
1257: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1258: --Lease Application Details cursor
1259: IF lap_db_val_csr%ISOPEN
1260: THEN
1261: CLOSE lap_db_val_csr;
1259: IF lap_db_val_csr%ISOPEN
1260: THEN
1261: CLOSE lap_db_val_csr;
1262: END IF;
1263: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1264: p_api_name => l_api_name,
1265: p_pkg_name => G_PKG_NAME,
1266: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1267: x_msg_count => x_msg_count,
1262: END IF;
1263: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1264: p_api_name => l_api_name,
1265: p_pkg_name => G_PKG_NAME,
1266: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1267: x_msg_count => x_msg_count,
1268: x_msg_data => x_msg_data,
1269: p_api_type => G_API_TYPE);
1270:
1267: x_msg_count => x_msg_count,
1268: x_msg_data => x_msg_data,
1269: p_api_type => G_API_TYPE);
1270:
1271: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1272: --Lease Application Details cursor
1273: IF lap_db_val_csr%ISOPEN
1274: THEN
1275: CLOSE lap_db_val_csr;
1273: IF lap_db_val_csr%ISOPEN
1274: THEN
1275: CLOSE lap_db_val_csr;
1276: END IF;
1277: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1278: p_api_name => l_api_name,
1279: p_pkg_name => G_PKG_NAME,
1280: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1281: x_msg_count => x_msg_count,
1276: END IF;
1277: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1278: p_api_name => l_api_name,
1279: p_pkg_name => G_PKG_NAME,
1280: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1281: x_msg_count => x_msg_count,
1282: x_msg_data => x_msg_data,
1283: p_api_type => G_API_TYPE);
1284:
1287: IF lap_db_val_csr%ISOPEN
1288: THEN
1289: CLOSE lap_db_val_csr;
1290: END IF;
1291: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1292: p_api_name => l_api_name,
1293: p_pkg_name => G_PKG_NAME,
1294: p_exc_name => 'OTHERS',
1295: x_msg_count => x_msg_count,
1365: FROM OKL_CHECKLIST_DETAILS CLD
1366: WHERE CLD.ID = cp_cld_id;
1367: cld_db_val_rec cld_db_val_csr%ROWTYPE;
1368: BEGIN
1369: l_return_status := OKL_API.G_RET_STS_SUCCESS;
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');
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(
1381: p_api_name => l_api_name
1382: ,p_pkg_name => G_PKG_NAME
1383: ,p_init_msg_list => p_init_msg_list
1384: ,l_api_version => l_api_version
1386: ,p_api_type => G_API_TYPE
1387: ,x_return_status => l_return_status);
1388:
1389: -- check if activity started successfully
1390: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1391: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1392: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1393: RAISE OKL_API.G_EXCEPTION_ERROR;
1394: END IF;
1387: ,x_return_status => l_return_status);
1388:
1389: -- check if activity started successfully
1390: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1391: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1392: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1393: RAISE OKL_API.G_EXCEPTION_ERROR;
1394: END IF;
1395:
1388:
1389: -- check if activity started successfully
1390: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1391: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1392: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1393: RAISE OKL_API.G_EXCEPTION_ERROR;
1394: END IF;
1395:
1396: --Populate lease application rec with database values
1389: -- check if activity started successfully
1390: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1391: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1392: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1393: RAISE OKL_API.G_EXCEPTION_ERROR;
1394: END IF;
1395:
1396: --Populate lease application rec with database values
1397: IF(p_cld_id IS NOT NULL AND
1394: END IF;
1395:
1396: --Populate lease application rec with database values
1397: IF(p_cld_id IS NOT NULL AND
1398: p_cld_id <> OKL_API.G_MISS_NUM)
1399: THEN
1400: OPEN cld_db_val_csr(p_cld_id);
1401: FETCH cld_db_val_csr INTO cld_db_val_rec;
1402: IF(cld_db_val_csr%FOUND)
1437: END IF;--Checklist Details Id is null or G_MISS_NUM
1438:
1439: x_cldv_rec := l_cldv_rec;
1440: x_return_status := l_return_status;
1441: OKL_API.END_ACTIVITY(
1442: x_msg_count => x_msg_count
1443: ,x_msg_data => x_msg_data);
1444: EXCEPTION
1445: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1441: OKL_API.END_ACTIVITY(
1442: x_msg_count => x_msg_count
1443: ,x_msg_data => x_msg_data);
1444: EXCEPTION
1445: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1446: --Checklist Details cursor
1447: IF cld_db_val_csr%ISOPEN
1448: THEN
1449: CLOSE cld_db_val_csr;
1447: IF cld_db_val_csr%ISOPEN
1448: THEN
1449: CLOSE cld_db_val_csr;
1450: END IF;
1451: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1452: p_api_name => l_api_name,
1453: p_pkg_name => G_PKG_NAME,
1454: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1455: x_msg_count => x_msg_count,
1450: END IF;
1451: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1452: p_api_name => l_api_name,
1453: p_pkg_name => G_PKG_NAME,
1454: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1455: x_msg_count => x_msg_count,
1456: x_msg_data => x_msg_data,
1457: p_api_type => G_API_TYPE);
1458:
1455: x_msg_count => x_msg_count,
1456: x_msg_data => x_msg_data,
1457: p_api_type => G_API_TYPE);
1458:
1459: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1460: --Checklist Details cursor
1461: IF cld_db_val_csr%ISOPEN
1462: THEN
1463: CLOSE cld_db_val_csr;
1461: IF cld_db_val_csr%ISOPEN
1462: THEN
1463: CLOSE cld_db_val_csr;
1464: END IF;
1465: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1466: p_api_name => l_api_name,
1467: p_pkg_name => G_PKG_NAME,
1468: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1469: x_msg_count => x_msg_count,
1464: END IF;
1465: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1466: p_api_name => l_api_name,
1467: p_pkg_name => G_PKG_NAME,
1468: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1469: x_msg_count => x_msg_count,
1470: x_msg_data => x_msg_data,
1471: p_api_type => G_API_TYPE);
1472:
1475: IF cld_db_val_csr%ISOPEN
1476: THEN
1477: CLOSE cld_db_val_csr;
1478: END IF;
1479: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1480: p_api_name => l_api_name,
1481: p_pkg_name => G_PKG_NAME,
1482: p_exc_name => 'OTHERS',
1483: x_msg_count => x_msg_count,
1520: l_lapv_rec lapv_rec_type;
1521: x_lapv_rec lapv_rec_type;
1522: x_lsqv_rec lsqv_rec_type;
1523: BEGIN
1524: l_return_status := OKL_API.G_RET_STS_SUCCESS;
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');
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(
1536: p_api_name => l_api_name
1537: ,p_pkg_name => G_PKG_NAME
1538: ,p_init_msg_list => p_init_msg_list
1539: ,l_api_version => l_api_version
1541: ,p_api_type => G_API_TYPE
1542: ,x_return_status => l_return_status);
1543:
1544: -- check if activity started successfully
1545: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1546: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1547: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1548: RAISE OKL_API.G_EXCEPTION_ERROR;
1549: END IF;
1542: ,x_return_status => l_return_status);
1543:
1544: -- check if activity started successfully
1545: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1546: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1547: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1548: RAISE OKL_API.G_EXCEPTION_ERROR;
1549: END IF;
1550:
1543:
1544: -- check if activity started successfully
1545: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1546: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1547: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1548: RAISE OKL_API.G_EXCEPTION_ERROR;
1549: END IF;
1550:
1551: --Populate Lease Application rec with the values from database.
1544: -- check if activity started successfully
1545: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1546: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1547: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1548: RAISE OKL_API.G_EXCEPTION_ERROR;
1549: END IF;
1550:
1551: --Populate Lease Application rec with the values from database.
1552: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
1558: END IF;
1559:
1560: POPULATE_LEASE_APP(
1561: p_api_version => p_api_version
1562: ,p_init_msg_list => OKL_API.G_FALSE
1563: ,x_return_status => l_return_status
1564: ,x_msg_count => x_msg_count
1565: ,x_msg_data => x_msg_data
1566: ,p_lap_id => p_lap_id
1582: ,L_MODULE || ' Result of POPULATE_LEASE_APP'
1583: ,'l_return_status ' || l_return_status);
1584: END IF; -- end of statement level debug
1585:
1586: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
1587: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1588: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
1589: RAISE OKL_API.G_EXCEPTION_ERROR;
1590: END IF;
1583: ,'l_return_status ' || l_return_status);
1584: END IF; -- end of statement level debug
1585:
1586: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
1587: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1588: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
1589: RAISE OKL_API.G_EXCEPTION_ERROR;
1590: END IF;
1591:
1584: END IF; -- end of statement level debug
1585:
1586: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
1587: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1588: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
1589: RAISE OKL_API.G_EXCEPTION_ERROR;
1590: END IF;
1591:
1592: l_lapv_rec := x_lapv_rec;
1585:
1586: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
1587: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1588: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
1589: RAISE OKL_API.G_EXCEPTION_ERROR;
1590: END IF;
1591:
1592: l_lapv_rec := x_lapv_rec;
1593: l_lapv_rec.orig_status := l_lapv_rec.application_status;
1608: END IF;
1609:
1610: OKL_LAP_PVT.UPDATE_ROW(
1611: p_api_version => p_api_version
1612: ,p_init_msg_list => OKL_API.G_FALSE
1613: ,x_return_status => l_return_status
1614: ,x_msg_count => x_msg_count
1615: ,x_msg_data => x_msg_data
1616: ,p_lapv_rec => l_lapv_rec
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:
1635: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
1636: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1637: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
1638: RAISE OKL_API.G_EXCEPTION_ERROR;
1639: END IF;
1632: ,'l_return_status ' || l_return_status);
1633: END IF; -- end of statement level debug
1634:
1635: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
1636: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1637: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
1638: RAISE OKL_API.G_EXCEPTION_ERROR;
1639: END IF;
1640:
1633: END IF; -- end of statement level debug
1634:
1635: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
1636: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1637: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
1638: RAISE OKL_API.G_EXCEPTION_ERROR;
1639: END IF;
1640:
1641: x_return_status := l_return_status;
1634:
1635: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
1636: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1637: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
1638: RAISE OKL_API.G_EXCEPTION_ERROR;
1639: END IF;
1640:
1641: x_return_status := l_return_status;
1642: OKL_API.END_ACTIVITY(
1638: RAISE OKL_API.G_EXCEPTION_ERROR;
1639: END IF;
1640:
1641: x_return_status := l_return_status;
1642: OKL_API.END_ACTIVITY(
1643: x_msg_count => x_msg_count
1644: ,x_msg_data => x_msg_data);
1645: EXCEPTION
1646: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1642: OKL_API.END_ACTIVITY(
1643: x_msg_count => x_msg_count
1644: ,x_msg_data => x_msg_data);
1645: EXCEPTION
1646: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1647: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1648: p_api_name => l_api_name,
1649: p_pkg_name => G_PKG_NAME,
1650: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1643: x_msg_count => x_msg_count
1644: ,x_msg_data => x_msg_data);
1645: EXCEPTION
1646: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1647: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1648: p_api_name => l_api_name,
1649: p_pkg_name => G_PKG_NAME,
1650: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1651: x_msg_count => x_msg_count,
1646: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1647: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1648: p_api_name => l_api_name,
1649: p_pkg_name => G_PKG_NAME,
1650: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1651: x_msg_count => x_msg_count,
1652: x_msg_data => x_msg_data,
1653: p_api_type => G_API_TYPE);
1654:
1651: x_msg_count => x_msg_count,
1652: x_msg_data => x_msg_data,
1653: p_api_type => G_API_TYPE);
1654:
1655: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1656: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1657: p_api_name => l_api_name,
1658: p_pkg_name => G_PKG_NAME,
1659: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1652: x_msg_data => x_msg_data,
1653: p_api_type => G_API_TYPE);
1654:
1655: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1656: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1657: p_api_name => l_api_name,
1658: p_pkg_name => G_PKG_NAME,
1659: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1660: x_msg_count => x_msg_count,
1655: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1656: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1657: p_api_name => l_api_name,
1658: p_pkg_name => G_PKG_NAME,
1659: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1660: x_msg_count => x_msg_count,
1661: x_msg_data => x_msg_data,
1662: p_api_type => G_API_TYPE);
1663:
1661: x_msg_data => x_msg_data,
1662: p_api_type => G_API_TYPE);
1663:
1664: WHEN OTHERS THEN
1665: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1666: p_api_name => l_api_name,
1667: p_pkg_name => G_PKG_NAME,
1668: p_exc_name => 'OTHERS',
1669: x_msg_count => x_msg_count,
1715: WHERE LAB.ID = cp_lse_app_id
1716: AND PLAB.ID = LAB.PARENT_LEASEAPP_ID;
1717: lse_app_dtls_rec lse_app_dtls_csr%ROWTYPE;
1718: BEGIN
1719: l_return_status := OKL_API.G_RET_STS_SUCCESS;
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');
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(
1731: p_api_name => l_api_name
1732: ,p_pkg_name => G_PKG_NAME
1733: ,p_init_msg_list => p_init_msg_list
1734: ,l_api_version => l_api_version
1736: ,p_api_type => G_API_TYPE
1737: ,x_return_status => l_return_status);
1738:
1739: -- check if activity started successfully
1740: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1741: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1742: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1743: RAISE OKL_API.G_EXCEPTION_ERROR;
1744: END IF;
1737: ,x_return_status => l_return_status);
1738:
1739: -- check if activity started successfully
1740: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1741: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1742: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1743: RAISE OKL_API.G_EXCEPTION_ERROR;
1744: END IF;
1745:
1738:
1739: -- check if activity started successfully
1740: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1741: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1742: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1743: RAISE OKL_API.G_EXCEPTION_ERROR;
1744: END IF;
1745:
1746: OPEN lse_app_dtls_csr(p_lap_id);
1739: -- check if activity started successfully
1740: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1741: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1742: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1743: RAISE OKL_API.G_EXCEPTION_ERROR;
1744: END IF;
1745:
1746: OPEN lse_app_dtls_csr(p_lap_id);
1747: FETCH lse_app_dtls_csr INTO lse_app_dtls_rec;
1760: END IF;
1761:
1762: POPULATE_LEASE_APP(
1763: p_api_version => p_api_version
1764: ,p_init_msg_list => OKL_API.G_FALSE
1765: ,x_return_status => l_return_status
1766: ,x_msg_count => x_msg_count
1767: ,x_msg_data => x_msg_data
1768: ,p_lap_id => lse_app_dtls_rec.parent_lse_app_id
1784: ,L_MODULE || ' Result of POPULATE_LEASE_APP'
1785: ,'l_return_status ' || l_return_status);
1786: END IF; -- end of statement level debug
1787:
1788: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
1789: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1790: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
1791: RAISE OKL_API.G_EXCEPTION_ERROR;
1792: END IF;
1785: ,'l_return_status ' || l_return_status);
1786: END IF; -- end of statement level debug
1787:
1788: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
1789: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1790: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
1791: RAISE OKL_API.G_EXCEPTION_ERROR;
1792: END IF;
1793:
1786: END IF; -- end of statement level debug
1787:
1788: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
1789: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1790: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
1791: RAISE OKL_API.G_EXCEPTION_ERROR;
1792: END IF;
1793:
1794: l_lapv_rec := x_lapv_rec;
1787:
1788: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
1789: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1790: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
1791: RAISE OKL_API.G_EXCEPTION_ERROR;
1792: END IF;
1793:
1794: l_lapv_rec := x_lapv_rec;
1795: l_lapv_rec.application_status := l_lapv_rec.orig_status;
1804: END IF;
1805:
1806: OKL_LAP_PVT.UPDATE_ROW(
1807: p_api_version => p_api_version
1808: ,p_init_msg_list => OKL_API.G_FALSE
1809: ,x_return_status => l_return_status
1810: ,x_msg_count => x_msg_count
1811: ,x_msg_data => x_msg_data
1812: ,p_lapv_rec => l_lapv_rec
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:
1831: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
1832: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1833: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
1834: RAISE OKL_API.G_EXCEPTION_ERROR;
1835: END IF;
1828: ,'l_return_status ' || l_return_status);
1829: END IF; -- end of statement level debug
1830:
1831: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
1832: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1833: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
1834: RAISE OKL_API.G_EXCEPTION_ERROR;
1835: END IF;
1836: END IF;--if parent lease app id is not null and status is in progress status
1829: END IF; -- end of statement level debug
1830:
1831: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
1832: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1833: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
1834: RAISE OKL_API.G_EXCEPTION_ERROR;
1835: END IF;
1836: END IF;--if parent lease app id is not null and status is in progress status
1837:
1830:
1831: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
1832: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1833: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
1834: RAISE OKL_API.G_EXCEPTION_ERROR;
1835: END IF;
1836: END IF;--if parent lease app id is not null and status is in progress status
1837:
1838: x_return_status := l_return_status;
1835: END IF;
1836: END IF;--if parent lease app id is not null and status is in progress status
1837:
1838: x_return_status := l_return_status;
1839: OKL_API.END_ACTIVITY(
1840: x_msg_count => x_msg_count
1841: ,x_msg_data => x_msg_data);
1842: EXCEPTION
1843: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1839: OKL_API.END_ACTIVITY(
1840: x_msg_count => x_msg_count
1841: ,x_msg_data => x_msg_data);
1842: EXCEPTION
1843: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1844: --Lease Application Details cursor
1845: IF lse_app_dtls_csr%ISOPEN
1846: THEN
1847: CLOSE lse_app_dtls_csr;
1845: IF lse_app_dtls_csr%ISOPEN
1846: THEN
1847: CLOSE lse_app_dtls_csr;
1848: END IF;
1849: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1850: p_api_name => l_api_name,
1851: p_pkg_name => G_PKG_NAME,
1852: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1853: x_msg_count => x_msg_count,
1848: END IF;
1849: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1850: p_api_name => l_api_name,
1851: p_pkg_name => G_PKG_NAME,
1852: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1853: x_msg_count => x_msg_count,
1854: x_msg_data => x_msg_data,
1855: p_api_type => G_API_TYPE);
1856: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1852: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1853: x_msg_count => x_msg_count,
1854: x_msg_data => x_msg_data,
1855: p_api_type => G_API_TYPE);
1856: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1857: --Lease Application Details cursor
1858: IF lse_app_dtls_csr%ISOPEN
1859: THEN
1860: CLOSE lse_app_dtls_csr;
1858: IF lse_app_dtls_csr%ISOPEN
1859: THEN
1860: CLOSE lse_app_dtls_csr;
1861: END IF;
1862: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1863: p_api_name => l_api_name,
1864: p_pkg_name => G_PKG_NAME,
1865: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1866: x_msg_count => x_msg_count,
1861: END IF;
1862: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1863: p_api_name => l_api_name,
1864: p_pkg_name => G_PKG_NAME,
1865: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1866: x_msg_count => x_msg_count,
1867: x_msg_data => x_msg_data,
1868: p_api_type => G_API_TYPE);
1869: WHEN OTHERS THEN
1871: IF lse_app_dtls_csr%ISOPEN
1872: THEN
1873: CLOSE lse_app_dtls_csr;
1874: END IF;
1875: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1876: p_api_name => l_api_name,
1877: p_pkg_name => G_PKG_NAME,
1878: p_exc_name => 'OTHERS',
1879: x_msg_count => x_msg_count,
1924: CURSOR lsq_db_val_csr(cp_lsq_id NUMBER, cp_lsqv_rec lsqv_rec_type) IS
1925: SELECT LQ.REFERENCE_NUMBER REFERENCE_NUMBER
1926: FROM OKL_LEASE_QUOTES_B LQ
1927: WHERE LQ.ID = cp_lsq_id
1928: -- AND NVL(LQ.PRICING_METHOD, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.PRICING_METHOD, OKL_API.G_MISS_CHAR)
1929: AND NVL(LQ.EXPECTED_START_DATE, OKL_API.G_MISS_DATE) = NVL(cp_lsqv_rec.EXPECTED_START_DATE, OKL_API.G_MISS_DATE)
1930: AND NVL(LQ.VALID_FROM, OKL_API.G_MISS_DATE) = NVL(cp_lsqv_rec.VALID_FROM, OKL_API.G_MISS_DATE)
1931: AND NVL(LQ.VALID_TO, OKL_API.G_MISS_DATE) = NVL(cp_lsqv_rec.VALID_TO, OKL_API.G_MISS_DATE)
1932: AND NVL(LQ.TERM, OKL_API.G_MISS_NUM) = NVL(cp_lsqv_rec.TERM, OKL_API.G_MISS_NUM)
1925: SELECT LQ.REFERENCE_NUMBER REFERENCE_NUMBER
1926: FROM OKL_LEASE_QUOTES_B LQ
1927: WHERE LQ.ID = cp_lsq_id
1928: -- AND NVL(LQ.PRICING_METHOD, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.PRICING_METHOD, OKL_API.G_MISS_CHAR)
1929: AND NVL(LQ.EXPECTED_START_DATE, OKL_API.G_MISS_DATE) = NVL(cp_lsqv_rec.EXPECTED_START_DATE, OKL_API.G_MISS_DATE)
1930: AND NVL(LQ.VALID_FROM, OKL_API.G_MISS_DATE) = NVL(cp_lsqv_rec.VALID_FROM, OKL_API.G_MISS_DATE)
1931: AND NVL(LQ.VALID_TO, OKL_API.G_MISS_DATE) = NVL(cp_lsqv_rec.VALID_TO, OKL_API.G_MISS_DATE)
1932: AND NVL(LQ.TERM, OKL_API.G_MISS_NUM) = NVL(cp_lsqv_rec.TERM, OKL_API.G_MISS_NUM)
1933: AND NVL(LQ.PRODUCT_ID, OKL_API.G_MISS_NUM) = NVL(cp_lsqv_rec.PRODUCT_ID, OKL_API.G_MISS_NUM)
1926: FROM OKL_LEASE_QUOTES_B LQ
1927: WHERE LQ.ID = cp_lsq_id
1928: -- AND NVL(LQ.PRICING_METHOD, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.PRICING_METHOD, OKL_API.G_MISS_CHAR)
1929: AND NVL(LQ.EXPECTED_START_DATE, OKL_API.G_MISS_DATE) = NVL(cp_lsqv_rec.EXPECTED_START_DATE, OKL_API.G_MISS_DATE)
1930: AND NVL(LQ.VALID_FROM, OKL_API.G_MISS_DATE) = NVL(cp_lsqv_rec.VALID_FROM, OKL_API.G_MISS_DATE)
1931: AND NVL(LQ.VALID_TO, OKL_API.G_MISS_DATE) = NVL(cp_lsqv_rec.VALID_TO, OKL_API.G_MISS_DATE)
1932: AND NVL(LQ.TERM, OKL_API.G_MISS_NUM) = NVL(cp_lsqv_rec.TERM, OKL_API.G_MISS_NUM)
1933: AND NVL(LQ.PRODUCT_ID, OKL_API.G_MISS_NUM) = NVL(cp_lsqv_rec.PRODUCT_ID, OKL_API.G_MISS_NUM)
1934: AND NVL(LQ.END_OF_TERM_OPTION_ID, OKL_API.G_MISS_NUM) = NVL(cp_lsqv_rec.END_OF_TERM_OPTION_ID, OKL_API.G_MISS_NUM)
1927: WHERE LQ.ID = cp_lsq_id
1928: -- AND NVL(LQ.PRICING_METHOD, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.PRICING_METHOD, OKL_API.G_MISS_CHAR)
1929: AND NVL(LQ.EXPECTED_START_DATE, OKL_API.G_MISS_DATE) = NVL(cp_lsqv_rec.EXPECTED_START_DATE, OKL_API.G_MISS_DATE)
1930: AND NVL(LQ.VALID_FROM, OKL_API.G_MISS_DATE) = NVL(cp_lsqv_rec.VALID_FROM, OKL_API.G_MISS_DATE)
1931: AND NVL(LQ.VALID_TO, OKL_API.G_MISS_DATE) = NVL(cp_lsqv_rec.VALID_TO, OKL_API.G_MISS_DATE)
1932: AND NVL(LQ.TERM, OKL_API.G_MISS_NUM) = NVL(cp_lsqv_rec.TERM, OKL_API.G_MISS_NUM)
1933: AND NVL(LQ.PRODUCT_ID, OKL_API.G_MISS_NUM) = NVL(cp_lsqv_rec.PRODUCT_ID, OKL_API.G_MISS_NUM)
1934: AND NVL(LQ.END_OF_TERM_OPTION_ID, OKL_API.G_MISS_NUM) = NVL(cp_lsqv_rec.END_OF_TERM_OPTION_ID, OKL_API.G_MISS_NUM)
1935: AND NVL(LQ.PROPERTY_TAX_APPLICABLE, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.PROPERTY_TAX_APPLICABLE, OKL_API.G_MISS_CHAR)
1928: -- AND NVL(LQ.PRICING_METHOD, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.PRICING_METHOD, OKL_API.G_MISS_CHAR)
1929: AND NVL(LQ.EXPECTED_START_DATE, OKL_API.G_MISS_DATE) = NVL(cp_lsqv_rec.EXPECTED_START_DATE, OKL_API.G_MISS_DATE)
1930: AND NVL(LQ.VALID_FROM, OKL_API.G_MISS_DATE) = NVL(cp_lsqv_rec.VALID_FROM, OKL_API.G_MISS_DATE)
1931: AND NVL(LQ.VALID_TO, OKL_API.G_MISS_DATE) = NVL(cp_lsqv_rec.VALID_TO, OKL_API.G_MISS_DATE)
1932: AND NVL(LQ.TERM, OKL_API.G_MISS_NUM) = NVL(cp_lsqv_rec.TERM, OKL_API.G_MISS_NUM)
1933: AND NVL(LQ.PRODUCT_ID, OKL_API.G_MISS_NUM) = NVL(cp_lsqv_rec.PRODUCT_ID, OKL_API.G_MISS_NUM)
1934: AND NVL(LQ.END_OF_TERM_OPTION_ID, OKL_API.G_MISS_NUM) = NVL(cp_lsqv_rec.END_OF_TERM_OPTION_ID, OKL_API.G_MISS_NUM)
1935: AND NVL(LQ.PROPERTY_TAX_APPLICABLE, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.PROPERTY_TAX_APPLICABLE, OKL_API.G_MISS_CHAR)
1936: AND NVL(LQ.PROPERTY_TAX_BILLING_TYPE, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.PROPERTY_TAX_BILLING_TYPE, OKL_API.G_MISS_CHAR)
1929: AND NVL(LQ.EXPECTED_START_DATE, OKL_API.G_MISS_DATE) = NVL(cp_lsqv_rec.EXPECTED_START_DATE, OKL_API.G_MISS_DATE)
1930: AND NVL(LQ.VALID_FROM, OKL_API.G_MISS_DATE) = NVL(cp_lsqv_rec.VALID_FROM, OKL_API.G_MISS_DATE)
1931: AND NVL(LQ.VALID_TO, OKL_API.G_MISS_DATE) = NVL(cp_lsqv_rec.VALID_TO, OKL_API.G_MISS_DATE)
1932: AND NVL(LQ.TERM, OKL_API.G_MISS_NUM) = NVL(cp_lsqv_rec.TERM, OKL_API.G_MISS_NUM)
1933: AND NVL(LQ.PRODUCT_ID, OKL_API.G_MISS_NUM) = NVL(cp_lsqv_rec.PRODUCT_ID, OKL_API.G_MISS_NUM)
1934: AND NVL(LQ.END_OF_TERM_OPTION_ID, OKL_API.G_MISS_NUM) = NVL(cp_lsqv_rec.END_OF_TERM_OPTION_ID, OKL_API.G_MISS_NUM)
1935: AND NVL(LQ.PROPERTY_TAX_APPLICABLE, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.PROPERTY_TAX_APPLICABLE, OKL_API.G_MISS_CHAR)
1936: AND NVL(LQ.PROPERTY_TAX_BILLING_TYPE, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.PROPERTY_TAX_BILLING_TYPE, OKL_API.G_MISS_CHAR)
1937: AND NVL(LQ.USAGE_CATEGORY, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.USAGE_CATEGORY, OKL_API.G_MISS_CHAR)
1930: AND NVL(LQ.VALID_FROM, OKL_API.G_MISS_DATE) = NVL(cp_lsqv_rec.VALID_FROM, OKL_API.G_MISS_DATE)
1931: AND NVL(LQ.VALID_TO, OKL_API.G_MISS_DATE) = NVL(cp_lsqv_rec.VALID_TO, OKL_API.G_MISS_DATE)
1932: AND NVL(LQ.TERM, OKL_API.G_MISS_NUM) = NVL(cp_lsqv_rec.TERM, OKL_API.G_MISS_NUM)
1933: AND NVL(LQ.PRODUCT_ID, OKL_API.G_MISS_NUM) = NVL(cp_lsqv_rec.PRODUCT_ID, OKL_API.G_MISS_NUM)
1934: AND NVL(LQ.END_OF_TERM_OPTION_ID, OKL_API.G_MISS_NUM) = NVL(cp_lsqv_rec.END_OF_TERM_OPTION_ID, OKL_API.G_MISS_NUM)
1935: AND NVL(LQ.PROPERTY_TAX_APPLICABLE, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.PROPERTY_TAX_APPLICABLE, OKL_API.G_MISS_CHAR)
1936: AND NVL(LQ.PROPERTY_TAX_BILLING_TYPE, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.PROPERTY_TAX_BILLING_TYPE, OKL_API.G_MISS_CHAR)
1937: AND NVL(LQ.USAGE_CATEGORY, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.USAGE_CATEGORY, OKL_API.G_MISS_CHAR)
1938: AND NVL(LQ.UPFRONT_TAX_TREATMENT, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.UPFRONT_TAX_TREATMENT, OKL_API.G_MISS_CHAR)
1931: AND NVL(LQ.VALID_TO, OKL_API.G_MISS_DATE) = NVL(cp_lsqv_rec.VALID_TO, OKL_API.G_MISS_DATE)
1932: AND NVL(LQ.TERM, OKL_API.G_MISS_NUM) = NVL(cp_lsqv_rec.TERM, OKL_API.G_MISS_NUM)
1933: AND NVL(LQ.PRODUCT_ID, OKL_API.G_MISS_NUM) = NVL(cp_lsqv_rec.PRODUCT_ID, OKL_API.G_MISS_NUM)
1934: AND NVL(LQ.END_OF_TERM_OPTION_ID, OKL_API.G_MISS_NUM) = NVL(cp_lsqv_rec.END_OF_TERM_OPTION_ID, OKL_API.G_MISS_NUM)
1935: AND NVL(LQ.PROPERTY_TAX_APPLICABLE, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.PROPERTY_TAX_APPLICABLE, OKL_API.G_MISS_CHAR)
1936: AND NVL(LQ.PROPERTY_TAX_BILLING_TYPE, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.PROPERTY_TAX_BILLING_TYPE, OKL_API.G_MISS_CHAR)
1937: AND NVL(LQ.USAGE_CATEGORY, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.USAGE_CATEGORY, OKL_API.G_MISS_CHAR)
1938: AND NVL(LQ.UPFRONT_TAX_TREATMENT, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.UPFRONT_TAX_TREATMENT, OKL_API.G_MISS_CHAR)
1939: AND NVL(LQ.UPFRONT_TAX_STREAM_TYPE, OKL_API.G_MISS_NUM) = NVL(cp_lsqv_rec.UPFRONT_TAX_STREAM_TYPE, OKL_API.G_MISS_NUM)
1932: AND NVL(LQ.TERM, OKL_API.G_MISS_NUM) = NVL(cp_lsqv_rec.TERM, OKL_API.G_MISS_NUM)
1933: AND NVL(LQ.PRODUCT_ID, OKL_API.G_MISS_NUM) = NVL(cp_lsqv_rec.PRODUCT_ID, OKL_API.G_MISS_NUM)
1934: AND NVL(LQ.END_OF_TERM_OPTION_ID, OKL_API.G_MISS_NUM) = NVL(cp_lsqv_rec.END_OF_TERM_OPTION_ID, OKL_API.G_MISS_NUM)
1935: AND NVL(LQ.PROPERTY_TAX_APPLICABLE, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.PROPERTY_TAX_APPLICABLE, OKL_API.G_MISS_CHAR)
1936: AND NVL(LQ.PROPERTY_TAX_BILLING_TYPE, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.PROPERTY_TAX_BILLING_TYPE, OKL_API.G_MISS_CHAR)
1937: AND NVL(LQ.USAGE_CATEGORY, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.USAGE_CATEGORY, OKL_API.G_MISS_CHAR)
1938: AND NVL(LQ.UPFRONT_TAX_TREATMENT, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.UPFRONT_TAX_TREATMENT, OKL_API.G_MISS_CHAR)
1939: AND NVL(LQ.UPFRONT_TAX_STREAM_TYPE, OKL_API.G_MISS_NUM) = NVL(cp_lsqv_rec.UPFRONT_TAX_STREAM_TYPE, OKL_API.G_MISS_NUM)
1940: AND NVL(LQ.TRANSFER_OF_TITLE, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.TRANSFER_OF_TITLE, OKL_API.G_MISS_CHAR)
1933: AND NVL(LQ.PRODUCT_ID, OKL_API.G_MISS_NUM) = NVL(cp_lsqv_rec.PRODUCT_ID, OKL_API.G_MISS_NUM)
1934: AND NVL(LQ.END_OF_TERM_OPTION_ID, OKL_API.G_MISS_NUM) = NVL(cp_lsqv_rec.END_OF_TERM_OPTION_ID, OKL_API.G_MISS_NUM)
1935: AND NVL(LQ.PROPERTY_TAX_APPLICABLE, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.PROPERTY_TAX_APPLICABLE, OKL_API.G_MISS_CHAR)
1936: AND NVL(LQ.PROPERTY_TAX_BILLING_TYPE, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.PROPERTY_TAX_BILLING_TYPE, OKL_API.G_MISS_CHAR)
1937: AND NVL(LQ.USAGE_CATEGORY, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.USAGE_CATEGORY, OKL_API.G_MISS_CHAR)
1938: AND NVL(LQ.UPFRONT_TAX_TREATMENT, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.UPFRONT_TAX_TREATMENT, OKL_API.G_MISS_CHAR)
1939: AND NVL(LQ.UPFRONT_TAX_STREAM_TYPE, OKL_API.G_MISS_NUM) = NVL(cp_lsqv_rec.UPFRONT_TAX_STREAM_TYPE, OKL_API.G_MISS_NUM)
1940: AND NVL(LQ.TRANSFER_OF_TITLE, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.TRANSFER_OF_TITLE, OKL_API.G_MISS_CHAR)
1941: AND NVL(LQ.AGE_OF_EQUIPMENT, OKL_API.G_MISS_NUM) = NVL(cp_lsqv_rec.AGE_OF_EQUIPMENT, OKL_API.G_MISS_NUM)
1934: AND NVL(LQ.END_OF_TERM_OPTION_ID, OKL_API.G_MISS_NUM) = NVL(cp_lsqv_rec.END_OF_TERM_OPTION_ID, OKL_API.G_MISS_NUM)
1935: AND NVL(LQ.PROPERTY_TAX_APPLICABLE, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.PROPERTY_TAX_APPLICABLE, OKL_API.G_MISS_CHAR)
1936: AND NVL(LQ.PROPERTY_TAX_BILLING_TYPE, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.PROPERTY_TAX_BILLING_TYPE, OKL_API.G_MISS_CHAR)
1937: AND NVL(LQ.USAGE_CATEGORY, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.USAGE_CATEGORY, OKL_API.G_MISS_CHAR)
1938: AND NVL(LQ.UPFRONT_TAX_TREATMENT, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.UPFRONT_TAX_TREATMENT, OKL_API.G_MISS_CHAR)
1939: AND NVL(LQ.UPFRONT_TAX_STREAM_TYPE, OKL_API.G_MISS_NUM) = NVL(cp_lsqv_rec.UPFRONT_TAX_STREAM_TYPE, OKL_API.G_MISS_NUM)
1940: AND NVL(LQ.TRANSFER_OF_TITLE, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.TRANSFER_OF_TITLE, OKL_API.G_MISS_CHAR)
1941: AND NVL(LQ.AGE_OF_EQUIPMENT, OKL_API.G_MISS_NUM) = NVL(cp_lsqv_rec.AGE_OF_EQUIPMENT, OKL_API.G_MISS_NUM)
1942: AND NVL(LQ.PURCHASE_OF_LEASE, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.PURCHASE_OF_LEASE, OKL_API.G_MISS_CHAR)
1935: AND NVL(LQ.PROPERTY_TAX_APPLICABLE, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.PROPERTY_TAX_APPLICABLE, OKL_API.G_MISS_CHAR)
1936: AND NVL(LQ.PROPERTY_TAX_BILLING_TYPE, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.PROPERTY_TAX_BILLING_TYPE, OKL_API.G_MISS_CHAR)
1937: AND NVL(LQ.USAGE_CATEGORY, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.USAGE_CATEGORY, OKL_API.G_MISS_CHAR)
1938: AND NVL(LQ.UPFRONT_TAX_TREATMENT, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.UPFRONT_TAX_TREATMENT, OKL_API.G_MISS_CHAR)
1939: AND NVL(LQ.UPFRONT_TAX_STREAM_TYPE, OKL_API.G_MISS_NUM) = NVL(cp_lsqv_rec.UPFRONT_TAX_STREAM_TYPE, OKL_API.G_MISS_NUM)
1940: AND NVL(LQ.TRANSFER_OF_TITLE, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.TRANSFER_OF_TITLE, OKL_API.G_MISS_CHAR)
1941: AND NVL(LQ.AGE_OF_EQUIPMENT, OKL_API.G_MISS_NUM) = NVL(cp_lsqv_rec.AGE_OF_EQUIPMENT, OKL_API.G_MISS_NUM)
1942: AND NVL(LQ.PURCHASE_OF_LEASE, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.PURCHASE_OF_LEASE, OKL_API.G_MISS_CHAR)
1943: AND NVL(LQ.SALE_AND_LEASE_BACK, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.SALE_AND_LEASE_BACK, OKL_API.G_MISS_CHAR)
1936: AND NVL(LQ.PROPERTY_TAX_BILLING_TYPE, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.PROPERTY_TAX_BILLING_TYPE, OKL_API.G_MISS_CHAR)
1937: AND NVL(LQ.USAGE_CATEGORY, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.USAGE_CATEGORY, OKL_API.G_MISS_CHAR)
1938: AND NVL(LQ.UPFRONT_TAX_TREATMENT, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.UPFRONT_TAX_TREATMENT, OKL_API.G_MISS_CHAR)
1939: AND NVL(LQ.UPFRONT_TAX_STREAM_TYPE, OKL_API.G_MISS_NUM) = NVL(cp_lsqv_rec.UPFRONT_TAX_STREAM_TYPE, OKL_API.G_MISS_NUM)
1940: AND NVL(LQ.TRANSFER_OF_TITLE, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.TRANSFER_OF_TITLE, OKL_API.G_MISS_CHAR)
1941: AND NVL(LQ.AGE_OF_EQUIPMENT, OKL_API.G_MISS_NUM) = NVL(cp_lsqv_rec.AGE_OF_EQUIPMENT, OKL_API.G_MISS_NUM)
1942: AND NVL(LQ.PURCHASE_OF_LEASE, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.PURCHASE_OF_LEASE, OKL_API.G_MISS_CHAR)
1943: AND NVL(LQ.SALE_AND_LEASE_BACK, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.SALE_AND_LEASE_BACK, OKL_API.G_MISS_CHAR)
1944: AND NVL(LQ.INTEREST_DISCLOSED, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.INTEREST_DISCLOSED, OKL_API.G_MISS_CHAR)
1937: AND NVL(LQ.USAGE_CATEGORY, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.USAGE_CATEGORY, OKL_API.G_MISS_CHAR)
1938: AND NVL(LQ.UPFRONT_TAX_TREATMENT, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.UPFRONT_TAX_TREATMENT, OKL_API.G_MISS_CHAR)
1939: AND NVL(LQ.UPFRONT_TAX_STREAM_TYPE, OKL_API.G_MISS_NUM) = NVL(cp_lsqv_rec.UPFRONT_TAX_STREAM_TYPE, OKL_API.G_MISS_NUM)
1940: AND NVL(LQ.TRANSFER_OF_TITLE, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.TRANSFER_OF_TITLE, OKL_API.G_MISS_CHAR)
1941: AND NVL(LQ.AGE_OF_EQUIPMENT, OKL_API.G_MISS_NUM) = NVL(cp_lsqv_rec.AGE_OF_EQUIPMENT, OKL_API.G_MISS_NUM)
1942: AND NVL(LQ.PURCHASE_OF_LEASE, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.PURCHASE_OF_LEASE, OKL_API.G_MISS_CHAR)
1943: AND NVL(LQ.SALE_AND_LEASE_BACK, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.SALE_AND_LEASE_BACK, OKL_API.G_MISS_CHAR)
1944: AND NVL(LQ.INTEREST_DISCLOSED, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.INTEREST_DISCLOSED, OKL_API.G_MISS_CHAR)
1945: --Added Bug # 5647107 start
1938: AND NVL(LQ.UPFRONT_TAX_TREATMENT, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.UPFRONT_TAX_TREATMENT, OKL_API.G_MISS_CHAR)
1939: AND NVL(LQ.UPFRONT_TAX_STREAM_TYPE, OKL_API.G_MISS_NUM) = NVL(cp_lsqv_rec.UPFRONT_TAX_STREAM_TYPE, OKL_API.G_MISS_NUM)
1940: AND NVL(LQ.TRANSFER_OF_TITLE, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.TRANSFER_OF_TITLE, OKL_API.G_MISS_CHAR)
1941: AND NVL(LQ.AGE_OF_EQUIPMENT, OKL_API.G_MISS_NUM) = NVL(cp_lsqv_rec.AGE_OF_EQUIPMENT, OKL_API.G_MISS_NUM)
1942: AND NVL(LQ.PURCHASE_OF_LEASE, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.PURCHASE_OF_LEASE, OKL_API.G_MISS_CHAR)
1943: AND NVL(LQ.SALE_AND_LEASE_BACK, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.SALE_AND_LEASE_BACK, OKL_API.G_MISS_CHAR)
1944: AND NVL(LQ.INTEREST_DISCLOSED, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.INTEREST_DISCLOSED, OKL_API.G_MISS_CHAR)
1945: --Added Bug # 5647107 start
1946: AND NVL(LQ.LEGAL_ENTITY_ID, OKL_API.G_MISS_NUM) = NVL(cp_lsqv_rec.LEGAL_ENTITY_ID, OKL_API.G_MISS_NUM)
1939: AND NVL(LQ.UPFRONT_TAX_STREAM_TYPE, OKL_API.G_MISS_NUM) = NVL(cp_lsqv_rec.UPFRONT_TAX_STREAM_TYPE, OKL_API.G_MISS_NUM)
1940: AND NVL(LQ.TRANSFER_OF_TITLE, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.TRANSFER_OF_TITLE, OKL_API.G_MISS_CHAR)
1941: AND NVL(LQ.AGE_OF_EQUIPMENT, OKL_API.G_MISS_NUM) = NVL(cp_lsqv_rec.AGE_OF_EQUIPMENT, OKL_API.G_MISS_NUM)
1942: AND NVL(LQ.PURCHASE_OF_LEASE, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.PURCHASE_OF_LEASE, OKL_API.G_MISS_CHAR)
1943: AND NVL(LQ.SALE_AND_LEASE_BACK, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.SALE_AND_LEASE_BACK, OKL_API.G_MISS_CHAR)
1944: AND NVL(LQ.INTEREST_DISCLOSED, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.INTEREST_DISCLOSED, OKL_API.G_MISS_CHAR)
1945: --Added Bug # 5647107 start
1946: AND NVL(LQ.LEGAL_ENTITY_ID, OKL_API.G_MISS_NUM) = NVL(cp_lsqv_rec.LEGAL_ENTITY_ID, OKL_API.G_MISS_NUM)
1947: --Added Bug # 5647107 end
1940: AND NVL(LQ.TRANSFER_OF_TITLE, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.TRANSFER_OF_TITLE, OKL_API.G_MISS_CHAR)
1941: AND NVL(LQ.AGE_OF_EQUIPMENT, OKL_API.G_MISS_NUM) = NVL(cp_lsqv_rec.AGE_OF_EQUIPMENT, OKL_API.G_MISS_NUM)
1942: AND NVL(LQ.PURCHASE_OF_LEASE, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.PURCHASE_OF_LEASE, OKL_API.G_MISS_CHAR)
1943: AND NVL(LQ.SALE_AND_LEASE_BACK, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.SALE_AND_LEASE_BACK, OKL_API.G_MISS_CHAR)
1944: AND NVL(LQ.INTEREST_DISCLOSED, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.INTEREST_DISCLOSED, OKL_API.G_MISS_CHAR)
1945: --Added Bug # 5647107 start
1946: AND NVL(LQ.LEGAL_ENTITY_ID, OKL_API.G_MISS_NUM) = NVL(cp_lsqv_rec.LEGAL_ENTITY_ID, OKL_API.G_MISS_NUM)
1947: --Added Bug # 5647107 end
1948: -- Bug 5908845. eBTax Enhancement Project
1942: AND NVL(LQ.PURCHASE_OF_LEASE, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.PURCHASE_OF_LEASE, OKL_API.G_MISS_CHAR)
1943: AND NVL(LQ.SALE_AND_LEASE_BACK, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.SALE_AND_LEASE_BACK, OKL_API.G_MISS_CHAR)
1944: AND NVL(LQ.INTEREST_DISCLOSED, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.INTEREST_DISCLOSED, OKL_API.G_MISS_CHAR)
1945: --Added Bug # 5647107 start
1946: AND NVL(LQ.LEGAL_ENTITY_ID, OKL_API.G_MISS_NUM) = NVL(cp_lsqv_rec.LEGAL_ENTITY_ID, OKL_API.G_MISS_NUM)
1947: --Added Bug # 5647107 end
1948: -- Bug 5908845. eBTax Enhancement Project
1949: AND NVL(LQ.LINE_INTENDED_USE, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.LINE_INTENDED_USE, OKL_API.G_MISS_CHAR);
1950: -- End Bug 5908845. eBTax Enhancement Project
1945: --Added Bug # 5647107 start
1946: AND NVL(LQ.LEGAL_ENTITY_ID, OKL_API.G_MISS_NUM) = NVL(cp_lsqv_rec.LEGAL_ENTITY_ID, OKL_API.G_MISS_NUM)
1947: --Added Bug # 5647107 end
1948: -- Bug 5908845. eBTax Enhancement Project
1949: AND NVL(LQ.LINE_INTENDED_USE, OKL_API.G_MISS_CHAR) = NVL(cp_lsqv_rec.LINE_INTENDED_USE, OKL_API.G_MISS_CHAR);
1950: -- End Bug 5908845. eBTax Enhancement Project
1951:
1952: lsq_db_val_rec lsq_db_val_csr%ROWTYPE;
1953:
1955: CURSOR lap_db_val_csr(cp_lap_id NUMBER, cp_lapv_rec lapv_rec_type) IS
1956: SELECT LAP.REFERENCE_NUMBER REFERENCE_NUMBER
1957: FROM OKL_LEASE_APPLICATIONS_B LAP
1958: WHERE LAP.ID = cp_lap_id
1959: AND NVL(LAP.PROSPECT_ADDRESS_ID, OKL_API.G_MISS_NUM) = NVL(cp_lapv_rec.prospect_address_id, OKL_API.G_MISS_NUM)
1960: AND NVL(LAP.CUST_ACCT_ID, OKL_API.G_MISS_NUM) = NVL(cp_lapv_rec.cust_acct_id, OKL_API.G_MISS_NUM)
1961: AND NVL(LAP.MASTER_LEASE_ID, OKL_API.G_MISS_NUM) = NVL(cp_lapv_rec.master_lease_id, OKL_API.G_MISS_NUM)
1962: AND NVL(LAP.CURRENCY_CODE, OKL_API.G_MISS_CHAR) = NVL(cp_lapv_rec.currency_code, OKL_API.G_MISS_CHAR)
1963: AND NVL(LAP.CURRENCY_CONVERSION_TYPE, OKL_API.G_MISS_CHAR) = NVL(cp_lapv_rec.currency_conversion_type, OKL_API.G_MISS_CHAR)
1956: SELECT LAP.REFERENCE_NUMBER REFERENCE_NUMBER
1957: FROM OKL_LEASE_APPLICATIONS_B LAP
1958: WHERE LAP.ID = cp_lap_id
1959: AND NVL(LAP.PROSPECT_ADDRESS_ID, OKL_API.G_MISS_NUM) = NVL(cp_lapv_rec.prospect_address_id, OKL_API.G_MISS_NUM)
1960: AND NVL(LAP.CUST_ACCT_ID, OKL_API.G_MISS_NUM) = NVL(cp_lapv_rec.cust_acct_id, OKL_API.G_MISS_NUM)
1961: AND NVL(LAP.MASTER_LEASE_ID, OKL_API.G_MISS_NUM) = NVL(cp_lapv_rec.master_lease_id, OKL_API.G_MISS_NUM)
1962: AND NVL(LAP.CURRENCY_CODE, OKL_API.G_MISS_CHAR) = NVL(cp_lapv_rec.currency_code, OKL_API.G_MISS_CHAR)
1963: AND NVL(LAP.CURRENCY_CONVERSION_TYPE, OKL_API.G_MISS_CHAR) = NVL(cp_lapv_rec.currency_conversion_type, OKL_API.G_MISS_CHAR)
1964: AND NVL(LAP.CURRENCY_CONVERSION_RATE, OKL_API.G_MISS_NUM) = NVL(cp_lapv_rec.currency_conversion_rate, OKL_API.G_MISS_NUM)
1957: FROM OKL_LEASE_APPLICATIONS_B LAP
1958: WHERE LAP.ID = cp_lap_id
1959: AND NVL(LAP.PROSPECT_ADDRESS_ID, OKL_API.G_MISS_NUM) = NVL(cp_lapv_rec.prospect_address_id, OKL_API.G_MISS_NUM)
1960: AND NVL(LAP.CUST_ACCT_ID, OKL_API.G_MISS_NUM) = NVL(cp_lapv_rec.cust_acct_id, OKL_API.G_MISS_NUM)
1961: AND NVL(LAP.MASTER_LEASE_ID, OKL_API.G_MISS_NUM) = NVL(cp_lapv_rec.master_lease_id, OKL_API.G_MISS_NUM)
1962: AND NVL(LAP.CURRENCY_CODE, OKL_API.G_MISS_CHAR) = NVL(cp_lapv_rec.currency_code, OKL_API.G_MISS_CHAR)
1963: AND NVL(LAP.CURRENCY_CONVERSION_TYPE, OKL_API.G_MISS_CHAR) = NVL(cp_lapv_rec.currency_conversion_type, OKL_API.G_MISS_CHAR)
1964: AND NVL(LAP.CURRENCY_CONVERSION_RATE, OKL_API.G_MISS_NUM) = NVL(cp_lapv_rec.currency_conversion_rate, OKL_API.G_MISS_NUM)
1965: AND NVL(LAP.CURRENCY_CONVERSION_DATE, OKL_API.G_MISS_DATE) = NVL(cp_lapv_rec.currency_conversion_date, OKL_API.G_MISS_DATE);
1958: WHERE LAP.ID = cp_lap_id
1959: AND NVL(LAP.PROSPECT_ADDRESS_ID, OKL_API.G_MISS_NUM) = NVL(cp_lapv_rec.prospect_address_id, OKL_API.G_MISS_NUM)
1960: AND NVL(LAP.CUST_ACCT_ID, OKL_API.G_MISS_NUM) = NVL(cp_lapv_rec.cust_acct_id, OKL_API.G_MISS_NUM)
1961: AND NVL(LAP.MASTER_LEASE_ID, OKL_API.G_MISS_NUM) = NVL(cp_lapv_rec.master_lease_id, OKL_API.G_MISS_NUM)
1962: AND NVL(LAP.CURRENCY_CODE, OKL_API.G_MISS_CHAR) = NVL(cp_lapv_rec.currency_code, OKL_API.G_MISS_CHAR)
1963: AND NVL(LAP.CURRENCY_CONVERSION_TYPE, OKL_API.G_MISS_CHAR) = NVL(cp_lapv_rec.currency_conversion_type, OKL_API.G_MISS_CHAR)
1964: AND NVL(LAP.CURRENCY_CONVERSION_RATE, OKL_API.G_MISS_NUM) = NVL(cp_lapv_rec.currency_conversion_rate, OKL_API.G_MISS_NUM)
1965: AND NVL(LAP.CURRENCY_CONVERSION_DATE, OKL_API.G_MISS_DATE) = NVL(cp_lapv_rec.currency_conversion_date, OKL_API.G_MISS_DATE);
1966: lap_db_val_rec lap_db_val_csr%ROWTYPE;
1959: AND NVL(LAP.PROSPECT_ADDRESS_ID, OKL_API.G_MISS_NUM) = NVL(cp_lapv_rec.prospect_address_id, OKL_API.G_MISS_NUM)
1960: AND NVL(LAP.CUST_ACCT_ID, OKL_API.G_MISS_NUM) = NVL(cp_lapv_rec.cust_acct_id, OKL_API.G_MISS_NUM)
1961: AND NVL(LAP.MASTER_LEASE_ID, OKL_API.G_MISS_NUM) = NVL(cp_lapv_rec.master_lease_id, OKL_API.G_MISS_NUM)
1962: AND NVL(LAP.CURRENCY_CODE, OKL_API.G_MISS_CHAR) = NVL(cp_lapv_rec.currency_code, OKL_API.G_MISS_CHAR)
1963: AND NVL(LAP.CURRENCY_CONVERSION_TYPE, OKL_API.G_MISS_CHAR) = NVL(cp_lapv_rec.currency_conversion_type, OKL_API.G_MISS_CHAR)
1964: AND NVL(LAP.CURRENCY_CONVERSION_RATE, OKL_API.G_MISS_NUM) = NVL(cp_lapv_rec.currency_conversion_rate, OKL_API.G_MISS_NUM)
1965: AND NVL(LAP.CURRENCY_CONVERSION_DATE, OKL_API.G_MISS_DATE) = NVL(cp_lapv_rec.currency_conversion_date, OKL_API.G_MISS_DATE);
1966: lap_db_val_rec lap_db_val_csr%ROWTYPE;
1967:
1960: AND NVL(LAP.CUST_ACCT_ID, OKL_API.G_MISS_NUM) = NVL(cp_lapv_rec.cust_acct_id, OKL_API.G_MISS_NUM)
1961: AND NVL(LAP.MASTER_LEASE_ID, OKL_API.G_MISS_NUM) = NVL(cp_lapv_rec.master_lease_id, OKL_API.G_MISS_NUM)
1962: AND NVL(LAP.CURRENCY_CODE, OKL_API.G_MISS_CHAR) = NVL(cp_lapv_rec.currency_code, OKL_API.G_MISS_CHAR)
1963: AND NVL(LAP.CURRENCY_CONVERSION_TYPE, OKL_API.G_MISS_CHAR) = NVL(cp_lapv_rec.currency_conversion_type, OKL_API.G_MISS_CHAR)
1964: AND NVL(LAP.CURRENCY_CONVERSION_RATE, OKL_API.G_MISS_NUM) = NVL(cp_lapv_rec.currency_conversion_rate, OKL_API.G_MISS_NUM)
1965: AND NVL(LAP.CURRENCY_CONVERSION_DATE, OKL_API.G_MISS_DATE) = NVL(cp_lapv_rec.currency_conversion_date, OKL_API.G_MISS_DATE);
1966: lap_db_val_rec lap_db_val_csr%ROWTYPE;
1967:
1968: --Cursor to compare the db values of lease app header with the one in rec
1961: AND NVL(LAP.MASTER_LEASE_ID, OKL_API.G_MISS_NUM) = NVL(cp_lapv_rec.master_lease_id, OKL_API.G_MISS_NUM)
1962: AND NVL(LAP.CURRENCY_CODE, OKL_API.G_MISS_CHAR) = NVL(cp_lapv_rec.currency_code, OKL_API.G_MISS_CHAR)
1963: AND NVL(LAP.CURRENCY_CONVERSION_TYPE, OKL_API.G_MISS_CHAR) = NVL(cp_lapv_rec.currency_conversion_type, OKL_API.G_MISS_CHAR)
1964: AND NVL(LAP.CURRENCY_CONVERSION_RATE, OKL_API.G_MISS_NUM) = NVL(cp_lapv_rec.currency_conversion_rate, OKL_API.G_MISS_NUM)
1965: AND NVL(LAP.CURRENCY_CONVERSION_DATE, OKL_API.G_MISS_DATE) = NVL(cp_lapv_rec.currency_conversion_date, OKL_API.G_MISS_DATE);
1966: lap_db_val_rec lap_db_val_csr%ROWTYPE;
1967:
1968: --Cursor to compare the db values of lease app header with the one in rec
1969: CURSOR lop_db_val_csr(cp_lop_id NUMBER, cp_lapv_rec lapv_rec_type) IS
1969: CURSOR lop_db_val_csr(cp_lop_id NUMBER, cp_lapv_rec lapv_rec_type) IS
1970: SELECT LOP.REFERENCE_NUMBER REFERENCE_NUMBER
1971: FROM OKL_LEASE_OPPORTUNITIES_B LOP
1972: WHERE LOP.ID = cp_lop_id
1973: AND NVL(LOP.PROSPECT_ADDRESS_ID, OKL_API.G_MISS_NUM) = NVL(cp_lapv_rec.prospect_address_id, OKL_API.G_MISS_NUM)
1974: AND NVL(LOP.CUST_ACCT_ID, OKL_API.G_MISS_NUM) = NVL(cp_lapv_rec.cust_acct_id, OKL_API.G_MISS_NUM)
1975: AND NVL(LOP.MASTER_LEASE_ID, OKL_API.G_MISS_NUM) = NVL(cp_lapv_rec.master_lease_id, OKL_API.G_MISS_NUM)
1976: AND NVL(LOP.CURRENCY_CODE, OKL_API.G_MISS_CHAR) = NVL(cp_lapv_rec.currency_code, OKL_API.G_MISS_CHAR)
1977: AND NVL(LOP.CURRENCY_CONVERSION_TYPE, OKL_API.G_MISS_CHAR) = NVL(cp_lapv_rec.currency_conversion_type, OKL_API.G_MISS_CHAR)
1970: SELECT LOP.REFERENCE_NUMBER REFERENCE_NUMBER
1971: FROM OKL_LEASE_OPPORTUNITIES_B LOP
1972: WHERE LOP.ID = cp_lop_id
1973: AND NVL(LOP.PROSPECT_ADDRESS_ID, OKL_API.G_MISS_NUM) = NVL(cp_lapv_rec.prospect_address_id, OKL_API.G_MISS_NUM)
1974: AND NVL(LOP.CUST_ACCT_ID, OKL_API.G_MISS_NUM) = NVL(cp_lapv_rec.cust_acct_id, OKL_API.G_MISS_NUM)
1975: AND NVL(LOP.MASTER_LEASE_ID, OKL_API.G_MISS_NUM) = NVL(cp_lapv_rec.master_lease_id, OKL_API.G_MISS_NUM)
1976: AND NVL(LOP.CURRENCY_CODE, OKL_API.G_MISS_CHAR) = NVL(cp_lapv_rec.currency_code, OKL_API.G_MISS_CHAR)
1977: AND NVL(LOP.CURRENCY_CONVERSION_TYPE, OKL_API.G_MISS_CHAR) = NVL(cp_lapv_rec.currency_conversion_type, OKL_API.G_MISS_CHAR)
1978: AND NVL(LOP.CURRENCY_CONVERSION_RATE, OKL_API.G_MISS_NUM) = NVL(cp_lapv_rec.currency_conversion_rate, OKL_API.G_MISS_NUM)
1971: FROM OKL_LEASE_OPPORTUNITIES_B LOP
1972: WHERE LOP.ID = cp_lop_id
1973: AND NVL(LOP.PROSPECT_ADDRESS_ID, OKL_API.G_MISS_NUM) = NVL(cp_lapv_rec.prospect_address_id, OKL_API.G_MISS_NUM)
1974: AND NVL(LOP.CUST_ACCT_ID, OKL_API.G_MISS_NUM) = NVL(cp_lapv_rec.cust_acct_id, OKL_API.G_MISS_NUM)
1975: AND NVL(LOP.MASTER_LEASE_ID, OKL_API.G_MISS_NUM) = NVL(cp_lapv_rec.master_lease_id, OKL_API.G_MISS_NUM)
1976: AND NVL(LOP.CURRENCY_CODE, OKL_API.G_MISS_CHAR) = NVL(cp_lapv_rec.currency_code, OKL_API.G_MISS_CHAR)
1977: AND NVL(LOP.CURRENCY_CONVERSION_TYPE, OKL_API.G_MISS_CHAR) = NVL(cp_lapv_rec.currency_conversion_type, OKL_API.G_MISS_CHAR)
1978: AND NVL(LOP.CURRENCY_CONVERSION_RATE, OKL_API.G_MISS_NUM) = NVL(cp_lapv_rec.currency_conversion_rate, OKL_API.G_MISS_NUM)
1979: AND NVL(LOP.CURRENCY_CONVERSION_DATE, OKL_API.G_MISS_DATE) = NVL(cp_lapv_rec.currency_conversion_date, OKL_API.G_MISS_DATE);
1972: WHERE LOP.ID = cp_lop_id
1973: AND NVL(LOP.PROSPECT_ADDRESS_ID, OKL_API.G_MISS_NUM) = NVL(cp_lapv_rec.prospect_address_id, OKL_API.G_MISS_NUM)
1974: AND NVL(LOP.CUST_ACCT_ID, OKL_API.G_MISS_NUM) = NVL(cp_lapv_rec.cust_acct_id, OKL_API.G_MISS_NUM)
1975: AND NVL(LOP.MASTER_LEASE_ID, OKL_API.G_MISS_NUM) = NVL(cp_lapv_rec.master_lease_id, OKL_API.G_MISS_NUM)
1976: AND NVL(LOP.CURRENCY_CODE, OKL_API.G_MISS_CHAR) = NVL(cp_lapv_rec.currency_code, OKL_API.G_MISS_CHAR)
1977: AND NVL(LOP.CURRENCY_CONVERSION_TYPE, OKL_API.G_MISS_CHAR) = NVL(cp_lapv_rec.currency_conversion_type, OKL_API.G_MISS_CHAR)
1978: AND NVL(LOP.CURRENCY_CONVERSION_RATE, OKL_API.G_MISS_NUM) = NVL(cp_lapv_rec.currency_conversion_rate, OKL_API.G_MISS_NUM)
1979: AND NVL(LOP.CURRENCY_CONVERSION_DATE, OKL_API.G_MISS_DATE) = NVL(cp_lapv_rec.currency_conversion_date, OKL_API.G_MISS_DATE);
1980: lop_db_val_rec lop_db_val_csr%ROWTYPE;
1973: AND NVL(LOP.PROSPECT_ADDRESS_ID, OKL_API.G_MISS_NUM) = NVL(cp_lapv_rec.prospect_address_id, OKL_API.G_MISS_NUM)
1974: AND NVL(LOP.CUST_ACCT_ID, OKL_API.G_MISS_NUM) = NVL(cp_lapv_rec.cust_acct_id, OKL_API.G_MISS_NUM)
1975: AND NVL(LOP.MASTER_LEASE_ID, OKL_API.G_MISS_NUM) = NVL(cp_lapv_rec.master_lease_id, OKL_API.G_MISS_NUM)
1976: AND NVL(LOP.CURRENCY_CODE, OKL_API.G_MISS_CHAR) = NVL(cp_lapv_rec.currency_code, OKL_API.G_MISS_CHAR)
1977: AND NVL(LOP.CURRENCY_CONVERSION_TYPE, OKL_API.G_MISS_CHAR) = NVL(cp_lapv_rec.currency_conversion_type, OKL_API.G_MISS_CHAR)
1978: AND NVL(LOP.CURRENCY_CONVERSION_RATE, OKL_API.G_MISS_NUM) = NVL(cp_lapv_rec.currency_conversion_rate, OKL_API.G_MISS_NUM)
1979: AND NVL(LOP.CURRENCY_CONVERSION_DATE, OKL_API.G_MISS_DATE) = NVL(cp_lapv_rec.currency_conversion_date, OKL_API.G_MISS_DATE);
1980: lop_db_val_rec lop_db_val_csr%ROWTYPE;
1981:
1974: AND NVL(LOP.CUST_ACCT_ID, OKL_API.G_MISS_NUM) = NVL(cp_lapv_rec.cust_acct_id, OKL_API.G_MISS_NUM)
1975: AND NVL(LOP.MASTER_LEASE_ID, OKL_API.G_MISS_NUM) = NVL(cp_lapv_rec.master_lease_id, OKL_API.G_MISS_NUM)
1976: AND NVL(LOP.CURRENCY_CODE, OKL_API.G_MISS_CHAR) = NVL(cp_lapv_rec.currency_code, OKL_API.G_MISS_CHAR)
1977: AND NVL(LOP.CURRENCY_CONVERSION_TYPE, OKL_API.G_MISS_CHAR) = NVL(cp_lapv_rec.currency_conversion_type, OKL_API.G_MISS_CHAR)
1978: AND NVL(LOP.CURRENCY_CONVERSION_RATE, OKL_API.G_MISS_NUM) = NVL(cp_lapv_rec.currency_conversion_rate, OKL_API.G_MISS_NUM)
1979: AND NVL(LOP.CURRENCY_CONVERSION_DATE, OKL_API.G_MISS_DATE) = NVL(cp_lapv_rec.currency_conversion_date, OKL_API.G_MISS_DATE);
1980: lop_db_val_rec lop_db_val_csr%ROWTYPE;
1981:
1982: --Cursor to obtain parent object information of lease quote
1975: AND NVL(LOP.MASTER_LEASE_ID, OKL_API.G_MISS_NUM) = NVL(cp_lapv_rec.master_lease_id, OKL_API.G_MISS_NUM)
1976: AND NVL(LOP.CURRENCY_CODE, OKL_API.G_MISS_CHAR) = NVL(cp_lapv_rec.currency_code, OKL_API.G_MISS_CHAR)
1977: AND NVL(LOP.CURRENCY_CONVERSION_TYPE, OKL_API.G_MISS_CHAR) = NVL(cp_lapv_rec.currency_conversion_type, OKL_API.G_MISS_CHAR)
1978: AND NVL(LOP.CURRENCY_CONVERSION_RATE, OKL_API.G_MISS_NUM) = NVL(cp_lapv_rec.currency_conversion_rate, OKL_API.G_MISS_NUM)
1979: AND NVL(LOP.CURRENCY_CONVERSION_DATE, OKL_API.G_MISS_DATE) = NVL(cp_lapv_rec.currency_conversion_date, OKL_API.G_MISS_DATE);
1980: lop_db_val_rec lop_db_val_csr%ROWTYPE;
1981:
1982: --Cursor to obtain parent object information of lease quote
1983: CURSOR lsq_parent_csr(cp_lsq_id NUMBER) IS
1986: FROM OKL_LEASE_QUOTES_B LQ
1987: WHERE LQ.ID = cp_lsq_id;
1988: lsq_parent_rec lsq_parent_csr%ROWTYPE;
1989: BEGIN
1990: l_return_status := OKL_API.G_RET_STS_SUCCESS;
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');
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(
2002: p_api_name => l_api_name
2003: ,p_pkg_name => G_PKG_NAME
2004: ,p_init_msg_list => p_init_msg_list
2005: ,l_api_version => l_api_version
2007: ,p_api_type => G_API_TYPE
2008: ,x_return_status => l_return_status);
2009:
2010: -- check if activity started successfully
2011: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2012: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2013: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2014: RAISE OKL_API.G_EXCEPTION_ERROR;
2015: END IF;
2008: ,x_return_status => l_return_status);
2009:
2010: -- check if activity started successfully
2011: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2012: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2013: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2014: RAISE OKL_API.G_EXCEPTION_ERROR;
2015: END IF;
2016:
2009:
2010: -- check if activity started successfully
2011: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2012: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2013: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2014: RAISE OKL_API.G_EXCEPTION_ERROR;
2015: END IF;
2016:
2017: --Populate lease application rec with database values
2010: -- check if activity started successfully
2011: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2012: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2013: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2014: RAISE OKL_API.G_EXCEPTION_ERROR;
2015: END IF;
2016:
2017: --Populate lease application rec with database values
2018: IF(p_source_lsq_id IS NOT NULL AND
2015: END IF;
2016:
2017: --Populate lease application rec with database values
2018: IF(p_source_lsq_id IS NOT NULL AND
2019: p_source_lsq_id <> OKL_API.G_MISS_NUM)
2020: THEN
2021: OPEN lsq_parent_csr(p_source_lsq_id);
2022: FETCH lsq_parent_csr INTO lsq_parent_rec;
2023: IF(lsq_parent_csr%NOTFOUND)
2021: OPEN lsq_parent_csr(p_source_lsq_id);
2022: FETCH lsq_parent_csr INTO lsq_parent_rec;
2023: IF(lsq_parent_csr%NOTFOUND)
2024: THEN
2025: l_return_status := OKL_API.G_RET_STS_ERROR;
2026: END IF;
2027: CLOSE lsq_parent_csr;
2028:
2029: IF(l_return_status = OKL_API.G_RET_STS_SUCCESS)
2025: l_return_status := OKL_API.G_RET_STS_ERROR;
2026: END IF;
2027: CLOSE lsq_parent_csr;
2028:
2029: IF(l_return_status = OKL_API.G_RET_STS_SUCCESS)
2030: THEN
2031: IF(lsq_parent_rec.parent_object_code = 'LEASEAPP')
2032: THEN
2033: OPEN lap_db_val_csr(lsq_parent_rec.parent_object_id, p_lapv_rec);
2033: OPEN lap_db_val_csr(lsq_parent_rec.parent_object_id, p_lapv_rec);
2034: FETCH lap_db_val_csr INTO lap_db_val_rec;
2035: IF(lap_db_val_csr%NOTFOUND)
2036: THEN
2037: l_return_status := OKL_API.G_RET_STS_ERROR;
2038: END IF;
2039: CLOSE lap_db_val_csr;
2040: ELSIF(lsq_parent_rec.parent_object_code = 'LEASEOPP')
2041: THEN
2042: OPEN lop_db_val_csr(lsq_parent_rec.parent_object_id, p_lapv_rec);
2043: FETCH lop_db_val_csr INTO lop_db_val_rec;
2044: IF(lop_db_val_csr%NOTFOUND)
2045: THEN
2046: l_return_status := OKL_API.G_RET_STS_ERROR;
2047: END IF;
2048: CLOSE lop_db_val_csr;
2049: END IF;
2050: END IF;
2048: CLOSE lop_db_val_csr;
2049: END IF;
2050: END IF;
2051:
2052: IF(l_return_status = OKL_API.G_RET_STS_SUCCESS)
2053: THEN
2054: OPEN lsq_db_val_csr(p_source_lsq_id, p_lsqv_rec);
2055: FETCH lsq_db_val_csr INTO lsq_db_val_rec;
2056: IF(lsq_db_val_csr%NOTFOUND)
2054: OPEN lsq_db_val_csr(p_source_lsq_id, p_lsqv_rec);
2055: FETCH lsq_db_val_csr INTO lsq_db_val_rec;
2056: IF(lsq_db_val_csr%NOTFOUND)
2057: THEN
2058: l_return_status := OKL_API.G_RET_STS_ERROR;
2059: END IF;
2060: CLOSE lsq_db_val_csr;
2061: END IF;
2062: ELSE
2059: END IF;
2060: CLOSE lsq_db_val_csr;
2061: END IF;
2062: ELSE
2063: l_return_status := OKL_API.G_RET_STS_ERROR;
2064: END IF;--Source Lease Quote Id is null or G_MISS_NUM
2065:
2066: x_return_status := l_return_status;
2067: OKL_API.END_ACTIVITY(
2063: l_return_status := OKL_API.G_RET_STS_ERROR;
2064: END IF;--Source Lease Quote Id is null or G_MISS_NUM
2065:
2066: x_return_status := l_return_status;
2067: OKL_API.END_ACTIVITY(
2068: x_msg_count => x_msg_count
2069: ,x_msg_data => x_msg_data);
2070: EXCEPTION
2071: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2067: OKL_API.END_ACTIVITY(
2068: x_msg_count => x_msg_count
2069: ,x_msg_data => x_msg_data);
2070: EXCEPTION
2071: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2072: --Lease Quote Details cursor
2073: IF lsq_db_val_csr%ISOPEN
2074: THEN
2075: CLOSE lsq_db_val_csr;
2088: IF lsq_parent_csr%ISOPEN
2089: THEN
2090: CLOSE lsq_parent_csr;
2091: END IF;
2092: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2093: p_api_name => l_api_name,
2094: p_pkg_name => G_PKG_NAME,
2095: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2096: x_msg_count => x_msg_count,
2091: END IF;
2092: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2093: p_api_name => l_api_name,
2094: p_pkg_name => G_PKG_NAME,
2095: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2096: x_msg_count => x_msg_count,
2097: x_msg_data => x_msg_data,
2098: p_api_type => G_API_TYPE);
2099: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2095: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2096: x_msg_count => x_msg_count,
2097: x_msg_data => x_msg_data,
2098: p_api_type => G_API_TYPE);
2099: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2100: --Lease Quote Details cursor
2101: IF lsq_db_val_csr%ISOPEN
2102: THEN
2103: CLOSE lsq_db_val_csr;
2116: IF lsq_parent_csr%ISOPEN
2117: THEN
2118: CLOSE lsq_parent_csr;
2119: END IF;
2120: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2121: p_api_name => l_api_name,
2122: p_pkg_name => G_PKG_NAME,
2123: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2124: x_msg_count => x_msg_count,
2119: END IF;
2120: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2121: p_api_name => l_api_name,
2122: p_pkg_name => G_PKG_NAME,
2123: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2124: x_msg_count => x_msg_count,
2125: x_msg_data => x_msg_data,
2126: p_api_type => G_API_TYPE);
2127: WHEN OTHERS THEN
2144: IF lsq_parent_csr%ISOPEN
2145: THEN
2146: CLOSE lsq_parent_csr;
2147: END IF;
2148: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2149: p_api_name => l_api_name,
2150: p_pkg_name => G_PKG_NAME,
2151: p_exc_name => 'OTHERS',
2152: x_msg_count => x_msg_count,
2199:
2200: l_parameter_list.DELETE;
2201: EXCEPTION
2202: WHEN OTHERS THEN
2203: FND_MESSAGE.SET_NAME('OKL', 'OKL_API_OTHERS_EXCEP');
2204: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2205: FND_MSG_PUB.ADD;
2206: IF okl_key_csr%ISOPEN
2207: THEN
2272: AND LAB.ID = cp_lse_app_id;
2273: lse_app_dtls_rec lse_app_dtls_csr%ROWTYPE;
2274:
2275: BEGIN
2276: l_return_status := OKL_API.G_RET_STS_SUCCESS;
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');
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(
2288: p_api_name => l_api_name
2289: ,p_pkg_name => G_PKG_NAME
2290: ,p_init_msg_list => p_init_msg_list
2291: ,l_api_version => l_api_version
2293: ,p_api_type => G_API_TYPE
2294: ,x_return_status => l_return_status);
2295:
2296: -- check if activity started successfully
2297: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2298: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2299: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2300: RAISE OKL_API.G_EXCEPTION_ERROR;
2301: END IF;
2294: ,x_return_status => l_return_status);
2295:
2296: -- check if activity started successfully
2297: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2298: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2299: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2300: RAISE OKL_API.G_EXCEPTION_ERROR;
2301: END IF;
2302:
2295:
2296: -- check if activity started successfully
2297: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2298: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2299: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2300: RAISE OKL_API.G_EXCEPTION_ERROR;
2301: END IF;
2302:
2303: l_cm_installed := AR_CMGT_CREDIT_REQUEST_API.is_Credit_Management_Installed;
2296: -- check if activity started successfully
2297: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2298: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2299: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2300: RAISE OKL_API.G_EXCEPTION_ERROR;
2301: END IF;
2302:
2303: l_cm_installed := AR_CMGT_CREDIT_REQUEST_API.is_Credit_Management_Installed;
2304: IF NOT l_cm_installed
2302:
2303: l_cm_installed := AR_CMGT_CREDIT_REQUEST_API.is_Credit_Management_Installed;
2304: IF NOT l_cm_installed
2305: THEN
2306: l_return_status := OKL_API.G_RET_STS_ERROR;
2307: OKL_API.set_message(p_app_name => OKL_API.G_APP_NAME,
2308: p_msg_name => 'OKL_CM_NOTINSTALLED');
2309: RAISE OKL_API.G_EXCEPTION_ERROR;
2310: END IF;
2303: l_cm_installed := AR_CMGT_CREDIT_REQUEST_API.is_Credit_Management_Installed;
2304: IF NOT l_cm_installed
2305: THEN
2306: l_return_status := OKL_API.G_RET_STS_ERROR;
2307: OKL_API.set_message(p_app_name => OKL_API.G_APP_NAME,
2308: p_msg_name => 'OKL_CM_NOTINSTALLED');
2309: RAISE OKL_API.G_EXCEPTION_ERROR;
2310: END IF;
2311:
2305: THEN
2306: l_return_status := OKL_API.G_RET_STS_ERROR;
2307: OKL_API.set_message(p_app_name => OKL_API.G_APP_NAME,
2308: p_msg_name => 'OKL_CM_NOTINSTALLED');
2309: RAISE OKL_API.G_EXCEPTION_ERROR;
2310: END IF;
2311:
2312: l_crr_rec := p_crr_rec;
2313:
2366: END IF;
2367:
2368: AR_CMGT_CREDIT_REQUEST_API.CREATE_CREDIT_REQUEST(
2369: p_api_version => l_api_version,
2370: p_init_msg_list => OKL_API.G_FALSE,
2371: p_commit => l_crr_rec.l_commit,
2372: p_validation_level => l_crr_rec.validation_level,
2373: x_return_status => l_return_status,
2374: x_msg_count => x_msg_count,
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:
2429: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
2430: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2431: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
2432: RAISE OKL_API.G_EXCEPTION_ERROR;
2433: END IF;
2426: ,'l_return_status ' || l_return_status);
2427: END IF; -- end of statement level debug
2428:
2429: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
2430: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2431: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
2432: RAISE OKL_API.G_EXCEPTION_ERROR;
2433: END IF;
2434:
2427: END IF; -- end of statement level debug
2428:
2429: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
2430: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2431: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
2432: RAISE OKL_API.G_EXCEPTION_ERROR;
2433: END IF;
2434:
2435: x_crr_rec := l_crr_rec;
2428:
2429: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
2430: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2431: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
2432: RAISE OKL_API.G_EXCEPTION_ERROR;
2433: END IF;
2434:
2435: x_crr_rec := l_crr_rec;
2436: x_return_status := l_return_status;
2434:
2435: x_crr_rec := l_crr_rec;
2436: x_return_status := l_return_status;
2437:
2438: OKL_API.END_ACTIVITY(
2439: x_msg_count => x_msg_count
2440: ,x_msg_data => x_msg_data);
2441:
2442: EXCEPTION
2439: x_msg_count => x_msg_count
2440: ,x_msg_data => x_msg_data);
2441:
2442: EXCEPTION
2443: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2444: --Lease Application Details Cursor
2445: IF lse_app_dtls_csr%ISOPEN
2446: THEN
2447: CLOSE lse_app_dtls_csr;
2445: IF lse_app_dtls_csr%ISOPEN
2446: THEN
2447: CLOSE lse_app_dtls_csr;
2448: END IF;
2449: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2450: p_api_name => l_api_name,
2451: p_pkg_name => G_PKG_NAME,
2452: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2453: x_msg_count => x_msg_count,
2448: END IF;
2449: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2450: p_api_name => l_api_name,
2451: p_pkg_name => G_PKG_NAME,
2452: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2453: x_msg_count => x_msg_count,
2454: x_msg_data => x_msg_data,
2455: p_api_type => G_API_TYPE);
2456:
2453: x_msg_count => x_msg_count,
2454: x_msg_data => x_msg_data,
2455: p_api_type => G_API_TYPE);
2456:
2457: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2458: --Lease Application Details Cursor
2459: IF lse_app_dtls_csr%ISOPEN
2460: THEN
2461: CLOSE lse_app_dtls_csr;
2459: IF lse_app_dtls_csr%ISOPEN
2460: THEN
2461: CLOSE lse_app_dtls_csr;
2462: END IF;
2463: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2464: p_api_name => l_api_name,
2465: p_pkg_name => G_PKG_NAME,
2466: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2467: x_msg_count => x_msg_count,
2462: END IF;
2463: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2464: p_api_name => l_api_name,
2465: p_pkg_name => G_PKG_NAME,
2466: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2467: x_msg_count => x_msg_count,
2468: x_msg_data => x_msg_data,
2469: p_api_type => G_API_TYPE);
2470:
2473: IF lse_app_dtls_csr%ISOPEN
2474: THEN
2475: CLOSE lse_app_dtls_csr;
2476: END IF;
2477: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2478: p_api_name => l_api_name,
2479: p_pkg_name => G_PKG_NAME,
2480: p_exc_name => 'OTHERS',
2481: x_msg_count => x_msg_count,
2574: AND CHK.CHECKLIST_OBJ_ID = cp_lap_id;
2575: lap_chk_dtls_rec lap_chk_dtls_csr%ROWTYPE;
2576:
2577: BEGIN
2578: l_return_status := OKL_API.G_RET_STS_SUCCESS;
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');
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(
2590: p_api_name => l_api_name
2591: ,p_pkg_name => G_PKG_NAME
2592: ,p_init_msg_list => p_init_msg_list
2593: ,l_api_version => l_api_version
2595: ,p_api_type => G_API_TYPE
2596: ,x_return_status => l_return_status);
2597:
2598: -- check if activity started successfully
2599: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2600: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2601: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2602: RAISE OKL_API.G_EXCEPTION_ERROR;
2603: END IF;
2596: ,x_return_status => l_return_status);
2597:
2598: -- check if activity started successfully
2599: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2600: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2601: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2602: RAISE OKL_API.G_EXCEPTION_ERROR;
2603: END IF;
2604:
2597:
2598: -- check if activity started successfully
2599: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2600: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2601: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2602: RAISE OKL_API.G_EXCEPTION_ERROR;
2603: END IF;
2604:
2605: FOR lap_chk_dtls_rec IN lap_chk_dtls_csr(p_lap_id)
2598: -- check if activity started successfully
2599: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2600: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2601: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2602: RAISE OKL_API.G_EXCEPTION_ERROR;
2603: END IF;
2604:
2605: FOR lap_chk_dtls_rec IN lap_chk_dtls_csr(p_lap_id)
2606: LOOP
2619: END IF;
2620:
2621: OKL_CHECKLIST_PVT.UPDATE_CHECKLIST_INST_HDR(
2622: p_api_version => p_api_version
2623: ,p_init_msg_list => OKL_API.G_FALSE
2624: ,x_return_status => l_return_status
2625: ,x_msg_count => x_msg_count
2626: ,x_msg_data => x_msg_data
2627: ,p_clhv_rec => l_clhv_rec
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:
2646: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
2647: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2648: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
2649: RAISE OKL_API.G_EXCEPTION_ERROR;
2650: END IF;
2643: ,'l_return_status ' || l_return_status);
2644: END IF; -- end of statement level debug
2645:
2646: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
2647: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2648: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
2649: RAISE OKL_API.G_EXCEPTION_ERROR;
2650: END IF;
2651: END LOOP;
2644: END IF; -- end of statement level debug
2645:
2646: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
2647: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2648: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
2649: RAISE OKL_API.G_EXCEPTION_ERROR;
2650: END IF;
2651: END LOOP;
2652:
2645:
2646: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
2647: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2648: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
2649: RAISE OKL_API.G_EXCEPTION_ERROR;
2650: END IF;
2651: END LOOP;
2652:
2653: --asawanka Bug 4865418 changes start
2686: END IF;
2687:
2688: OKL_CHECKLIST_PVT.CREATE_CHECKLIST_INST_HDR(
2689: p_api_version => p_api_version
2690: ,p_init_msg_list => OKL_API.G_FALSE
2691: ,x_return_status => l_return_status
2692: ,x_msg_count => x_msg_count
2693: ,x_msg_data => x_msg_data
2694: ,p_clhv_rec => l_clhv_rec
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:
2713: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
2714: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2715: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
2716: RAISE OKL_API.G_EXCEPTION_ERROR;
2717: END IF;
2710: ,'l_return_status ' || l_return_status);
2711: END IF; -- end of statement level debug
2712:
2713: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
2714: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2715: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
2716: RAISE OKL_API.G_EXCEPTION_ERROR;
2717: END IF;
2718:
2711: END IF; -- end of statement level debug
2712:
2713: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
2714: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2715: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
2716: RAISE OKL_API.G_EXCEPTION_ERROR;
2717: END IF;
2718:
2719: l_counter := 0;
2712:
2713: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
2714: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2715: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
2716: RAISE OKL_API.G_EXCEPTION_ERROR;
2717: END IF;
2718:
2719: l_counter := 0;
2720: FOR chk_ln_dtls_rec in chk_ln_dtls_csr(chk_hdr_dtls_rec.id)
2741: END IF;
2742:
2743: OKL_CHECKLIST_PVT.CREATE_CHECKLIST_INST_DTL(
2744: p_api_version => p_api_version
2745: ,p_init_msg_list => OKL_API.G_FALSE
2746: ,x_return_status => l_return_status
2747: ,x_msg_count => x_msg_count
2748: ,x_msg_data => x_msg_data
2749: ,p_cldv_tbl => l_cldv_tbl
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:
2768: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
2769: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2770: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
2771: RAISE OKL_API.G_EXCEPTION_ERROR;
2772: END IF;
2765: ,'l_return_status ' || l_return_status);
2766: END IF; -- end of statement level debug
2767:
2768: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
2769: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2770: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
2771: RAISE OKL_API.G_EXCEPTION_ERROR;
2772: END IF;
2773: END IF;-- l_cldv_tbl.count > 0
2766: END IF; -- end of statement level debug
2767:
2768: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
2769: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2770: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
2771: RAISE OKL_API.G_EXCEPTION_ERROR;
2772: END IF;
2773: END IF;-- l_cldv_tbl.count > 0
2774:
2767:
2768: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
2769: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2770: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
2771: RAISE OKL_API.G_EXCEPTION_ERROR;
2772: END IF;
2773: END IF;-- l_cldv_tbl.count > 0
2774:
2775: -- Bug#4741121 - viselvar - Modified - Start
2787: ,p_event_name => p_event_name
2788: ,p_parameters => l_parameter_list);
2789:
2790:
2791: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
2792: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2793: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
2794: RAISE OKL_API.G_EXCEPTION_ERROR;
2795: END IF;
2788: ,p_parameters => l_parameter_list);
2789:
2790:
2791: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
2792: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2793: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
2794: RAISE OKL_API.G_EXCEPTION_ERROR;
2795: END IF;
2796:
2789:
2790:
2791: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
2792: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2793: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
2794: RAISE OKL_API.G_EXCEPTION_ERROR;
2795: END IF;
2796:
2797: -- Bug#4741121 - viselvar - Modified - End
2790:
2791: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
2792: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2793: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
2794: RAISE OKL_API.G_EXCEPTION_ERROR;
2795: END IF;
2796:
2797: -- Bug#4741121 - viselvar - Modified - End
2798: --asawanka Bug 4865418 changes start
2799: END IF;
2800: --asawanka Bug 4865418 changes end.
2801: x_return_status := l_return_status;
2802:
2803: OKL_API.END_ACTIVITY(
2804: x_msg_count => x_msg_count
2805: ,x_msg_data => x_msg_data);
2806:
2807: EXCEPTION
2804: x_msg_count => x_msg_count
2805: ,x_msg_data => x_msg_data);
2806:
2807: EXCEPTION
2808: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2809: --Lease App Details Cursor
2810: IF lse_app_dtls_csr%ISOPEN
2811: THEN
2812: CLOSE lse_app_dtls_csr;
2820: IF chk_ln_dtls_csr%ISOPEN
2821: THEN
2822: CLOSE chk_ln_dtls_csr;
2823: END IF;
2824: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2825: p_api_name => l_api_name,
2826: p_pkg_name => G_PKG_NAME,
2827: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2828: x_msg_count => x_msg_count,
2823: END IF;
2824: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2825: p_api_name => l_api_name,
2826: p_pkg_name => G_PKG_NAME,
2827: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2828: x_msg_count => x_msg_count,
2829: x_msg_data => x_msg_data,
2830: p_api_type => G_API_TYPE);
2831:
2828: x_msg_count => x_msg_count,
2829: x_msg_data => x_msg_data,
2830: p_api_type => G_API_TYPE);
2831:
2832: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2833: --Lease App Details Cursor
2834: IF lse_app_dtls_csr%ISOPEN
2835: THEN
2836: CLOSE lse_app_dtls_csr;
2844: IF chk_ln_dtls_csr%ISOPEN
2845: THEN
2846: CLOSE chk_ln_dtls_csr;
2847: END IF;
2848: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2849: p_api_name => l_api_name,
2850: p_pkg_name => G_PKG_NAME,
2851: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2852: x_msg_count => x_msg_count,
2847: END IF;
2848: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2849: p_api_name => l_api_name,
2850: p_pkg_name => G_PKG_NAME,
2851: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2852: x_msg_count => x_msg_count,
2853: x_msg_data => x_msg_data,
2854: p_api_type => G_API_TYPE);
2855:
2868: IF chk_ln_dtls_csr%ISOPEN
2869: THEN
2870: CLOSE chk_ln_dtls_csr;
2871: END IF;
2872: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2873: p_api_name => l_api_name,
2874: p_pkg_name => G_PKG_NAME,
2875: p_exc_name => 'OTHERS',
2876: x_msg_count => x_msg_count,
2948: AND LOP.ID = cp_lap_id;
2949: --End - varangan-3-11-2005- removed lease application reference for bug#4713798
2950: lse_app_src_dtls_rec lse_app_src_dtls_csr%ROWTYPE;
2951: BEGIN
2952: l_return_status := OKL_API.G_RET_STS_SUCCESS;
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');
2962: l_lsqv_rec := p_lsqv_rec;
2963:
2964: -- call START_ACTIVITY to create savepoint, check compatibility
2965: -- and initialize message list
2966: l_return_status := OKL_API.START_ACTIVITY(
2967: p_api_name => l_api_name
2968: ,p_pkg_name => G_PKG_NAME
2969: ,p_init_msg_list => p_init_msg_list
2970: ,l_api_version => l_api_version
2972: ,p_api_type => G_API_TYPE
2973: ,x_return_status => l_return_status);
2974:
2975: -- check if activity started successfully
2976: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2977: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2978: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2979: RAISE OKL_API.G_EXCEPTION_ERROR;
2980: END IF;
2973: ,x_return_status => l_return_status);
2974:
2975: -- check if activity started successfully
2976: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2977: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2978: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2979: RAISE OKL_API.G_EXCEPTION_ERROR;
2980: END IF;
2981:
2974:
2975: -- check if activity started successfully
2976: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2977: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2978: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2979: RAISE OKL_API.G_EXCEPTION_ERROR;
2980: END IF;
2981:
2982: --set the status for lease application
2975: -- check if activity started successfully
2976: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2977: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2978: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2979: RAISE OKL_API.G_EXCEPTION_ERROR;
2980: END IF;
2981:
2982: --set the status for lease application
2983: l_lapv_rec.application_status := G_INIT_APPL_STATUS;
2995: END IF;
2996:
2997: LEASE_APP_VAL(
2998: p_api_version => p_api_version
2999: ,p_init_msg_list => OKL_API.G_FALSE
3000: ,x_return_status => l_return_status
3001: ,x_msg_count => x_msg_count
3002: ,x_msg_data => x_msg_data
3003: ,p_lapv_rec => l_lapv_rec
3018: ,L_MODULE || ' Result of LEASE_APP_VAL'
3019: ,'l_return_status ' || l_return_status);
3020: END IF; -- end of statement level debug
3021:
3022: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3023: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3024: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3025: RAISE OKL_API.G_EXCEPTION_ERROR;
3026: END IF;
3019: ,'l_return_status ' || l_return_status);
3020: END IF; -- end of statement level debug
3021:
3022: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3023: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3024: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3025: RAISE OKL_API.G_EXCEPTION_ERROR;
3026: END IF;
3027:
3020: END IF; -- end of statement level debug
3021:
3022: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3023: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3024: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3025: RAISE OKL_API.G_EXCEPTION_ERROR;
3026: END IF;
3027:
3028: IF(l_lapv_rec.lease_opportunity_id IS NOT NULL OR
3021:
3022: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3023: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3024: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3025: RAISE OKL_API.G_EXCEPTION_ERROR;
3026: END IF;
3027:
3028: IF(l_lapv_rec.lease_opportunity_id IS NOT NULL OR
3029: l_lapv_rec.lease_opportunity_id <> OKL_API.G_MISS_NUM)
3025: RAISE OKL_API.G_EXCEPTION_ERROR;
3026: END IF;
3027:
3028: IF(l_lapv_rec.lease_opportunity_id IS NOT NULL OR
3029: l_lapv_rec.lease_opportunity_id <> OKL_API.G_MISS_NUM)
3030: THEN
3031: --BUG 4951955 PAGARG Instead of Lease Opp id, pass source Lease Quote id
3032: --as parameter to check default values
3033: OPEN lse_app_src_dtls_csr(l_lapv_rec.lease_opportunity_id);
3043: END IF;
3044:
3045: check_lease_quote_defaults(
3046: p_api_version => p_api_version
3047: ,p_init_msg_list => OKL_API.G_FALSE
3048: ,x_return_status => l_return_status
3049: ,x_msg_count => x_msg_count
3050: ,x_msg_data => x_msg_data
3051: ,p_source_lsq_id => lse_app_src_dtls_rec.lsq_id
3069: ,'l_return_status ' || l_return_status);
3070: END IF; -- end of statement level debug
3071:
3072: -- Check the status and accordingly set the Lease Application Status
3073: IF(l_return_status = OKL_API.G_RET_STS_SUCCESS)THEN
3074: l_lapv_rec.application_status := 'PR-ACCEPTED';
3075: END IF;
3076: END IF; -- LEASE_OPPORTUNITY_ID check for null and G_MISS_NUM
3077:
3085:
3086: -- call the TAPI insert_row to create a lease application
3087: OKL_LAP_PVT.INSERT_ROW(
3088: p_api_version => p_api_version
3089: ,p_init_msg_list => OKL_API.G_FALSE
3090: ,x_return_status => l_return_status
3091: ,x_msg_count => x_msg_count
3092: ,x_msg_data => x_msg_data
3093: ,p_lapv_rec => l_lapv_rec
3111: ' result status ' || l_return_status ||
3112: ' x_msg_data ' || x_msg_data);
3113: END IF; -- end of statement level debug
3114:
3115: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3116: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3117: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3118: RAISE OKL_API.G_EXCEPTION_ERROR;
3119: END IF;
3112: ' x_msg_data ' || x_msg_data);
3113: END IF; -- end of statement level debug
3114:
3115: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3116: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3117: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3118: RAISE OKL_API.G_EXCEPTION_ERROR;
3119: END IF;
3120:
3113: END IF; -- end of statement level debug
3114:
3115: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3116: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3117: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3118: RAISE OKL_API.G_EXCEPTION_ERROR;
3119: END IF;
3120:
3121: --Populate lease quote rec values
3114:
3115: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3116: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3117: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3118: RAISE OKL_API.G_EXCEPTION_ERROR;
3119: END IF;
3120:
3121: --Populate lease quote rec values
3122: l_lsqv_rec.parent_object_code := 'LEASEAPP';
3135: --underline lease quote with the header rec passed to duplicate api
3136: --This way it will duplicate lease quote with header values from rec and
3137: --rest of configuration, adjustment, pricing data from the source lease quote id
3138: IF(l_lapv_rec.lease_opportunity_id IS NOT NULL
3139: AND l_lapv_rec.lease_opportunity_id <> OKL_API.G_MISS_NUM)
3140: THEN
3141: IF(x_lapv_rec.application_status = 'PR-ACCEPTED')
3142: THEN
3143: l_lsqv_rec.status := 'CT-ACCEPTED';
3158:
3159: -- call the procedure to create lease quote line
3160: OKL_LEASE_QUOTE_PVT.DUPLICATE_LEASE_QTE(
3161: p_api_version => p_api_version
3162: ,p_init_msg_list => OKL_API.G_FALSE
3163: ,p_transaction_control => OKL_API.G_TRUE
3164: ,p_source_quote_id => lse_app_src_dtls_rec.lsq_id
3165: ,p_lease_qte_rec => l_lsqv_rec
3166: ,x_lease_qte_rec => x_lsqv_rec
3159: -- call the procedure to create lease quote line
3160: OKL_LEASE_QUOTE_PVT.DUPLICATE_LEASE_QTE(
3161: p_api_version => p_api_version
3162: ,p_init_msg_list => OKL_API.G_FALSE
3163: ,p_transaction_control => OKL_API.G_TRUE
3164: ,p_source_quote_id => lse_app_src_dtls_rec.lsq_id
3165: ,p_lease_qte_rec => l_lsqv_rec
3166: ,x_lease_qte_rec => x_lsqv_rec
3167: ,x_return_status => l_return_status
3186: ' result status ' || l_return_status ||
3187: ' x_msg_data ' || x_msg_data);
3188: END IF; -- end of statement level debug
3189:
3190: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3191: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3192: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3193: RAISE OKL_API.G_EXCEPTION_ERROR;
3194: END IF;
3187: ' x_msg_data ' || x_msg_data);
3188: END IF; -- end of statement level debug
3189:
3190: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3191: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3192: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3193: RAISE OKL_API.G_EXCEPTION_ERROR;
3194: END IF;
3195:
3188: END IF; -- end of statement level debug
3189:
3190: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3191: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3192: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3193: RAISE OKL_API.G_EXCEPTION_ERROR;
3194: END IF;
3195:
3196: --Bug 4960541 PAGARG Added call to validations API while creating Lease
3189:
3190: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3191: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3192: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3193: RAISE OKL_API.G_EXCEPTION_ERROR;
3194: END IF;
3195:
3196: --Bug 4960541 PAGARG Added call to validations API while creating Lease
3197: --App from Lease Quote. Based on qa result Lease App and Lease Quote status
3206:
3207: -- call the procedure to perform QA validations
3208: LEASE_APP_QA_VAL(
3209: p_api_version => p_api_version
3210: ,p_init_msg_list => OKL_API.G_FALSE
3211: ,p_lap_id => x_lapv_rec.id
3212: ,x_return_status => l_return_status
3213: ,x_msg_count => x_msg_count
3214: ,x_msg_data => x_msg_data
3231: ' Result Status ' || l_return_status ||
3232: ' QA Result Status ' || l_qa_result);
3233: END IF; -- end of statement level debug
3234:
3235: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3236: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3237: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3238: RAISE OKL_API.G_EXCEPTION_ERROR;
3239: END IF;
3232: ' QA Result Status ' || l_qa_result);
3233: END IF; -- end of statement level debug
3234:
3235: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3236: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3237: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3238: RAISE OKL_API.G_EXCEPTION_ERROR;
3239: END IF;
3240:
3233: END IF; -- end of statement level debug
3234:
3235: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3236: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3237: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3238: RAISE OKL_API.G_EXCEPTION_ERROR;
3239: END IF;
3240:
3241: IF l_qa_result <> OKL_API.G_RET_STS_SUCCESS
3234:
3235: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3236: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3237: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3238: RAISE OKL_API.G_EXCEPTION_ERROR;
3239: END IF;
3240:
3241: IF l_qa_result <> OKL_API.G_RET_STS_SUCCESS
3242: THEN
3237: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3238: RAISE OKL_API.G_EXCEPTION_ERROR;
3239: END IF;
3240:
3241: IF l_qa_result <> OKL_API.G_RET_STS_SUCCESS
3242: THEN
3243: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3244: THEN
3245: OKL_DEBUG_PUB.LOG_DEBUG(
3250:
3251: --call the procedure to update a lease application status
3252: SET_LEASE_APP_STATUS(
3253: p_api_version => p_api_version
3254: ,p_init_msg_list => OKL_API.G_FALSE
3255: ,p_lap_id => x_lapv_rec.id
3256: ,p_lap_status => G_INIT_APPL_STATUS
3257: ,x_return_status => l_return_status
3258: ,x_msg_count => x_msg_count
3274: ,'return status ' || l_return_status ||
3275: ' x_msg_data ' || x_msg_data);
3276: END IF; -- end of statement level debug
3277:
3278: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3279: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3280: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3281: RAISE OKL_API.G_EXCEPTION_ERROR;
3282: END IF;
3275: ' x_msg_data ' || x_msg_data);
3276: END IF; -- end of statement level debug
3277:
3278: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3279: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3280: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3281: RAISE OKL_API.G_EXCEPTION_ERROR;
3282: END IF;
3283:
3276: END IF; -- end of statement level debug
3277:
3278: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3279: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3280: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3281: RAISE OKL_API.G_EXCEPTION_ERROR;
3282: END IF;
3283:
3284: l_lsqv_rec := x_lsqv_rec;
3277:
3278: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3279: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3280: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3281: RAISE OKL_API.G_EXCEPTION_ERROR;
3282: END IF;
3283:
3284: l_lsqv_rec := x_lsqv_rec;
3285: l_lsqv_rec.status := 'PR-INCOMPLETE';
3293:
3294: -- call the procedure to create lease quote line
3295: OKL_LEASE_QUOTE_PVT.UPDATE_LEASE_QTE(
3296: p_api_version => p_api_version
3297: ,p_init_msg_list => OKL_API.G_FALSE
3298: ,p_transaction_control => OKL_API.G_TRUE
3299: ,p_lease_qte_rec => l_lsqv_rec
3300: ,x_lease_qte_rec => x_lsqv_rec
3301: ,x_return_status => l_return_status
3294: -- call the procedure to create lease quote line
3295: OKL_LEASE_QUOTE_PVT.UPDATE_LEASE_QTE(
3296: p_api_version => p_api_version
3297: ,p_init_msg_list => OKL_API.G_FALSE
3298: ,p_transaction_control => OKL_API.G_TRUE
3299: ,p_lease_qte_rec => l_lsqv_rec
3300: ,x_lease_qte_rec => x_lsqv_rec
3301: ,x_return_status => l_return_status
3302: ,x_msg_count => x_msg_count
3320: ' result status ' || l_return_status ||
3321: ' x_msg_data ' || x_msg_data);
3322: END IF; -- end of statement level debug
3323:
3324: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3325: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3326: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3327: RAISE OKL_API.G_EXCEPTION_ERROR;
3328: END IF;
3321: ' x_msg_data ' || x_msg_data);
3322: END IF; -- end of statement level debug
3323:
3324: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3325: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3326: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3327: RAISE OKL_API.G_EXCEPTION_ERROR;
3328: END IF;
3329: -- Bug 7440199: Quote Streams ER: RGOOTY: Start
3322: END IF; -- end of statement level debug
3323:
3324: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3325: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3326: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3327: RAISE OKL_API.G_EXCEPTION_ERROR;
3328: END IF;
3329: -- Bug 7440199: Quote Streams ER: RGOOTY: Start
3330: ELSE
3323:
3324: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3325: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3326: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3327: RAISE OKL_API.G_EXCEPTION_ERROR;
3328: END IF;
3329: -- Bug 7440199: Quote Streams ER: RGOOTY: Start
3330: ELSE
3331: --Making the pricing call to generate the streams
3341: END IF;
3342:
3343: OKL_PRICING_UTILS_PVT.PRICE_STANDARD_QUOTE(
3344: p_api_version => p_api_version
3345: ,p_init_msg_list => OKL_API.G_FALSE
3346: ,p_qte_id => x_lsqv_rec.id
3347: ,x_return_status => l_return_status
3348: ,x_msg_count => x_msg_count
3349: ,x_msg_data => x_msg_data);
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:
3367: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3368: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3369: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3370: RAISE OKL_API.G_EXCEPTION_ERROR;
3371: END IF;
3364: ,'l_return_status ' || l_return_status);
3365: END IF; -- end of statement level debug
3366:
3367: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3368: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3369: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3370: RAISE OKL_API.G_EXCEPTION_ERROR;
3371: END IF;
3372: --End of Pricing API call
3365: END IF; -- end of statement level debug
3366:
3367: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3368: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3369: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3370: RAISE OKL_API.G_EXCEPTION_ERROR;
3371: END IF;
3372: --End of Pricing API call
3373: END IF;
3366:
3367: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3368: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3369: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3370: RAISE OKL_API.G_EXCEPTION_ERROR;
3371: END IF;
3372: --End of Pricing API call
3373: END IF;
3374: -- Bug 7440199: Quote Streams ER: RGOOTY: End
3384:
3385: -- call the procedure to create lease quote line
3386: OKL_LEASE_QUOTE_PVT.CREATE_LEASE_QTE(
3387: p_api_version => p_api_version
3388: ,p_init_msg_list => OKL_API.G_FALSE
3389: ,p_transaction_control => OKL_API.G_TRUE
3390: ,p_lease_qte_rec => l_lsqv_rec
3391: ,x_lease_qte_rec => x_lsqv_rec
3392: ,x_return_status => l_return_status
3385: -- call the procedure to create lease quote line
3386: OKL_LEASE_QUOTE_PVT.CREATE_LEASE_QTE(
3387: p_api_version => p_api_version
3388: ,p_init_msg_list => OKL_API.G_FALSE
3389: ,p_transaction_control => OKL_API.G_TRUE
3390: ,p_lease_qte_rec => l_lsqv_rec
3391: ,x_lease_qte_rec => x_lsqv_rec
3392: ,x_return_status => l_return_status
3393: ,x_msg_count => x_msg_count
3411: ' result status ' || l_return_status ||
3412: ' x_msg_data ' || x_msg_data);
3413: END IF; -- end of statement level debug
3414:
3415: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3416: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3417: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3418: RAISE OKL_API.G_EXCEPTION_ERROR;
3419: END IF;
3412: ' x_msg_data ' || x_msg_data);
3413: END IF; -- end of statement level debug
3414:
3415: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3416: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3417: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3418: RAISE OKL_API.G_EXCEPTION_ERROR;
3419: END IF;
3420:
3413: END IF; -- end of statement level debug
3414:
3415: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3416: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3417: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3418: RAISE OKL_API.G_EXCEPTION_ERROR;
3419: END IF;
3420:
3421: END IF;
3414:
3415: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3416: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3417: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3418: RAISE OKL_API.G_EXCEPTION_ERROR;
3419: END IF;
3420:
3421: END IF;
3422: -- Bug#4741121 - viselvar - Modified - Start
3431: ,x_msg_data => x_msg_data
3432: ,p_event_name => p_event_name1
3433: ,p_parameters => l_parameter_list);
3434:
3435: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3436: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3437: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3438: RAISE OKL_API.G_EXCEPTION_ERROR;
3439: END IF;
3432: ,p_event_name => p_event_name1
3433: ,p_parameters => l_parameter_list);
3434:
3435: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3436: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3437: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3438: RAISE OKL_API.G_EXCEPTION_ERROR;
3439: END IF;
3440: -- Bug#4741121 - viselvar - Modified - End
3433: ,p_parameters => l_parameter_list);
3434:
3435: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3436: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3437: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3438: RAISE OKL_API.G_EXCEPTION_ERROR;
3439: END IF;
3440: -- Bug#4741121 - viselvar - Modified - End
3441:
3434:
3435: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3436: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3437: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3438: RAISE OKL_API.G_EXCEPTION_ERROR;
3439: END IF;
3440: -- Bug#4741121 - viselvar - Modified - End
3441:
3442: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3449:
3450: --call to create Credit Lease Application
3451: CREATE_CREDIT_APP(
3452: p_api_version => p_api_version
3453: ,p_init_msg_list => OKL_API.G_FALSE
3454: ,x_return_status => l_return_status
3455: ,x_msg_count => x_msg_count
3456: ,x_msg_data => x_msg_data
3457: ,p_lapv_rec => x_lapv_rec
3473: ,L_MODULE || ' Result of CREATE_CREDIT_APP'
3474: ,' result status ' || l_return_status);
3475: END IF; -- end of statement level debug
3476:
3477: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3478: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3479: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3480: RAISE OKL_API.G_EXCEPTION_ERROR;
3481: END IF;
3474: ,' result status ' || l_return_status);
3475: END IF; -- end of statement level debug
3476:
3477: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3478: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3479: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3480: RAISE OKL_API.G_EXCEPTION_ERROR;
3481: END IF;
3482:
3475: END IF; -- end of statement level debug
3476:
3477: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3478: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3479: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3480: RAISE OKL_API.G_EXCEPTION_ERROR;
3481: END IF;
3482:
3483: OPEN chk_hdr_dtls_csr(x_lapv_rec.id);
3476:
3477: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3478: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3479: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3480: RAISE OKL_API.G_EXCEPTION_ERROR;
3481: END IF;
3482:
3483: OPEN chk_hdr_dtls_csr(x_lapv_rec.id);
3484: FETCH chk_hdr_dtls_csr INTO chk_hdr_dtls_rec;
3496:
3497: --call to create Checklist Instance
3498: CHECKLIST_INST_CRE(
3499: p_api_version => p_api_version
3500: ,p_init_msg_list => OKL_API.G_FALSE
3501: ,x_return_status => l_return_status
3502: ,x_msg_count => x_msg_count
3503: ,x_msg_data => x_msg_data
3504: ,p_lap_id => x_lapv_rec.id
3519: ,L_MODULE || ' Result of CHECKLIST_INST_CRE'
3520: ,' result status ' || l_return_status);
3521: END IF; -- end of statement level debug
3522:
3523: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3524: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3525: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3526: RAISE OKL_API.G_EXCEPTION_ERROR;
3527: END IF;
3520: ,' result status ' || l_return_status);
3521: END IF; -- end of statement level debug
3522:
3523: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3524: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3525: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3526: RAISE OKL_API.G_EXCEPTION_ERROR;
3527: END IF;
3528: END IF; -- Condition to check for call to create checklist instance
3521: END IF; -- end of statement level debug
3522:
3523: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3524: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3525: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3526: RAISE OKL_API.G_EXCEPTION_ERROR;
3527: END IF;
3528: END IF; -- Condition to check for call to create checklist instance
3529:
3522:
3523: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3524: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3525: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3526: RAISE OKL_API.G_EXCEPTION_ERROR;
3527: END IF;
3528: END IF; -- Condition to check for call to create checklist instance
3529:
3530: -- Bug#4741121 - viselvar - Modified - Start
3539: ,x_msg_data => x_msg_data
3540: ,p_event_name => p_event_name
3541: ,p_parameters => l_parameter_list);
3542:
3543: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3544: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3545: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3546: RAISE OKL_API.G_EXCEPTION_ERROR;
3547: END IF;
3540: ,p_event_name => p_event_name
3541: ,p_parameters => l_parameter_list);
3542:
3543: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3544: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3545: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3546: RAISE OKL_API.G_EXCEPTION_ERROR;
3547: END IF;
3548: -- Bug#4741121 - viselvar - Modified - End
3541: ,p_parameters => l_parameter_list);
3542:
3543: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3544: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3545: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3546: RAISE OKL_API.G_EXCEPTION_ERROR;
3547: END IF;
3548: -- Bug#4741121 - viselvar - Modified - End
3549:
3542:
3543: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3544: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3545: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3546: RAISE OKL_API.G_EXCEPTION_ERROR;
3547: END IF;
3548: -- Bug#4741121 - viselvar - Modified - End
3549:
3550: x_return_status := l_return_status;
3547: END IF;
3548: -- Bug#4741121 - viselvar - Modified - End
3549:
3550: x_return_status := l_return_status;
3551: OKL_API.END_ACTIVITY(
3552: x_msg_count => x_msg_count
3553: ,x_msg_data => x_msg_data);
3554: EXCEPTION
3555: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3551: OKL_API.END_ACTIVITY(
3552: x_msg_count => x_msg_count
3553: ,x_msg_data => x_msg_data);
3554: EXCEPTION
3555: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3556: --Checklist Header Details Cursor
3557: IF chk_hdr_dtls_csr%ISOPEN
3558: THEN
3559: CLOSE chk_hdr_dtls_csr;
3562: IF lse_app_src_dtls_csr%ISOPEN
3563: THEN
3564: CLOSE lse_app_src_dtls_csr;
3565: END IF;
3566: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3567: p_api_name => l_api_name,
3568: p_pkg_name => G_PKG_NAME,
3569: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3570: x_msg_count => x_msg_count,
3565: END IF;
3566: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3567: p_api_name => l_api_name,
3568: p_pkg_name => G_PKG_NAME,
3569: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3570: x_msg_count => x_msg_count,
3571: x_msg_data => x_msg_data,
3572: p_api_type => G_API_TYPE);
3573: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3569: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3570: x_msg_count => x_msg_count,
3571: x_msg_data => x_msg_data,
3572: p_api_type => G_API_TYPE);
3573: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3574: --Checklist Header Details Cursor
3575: IF chk_hdr_dtls_csr%ISOPEN
3576: THEN
3577: CLOSE chk_hdr_dtls_csr;
3580: IF lse_app_src_dtls_csr%ISOPEN
3581: THEN
3582: CLOSE lse_app_src_dtls_csr;
3583: END IF;
3584: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3585: p_api_name => l_api_name,
3586: p_pkg_name => G_PKG_NAME,
3587: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3588: x_msg_count => x_msg_count,
3583: END IF;
3584: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3585: p_api_name => l_api_name,
3586: p_pkg_name => G_PKG_NAME,
3587: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3588: x_msg_count => x_msg_count,
3589: x_msg_data => x_msg_data,
3590: p_api_type => G_API_TYPE);
3591: WHEN OTHERS THEN
3598: IF lse_app_src_dtls_csr%ISOPEN
3599: THEN
3600: CLOSE lse_app_src_dtls_csr;
3601: END IF;
3602: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3603: p_api_name => l_api_name,
3604: p_pkg_name => G_PKG_NAME,
3605: p_exc_name => 'OTHERS',
3606: x_msg_count => x_msg_count,
3701: AND SOURCE_COLUMN1 = cp_lap_id;
3702: get_crd_app_data_rec get_crd_app_data%ROWTYPE;
3703: --asawanka Bug 4865418 changes end
3704: BEGIN
3705: l_return_status := OKL_API.G_RET_STS_SUCCESS;
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');
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(
3717: p_api_name => l_api_name
3718: ,p_pkg_name => G_PKG_NAME
3719: ,p_init_msg_list => p_init_msg_list
3720: ,l_api_version => l_api_version
3722: ,p_api_type => G_API_TYPE
3723: ,x_return_status => l_return_status);
3724:
3725: -- check if activity started successfully
3726: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3727: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3728: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3729: RAISE OKL_API.G_EXCEPTION_ERROR;
3730: END IF;
3723: ,x_return_status => l_return_status);
3724:
3725: -- check if activity started successfully
3726: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3727: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3728: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3729: RAISE OKL_API.G_EXCEPTION_ERROR;
3730: END IF;
3731:
3724:
3725: -- check if activity started successfully
3726: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3727: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3728: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3729: RAISE OKL_API.G_EXCEPTION_ERROR;
3730: END IF;
3731:
3732: l_lapv_rec := p_lapv_rec;
3725: -- check if activity started successfully
3726: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3727: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3728: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3729: RAISE OKL_API.G_EXCEPTION_ERROR;
3730: END IF;
3731:
3732: l_lapv_rec := p_lapv_rec;
3733: l_lsqv_rec := p_lsqv_rec;
3746: END IF;
3747:
3748: LEASE_APP_VAL(
3749: p_api_version => p_api_version
3750: ,p_init_msg_list => OKL_API.G_FALSE
3751: ,x_return_status => l_return_status
3752: ,x_msg_count => x_msg_count
3753: ,x_msg_data => x_msg_data
3754: ,p_lapv_rec => l_lapv_rec
3769: ,L_MODULE || ' Result of LEASE_APP_VAL'
3770: ,'l_return_status ' || l_return_status);
3771: END IF; -- end of statement level debug
3772:
3773: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3774: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3775: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3776: RAISE OKL_API.G_EXCEPTION_ERROR;
3777: END IF;
3770: ,'l_return_status ' || l_return_status);
3771: END IF; -- end of statement level debug
3772:
3773: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3774: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3775: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3776: RAISE OKL_API.G_EXCEPTION_ERROR;
3777: END IF;
3778: --asawanka Bug 4865418 changes start
3771: END IF; -- end of statement level debug
3772:
3773: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3774: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3775: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3776: RAISE OKL_API.G_EXCEPTION_ERROR;
3777: END IF;
3778: --asawanka Bug 4865418 changes start
3779:
3772:
3773: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3774: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3775: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3776: RAISE OKL_API.G_EXCEPTION_ERROR;
3777: END IF;
3778: --asawanka Bug 4865418 changes start
3779:
3780: --collect the existing lease application template before update
3795: END IF;
3796:
3797: CHECK_LEASE_QUOTE_DEFAULTS(
3798: p_api_version => p_api_version
3799: ,p_init_msg_list => OKL_API.G_FALSE
3800: ,x_return_status => l_return_status
3801: ,x_msg_count => x_msg_count
3802: ,x_msg_data => x_msg_data
3803: ,p_source_lsq_id => l_lsqv_rec.id
3821: ,'l_return_status ' || l_return_status);
3822: END IF; -- end of statement level debug
3823:
3824: -- Check the status and accordingly set the Lease Application Status
3825: IF(l_return_status = OKL_API.G_RET_STS_ERROR)
3826: THEN
3827: --set the status for lease application
3828: l_lapv_rec.application_status := G_INIT_APPL_STATUS;
3829: l_update_quote := 1;
3839:
3840: -- call the TAPI update_row to update a lease application
3841: OKL_LAP_PVT.UPDATE_ROW(
3842: p_api_version => p_api_version
3843: ,p_init_msg_list => OKL_API.G_FALSE
3844: ,x_return_status => l_return_status
3845: ,x_msg_count => x_msg_count
3846: ,x_msg_data => x_msg_data
3847: ,p_lapv_rec => l_lapv_rec
3864: ' expiring lease application with status ' || l_return_status ||
3865: ' x_msg_data ' || x_msg_data);
3866: END IF; -- end of statement level debug
3867:
3868: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3869: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3870: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3871: RAISE OKL_API.G_EXCEPTION_ERROR;
3872: END IF;
3865: ' x_msg_data ' || x_msg_data);
3866: END IF; -- end of statement level debug
3867:
3868: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3869: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3870: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3871: RAISE OKL_API.G_EXCEPTION_ERROR;
3872: END IF;
3873:
3866: END IF; -- end of statement level debug
3867:
3868: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3869: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3870: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3871: RAISE OKL_API.G_EXCEPTION_ERROR;
3872: END IF;
3873:
3874: IF(l_update_quote = 1)
3867:
3868: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3869: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3870: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3871: RAISE OKL_API.G_EXCEPTION_ERROR;
3872: END IF;
3873:
3874: IF(l_update_quote = 1)
3875: THEN
3885:
3886: -- call the procedure to create lease quote line
3887: OKL_LEASE_QUOTE_PVT.UPDATE_LEASE_QTE(
3888: p_api_version => p_api_version
3889: ,p_init_msg_list => OKL_API.G_FALSE
3890: ,p_transaction_control => OKL_API.G_TRUE
3891: ,p_lease_qte_rec => l_lsqv_rec
3892: ,x_lease_qte_rec => x_lsqv_rec
3893: ,x_return_status => l_return_status
3886: -- call the procedure to create lease quote line
3887: OKL_LEASE_QUOTE_PVT.UPDATE_LEASE_QTE(
3888: p_api_version => p_api_version
3889: ,p_init_msg_list => OKL_API.G_FALSE
3890: ,p_transaction_control => OKL_API.G_TRUE
3891: ,p_lease_qte_rec => l_lsqv_rec
3892: ,x_lease_qte_rec => x_lsqv_rec
3893: ,x_return_status => l_return_status
3894: ,x_msg_count => x_msg_count
3912: ' result status ' || l_return_status ||
3913: ' x_msg_data ' || x_msg_data);
3914: END IF; -- end of statement level debug
3915:
3916: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3917: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3918: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3919: RAISE OKL_API.G_EXCEPTION_ERROR;
3920: END IF;
3913: ' x_msg_data ' || x_msg_data);
3914: END IF; -- end of statement level debug
3915:
3916: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3917: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3918: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3919: RAISE OKL_API.G_EXCEPTION_ERROR;
3920: END IF;
3921: END IF;
3914: END IF; -- end of statement level debug
3915:
3916: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3917: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3918: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3919: RAISE OKL_API.G_EXCEPTION_ERROR;
3920: END IF;
3921: END IF;
3922: --BUG 4951955 PAGARG Removed the call to subsidy pool API as it was redundant
3915:
3916: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3917: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3918: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3919: RAISE OKL_API.G_EXCEPTION_ERROR;
3920: END IF;
3921: END IF;
3922: --BUG 4951955 PAGARG Removed the call to subsidy pool API as it was redundant
3923: --It is already called in update_lease_qte
3934: ,x_msg_data => x_msg_data
3935: ,p_event_name => p_event_name
3936: ,p_parameters => l_parameter_list);
3937:
3938: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3939: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3940: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3941: RAISE OKL_API.G_EXCEPTION_ERROR;
3942: END IF;
3935: ,p_event_name => p_event_name
3936: ,p_parameters => l_parameter_list);
3937:
3938: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3939: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3940: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3941: RAISE OKL_API.G_EXCEPTION_ERROR;
3942: END IF;
3943: -- Bug#4741121 - viselvar - Modified - End
3936: ,p_parameters => l_parameter_list);
3937:
3938: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3939: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3940: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3941: RAISE OKL_API.G_EXCEPTION_ERROR;
3942: END IF;
3943: -- Bug#4741121 - viselvar - Modified - End
3944:
3937:
3938: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3939: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3940: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3941: RAISE OKL_API.G_EXCEPTION_ERROR;
3942: END IF;
3943: -- Bug#4741121 - viselvar - Modified - End
3944:
3945: --asawanka Bug 4865418 changes start
3962:
3963: --call to create Checklist Instance
3964: CHECKLIST_INST_CRE(
3965: p_api_version => p_api_version
3966: ,p_init_msg_list => OKL_API.G_FALSE
3967: ,x_return_status => l_return_status
3968: ,x_msg_count => x_msg_count
3969: ,x_msg_data => x_msg_data
3970: ,p_lap_id => l_lapv_rec.id
3985: ,L_MODULE || ' Result of CHECKLIST_INST_CRE'
3986: ,' result status ' || l_return_status);
3987: END IF; -- end of statement level debug
3988:
3989: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3990: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3991: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3992: RAISE OKL_API.G_EXCEPTION_ERROR;
3993: END IF;
3986: ,' result status ' || l_return_status);
3987: END IF; -- end of statement level debug
3988:
3989: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3990: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3991: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3992: RAISE OKL_API.G_EXCEPTION_ERROR;
3993: END IF;
3994: END IF;--condition to check change of lease application template
3987: END IF; -- end of statement level debug
3988:
3989: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3990: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3991: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3992: RAISE OKL_API.G_EXCEPTION_ERROR;
3993: END IF;
3994: END IF;--condition to check change of lease application template
3995:
3988:
3989: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3990: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3991: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3992: RAISE OKL_API.G_EXCEPTION_ERROR;
3993: END IF;
3994: END IF;--condition to check change of lease application template
3995:
3996: --check the review purpose, credit classification and Customer Account on the
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:
4037: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
4038: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4039: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
4040: RAISE OKL_API.G_EXCEPTION_ERROR;
4041: END IF;
4034: ,' result status ' || l_return_status);
4035: END IF; -- end of statement level debug
4036:
4037: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
4038: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4039: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
4040: RAISE OKL_API.G_EXCEPTION_ERROR;
4041: END IF;
4042:
4035: END IF; -- end of statement level debug
4036:
4037: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
4038: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4039: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
4040: RAISE OKL_API.G_EXCEPTION_ERROR;
4041: END IF;
4042:
4043: --assign the new values
4036:
4037: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
4038: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4039: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
4040: RAISE OKL_API.G_EXCEPTION_ERROR;
4041: END IF;
4042:
4043: --assign the new values
4044: l_credit_request_rec.application_number := l_lapv_rec.reference_number;
4056: END IF;
4057: --update the credit application data
4058: OCM_CREDIT_REQUEST_UPDATE_PUB.UPDATE_CREDIT_REQUEST(
4059: p_api_version => l_api_version,
4060: p_init_msg_list => OKL_API.G_FALSE,
4061: p_commit => NULL,
4062: p_validation_level => NULL,
4063: x_return_status => l_return_status,
4064: x_msg_count => x_msg_count,
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:
4084: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
4085: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4086: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
4087: RAISE OKL_API.G_EXCEPTION_ERROR;
4088: END IF;
4081: ,' result status ' || l_return_status);
4082: END IF; -- end of statement level debug
4083:
4084: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
4085: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4086: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
4087: RAISE OKL_API.G_EXCEPTION_ERROR;
4088: END IF;
4089: END IF;--condition to check change in credit classification or review purpose
4082: END IF; -- end of statement level debug
4083:
4084: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
4085: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4086: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
4087: RAISE OKL_API.G_EXCEPTION_ERROR;
4088: END IF;
4089: END IF;--condition to check change in credit classification or review purpose
4090: --asawanka Bug 4865418 changes end
4083:
4084: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
4085: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4086: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
4087: RAISE OKL_API.G_EXCEPTION_ERROR;
4088: END IF;
4089: END IF;--condition to check change in credit classification or review purpose
4090: --asawanka Bug 4865418 changes end
4091:
4089: END IF;--condition to check change in credit classification or review purpose
4090: --asawanka Bug 4865418 changes end
4091:
4092: x_return_status := l_return_status;
4093: OKL_API.END_ACTIVITY(
4094: x_msg_count => x_msg_count
4095: ,x_msg_data => x_msg_data);
4096: EXCEPTION
4097: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4093: OKL_API.END_ACTIVITY(
4094: x_msg_count => x_msg_count
4095: ,x_msg_data => x_msg_data);
4096: EXCEPTION
4097: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4098: --Lease Quote Details Cursor
4099: IF l_lsq_dtls_csr%ISOPEN
4100: THEN
4101: CLOSE l_lsq_dtls_csr;
4114: IF get_crd_app_data%ISOPEN
4115: THEN
4116: CLOSE get_crd_app_data;
4117: END IF;
4118: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4119: p_api_name => l_api_name,
4120: p_pkg_name => G_PKG_NAME,
4121: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4122: x_msg_count => x_msg_count,
4117: END IF;
4118: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4119: p_api_name => l_api_name,
4120: p_pkg_name => G_PKG_NAME,
4121: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4122: x_msg_count => x_msg_count,
4123: x_msg_data => x_msg_data,
4124: p_api_type => G_API_TYPE);
4125: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4121: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4122: x_msg_count => x_msg_count,
4123: x_msg_data => x_msg_data,
4124: p_api_type => G_API_TYPE);
4125: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4126: --Lease Quote Details Cursor
4127: IF l_lsq_dtls_csr%ISOPEN
4128: THEN
4129: CLOSE l_lsq_dtls_csr;
4142: IF get_crd_app_data%ISOPEN
4143: THEN
4144: CLOSE get_crd_app_data;
4145: END IF;
4146: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4147: p_api_name => l_api_name,
4148: p_pkg_name => G_PKG_NAME,
4149: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4150: x_msg_count => x_msg_count,
4145: END IF;
4146: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4147: p_api_name => l_api_name,
4148: p_pkg_name => G_PKG_NAME,
4149: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4150: x_msg_count => x_msg_count,
4151: x_msg_data => x_msg_data,
4152: p_api_type => G_API_TYPE);
4153: WHEN OTHERS THEN
4170: IF get_crd_app_data%ISOPEN
4171: THEN
4172: CLOSE get_crd_app_data;
4173: END IF;
4174: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4175: p_api_name => l_api_name,
4176: p_pkg_name => G_PKG_NAME,
4177: p_exc_name => 'OTHERS',
4178: x_msg_count => x_msg_count,
4354: OR CHR.AUTHORING_ORG_ID <> LAT.ORG_ID)
4355: --Bug# 6850094 :End
4356: AND LATV.ID = p_latv_id;
4357: BEGIN
4358: l_return_status := OKL_API.G_RET_STS_SUCCESS;
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');
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(
4370: p_api_name => l_api_name
4371: ,p_pkg_name => G_PKG_NAME
4372: ,p_init_msg_list => p_init_msg_list
4373: ,l_api_version => l_api_version
4375: ,p_api_type => G_API_TYPE
4376: ,x_return_status => l_return_status);
4377:
4378: -- check if activity started successfully
4379: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4380: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4381: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4382: RAISE OKL_API.G_EXCEPTION_ERROR;
4383: END IF;
4376: ,x_return_status => l_return_status);
4377:
4378: -- check if activity started successfully
4379: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4380: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4381: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4382: RAISE OKL_API.G_EXCEPTION_ERROR;
4383: END IF;
4384:
4377:
4378: -- check if activity started successfully
4379: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4380: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4381: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4382: RAISE OKL_API.G_EXCEPTION_ERROR;
4383: END IF;
4384:
4385: l_lapv_rec := p_lapv_rec;
4378: -- check if activity started successfully
4379: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4380: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4381: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4382: RAISE OKL_API.G_EXCEPTION_ERROR;
4383: END IF;
4384:
4385: l_lapv_rec := p_lapv_rec;
4386: l_lsqv_rec := p_lsqv_rec;
4386: l_lsqv_rec := p_lsqv_rec;
4387:
4388: --Validate Lease Application Template
4389: IF(l_lapv_rec.leaseapp_template_id IS NOT NULL AND
4390: l_lapv_rec.leaseapp_template_id <> OKL_API.G_MISS_NUM)
4391: THEN
4392: FOR lat_dtls_rec IN lat_dtls_csr(l_lapv_rec.leaseapp_template_id
4393: ,l_lapv_rec.valid_from)
4394: LOOP
4391: THEN
4392: FOR lat_dtls_rec IN lat_dtls_csr(l_lapv_rec.leaseapp_template_id
4393: ,l_lapv_rec.valid_from)
4394: LOOP
4395: l_return_status := OKL_API.G_RET_STS_ERROR;
4396: OKL_API.SET_MESSAGE(
4397: p_app_name => G_APP_NAME,
4398: p_msg_name => 'OKL_VAL_LEASEAPP_TEMPLATE',
4399: p_token1 => 'TEMPLATE_NUMBER',
4392: FOR lat_dtls_rec IN lat_dtls_csr(l_lapv_rec.leaseapp_template_id
4393: ,l_lapv_rec.valid_from)
4394: LOOP
4395: l_return_status := OKL_API.G_RET_STS_ERROR;
4396: OKL_API.SET_MESSAGE(
4397: p_app_name => G_APP_NAME,
4398: p_msg_name => 'OKL_VAL_LEASEAPP_TEMPLATE',
4399: p_token1 => 'TEMPLATE_NUMBER',
4400: p_token1_value => lat_dtls_rec.leaseapp_tmpl_name);
4397: p_app_name => G_APP_NAME,
4398: p_msg_name => 'OKL_VAL_LEASEAPP_TEMPLATE',
4399: p_token1 => 'TEMPLATE_NUMBER',
4400: p_token1_value => lat_dtls_rec.leaseapp_tmpl_name);
4401: RAISE OKL_API.G_EXCEPTION_ERROR;
4402: END LOOP;
4403:
4404: --Validate Eligibility Criteria for Lease Application Template
4405: l_return_status := is_valid_leaseapp_template(
4405: l_return_status := is_valid_leaseapp_template(
4406: l_lapv_rec.leaseapp_template_id
4407: ,l_lapv_rec.id
4408: ,l_lapv_rec.valid_from);
4409: IF(l_return_status = OKL_API.G_RET_STS_ERROR)
4410: THEN
4411: OKL_API.SET_MESSAGE(
4412: p_app_name => G_APP_NAME,
4413: p_msg_name => 'OKL_SO_LSEAPP_TMPL_EC_FAIL',
4407: ,l_lapv_rec.id
4408: ,l_lapv_rec.valid_from);
4409: IF(l_return_status = OKL_API.G_RET_STS_ERROR)
4410: THEN
4411: OKL_API.SET_MESSAGE(
4412: p_app_name => G_APP_NAME,
4413: p_msg_name => 'OKL_SO_LSEAPP_TMPL_EC_FAIL',
4414: p_token1 => 'TEXT',
4415: p_token1_value => lat_dtls_rec.leaseapp_tmpl_name);
4412: p_app_name => G_APP_NAME,
4413: p_msg_name => 'OKL_SO_LSEAPP_TMPL_EC_FAIL',
4414: p_token1 => 'TEXT',
4415: p_token1_value => lat_dtls_rec.leaseapp_tmpl_name);
4416: RAISE OKL_API.G_EXCEPTION_ERROR;
4417: END IF;
4418: ELSE
4419: --Lease Application Template is required field.
4420: l_return_status := OKL_API.G_RET_STS_ERROR;
4416: RAISE OKL_API.G_EXCEPTION_ERROR;
4417: END IF;
4418: ELSE
4419: --Lease Application Template is required field.
4420: l_return_status := OKL_API.G_RET_STS_ERROR;
4421: OKL_API.SET_MESSAGE(
4422: p_app_name => G_APP_NAME,
4423: p_msg_name => 'OKL_SO_INVALID_LSEAPP_TMPL');
4424: RAISE OKL_API.G_EXCEPTION_ERROR;
4417: END IF;
4418: ELSE
4419: --Lease Application Template is required field.
4420: l_return_status := OKL_API.G_RET_STS_ERROR;
4421: OKL_API.SET_MESSAGE(
4422: p_app_name => G_APP_NAME,
4423: p_msg_name => 'OKL_SO_INVALID_LSEAPP_TMPL');
4424: RAISE OKL_API.G_EXCEPTION_ERROR;
4425: END IF; --Validate Lease Application Template
4420: l_return_status := OKL_API.G_RET_STS_ERROR;
4421: OKL_API.SET_MESSAGE(
4422: p_app_name => G_APP_NAME,
4423: p_msg_name => 'OKL_SO_INVALID_LSEAPP_TMPL');
4424: RAISE OKL_API.G_EXCEPTION_ERROR;
4425: END IF; --Validate Lease Application Template
4426:
4427: --Validate Program Agreement and Associations
4428: IF(l_lapv_rec.program_agreement_id IS NOT NULL AND
4425: END IF; --Validate Lease Application Template
4426:
4427: --Validate Program Agreement and Associations
4428: IF(l_lapv_rec.program_agreement_id IS NOT NULL AND
4429: l_lapv_rec.program_agreement_id <> OKL_API.G_MISS_NUM)
4430: THEN
4431: OPEN pgm_agr_dtls_csr(l_lapv_rec.program_agreement_id);
4432: FETCH pgm_agr_dtls_csr INTO pgm_agr_dtls_rec;
4433: IF(pgm_agr_dtls_csr%NOTFOUND)
4431: OPEN pgm_agr_dtls_csr(l_lapv_rec.program_agreement_id);
4432: FETCH pgm_agr_dtls_csr INTO pgm_agr_dtls_rec;
4433: IF(pgm_agr_dtls_csr%NOTFOUND)
4434: THEN
4435: l_return_status := OKL_API.G_RET_STS_ERROR;
4436: OKL_API.SET_MESSAGE(
4437: p_app_name => G_APP_NAME,
4438: p_msg_name => 'OKL_SO_INVALID_PGM_AGR');
4439: RAISE OKL_API.G_EXCEPTION_ERROR;
4432: FETCH pgm_agr_dtls_csr INTO pgm_agr_dtls_rec;
4433: IF(pgm_agr_dtls_csr%NOTFOUND)
4434: THEN
4435: l_return_status := OKL_API.G_RET_STS_ERROR;
4436: OKL_API.SET_MESSAGE(
4437: p_app_name => G_APP_NAME,
4438: p_msg_name => 'OKL_SO_INVALID_PGM_AGR');
4439: RAISE OKL_API.G_EXCEPTION_ERROR;
4440: ELSIF(pgm_agr_dtls_rec.ste_code <> 'ACTIVE'
4435: l_return_status := OKL_API.G_RET_STS_ERROR;
4436: OKL_API.SET_MESSAGE(
4437: p_app_name => G_APP_NAME,
4438: p_msg_name => 'OKL_SO_INVALID_PGM_AGR');
4439: RAISE OKL_API.G_EXCEPTION_ERROR;
4440: ELSIF(pgm_agr_dtls_rec.ste_code <> 'ACTIVE'
4441: OR pgm_agr_dtls_rec.START_DATE > l_lsqv_rec.expected_start_date
4442: OR NVL(pgm_agr_dtls_rec.END_DATE, TO_DATE('31-12-9999', 'dd-mm-yyyy')) < l_lsqv_rec.expected_start_date)
4443: THEN
4440: ELSIF(pgm_agr_dtls_rec.ste_code <> 'ACTIVE'
4441: OR pgm_agr_dtls_rec.START_DATE > l_lsqv_rec.expected_start_date
4442: OR NVL(pgm_agr_dtls_rec.END_DATE, TO_DATE('31-12-9999', 'dd-mm-yyyy')) < l_lsqv_rec.expected_start_date)
4443: THEN
4444: l_return_status := OKL_API.G_RET_STS_ERROR;
4445: OKL_API.SET_MESSAGE(
4446: p_app_name => G_APP_NAME,
4447: p_msg_name => 'OKL_SO_INACTIVE_PGM_AGR',
4448: p_token1 => 'TEXT',
4441: OR pgm_agr_dtls_rec.START_DATE > l_lsqv_rec.expected_start_date
4442: OR NVL(pgm_agr_dtls_rec.END_DATE, TO_DATE('31-12-9999', 'dd-mm-yyyy')) < l_lsqv_rec.expected_start_date)
4443: THEN
4444: l_return_status := OKL_API.G_RET_STS_ERROR;
4445: OKL_API.SET_MESSAGE(
4446: p_app_name => G_APP_NAME,
4447: p_msg_name => 'OKL_SO_INACTIVE_PGM_AGR',
4448: p_token1 => 'TEXT',
4449: p_token1_value => pgm_agr_dtls_rec.contract_number);
4446: p_app_name => G_APP_NAME,
4447: p_msg_name => 'OKL_SO_INACTIVE_PGM_AGR',
4448: p_token1 => 'TEXT',
4449: p_token1_value => pgm_agr_dtls_rec.contract_number);
4450: RAISE OKL_API.G_EXCEPTION_ERROR;
4451: END IF;
4452: CLOSE pgm_agr_dtls_csr;
4453:
4454: --Validate Eligibility Criteria for Program Agreement
4456: l_lapv_rec.program_agreement_id
4457: ,l_lapv_rec.id
4458: ,l_lapv_rec.valid_from);
4459:
4460: IF(l_return_status = OKL_API.G_RET_STS_ERROR)
4461: THEN
4462: OKL_API.SET_MESSAGE(
4463: p_app_name => G_APP_NAME,
4464: p_msg_name => 'OKL_SO_PGM_AGR_EC_FAIL',
4458: ,l_lapv_rec.valid_from);
4459:
4460: IF(l_return_status = OKL_API.G_RET_STS_ERROR)
4461: THEN
4462: OKL_API.SET_MESSAGE(
4463: p_app_name => G_APP_NAME,
4464: p_msg_name => 'OKL_SO_PGM_AGR_EC_FAIL',
4465: p_token1 => 'TEXT',
4466: p_token1_value => pgm_agr_dtls_rec.contract_number);
4463: p_app_name => G_APP_NAME,
4464: p_msg_name => 'OKL_SO_PGM_AGR_EC_FAIL',
4465: p_token1 => 'TEXT',
4466: p_token1_value => pgm_agr_dtls_rec.contract_number);
4467: RAISE OKL_API.G_EXCEPTION_ERROR;
4468: END IF;
4469:
4470: --Validate Lease Application Template and Program Agreement Association
4471: --Bug 4873205 PAGARG Passing Template Version id also to validate association
4476: OPEN lat_pgm_val_csr(l_lapv_rec.program_agreement_id, l_lapv_rec.leaseapp_template_id);
4477: FETCH lat_pgm_val_csr INTO lat_pgm_val_rec;
4478: IF lat_pgm_val_csr%NOTFOUND
4479: THEN
4480: l_return_status := OKL_API.G_RET_STS_ERROR;
4481: OKL_API.SET_MESSAGE(
4482: p_app_name => G_APP_NAME,
4483: p_msg_name => 'OKL_SO_NO_ASS_LAT_PAG',
4484: p_token1 => 'LAP_TMP',
4477: FETCH lat_pgm_val_csr INTO lat_pgm_val_rec;
4478: IF lat_pgm_val_csr%NOTFOUND
4479: THEN
4480: l_return_status := OKL_API.G_RET_STS_ERROR;
4481: OKL_API.SET_MESSAGE(
4482: p_app_name => G_APP_NAME,
4483: p_msg_name => 'OKL_SO_NO_ASS_LAT_PAG',
4484: p_token1 => 'LAP_TMP',
4485: p_token1_value => lat_dtls_rec.leaseapp_tmpl_name,
4484: p_token1 => 'LAP_TMP',
4485: p_token1_value => lat_dtls_rec.leaseapp_tmpl_name,
4486: p_token2 => 'PGM_AGR',
4487: p_token2_value => pgm_agr_dtls_rec.contract_number);
4488: RAISE OKL_API.G_EXCEPTION_ERROR;
4489: END IF;
4490: CLOSE lat_pgm_val_csr;
4491: END IF;
4492: CLOSE lat_pgm_exist_csr;
4493: END IF; --Validate Program Agreement and Association
4494:
4495: --Validate Lease Quote
4496: IF(l_lapv_rec.lease_opportunity_id IS NOT NULL AND
4497: l_lapv_rec.lease_opportunity_id <> OKL_API.G_MISS_NUM)
4498: THEN
4499: OPEN lse_qte_dtls_csr(l_lapv_rec.lease_opportunity_id);
4500: FETCH lse_qte_dtls_csr INTO lse_qte_dtls_rec;
4501: IF(lse_qte_dtls_csr%NOTFOUND)
4499: OPEN lse_qte_dtls_csr(l_lapv_rec.lease_opportunity_id);
4500: FETCH lse_qte_dtls_csr INTO lse_qte_dtls_rec;
4501: IF(lse_qte_dtls_csr%NOTFOUND)
4502: THEN
4503: l_return_status := OKL_API.G_RET_STS_ERROR;
4504: OKL_API.SET_MESSAGE(
4505: p_app_name => G_APP_NAME,
4506: p_msg_name => 'OKL_SO_INVALID_LSE_QTE');
4507: RAISE OKL_API.G_EXCEPTION_ERROR;
4500: FETCH lse_qte_dtls_csr INTO lse_qte_dtls_rec;
4501: IF(lse_qte_dtls_csr%NOTFOUND)
4502: THEN
4503: l_return_status := OKL_API.G_RET_STS_ERROR;
4504: OKL_API.SET_MESSAGE(
4505: p_app_name => G_APP_NAME,
4506: p_msg_name => 'OKL_SO_INVALID_LSE_QTE');
4507: RAISE OKL_API.G_EXCEPTION_ERROR;
4508: END IF;
4503: l_return_status := OKL_API.G_RET_STS_ERROR;
4504: OKL_API.SET_MESSAGE(
4505: p_app_name => G_APP_NAME,
4506: p_msg_name => 'OKL_SO_INVALID_LSE_QTE');
4507: RAISE OKL_API.G_EXCEPTION_ERROR;
4508: END IF;
4509: CLOSE lse_qte_dtls_csr;
4510:
4511: OPEN lap_lsq_uniq_csr(l_lapv_rec.lease_opportunity_id, l_lapv_rec.id);
4511: OPEN lap_lsq_uniq_csr(l_lapv_rec.lease_opportunity_id, l_lapv_rec.id);
4512: FETCH lap_lsq_uniq_csr INTO l_dummy;
4513: IF(lap_lsq_uniq_csr%FOUND)
4514: THEN
4515: l_return_status := OKL_API.G_RET_STS_ERROR;
4516: OKL_API.SET_MESSAGE(
4517: p_app_name => G_APP_NAME,
4518: p_msg_name => 'OKL_SO_LSE_APP_QTE_UNQ_ERR',
4519: p_token1 => 'TEXT',
4512: FETCH lap_lsq_uniq_csr INTO l_dummy;
4513: IF(lap_lsq_uniq_csr%FOUND)
4514: THEN
4515: l_return_status := OKL_API.G_RET_STS_ERROR;
4516: OKL_API.SET_MESSAGE(
4517: p_app_name => G_APP_NAME,
4518: p_msg_name => 'OKL_SO_LSE_APP_QTE_UNQ_ERR',
4519: p_token1 => 'TEXT',
4520: p_token1_value => l_dummy,
4519: p_token1 => 'TEXT',
4520: p_token1_value => l_dummy,
4521: p_token2 => 'QUOTE',
4522: p_token2_value => lse_qte_dtls_rec.reference_number);
4523: RAISE OKL_API.G_EXCEPTION_ERROR;
4524: END IF;
4525: CLOSE lap_lsq_uniq_csr;
4526: END IF; --Validate Lease Quote
4527:
4530: --Lease Application Template is still Active and effective
4531: FOR contract_tmpl_val_rec IN contract_tmpl_val_csr(l_lapv_rec.leaseapp_template_id
4532: ,l_lapv_rec.valid_from)
4533: LOOP
4534: l_return_status := OKL_API.G_RET_STS_ERROR;
4535: OKL_API.SET_MESSAGE(
4536: p_app_name => G_APP_NAME,
4537: p_msg_name => 'OKL_VAL_CONTRACT_TEMPLATE',
4538: p_token1 => 'TEMPLATE_NUMBER',
4531: FOR contract_tmpl_val_rec IN contract_tmpl_val_csr(l_lapv_rec.leaseapp_template_id
4532: ,l_lapv_rec.valid_from)
4533: LOOP
4534: l_return_status := OKL_API.G_RET_STS_ERROR;
4535: OKL_API.SET_MESSAGE(
4536: p_app_name => G_APP_NAME,
4537: p_msg_name => 'OKL_VAL_CONTRACT_TEMPLATE',
4538: p_token1 => 'TEMPLATE_NUMBER',
4539: p_token1_value => contract_tmpl_val_rec.template_number);
4536: p_app_name => G_APP_NAME,
4537: p_msg_name => 'OKL_VAL_CONTRACT_TEMPLATE',
4538: p_token1 => 'TEMPLATE_NUMBER',
4539: p_token1_value => contract_tmpl_val_rec.template_number);
4540: RAISE OKL_API.G_EXCEPTION_ERROR;
4541: END LOOP;
4542:
4543: --Validate whether Checklist associated to the
4544: --Lease Application Template is still Active and effective
4544: --Lease Application Template is still Active and effective
4545: FOR checklist_val_rec IN checklist_val_csr(l_lapv_rec.leaseapp_template_id
4546: ,l_lapv_rec.valid_from)
4547: LOOP
4548: l_return_status := OKL_API.G_RET_STS_ERROR;
4549: OKL_API.SET_MESSAGE(
4550: p_app_name => G_APP_NAME,
4551: p_msg_name => 'OKL_VAL_CHECKLIST_TEMPLATE',
4552: p_token1 => 'TEMPLATE_NUMBER',
4545: FOR checklist_val_rec IN checklist_val_csr(l_lapv_rec.leaseapp_template_id
4546: ,l_lapv_rec.valid_from)
4547: LOOP
4548: l_return_status := OKL_API.G_RET_STS_ERROR;
4549: OKL_API.SET_MESSAGE(
4550: p_app_name => G_APP_NAME,
4551: p_msg_name => 'OKL_VAL_CHECKLIST_TEMPLATE',
4552: p_token1 => 'TEMPLATE_NUMBER',
4553: p_token1_value => checklist_val_rec.template_number);
4550: p_app_name => G_APP_NAME,
4551: p_msg_name => 'OKL_VAL_CHECKLIST_TEMPLATE',
4552: p_token1 => 'TEMPLATE_NUMBER',
4553: p_token1_value => checklist_val_rec.template_number);
4554: RAISE OKL_API.G_EXCEPTION_ERROR;
4555: END LOOP;
4556:
4557: --Bug 4932155 PAGARG Validate Currency Conversion Attributes
4558: l_return_status := is_curr_conv_valid(
4560: ,p_curr_type => l_lapv_rec.currency_conversion_type
4561: ,p_curr_rate => l_lapv_rec.currency_conversion_rate
4562: ,p_curr_date => l_lapv_rec.currency_conversion_date);
4563:
4564: IF (l_return_status = OKL_API.G_RET_STS_ERROR)
4565: THEN
4566: RAISE OKL_API.G_EXCEPTION_ERROR;
4567: END IF;
4568:
4562: ,p_curr_date => l_lapv_rec.currency_conversion_date);
4563:
4564: IF (l_return_status = OKL_API.G_RET_STS_ERROR)
4565: THEN
4566: RAISE OKL_API.G_EXCEPTION_ERROR;
4567: END IF;
4568:
4569: --Validate Expected Start Date against Valid From Date
4570: IF(TRUNC(l_lsqv_rec.expected_start_Date) < TRUNC(l_lapv_rec.valid_from))
4568:
4569: --Validate Expected Start Date against Valid From Date
4570: IF(TRUNC(l_lsqv_rec.expected_start_Date) < TRUNC(l_lapv_rec.valid_from))
4571: THEN
4572: l_return_status := OKL_API.G_RET_STS_ERROR;
4573: OKL_API.SET_MESSAGE(
4574: p_app_name => G_APP_NAME,
4575: p_msg_name => 'OKL_SO_LSE_APP_EXP_ST_DATE_ERR',
4576: p_token1 => 'VALID_FROM',
4569: --Validate Expected Start Date against Valid From Date
4570: IF(TRUNC(l_lsqv_rec.expected_start_Date) < TRUNC(l_lapv_rec.valid_from))
4571: THEN
4572: l_return_status := OKL_API.G_RET_STS_ERROR;
4573: OKL_API.SET_MESSAGE(
4574: p_app_name => G_APP_NAME,
4575: p_msg_name => 'OKL_SO_LSE_APP_EXP_ST_DATE_ERR',
4576: p_token1 => 'VALID_FROM',
4577: p_token1_value => l_lapv_rec.valid_from);
4574: p_app_name => G_APP_NAME,
4575: p_msg_name => 'OKL_SO_LSE_APP_EXP_ST_DATE_ERR',
4576: p_token1 => 'VALID_FROM',
4577: p_token1_value => l_lapv_rec.valid_from);
4578: RAISE OKL_API.G_EXCEPTION_ERROR;
4579: END IF;
4580:
4581: -- Bug#4741121 - viselvar - Modified - Start
4582: -- raise the business event passing the Lease Application id added to the parameter list
4590: ,x_msg_data => x_msg_data
4591: ,p_event_name => p_event_name
4592: ,p_parameters => l_parameter_list);
4593:
4594: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
4595: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4596: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
4597: RAISE OKL_API.G_EXCEPTION_ERROR;
4598: END IF;
4591: ,p_event_name => p_event_name
4592: ,p_parameters => l_parameter_list);
4593:
4594: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
4595: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4596: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
4597: RAISE OKL_API.G_EXCEPTION_ERROR;
4598: END IF;
4599: -- Bug#4741121 - viselvar - Modified - End
4592: ,p_parameters => l_parameter_list);
4593:
4594: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
4595: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4596: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
4597: RAISE OKL_API.G_EXCEPTION_ERROR;
4598: END IF;
4599: -- Bug#4741121 - viselvar - Modified - End
4600:
4593:
4594: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
4595: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4596: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
4597: RAISE OKL_API.G_EXCEPTION_ERROR;
4598: END IF;
4599: -- Bug#4741121 - viselvar - Modified - End
4600:
4601: x_return_status := l_return_status;
4598: END IF;
4599: -- Bug#4741121 - viselvar - Modified - End
4600:
4601: x_return_status := l_return_status;
4602: OKL_API.END_ACTIVITY(
4603: x_msg_count => x_msg_count
4604: ,x_msg_data => x_msg_data);
4605: EXCEPTION
4606: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4602: OKL_API.END_ACTIVITY(
4603: x_msg_count => x_msg_count
4604: ,x_msg_data => x_msg_data);
4605: EXCEPTION
4606: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4607: --Lease Application Template Details Cursor
4608: IF lat_dtls_csr%ISOPEN
4609: THEN
4610: CLOSE lat_dtls_csr;
4638: IF checklist_val_csr%ISOPEN
4639: THEN
4640: CLOSE checklist_val_csr;
4641: END IF;
4642: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4643: p_api_name => l_api_name,
4644: p_pkg_name => G_PKG_NAME,
4645: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4646: x_msg_count => x_msg_count,
4641: END IF;
4642: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4643: p_api_name => l_api_name,
4644: p_pkg_name => G_PKG_NAME,
4645: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4646: x_msg_count => x_msg_count,
4647: x_msg_data => x_msg_data,
4648: p_api_type => G_API_TYPE);
4649: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4645: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4646: x_msg_count => x_msg_count,
4647: x_msg_data => x_msg_data,
4648: p_api_type => G_API_TYPE);
4649: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4650: --Lease Application Template Details Cursor
4651: IF lat_dtls_csr%ISOPEN
4652: THEN
4653: CLOSE lat_dtls_csr;
4681: IF checklist_val_csr%ISOPEN
4682: THEN
4683: CLOSE checklist_val_csr;
4684: END IF;
4685: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4686: p_api_name => l_api_name,
4687: p_pkg_name => G_PKG_NAME,
4688: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4689: x_msg_count => x_msg_count,
4684: END IF;
4685: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4686: p_api_name => l_api_name,
4687: p_pkg_name => G_PKG_NAME,
4688: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4689: x_msg_count => x_msg_count,
4690: x_msg_data => x_msg_data,
4691: p_api_type => G_API_TYPE);
4692: WHEN OTHERS THEN
4724: IF checklist_val_csr%ISOPEN
4725: THEN
4726: CLOSE checklist_val_csr;
4727: END IF;
4728: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4729: p_api_name => l_api_name,
4730: p_pkg_name => G_PKG_NAME,
4731: p_exc_name => 'OTHERS',
4732: x_msg_count => x_msg_count,
4770: p_event_name VARCHAR2(240) :='oracle.apps.okl.sales.leaseapplication.submitted_for_acceptance';
4771: p_event_name1 VARCHAR2(240) :='oracle.apps.okl.sales.leaseapplication.quote_accepted';
4772: -- Bug#4741121 - viselvar - Modified - End
4773: BEGIN
4774: l_return_status := OKL_API.G_RET_STS_SUCCESS;
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');
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(
4786: p_api_name => l_api_name
4787: ,p_pkg_name => G_PKG_NAME
4788: ,p_init_msg_list => p_init_msg_list
4789: ,l_api_version => l_api_version
4791: ,p_api_type => G_API_TYPE
4792: ,x_return_status => l_return_status);
4793:
4794: -- check if activity started successfully
4795: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4796: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4797: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4798: RAISE OKL_API.G_EXCEPTION_ERROR;
4799: END IF;
4792: ,x_return_status => l_return_status);
4793:
4794: -- check if activity started successfully
4795: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4796: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4797: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4798: RAISE OKL_API.G_EXCEPTION_ERROR;
4799: END IF;
4800:
4793:
4794: -- check if activity started successfully
4795: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4796: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4797: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4798: RAISE OKL_API.G_EXCEPTION_ERROR;
4799: END IF;
4800:
4801: l_lapv_rec := p_lapv_rec;
4794: -- check if activity started successfully
4795: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4796: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4797: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4798: RAISE OKL_API.G_EXCEPTION_ERROR;
4799: END IF;
4800:
4801: l_lapv_rec := p_lapv_rec;
4802: -- Bug#4741121 - viselvar - Modified - Start
4813: ,p_event_name => p_event_name
4814: ,p_parameters => l_parameter_list);
4815:
4816:
4817: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
4818: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4819: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
4820: RAISE OKL_API.G_EXCEPTION_ERROR;
4821: END IF;
4814: ,p_parameters => l_parameter_list);
4815:
4816:
4817: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
4818: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4819: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
4820: RAISE OKL_API.G_EXCEPTION_ERROR;
4821: END IF;
4822: -- Bug#4741121 - viselvar - Modified - End
4815:
4816:
4817: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
4818: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4819: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
4820: RAISE OKL_API.G_EXCEPTION_ERROR;
4821: END IF;
4822: -- Bug#4741121 - viselvar - Modified - End
4823:
4816:
4817: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
4818: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4819: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
4820: RAISE OKL_API.G_EXCEPTION_ERROR;
4821: END IF;
4822: -- Bug#4741121 - viselvar - Modified - End
4823:
4824: --Populate Lease Application rec with the values from database.
4831: END IF;
4832:
4833: POPULATE_LEASE_APP(
4834: p_api_version => p_api_version
4835: ,p_init_msg_list => OKL_API.G_FALSE
4836: ,x_return_status => l_return_status
4837: ,x_msg_count => x_msg_count
4838: ,x_msg_data => x_msg_data
4839: ,p_lap_id => l_lapv_rec.id
4855: ,L_MODULE || ' Result of POPULATE_LEASE_APP'
4856: ,'l_return_status ' || l_return_status);
4857: END IF; -- end of statement level debug
4858:
4859: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
4860: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4861: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
4862: RAISE OKL_API.G_EXCEPTION_ERROR;
4863: END IF;
4856: ,'l_return_status ' || l_return_status);
4857: END IF; -- end of statement level debug
4858:
4859: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
4860: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4861: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
4862: RAISE OKL_API.G_EXCEPTION_ERROR;
4863: END IF;
4864:
4857: END IF; -- end of statement level debug
4858:
4859: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
4860: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4861: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
4862: RAISE OKL_API.G_EXCEPTION_ERROR;
4863: END IF;
4864:
4865: l_lapv_rec := x_lapv_rec;
4858:
4859: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
4860: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4861: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
4862: RAISE OKL_API.G_EXCEPTION_ERROR;
4863: END IF;
4864:
4865: l_lapv_rec := x_lapv_rec;
4866: l_lsqv_rec := x_lsqv_rec;
4877: END IF;
4878:
4879: LEASE_APP_VAL(
4880: p_api_version => p_api_version
4881: ,p_init_msg_list => OKL_API.G_FALSE
4882: ,x_return_status => l_return_status
4883: ,x_msg_count => x_msg_count
4884: ,x_msg_data => x_msg_data
4885: ,p_lapv_rec => l_lapv_rec
4900: ,L_MODULE || ' Result of LEASE_APP_VAL'
4901: ,'l_return_status ' || l_return_status);
4902: END IF; -- end of statement level debug
4903:
4904: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
4905: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4906: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
4907: RAISE OKL_API.G_EXCEPTION_ERROR;
4908: END IF;
4901: ,'l_return_status ' || l_return_status);
4902: END IF; -- end of statement level debug
4903:
4904: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
4905: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4906: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
4907: RAISE OKL_API.G_EXCEPTION_ERROR;
4908: END IF;
4909:
4902: END IF; -- end of statement level debug
4903:
4904: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
4905: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4906: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
4907: RAISE OKL_API.G_EXCEPTION_ERROR;
4908: END IF;
4909:
4910: --Fixed added Bug 5647107 ssdeshpa start
4903:
4904: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
4905: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4906: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
4907: RAISE OKL_API.G_EXCEPTION_ERROR;
4908: END IF;
4909:
4910: --Fixed added Bug 5647107 ssdeshpa start
4911: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
4933: ,L_MODULE || ' Result of VALIDATE_LE_ID'
4934: ,'l_return_status ' || l_return_status);
4935: END IF; -- end of statement level debug
4936:
4937: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4938: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4939: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
4940: RAISE OKL_API.G_EXCEPTION_ERROR;
4941: END IF;
4934: ,'l_return_status ' || l_return_status);
4935: END IF; -- end of statement level debug
4936:
4937: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4938: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4939: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
4940: RAISE OKL_API.G_EXCEPTION_ERROR;
4941: END IF;
4942: --Fixed added Bug 5647107 ssdeshpa end
4935: END IF; -- end of statement level debug
4936:
4937: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4938: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4939: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
4940: RAISE OKL_API.G_EXCEPTION_ERROR;
4941: END IF;
4942: --Fixed added Bug 5647107 ssdeshpa end
4943:
4936:
4937: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4938: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4939: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
4940: RAISE OKL_API.G_EXCEPTION_ERROR;
4941: END IF;
4942: --Fixed added Bug 5647107 ssdeshpa end
4943:
4944: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
4950: END IF;
4951:
4952: SET_LEASE_APP_STATUS(
4953: p_api_version => p_api_version
4954: ,p_init_msg_list => OKL_API.G_FALSE
4955: ,p_lap_id => l_lapv_rec.id
4956: ,p_lap_status => 'PR-ACCEPTED'
4957: ,x_return_status => l_return_status
4958: ,x_msg_count => x_msg_count
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:
4977: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
4978: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4979: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
4980: RAISE OKL_API.G_EXCEPTION_ERROR;
4981: END IF;
4974: ,'l_return_status ' || l_return_status);
4975: END IF; -- end of statement level debug
4976:
4977: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
4978: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4979: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
4980: RAISE OKL_API.G_EXCEPTION_ERROR;
4981: END IF;
4982:
4975: END IF; -- end of statement level debug
4976:
4977: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
4978: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4979: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
4980: RAISE OKL_API.G_EXCEPTION_ERROR;
4981: END IF;
4982:
4983: --Update the lease quote to status pricing accepted
4976:
4977: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
4978: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4979: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
4980: RAISE OKL_API.G_EXCEPTION_ERROR;
4981: END IF;
4982:
4983: --Update the lease quote to status pricing accepted
4984: l_lsqv_rec.status := 'CT-ACCEPTED';
4993:
4994: -- call the procedure to update lease quote line
4995: OKL_LEASE_QUOTE_PVT.UPDATE_LEASE_QTE(
4996: p_api_version => p_api_version
4997: ,p_init_msg_list => OKL_API.G_FALSE
4998: ,p_transaction_control => OKL_API.G_TRUE
4999: ,p_lease_qte_rec => l_lsqv_rec
5000: ,x_lease_qte_rec => x_lsqv_rec
5001: ,x_return_status => l_return_status
4994: -- call the procedure to update lease quote line
4995: OKL_LEASE_QUOTE_PVT.UPDATE_LEASE_QTE(
4996: p_api_version => p_api_version
4997: ,p_init_msg_list => OKL_API.G_FALSE
4998: ,p_transaction_control => OKL_API.G_TRUE
4999: ,p_lease_qte_rec => l_lsqv_rec
5000: ,x_lease_qte_rec => x_lsqv_rec
5001: ,x_return_status => l_return_status
5002: ,x_msg_count => x_msg_count
5020: ' result status ' || l_return_status ||
5021: ' x_msg_data ' || x_msg_data);
5022: END IF; -- end of statement level debug
5023:
5024: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
5025: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5026: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
5027: RAISE OKL_API.G_EXCEPTION_ERROR;
5028: END IF;
5021: ' x_msg_data ' || x_msg_data);
5022: END IF; -- end of statement level debug
5023:
5024: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
5025: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5026: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
5027: RAISE OKL_API.G_EXCEPTION_ERROR;
5028: END IF;
5029:
5022: END IF; -- end of statement level debug
5023:
5024: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
5025: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5026: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
5027: RAISE OKL_API.G_EXCEPTION_ERROR;
5028: END IF;
5029:
5030: -- Bug#4741121 - viselvar - Modified - Start
5023:
5024: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
5025: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5026: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
5027: RAISE OKL_API.G_EXCEPTION_ERROR;
5028: END IF;
5029:
5030: -- Bug#4741121 - viselvar - Modified - Start
5031: -- raise the business event passing the Lease Application id added to the parameter list
5041: ,x_msg_data => x_msg_data
5042: ,p_event_name => p_event_name1
5043: ,p_parameters => l_parameter_list);
5044:
5045: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
5046: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5047: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
5048: RAISE OKL_API.G_EXCEPTION_ERROR;
5049: END IF;
5042: ,p_event_name => p_event_name1
5043: ,p_parameters => l_parameter_list);
5044:
5045: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
5046: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5047: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
5048: RAISE OKL_API.G_EXCEPTION_ERROR;
5049: END IF;
5050: -- Bug#4741121 - viselvar - Modified - End
5043: ,p_parameters => l_parameter_list);
5044:
5045: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
5046: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5047: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
5048: RAISE OKL_API.G_EXCEPTION_ERROR;
5049: END IF;
5050: -- Bug#4741121 - viselvar - Modified - End
5051: END IF;
5044:
5045: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
5046: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5047: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
5048: RAISE OKL_API.G_EXCEPTION_ERROR;
5049: END IF;
5050: -- Bug#4741121 - viselvar - Modified - End
5051: END IF;
5052:
5050: -- Bug#4741121 - viselvar - Modified - End
5051: END IF;
5052:
5053: x_return_status := l_return_status;
5054: OKL_API.END_ACTIVITY(
5055: x_msg_count => x_msg_count
5056: ,x_msg_data => x_msg_data);
5057: EXCEPTION
5058: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5054: OKL_API.END_ACTIVITY(
5055: x_msg_count => x_msg_count
5056: ,x_msg_data => x_msg_data);
5057: EXCEPTION
5058: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5059: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5060: p_api_name => l_api_name,
5061: p_pkg_name => G_PKG_NAME,
5062: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5055: x_msg_count => x_msg_count
5056: ,x_msg_data => x_msg_data);
5057: EXCEPTION
5058: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5059: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5060: p_api_name => l_api_name,
5061: p_pkg_name => G_PKG_NAME,
5062: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5063: x_msg_count => x_msg_count,
5058: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5059: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5060: p_api_name => l_api_name,
5061: p_pkg_name => G_PKG_NAME,
5062: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5063: x_msg_count => x_msg_count,
5064: x_msg_data => x_msg_data,
5065: p_api_type => G_API_TYPE);
5066: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5062: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5063: x_msg_count => x_msg_count,
5064: x_msg_data => x_msg_data,
5065: p_api_type => G_API_TYPE);
5066: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5067: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5068: p_api_name => l_api_name,
5069: p_pkg_name => G_PKG_NAME,
5070: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5063: x_msg_count => x_msg_count,
5064: x_msg_data => x_msg_data,
5065: p_api_type => G_API_TYPE);
5066: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5067: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5068: p_api_name => l_api_name,
5069: p_pkg_name => G_PKG_NAME,
5070: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5071: x_msg_count => x_msg_count,
5066: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5067: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5068: p_api_name => l_api_name,
5069: p_pkg_name => G_PKG_NAME,
5070: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5071: x_msg_count => x_msg_count,
5072: x_msg_data => x_msg_data,
5073: p_api_type => G_API_TYPE);
5074: WHEN OTHERS THEN
5071: x_msg_count => x_msg_count,
5072: x_msg_data => x_msg_data,
5073: p_api_type => G_API_TYPE);
5074: WHEN OTHERS THEN
5075: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5076: p_api_name => l_api_name,
5077: p_pkg_name => G_PKG_NAME,
5078: p_exc_name => 'OTHERS',
5079: x_msg_count => x_msg_count,
5117: l_parameter_list WF_PARAMETER_LIST_T;
5118: l_event_name wf_events.name%TYPE;
5119: -- Bug#4741121 - smadhava - Added - End
5120: BEGIN
5121: l_return_status := OKL_API.G_RET_STS_SUCCESS;
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');
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(
5133: p_api_name => l_api_name
5134: ,p_pkg_name => G_PKG_NAME
5135: ,p_init_msg_list => p_init_msg_list
5136: ,l_api_version => l_api_version
5138: ,p_api_type => G_API_TYPE
5139: ,x_return_status => l_return_status);
5140:
5141: -- check if activity started successfully
5142: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5143: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5144: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5145: RAISE OKL_API.G_EXCEPTION_ERROR;
5146: END IF;
5139: ,x_return_status => l_return_status);
5140:
5141: -- check if activity started successfully
5142: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5143: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5144: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5145: RAISE OKL_API.G_EXCEPTION_ERROR;
5146: END IF;
5147:
5140:
5141: -- check if activity started successfully
5142: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5143: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5144: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5145: RAISE OKL_API.G_EXCEPTION_ERROR;
5146: END IF;
5147:
5148: l_lapv_rec := p_lapv_rec;
5141: -- check if activity started successfully
5142: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5143: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5144: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5145: RAISE OKL_API.G_EXCEPTION_ERROR;
5146: END IF;
5147:
5148: l_lapv_rec := p_lapv_rec;
5149:
5162: END IF;
5163:
5164: POPULATE_LEASE_APP(
5165: p_api_version => p_api_version
5166: ,p_init_msg_list => OKL_API.G_FALSE
5167: ,x_return_status => l_return_status
5168: ,x_msg_count => x_msg_count
5169: ,x_msg_data => x_msg_data
5170: ,p_lap_id => l_lapv_rec.id
5186: ,L_MODULE || ' Result of POPULATE_LEASE_APP'
5187: ,'l_return_status ' || l_return_status);
5188: END IF; -- end of statement level debug
5189:
5190: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
5191: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5192: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
5193: RAISE OKL_API.G_EXCEPTION_ERROR;
5194: END IF;
5187: ,'l_return_status ' || l_return_status);
5188: END IF; -- end of statement level debug
5189:
5190: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
5191: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5192: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
5193: RAISE OKL_API.G_EXCEPTION_ERROR;
5194: END IF;
5195:
5188: END IF; -- end of statement level debug
5189:
5190: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
5191: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5192: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
5193: RAISE OKL_API.G_EXCEPTION_ERROR;
5194: END IF;
5195:
5196: l_lapv_rec := x_lapv_rec;
5189:
5190: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
5191: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5192: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
5193: RAISE OKL_API.G_EXCEPTION_ERROR;
5194: END IF;
5195:
5196: l_lapv_rec := x_lapv_rec;
5197:
5205:
5206: --call the procedure to Validate Withdraw action on lease app
5207: CHECK_ELIGIBILITY(
5208: p_api_version => p_api_version
5209: ,p_init_msg_list => OKL_API.G_FALSE
5210: ,x_return_status => l_return_status
5211: ,x_msg_count => x_msg_count
5212: ,x_msg_data => x_msg_data
5213: ,p_lap_id => l_lapv_rec.id
5229: ,'return status ' || l_return_status ||
5230: ' x_msg_data ' || x_msg_data);
5231: END IF; -- end of statement level debug
5232:
5233: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5234: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5235: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5236: RAISE OKL_API.G_EXCEPTION_ERROR;
5237: END IF;
5230: ' x_msg_data ' || x_msg_data);
5231: END IF; -- end of statement level debug
5232:
5233: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5234: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5235: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5236: RAISE OKL_API.G_EXCEPTION_ERROR;
5237: END IF;
5238:
5231: END IF; -- end of statement level debug
5232:
5233: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5234: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5235: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5236: RAISE OKL_API.G_EXCEPTION_ERROR;
5237: END IF;
5238:
5239: IF(l_lapv_rec.application_status NOT IN('CR-SUBMITTED'
5232:
5233: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5234: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5235: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5236: RAISE OKL_API.G_EXCEPTION_ERROR;
5237: END IF;
5238:
5239: IF(l_lapv_rec.application_status NOT IN('CR-SUBMITTED'
5240: ,'CONV-K'
5251: END IF;
5252:
5253: OKL_LAP_PVT.UPDATE_ROW(
5254: p_api_version => p_api_version
5255: ,p_init_msg_list => OKL_API.G_FALSE
5256: ,x_return_status => l_return_status
5257: ,x_msg_count => x_msg_count
5258: ,x_msg_data => x_msg_data
5259: ,p_lapv_rec => l_lapv_rec
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:
5278: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
5279: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5280: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
5281: RAISE OKL_API.G_EXCEPTION_ERROR;
5282: END IF;
5275: ,'l_return_status ' || l_return_status);
5276: END IF; -- end of statement level debug
5277:
5278: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
5279: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5280: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
5281: RAISE OKL_API.G_EXCEPTION_ERROR;
5282: END IF;
5283:
5276: END IF; -- end of statement level debug
5277:
5278: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
5279: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5280: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
5281: RAISE OKL_API.G_EXCEPTION_ERROR;
5282: END IF;
5283:
5284: --Check if lease quote line of Lease App is in status pricing approved or
5277:
5278: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
5279: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5280: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
5281: RAISE OKL_API.G_EXCEPTION_ERROR;
5282: END IF;
5283:
5284: --Check if lease quote line of Lease App is in status pricing approved or
5285: --accepted then only call the process subsidy pool api
5295: END IF;
5296:
5297: OKL_LEASE_QUOTE_SUBPOOL_PVT.PROCESS_LEASEAPP_SUBSIDY_POOL(
5298: p_api_version => p_api_version
5299: ,p_init_msg_list => OKL_API.G_FALSE
5300: ,p_transaction_control => OKL_API.G_TRUE
5301: ,p_leaseapp_id => l_lapv_rec.id
5302: ,p_transaction_reason => 'WITHDRAW_LEASE_APP'
5303: ,p_quote_id => null
5296:
5297: OKL_LEASE_QUOTE_SUBPOOL_PVT.PROCESS_LEASEAPP_SUBSIDY_POOL(
5298: p_api_version => p_api_version
5299: ,p_init_msg_list => OKL_API.G_FALSE
5300: ,p_transaction_control => OKL_API.G_TRUE
5301: ,p_leaseapp_id => l_lapv_rec.id
5302: ,p_transaction_reason => 'WITHDRAW_LEASE_APP'
5303: ,p_quote_id => null
5304: ,x_return_status => l_return_status
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:
5324: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
5325: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5326: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
5327: RAISE OKL_API.G_EXCEPTION_ERROR;
5328: END IF;
5321: ,'l_return_status ' || l_return_status);
5322: END IF; -- end of statement level debug
5323:
5324: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
5325: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5326: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
5327: RAISE OKL_API.G_EXCEPTION_ERROR;
5328: END IF;
5329: END IF;-- Checking Lease Quote status for call to process subsidy pool api
5322: END IF; -- end of statement level debug
5323:
5324: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
5325: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5326: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
5327: RAISE OKL_API.G_EXCEPTION_ERROR;
5328: END IF;
5329: END IF;-- Checking Lease Quote status for call to process subsidy pool api
5330:
5323:
5324: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
5325: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5326: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
5327: RAISE OKL_API.G_EXCEPTION_ERROR;
5328: END IF;
5329: END IF;-- Checking Lease Quote status for call to process subsidy pool api
5330:
5331: --Call the API which will check if there is any Parent to this Lease App
5340: END IF;
5341:
5342: REVERT_TO_ORIG_STATUS(
5343: p_api_version => l_api_version
5344: ,p_init_msg_list => OKL_API.G_FALSE
5345: ,p_lap_id => l_lapv_rec.id
5346: ,x_return_status => l_return_status
5347: ,x_msg_count => x_msg_count
5348: ,x_msg_data => x_msg_data);
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:
5366: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
5367: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5368: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
5369: RAISE OKL_API.G_EXCEPTION_ERROR;
5370: END IF;
5363: ,'l_return_status ' || l_return_status);
5364: END IF; -- end of statement level debug
5365:
5366: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
5367: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5368: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
5369: RAISE OKL_API.G_EXCEPTION_ERROR;
5370: END IF;
5371: ELSIF(l_lapv_rec.application_status = 'CR-SUBMITTED')
5364: END IF; -- end of statement level debug
5365:
5366: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
5367: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5368: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
5369: RAISE OKL_API.G_EXCEPTION_ERROR;
5370: END IF;
5371: ELSIF(l_lapv_rec.application_status = 'CR-SUBMITTED')
5372: THEN
5365:
5366: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
5367: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5368: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
5369: RAISE OKL_API.G_EXCEPTION_ERROR;
5370: END IF;
5371: ELSIF(l_lapv_rec.application_status = 'CR-SUBMITTED')
5372: THEN
5373: --**** Instead of submitting any Withdraw Approval, need to call OCM API to Withdraw****--
5392: x_msg_data => x_msg_data,
5393: p_event_name => l_event_name,
5394: p_parameters => l_parameter_list);
5395:
5396: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
5397: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5398: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
5399: RAISE OKL_API.G_EXCEPTION_ERROR;
5400: END IF;
5393: p_event_name => l_event_name,
5394: p_parameters => l_parameter_list);
5395:
5396: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
5397: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5398: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
5399: RAISE OKL_API.G_EXCEPTION_ERROR;
5400: END IF;
5401: -- Bug#4741121 - smadhava - Added - End
5394: p_parameters => l_parameter_list);
5395:
5396: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
5397: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5398: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
5399: RAISE OKL_API.G_EXCEPTION_ERROR;
5400: END IF;
5401: -- Bug#4741121 - smadhava - Added - End
5402: END IF;
5395:
5396: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
5397: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5398: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
5399: RAISE OKL_API.G_EXCEPTION_ERROR;
5400: END IF;
5401: -- Bug#4741121 - smadhava - Added - End
5402: END IF;
5403:
5401: -- Bug#4741121 - smadhava - Added - End
5402: END IF;
5403:
5404: x_return_status := l_return_status;
5405: OKL_API.END_ACTIVITY(
5406: x_msg_count => x_msg_count
5407: ,x_msg_data => x_msg_data);
5408: EXCEPTION
5409: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5405: OKL_API.END_ACTIVITY(
5406: x_msg_count => x_msg_count
5407: ,x_msg_data => x_msg_data);
5408: EXCEPTION
5409: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5410: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5411: p_api_name => l_api_name,
5412: p_pkg_name => G_PKG_NAME,
5413: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5406: x_msg_count => x_msg_count
5407: ,x_msg_data => x_msg_data);
5408: EXCEPTION
5409: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5410: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5411: p_api_name => l_api_name,
5412: p_pkg_name => G_PKG_NAME,
5413: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5414: x_msg_count => x_msg_count,
5409: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5410: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5411: p_api_name => l_api_name,
5412: p_pkg_name => G_PKG_NAME,
5413: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5414: x_msg_count => x_msg_count,
5415: x_msg_data => x_msg_data,
5416: p_api_type => G_API_TYPE);
5417: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5413: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5414: x_msg_count => x_msg_count,
5415: x_msg_data => x_msg_data,
5416: p_api_type => G_API_TYPE);
5417: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5418: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5419: p_api_name => l_api_name,
5420: p_pkg_name => G_PKG_NAME,
5421: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5414: x_msg_count => x_msg_count,
5415: x_msg_data => x_msg_data,
5416: p_api_type => G_API_TYPE);
5417: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5418: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5419: p_api_name => l_api_name,
5420: p_pkg_name => G_PKG_NAME,
5421: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5422: x_msg_count => x_msg_count,
5417: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5418: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5419: p_api_name => l_api_name,
5420: p_pkg_name => G_PKG_NAME,
5421: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5422: x_msg_count => x_msg_count,
5423: x_msg_data => x_msg_data,
5424: p_api_type => G_API_TYPE);
5425: WHEN OTHERS THEN
5422: x_msg_count => x_msg_count,
5423: x_msg_data => x_msg_data,
5424: p_api_type => G_API_TYPE);
5425: WHEN OTHERS THEN
5426: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5427: p_api_name => l_api_name,
5428: p_pkg_name => G_PKG_NAME,
5429: p_exc_name => 'OTHERS',
5430: x_msg_count => x_msg_count,
5525: AND LOP.ID = cp_lap_id;
5526: src_lse_opp_dtls_rec src_lse_opp_dtls_csr%ROWTYPE;
5527: --End-bug#4721142 - varangan- cursor to fetch quote details from opportunity id
5528: BEGIN
5529: l_return_status := OKL_API.G_RET_STS_SUCCESS;
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');
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(
5541: p_api_name => l_api_name
5542: ,p_pkg_name => G_PKG_NAME
5543: ,p_init_msg_list => p_init_msg_list
5544: ,l_api_version => l_api_version
5546: ,p_api_type => G_API_TYPE
5547: ,x_return_status => l_return_status);
5548:
5549: -- check if activity started successfully
5550: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5551: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5552: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5553: RAISE OKL_API.G_EXCEPTION_ERROR;
5554: END IF;
5547: ,x_return_status => l_return_status);
5548:
5549: -- check if activity started successfully
5550: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5551: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5552: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5553: RAISE OKL_API.G_EXCEPTION_ERROR;
5554: END IF;
5555:
5548:
5549: -- check if activity started successfully
5550: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5551: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5552: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5553: RAISE OKL_API.G_EXCEPTION_ERROR;
5554: END IF;
5555:
5556: l_lapv_rec := p_lapv_rec;
5549: -- check if activity started successfully
5550: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5551: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5552: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5553: RAISE OKL_API.G_EXCEPTION_ERROR;
5554: END IF;
5555:
5556: l_lapv_rec := p_lapv_rec;
5557: l_lsqv_rec := p_lsqv_rec;
5581: END IF;
5582:
5583: CHECK_LEASE_QUOTE_DEFAULTS(
5584: p_api_version => p_api_version
5585: ,p_init_msg_list => OKL_API.G_FALSE
5586: ,x_return_status => l_return_status
5587: ,x_msg_count => x_msg_count
5588: ,x_msg_data => x_msg_data
5589: ,p_source_lsq_id => src_lse_opp_dtls_rec.lsq_id
5607: ,'l_return_status ' || l_return_status);
5608: END IF; -- end of statement level debug
5609:
5610: -- Check the status and accordingly set the Lease Application Status
5611: IF(l_return_status = OKL_API.G_RET_STS_SUCCESS)THEN
5612: l_lapv_rec.application_status := 'PR-ACCEPTED';
5613: ELSE
5614: --set the status for lease application
5615: l_lapv_rec.application_status := G_INIT_APPL_STATUS;
5629: END IF;
5630:
5631: LEASE_APP_VAL(
5632: p_api_version => p_api_version
5633: ,p_init_msg_list => OKL_API.G_FALSE
5634: ,x_return_status => l_return_status
5635: ,x_msg_count => x_msg_count
5636: ,x_msg_data => x_msg_data
5637: ,p_lapv_rec => l_lapv_rec
5652: ,L_MODULE || ' Result of LEASE_APP_VAL'
5653: ,'l_return_status ' || l_return_status);
5654: END IF; -- end of statement level debug
5655:
5656: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
5657: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5658: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
5659: RAISE OKL_API.G_EXCEPTION_ERROR;
5660: END IF;
5653: ,'l_return_status ' || l_return_status);
5654: END IF; -- end of statement level debug
5655:
5656: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
5657: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5658: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
5659: RAISE OKL_API.G_EXCEPTION_ERROR;
5660: END IF;
5661:
5654: END IF; -- end of statement level debug
5655:
5656: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
5657: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5658: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
5659: RAISE OKL_API.G_EXCEPTION_ERROR;
5660: END IF;
5661:
5662: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
5655:
5656: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
5657: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5658: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
5659: RAISE OKL_API.G_EXCEPTION_ERROR;
5660: END IF;
5661:
5662: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
5663: THEN
5669:
5670: -- call the TAPI insert_row to create a lease application
5671: OKL_LAP_PVT.INSERT_ROW(
5672: p_api_version => p_api_version
5673: ,p_init_msg_list => OKL_API.G_FALSE
5674: ,x_return_status => l_return_status
5675: ,x_msg_count => x_msg_count
5676: ,x_msg_data => x_msg_data
5677: ,p_lapv_rec => l_lapv_rec
5695: ' result status ' || l_return_status ||
5696: ' x_msg_data ' || x_msg_data);
5697: END IF; -- end of statement level debug
5698:
5699: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
5700: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5701: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
5702: RAISE OKL_API.G_EXCEPTION_ERROR;
5703: END IF;
5696: ' x_msg_data ' || x_msg_data);
5697: END IF; -- end of statement level debug
5698:
5699: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
5700: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5701: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
5702: RAISE OKL_API.G_EXCEPTION_ERROR;
5703: END IF;
5704:
5697: END IF; -- end of statement level debug
5698:
5699: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
5700: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5701: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
5702: RAISE OKL_API.G_EXCEPTION_ERROR;
5703: END IF;
5704:
5705: --Populate lease quote rec values
5698:
5699: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
5700: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5701: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
5702: RAISE OKL_API.G_EXCEPTION_ERROR;
5703: END IF;
5704:
5705: --Populate lease quote rec values
5706: l_lsqv_rec.parent_object_code := 'LEASEAPP';
5765:
5766: -- call the procedure to create lease quote line
5767: OKL_LEASE_QUOTE_PVT.DUPLICATE_LEASE_QTE(
5768: p_api_version => p_api_version
5769: ,p_init_msg_list => OKL_API.G_FALSE
5770: ,p_transaction_control => OKL_API.G_TRUE
5771: ,p_source_quote_id => l_source_quote_id
5772: ,p_lease_qte_rec => l_lsqv_rec
5773: ,x_lease_qte_rec => x_lsqv_rec
5766: -- call the procedure to create lease quote line
5767: OKL_LEASE_QUOTE_PVT.DUPLICATE_LEASE_QTE(
5768: p_api_version => p_api_version
5769: ,p_init_msg_list => OKL_API.G_FALSE
5770: ,p_transaction_control => OKL_API.G_TRUE
5771: ,p_source_quote_id => l_source_quote_id
5772: ,p_lease_qte_rec => l_lsqv_rec
5773: ,x_lease_qte_rec => x_lsqv_rec
5774: ,x_return_status => l_return_status
5793: ' result status ' || l_return_status ||
5794: ' x_msg_data ' || x_msg_data);
5795: END IF; -- end of statement level debug
5796:
5797: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
5798: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5799: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
5800: RAISE OKL_API.G_EXCEPTION_ERROR;
5801: END IF;
5794: ' x_msg_data ' || x_msg_data);
5795: END IF; -- end of statement level debug
5796:
5797: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
5798: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5799: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
5800: RAISE OKL_API.G_EXCEPTION_ERROR;
5801: END IF;
5802:
5795: END IF; -- end of statement level debug
5796:
5797: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
5798: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5799: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
5800: RAISE OKL_API.G_EXCEPTION_ERROR;
5801: END IF;
5802:
5803: --Bug 4960541 PAGARG Added call to validations API while creating Lease
5796:
5797: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
5798: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5799: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
5800: RAISE OKL_API.G_EXCEPTION_ERROR;
5801: END IF;
5802:
5803: --Bug 4960541 PAGARG Added call to validations API while creating Lease
5804: --App from Lease Quote. Based on qa result Lease App and Lease Quote status
5816:
5817: -- call the procedure to perform QA validations
5818: LEASE_APP_QA_VAL(
5819: p_api_version => p_api_version
5820: ,p_init_msg_list => OKL_API.G_FALSE
5821: ,p_lap_id => x_lapv_rec.id
5822: ,x_return_status => l_return_status
5823: ,x_msg_count => x_msg_count
5824: ,x_msg_data => x_msg_data
5841: ' Result Status ' || l_return_status ||
5842: ' QA Result Status ' || l_qa_result);
5843: END IF; -- end of statement level debug
5844:
5845: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
5846: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5847: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
5848: RAISE OKL_API.G_EXCEPTION_ERROR;
5849: END IF;
5842: ' QA Result Status ' || l_qa_result);
5843: END IF; -- end of statement level debug
5844:
5845: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
5846: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5847: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
5848: RAISE OKL_API.G_EXCEPTION_ERROR;
5849: END IF;
5850:
5843: END IF; -- end of statement level debug
5844:
5845: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
5846: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5847: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
5848: RAISE OKL_API.G_EXCEPTION_ERROR;
5849: END IF;
5850:
5851: IF l_qa_result <> OKL_API.G_RET_STS_SUCCESS
5844:
5845: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
5846: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5847: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
5848: RAISE OKL_API.G_EXCEPTION_ERROR;
5849: END IF;
5850:
5851: IF l_qa_result <> OKL_API.G_RET_STS_SUCCESS
5852: THEN
5847: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
5848: RAISE OKL_API.G_EXCEPTION_ERROR;
5849: END IF;
5850:
5851: IF l_qa_result <> OKL_API.G_RET_STS_SUCCESS
5852: THEN
5853: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
5854: THEN
5855: OKL_DEBUG_PUB.LOG_DEBUG(
5860:
5861: --call the procedure to update a lease application status
5862: SET_LEASE_APP_STATUS(
5863: p_api_version => p_api_version
5864: ,p_init_msg_list => OKL_API.G_FALSE
5865: ,p_lap_id => x_lapv_rec.id
5866: ,p_lap_status => G_INIT_APPL_STATUS
5867: ,x_return_status => l_return_status
5868: ,x_msg_count => x_msg_count
5884: ,'return status ' || l_return_status ||
5885: ' x_msg_data ' || x_msg_data);
5886: END IF; -- end of statement level debug
5887:
5888: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5889: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5890: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5891: RAISE OKL_API.G_EXCEPTION_ERROR;
5892: END IF;
5885: ' x_msg_data ' || x_msg_data);
5886: END IF; -- end of statement level debug
5887:
5888: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5889: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5890: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5891: RAISE OKL_API.G_EXCEPTION_ERROR;
5892: END IF;
5893:
5886: END IF; -- end of statement level debug
5887:
5888: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5889: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5890: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5891: RAISE OKL_API.G_EXCEPTION_ERROR;
5892: END IF;
5893:
5894: l_lsqv_rec.status := 'PR-INCOMPLETE';
5887:
5888: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5889: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5890: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5891: RAISE OKL_API.G_EXCEPTION_ERROR;
5892: END IF;
5893:
5894: l_lsqv_rec.status := 'PR-INCOMPLETE';
5895: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
5902:
5903: -- call the procedure to create lease quote line
5904: OKL_LEASE_QUOTE_PVT.UPDATE_LEASE_QTE(
5905: p_api_version => p_api_version
5906: ,p_init_msg_list => OKL_API.G_FALSE
5907: ,p_transaction_control => OKL_API.G_TRUE
5908: ,p_lease_qte_rec => l_lsqv_rec
5909: ,x_lease_qte_rec => x_lsqv_rec
5910: ,x_return_status => l_return_status
5903: -- call the procedure to create lease quote line
5904: OKL_LEASE_QUOTE_PVT.UPDATE_LEASE_QTE(
5905: p_api_version => p_api_version
5906: ,p_init_msg_list => OKL_API.G_FALSE
5907: ,p_transaction_control => OKL_API.G_TRUE
5908: ,p_lease_qte_rec => l_lsqv_rec
5909: ,x_lease_qte_rec => x_lsqv_rec
5910: ,x_return_status => l_return_status
5911: ,x_msg_count => x_msg_count
5929: ' result status ' || l_return_status ||
5930: ' x_msg_data ' || x_msg_data);
5931: END IF; -- end of statement level debug
5932:
5933: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
5934: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5935: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
5936: RAISE OKL_API.G_EXCEPTION_ERROR;
5937: END IF;
5930: ' x_msg_data ' || x_msg_data);
5931: END IF; -- end of statement level debug
5932:
5933: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
5934: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5935: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
5936: RAISE OKL_API.G_EXCEPTION_ERROR;
5937: END IF;
5938: -- Bug 7440199: Quote Streams ER: RGOOTY: Start
5931: END IF; -- end of statement level debug
5932:
5933: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
5934: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5935: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
5936: RAISE OKL_API.G_EXCEPTION_ERROR;
5937: END IF;
5938: -- Bug 7440199: Quote Streams ER: RGOOTY: Start
5939: ELSE
5932:
5933: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
5934: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5935: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
5936: RAISE OKL_API.G_EXCEPTION_ERROR;
5937: END IF;
5938: -- Bug 7440199: Quote Streams ER: RGOOTY: Start
5939: ELSE
5940: --Making the pricing call to generate the streams
5948: END IF;
5949:
5950: OKL_PRICING_UTILS_PVT.PRICE_STANDARD_QUOTE(
5951: p_api_version => p_api_version
5952: ,p_init_msg_list => OKL_API.G_FALSE
5953: ,p_qte_id => x_lsqv_rec.id
5954: ,x_return_status => l_return_status
5955: ,x_msg_count => x_msg_count
5956: ,x_msg_data => x_msg_data);
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:
5974: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
5975: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5976: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
5977: RAISE OKL_API.G_EXCEPTION_ERROR;
5978: END IF;
5971: ,'l_return_status ' || l_return_status);
5972: END IF; -- end of statement level debug
5973:
5974: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
5975: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5976: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
5977: RAISE OKL_API.G_EXCEPTION_ERROR;
5978: END IF;
5979: --End of Pricing API call
5972: END IF; -- end of statement level debug
5973:
5974: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
5975: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5976: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
5977: RAISE OKL_API.G_EXCEPTION_ERROR;
5978: END IF;
5979: --End of Pricing API call
5980: -- Bug 7440199: Quote Streams ER: RGOOTY: End
5973:
5974: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
5975: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5976: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
5977: RAISE OKL_API.G_EXCEPTION_ERROR;
5978: END IF;
5979: --End of Pricing API call
5980: -- Bug 7440199: Quote Streams ER: RGOOTY: End
5981: END IF; -- For QA Result Check
5991:
5992: --call to duplicate Credit Lease Application
5993: CREATE_CREDIT_APP(
5994: p_api_version => p_api_version
5995: ,p_init_msg_list => OKL_API.G_FALSE
5996: ,x_return_status => l_return_status
5997: ,x_msg_count => x_msg_count
5998: ,x_msg_data => x_msg_data
5999: ,p_lapv_rec => x_lapv_rec
6015: ,L_MODULE || ' Result of CREATE_CREDIT_APP'
6016: ,' result status ' || l_return_status);
6017: END IF; -- end of statement level debug
6018:
6019: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6020: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6021: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
6022: RAISE OKL_API.G_EXCEPTION_ERROR;
6023: END IF;
6016: ,' result status ' || l_return_status);
6017: END IF; -- end of statement level debug
6018:
6019: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6020: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6021: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
6022: RAISE OKL_API.G_EXCEPTION_ERROR;
6023: END IF;
6024:
6017: END IF; -- end of statement level debug
6018:
6019: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6020: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6021: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
6022: RAISE OKL_API.G_EXCEPTION_ERROR;
6023: END IF;
6024:
6025: OPEN chk_hdr_dtls_csr(x_lapv_rec.id);
6018:
6019: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6020: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6021: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
6022: RAISE OKL_API.G_EXCEPTION_ERROR;
6023: END IF;
6024:
6025: OPEN chk_hdr_dtls_csr(x_lapv_rec.id);
6026: FETCH chk_hdr_dtls_csr INTO chk_hdr_dtls_rec;
6038:
6039: --call to create Checklist Instance
6040: CHECKLIST_INST_CRE(
6041: p_api_version => p_api_version
6042: ,p_init_msg_list => OKL_API.G_FALSE
6043: ,x_return_status => l_return_status
6044: ,x_msg_count => x_msg_count
6045: ,x_msg_data => x_msg_data
6046: ,p_lap_id => x_lapv_rec.id
6061: ,L_MODULE || ' Result of CHECKLIST_INST_CRE'
6062: ,' result status ' || l_return_status);
6063: END IF; -- end of statement level debug
6064:
6065: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6066: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6067: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
6068: RAISE OKL_API.G_EXCEPTION_ERROR;
6069: END IF;
6062: ,' result status ' || l_return_status);
6063: END IF; -- end of statement level debug
6064:
6065: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6066: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6067: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
6068: RAISE OKL_API.G_EXCEPTION_ERROR;
6069: END IF;
6070: END IF; -- Condition to check for call to create checklist instance
6063: END IF; -- end of statement level debug
6064:
6065: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6066: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6067: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
6068: RAISE OKL_API.G_EXCEPTION_ERROR;
6069: END IF;
6070: END IF; -- Condition to check for call to create checklist instance
6071:
6064:
6065: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6066: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6067: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
6068: RAISE OKL_API.G_EXCEPTION_ERROR;
6069: END IF;
6070: END IF; -- Condition to check for call to create checklist instance
6071:
6072: -- Bug#4741121 - viselvar - Modified - Start
6081: ,x_msg_data => x_msg_data
6082: ,p_event_name => p_event_name
6083: ,p_parameters => l_parameter_list);
6084:
6085: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6086: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6087: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
6088: RAISE OKL_API.G_EXCEPTION_ERROR;
6089: END IF;
6082: ,p_event_name => p_event_name
6083: ,p_parameters => l_parameter_list);
6084:
6085: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6086: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6087: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
6088: RAISE OKL_API.G_EXCEPTION_ERROR;
6089: END IF;
6090: -- Bug#4741121 - viselvar - Modified - End
6083: ,p_parameters => l_parameter_list);
6084:
6085: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6086: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6087: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
6088: RAISE OKL_API.G_EXCEPTION_ERROR;
6089: END IF;
6090: -- Bug#4741121 - viselvar - Modified - End
6091:
6084:
6085: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6086: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6087: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
6088: RAISE OKL_API.G_EXCEPTION_ERROR;
6089: END IF;
6090: -- Bug#4741121 - viselvar - Modified - End
6091:
6092: x_return_status := l_return_status;
6089: END IF;
6090: -- Bug#4741121 - viselvar - Modified - End
6091:
6092: x_return_status := l_return_status;
6093: OKL_API.END_ACTIVITY(
6094: x_msg_count => x_msg_count
6095: ,x_msg_data => x_msg_data);
6096: EXCEPTION
6097: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6093: OKL_API.END_ACTIVITY(
6094: x_msg_count => x_msg_count
6095: ,x_msg_data => x_msg_data);
6096: EXCEPTION
6097: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6098: --Checklist Header Details Cursor
6099: IF chk_hdr_dtls_csr%ISOPEN
6100: THEN
6101: CLOSE chk_hdr_dtls_csr;
6104: IF src_lse_app_dtls_csr%ISOPEN
6105: THEN
6106: CLOSE src_lse_app_dtls_csr;
6107: END IF;
6108: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6109: p_api_name => l_api_name,
6110: p_pkg_name => G_PKG_NAME,
6111: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
6112: x_msg_count => x_msg_count,
6107: END IF;
6108: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6109: p_api_name => l_api_name,
6110: p_pkg_name => G_PKG_NAME,
6111: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
6112: x_msg_count => x_msg_count,
6113: x_msg_data => x_msg_data,
6114: p_api_type => G_API_TYPE);
6115:
6112: x_msg_count => x_msg_count,
6113: x_msg_data => x_msg_data,
6114: p_api_type => G_API_TYPE);
6115:
6116: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6117: --Checklist Header Details Cursor
6118: IF chk_hdr_dtls_csr%ISOPEN
6119: THEN
6120: CLOSE chk_hdr_dtls_csr;
6123: IF src_lse_app_dtls_csr%ISOPEN
6124: THEN
6125: CLOSE src_lse_app_dtls_csr;
6126: END IF;
6127: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6128: p_api_name => l_api_name,
6129: p_pkg_name => G_PKG_NAME,
6130: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
6131: x_msg_count => x_msg_count,
6126: END IF;
6127: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6128: p_api_name => l_api_name,
6129: p_pkg_name => G_PKG_NAME,
6130: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
6131: x_msg_count => x_msg_count,
6132: x_msg_data => x_msg_data,
6133: p_api_type => G_API_TYPE);
6134:
6142: IF src_lse_app_dtls_csr%ISOPEN
6143: THEN
6144: CLOSE src_lse_app_dtls_csr;
6145: END IF;
6146: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6147: p_api_name => l_api_name,
6148: p_pkg_name => G_PKG_NAME,
6149: p_exc_name => 'OTHERS',
6150: x_msg_count => x_msg_count,
6199: AND LSQ.PRIMARY_QUOTE= 'Y'
6200: AND LSQ.PARENT_OBJECT_ID = p_lap_id;
6201: l_lsq_dtls_rec l_lsq_dtls_csr%ROWTYPE;
6202: BEGIN
6203: l_return_status := OKL_API.G_RET_STS_SUCCESS;
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');
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(
6215: p_api_name => l_api_name
6216: ,p_pkg_name => G_PKG_NAME
6217: ,p_init_msg_list => p_init_msg_list
6218: ,l_api_version => l_api_version
6220: ,p_api_type => G_API_TYPE
6221: ,x_return_status => l_return_status);
6222:
6223: -- check if activity started successfully
6224: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6225: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6226: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6227: RAISE OKL_API.G_EXCEPTION_ERROR;
6228: END IF;
6221: ,x_return_status => l_return_status);
6222:
6223: -- check if activity started successfully
6224: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6225: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6226: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6227: RAISE OKL_API.G_EXCEPTION_ERROR;
6228: END IF;
6229:
6222:
6223: -- check if activity started successfully
6224: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6225: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6226: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6227: RAISE OKL_API.G_EXCEPTION_ERROR;
6228: END IF;
6229:
6230: l_lapv_rec := p_lapv_rec;
6223: -- check if activity started successfully
6224: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6225: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6226: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6227: RAISE OKL_API.G_EXCEPTION_ERROR;
6228: END IF;
6229:
6230: l_lapv_rec := p_lapv_rec;
6231:
6242: ,x_msg_data => x_msg_data
6243: ,p_event_name => p_event_name1
6244: ,p_parameters => l_parameter_list);
6245:
6246: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6247: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6248: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
6249: RAISE OKL_API.G_EXCEPTION_ERROR;
6250: END IF;
6243: ,p_event_name => p_event_name1
6244: ,p_parameters => l_parameter_list);
6245:
6246: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6247: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6248: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
6249: RAISE OKL_API.G_EXCEPTION_ERROR;
6250: END IF;
6251: -- Bug#4741121 - viselvar - Modified - End
6244: ,p_parameters => l_parameter_list);
6245:
6246: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6247: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6248: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
6249: RAISE OKL_API.G_EXCEPTION_ERROR;
6250: END IF;
6251: -- Bug#4741121 - viselvar - Modified - End
6252:
6245:
6246: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6247: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6248: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
6249: RAISE OKL_API.G_EXCEPTION_ERROR;
6250: END IF;
6251: -- Bug#4741121 - viselvar - Modified - End
6252:
6253: --Populate Lease Application rec with the values from database.
6260: END IF;
6261:
6262: POPULATE_LEASE_APP(
6263: p_api_version => p_api_version
6264: ,p_init_msg_list => OKL_API.G_FALSE
6265: ,x_return_status => l_return_status
6266: ,x_msg_count => x_msg_count
6267: ,x_msg_data => x_msg_data
6268: ,p_lap_id => l_lapv_rec.id
6284: ,L_MODULE || ' Result of POPULATE_LEASE_APP'
6285: ,'l_return_status ' || l_return_status);
6286: END IF; -- end of statement level debug
6287:
6288: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6289: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6290: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
6291: RAISE OKL_API.G_EXCEPTION_ERROR;
6292: END IF;
6285: ,'l_return_status ' || l_return_status);
6286: END IF; -- end of statement level debug
6287:
6288: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6289: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6290: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
6291: RAISE OKL_API.G_EXCEPTION_ERROR;
6292: END IF;
6293:
6286: END IF; -- end of statement level debug
6287:
6288: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6289: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6290: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
6291: RAISE OKL_API.G_EXCEPTION_ERROR;
6292: END IF;
6293:
6294: l_lapv_rec := x_lapv_rec;
6287:
6288: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6289: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6290: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
6291: RAISE OKL_API.G_EXCEPTION_ERROR;
6292: END IF;
6293:
6294: l_lapv_rec := x_lapv_rec;
6295: l_lsqv_rec := x_lsqv_rec;
6307: END IF;
6308:
6309: LEASE_APP_VAL(
6310: p_api_version => p_api_version
6311: ,p_init_msg_list => OKL_API.G_FALSE
6312: ,x_return_status => l_return_status
6313: ,x_msg_count => x_msg_count
6314: ,x_msg_data => x_msg_data
6315: ,p_lapv_rec => l_lapv_rec
6330: ,L_MODULE || ' Result of LEASE_APP_VAL'
6331: ,'l_return_status ' || l_return_status);
6332: END IF; -- end of statement level debug
6333:
6334: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6335: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6336: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
6337: RAISE OKL_API.G_EXCEPTION_ERROR;
6338: END IF;
6331: ,'l_return_status ' || l_return_status);
6332: END IF; -- end of statement level debug
6333:
6334: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6335: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6336: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
6337: RAISE OKL_API.G_EXCEPTION_ERROR;
6338: END IF;
6339:
6332: END IF; -- end of statement level debug
6333:
6334: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6335: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6336: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
6337: RAISE OKL_API.G_EXCEPTION_ERROR;
6338: END IF;
6339:
6340: --set the status of Lease Application to Pricing Submitted
6333:
6334: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6335: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6336: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
6337: RAISE OKL_API.G_EXCEPTION_ERROR;
6338: END IF;
6339:
6340: --set the status of Lease Application to Pricing Submitted
6341: l_lapv_rec.application_status := 'PR-SUBMITTED';
6349: END IF;
6350:
6351: SET_LEASE_APP_STATUS(
6352: p_api_version => p_api_version
6353: ,p_init_msg_list => OKL_API.G_FALSE
6354: ,p_lap_id => l_lapv_rec.id
6355: ,p_lap_status => l_lapv_rec.application_status
6356: ,x_return_status => l_return_status
6357: ,x_msg_count => x_msg_count
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:
6376: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6377: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6378: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
6379: RAISE OKL_API.G_EXCEPTION_ERROR;
6380: END IF;
6373: ,'l_return_status ' || l_return_status);
6374: END IF; -- end of statement level debug
6375:
6376: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6377: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6378: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
6379: RAISE OKL_API.G_EXCEPTION_ERROR;
6380: END IF;
6381:
6374: END IF; -- end of statement level debug
6375:
6376: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6377: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6378: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
6379: RAISE OKL_API.G_EXCEPTION_ERROR;
6380: END IF;
6381:
6382: --Obtain the details of Lease Quote line of Lease App
6375:
6376: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6377: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6378: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
6379: RAISE OKL_API.G_EXCEPTION_ERROR;
6380: END IF;
6381:
6382: --Obtain the details of Lease Quote line of Lease App
6383: OPEN l_lsq_dtls_csr(l_lapv_rec.id);
6394: END IF;
6395:
6396: OKL_LEASE_QUOTE_PVT.SUBMIT_LEASE_QTE(
6397: p_api_version => p_api_version
6398: ,p_init_msg_list => OKL_API.G_FALSE
6399: ,p_transaction_control => OKL_API.G_TRUE
6400: ,p_quote_id => l_lsq_dtls_rec.lsq_id
6401: ,x_return_status => l_return_status
6402: ,x_msg_count => x_msg_count
6395:
6396: OKL_LEASE_QUOTE_PVT.SUBMIT_LEASE_QTE(
6397: p_api_version => p_api_version
6398: ,p_init_msg_list => OKL_API.G_FALSE
6399: ,p_transaction_control => OKL_API.G_TRUE
6400: ,p_quote_id => l_lsq_dtls_rec.lsq_id
6401: ,x_return_status => l_return_status
6402: ,x_msg_count => x_msg_count
6403: ,x_msg_data => x_msg_data);
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:
6421: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6422: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6423: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
6424: RAISE OKL_API.G_EXCEPTION_ERROR;
6425: END IF;
6418: ,'l_return_status ' || l_return_status);
6419: END IF; -- end of statement level debug
6420:
6421: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6422: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6423: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
6424: RAISE OKL_API.G_EXCEPTION_ERROR;
6425: END IF;
6426:
6419: END IF; -- end of statement level debug
6420:
6421: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6422: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6423: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
6424: RAISE OKL_API.G_EXCEPTION_ERROR;
6425: END IF;
6426:
6427: --Check if lease quote line of Lease App is in status pricing complete
6420:
6421: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6422: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6423: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
6424: RAISE OKL_API.G_EXCEPTION_ERROR;
6425: END IF;
6426:
6427: --Check if lease quote line of Lease App is in status pricing complete
6428: --then only call the process subsidy pool api
6438: END IF;
6439:
6440: OKL_LEASE_QUOTE_SUBPOOL_PVT.PROCESS_LEASEAPP_SUBSIDY_POOL(
6441: p_api_version => p_api_version
6442: ,p_init_msg_list => OKL_API.G_FALSE
6443: ,p_transaction_control => OKL_API.G_TRUE
6444: ,p_leaseapp_id => l_lapv_rec.id
6445: ,p_transaction_reason => 'APPROVE_LEASE_APP_PRICING'
6446: ,p_quote_id => l_lsq_dtls_rec.lsq_id
6439:
6440: OKL_LEASE_QUOTE_SUBPOOL_PVT.PROCESS_LEASEAPP_SUBSIDY_POOL(
6441: p_api_version => p_api_version
6442: ,p_init_msg_list => OKL_API.G_FALSE
6443: ,p_transaction_control => OKL_API.G_TRUE
6444: ,p_leaseapp_id => l_lapv_rec.id
6445: ,p_transaction_reason => 'APPROVE_LEASE_APP_PRICING'
6446: ,p_quote_id => l_lsq_dtls_rec.lsq_id
6447: ,x_return_status => l_return_status
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:
6467: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6468: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6469: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
6470: RAISE OKL_API.G_EXCEPTION_ERROR;
6471: END IF;
6464: ,'l_return_status ' || l_return_status);
6465: END IF; -- end of statement level debug
6466:
6467: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6468: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6469: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
6470: RAISE OKL_API.G_EXCEPTION_ERROR;
6471: END IF;
6472: END IF;-- Checking Lease Quote status for call to process subsidy pool api
6465: END IF; -- end of statement level debug
6466:
6467: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6468: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6469: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
6470: RAISE OKL_API.G_EXCEPTION_ERROR;
6471: END IF;
6472: END IF;-- Checking Lease Quote status for call to process subsidy pool api
6473: ELSE
6466:
6467: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6468: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6469: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
6470: RAISE OKL_API.G_EXCEPTION_ERROR;
6471: END IF;
6472: END IF;-- Checking Lease Quote status for call to process subsidy pool api
6473: ELSE
6474: l_return_status := OKL_API.G_RET_STS_ERROR;
6470: RAISE OKL_API.G_EXCEPTION_ERROR;
6471: END IF;
6472: END IF;-- Checking Lease Quote status for call to process subsidy pool api
6473: ELSE
6474: l_return_status := OKL_API.G_RET_STS_ERROR;
6475: OKL_API.SET_MESSAGE(
6476: p_app_name => G_APP_NAME,
6477: p_msg_name => 'OKL_SO_LSE_APP_PR_SUB_FAIL',
6478: p_token1 => 'TEXT',
6471: END IF;
6472: END IF;-- Checking Lease Quote status for call to process subsidy pool api
6473: ELSE
6474: l_return_status := OKL_API.G_RET_STS_ERROR;
6475: OKL_API.SET_MESSAGE(
6476: p_app_name => G_APP_NAME,
6477: p_msg_name => 'OKL_SO_LSE_APP_PR_SUB_FAIL',
6478: p_token1 => 'TEXT',
6479: p_token1_value => l_lapv_rec.reference_number);
6494: ,p_event_name => p_event_name2
6495: ,p_parameters => l_parameter_list);
6496:
6497:
6498: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6499: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6500: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
6501: RAISE OKL_API.G_EXCEPTION_ERROR;
6502: END IF;
6495: ,p_parameters => l_parameter_list);
6496:
6497:
6498: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6499: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6500: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
6501: RAISE OKL_API.G_EXCEPTION_ERROR;
6502: END IF;
6503: -- Bug#4741121 - viselvar - Modified - End
6496:
6497:
6498: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6499: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6500: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
6501: RAISE OKL_API.G_EXCEPTION_ERROR;
6502: END IF;
6503: -- Bug#4741121 - viselvar - Modified - End
6504:
6497:
6498: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6499: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6500: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
6501: RAISE OKL_API.G_EXCEPTION_ERROR;
6502: END IF;
6503: -- Bug#4741121 - viselvar - Modified - End
6504:
6505: x_return_status := l_return_status;
6503: -- Bug#4741121 - viselvar - Modified - End
6504:
6505: x_return_status := l_return_status;
6506:
6507: OKL_API.END_ACTIVITY(
6508: x_msg_count => x_msg_count
6509: ,x_msg_data => x_msg_data);
6510: EXCEPTION
6511: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6507: OKL_API.END_ACTIVITY(
6508: x_msg_count => x_msg_count
6509: ,x_msg_data => x_msg_data);
6510: EXCEPTION
6511: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6512: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6513: p_api_name => l_api_name,
6514: p_pkg_name => G_PKG_NAME,
6515: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
6508: x_msg_count => x_msg_count
6509: ,x_msg_data => x_msg_data);
6510: EXCEPTION
6511: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6512: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6513: p_api_name => l_api_name,
6514: p_pkg_name => G_PKG_NAME,
6515: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
6516: x_msg_count => x_msg_count,
6511: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6512: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6513: p_api_name => l_api_name,
6514: p_pkg_name => G_PKG_NAME,
6515: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
6516: x_msg_count => x_msg_count,
6517: x_msg_data => x_msg_data,
6518: p_api_type => G_API_TYPE);
6519:
6516: x_msg_count => x_msg_count,
6517: x_msg_data => x_msg_data,
6518: p_api_type => G_API_TYPE);
6519:
6520: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6521: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6522: p_api_name => l_api_name,
6523: p_pkg_name => G_PKG_NAME,
6524: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
6517: x_msg_data => x_msg_data,
6518: p_api_type => G_API_TYPE);
6519:
6520: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6521: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6522: p_api_name => l_api_name,
6523: p_pkg_name => G_PKG_NAME,
6524: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
6525: x_msg_count => x_msg_count,
6520: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6521: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6522: p_api_name => l_api_name,
6523: p_pkg_name => G_PKG_NAME,
6524: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
6525: x_msg_count => x_msg_count,
6526: x_msg_data => x_msg_data,
6527: p_api_type => G_API_TYPE);
6528:
6526: x_msg_data => x_msg_data,
6527: p_api_type => G_API_TYPE);
6528:
6529: WHEN OTHERS THEN
6530: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6531: p_api_name => l_api_name,
6532: p_pkg_name => G_PKG_NAME,
6533: p_exc_name => 'OTHERS',
6534: x_msg_count => x_msg_count,
6631: FROM OKL_LEASE_APPLICATIONS_B LAB
6632: WHERE LAB.ID = p_lap_id;
6633: lse_app_dtls_rec lse_app_dtls_csr%ROWTYPE;
6634: BEGIN
6635: l_return_status := OKL_API.G_RET_STS_SUCCESS;
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');
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(
6647: p_api_name => l_api_name
6648: ,p_pkg_name => G_PKG_NAME
6649: ,p_init_msg_list => p_init_msg_list
6650: ,l_api_version => l_api_version
6652: ,p_api_type => G_API_TYPE
6653: ,x_return_status => l_return_status);
6654:
6655: -- check if activity started successfully
6656: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6657: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6658: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6659: RAISE OKL_API.G_EXCEPTION_ERROR;
6660: END IF;
6653: ,x_return_status => l_return_status);
6654:
6655: -- check if activity started successfully
6656: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6657: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6658: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6659: RAISE OKL_API.G_EXCEPTION_ERROR;
6660: END IF;
6661:
6654:
6655: -- check if activity started successfully
6656: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6657: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6658: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6659: RAISE OKL_API.G_EXCEPTION_ERROR;
6660: END IF;
6661:
6662: l_lapv_rec := p_lapv_rec;
6655: -- check if activity started successfully
6656: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6657: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6658: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6659: RAISE OKL_API.G_EXCEPTION_ERROR;
6660: END IF;
6661:
6662: l_lapv_rec := p_lapv_rec;
6663:
6671: END IF;
6672:
6673: POPULATE_LEASE_APP(
6674: p_api_version => p_api_version
6675: ,p_init_msg_list => OKL_API.G_FALSE
6676: ,x_return_status => l_return_status
6677: ,x_msg_count => x_msg_count
6678: ,x_msg_data => x_msg_data
6679: ,p_lap_id => l_lapv_rec.id
6695: ,L_MODULE || ' Result of POPULATE_LEASE_APP'
6696: ,'l_return_status ' || l_return_status);
6697: END IF; -- end of statement level debug
6698:
6699: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6700: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6701: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
6702: RAISE OKL_API.G_EXCEPTION_ERROR;
6703: END IF;
6696: ,'l_return_status ' || l_return_status);
6697: END IF; -- end of statement level debug
6698:
6699: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6700: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6701: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
6702: RAISE OKL_API.G_EXCEPTION_ERROR;
6703: END IF;
6704:
6697: END IF; -- end of statement level debug
6698:
6699: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6700: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6701: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
6702: RAISE OKL_API.G_EXCEPTION_ERROR;
6703: END IF;
6704:
6705: l_lapv_rec := x_lapv_rec;
6698:
6699: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6700: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6701: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
6702: RAISE OKL_API.G_EXCEPTION_ERROR;
6703: END IF;
6704:
6705: l_lapv_rec := x_lapv_rec;
6706: l_lsqv_rec := x_lsqv_rec;
6721: FETCH appeal_exp_date_csr INTO l_exp_date;
6722: CLOSE appeal_exp_date_csr;
6723: IF(l_exp_Date IS NULL OR l_exp_Date < TRUNC(SYSDATE))
6724: THEN
6725: l_return_status := OKL_API.G_RET_STS_ERROR;
6726: OKL_API.SET_MESSAGE(
6727: p_app_name => G_APP_NAME,
6728: p_msg_name => 'OKL_SO_LSE_APP_APPEAL_PRD_EXP',
6729: p_token1 => 'TEXT',
6722: CLOSE appeal_exp_date_csr;
6723: IF(l_exp_Date IS NULL OR l_exp_Date < TRUNC(SYSDATE))
6724: THEN
6725: l_return_status := OKL_API.G_RET_STS_ERROR;
6726: OKL_API.SET_MESSAGE(
6727: p_app_name => G_APP_NAME,
6728: p_msg_name => 'OKL_SO_LSE_APP_APPEAL_PRD_EXP',
6729: p_token1 => 'TEXT',
6730: p_token1_value => lse_app_dtls_rec.reference_number);
6727: p_app_name => G_APP_NAME,
6728: p_msg_name => 'OKL_SO_LSE_APP_APPEAL_PRD_EXP',
6729: p_token1 => 'TEXT',
6730: p_token1_value => lse_app_dtls_rec.reference_number);
6731: RAISE OKL_API.G_EXCEPTION_ERROR;
6732: END IF;
6733: ELSE
6734: l_return_status := OKL_API.G_RET_STS_ERROR;
6735: OKL_API.SET_MESSAGE(
6730: p_token1_value => lse_app_dtls_rec.reference_number);
6731: RAISE OKL_API.G_EXCEPTION_ERROR;
6732: END IF;
6733: ELSE
6734: l_return_status := OKL_API.G_RET_STS_ERROR;
6735: OKL_API.SET_MESSAGE(
6736: p_app_name => G_APP_NAME,
6737: p_msg_name => 'OKL_SO_LSE_APP_APPEAL_AUTH_ERR',
6738: p_token1 => 'TEXT',
6731: RAISE OKL_API.G_EXCEPTION_ERROR;
6732: END IF;
6733: ELSE
6734: l_return_status := OKL_API.G_RET_STS_ERROR;
6735: OKL_API.SET_MESSAGE(
6736: p_app_name => G_APP_NAME,
6737: p_msg_name => 'OKL_SO_LSE_APP_APPEAL_AUTH_ERR',
6738: p_token1 => 'TEXT',
6739: p_token1_value => lse_app_dtls_rec.reference_number);
6736: p_app_name => G_APP_NAME,
6737: p_msg_name => 'OKL_SO_LSE_APP_APPEAL_AUTH_ERR',
6738: p_token1 => 'TEXT',
6739: p_token1_value => lse_app_dtls_rec.reference_number);
6740: RAISE OKL_API.G_EXCEPTION_ERROR;
6741: END IF;
6742: --Check if atleast one of the recommendations of parent lease app is marked
6743: --for appeal
6744: OPEN credit_recom_csr(l_lapv_rec.parent_leaseapp_id, NULL, 'Y');
6745: FETCH credit_recom_csr INTO l_count;
6746: CLOSE credit_recom_csr;
6747: IF(l_count = 0)
6748: THEN
6749: l_return_status := OKL_API.G_RET_STS_ERROR;
6750: OKL_API.SET_MESSAGE(
6751: p_app_name => G_APP_NAME,
6752: p_msg_name => 'OKL_SO_LSE_APP_APL_RECOM_ERR');
6753: RAISE OKL_API.G_EXCEPTION_ERROR;
6746: CLOSE credit_recom_csr;
6747: IF(l_count = 0)
6748: THEN
6749: l_return_status := OKL_API.G_RET_STS_ERROR;
6750: OKL_API.SET_MESSAGE(
6751: p_app_name => G_APP_NAME,
6752: p_msg_name => 'OKL_SO_LSE_APP_APL_RECOM_ERR');
6753: RAISE OKL_API.G_EXCEPTION_ERROR;
6754: END IF;
6749: l_return_status := OKL_API.G_RET_STS_ERROR;
6750: OKL_API.SET_MESSAGE(
6751: p_app_name => G_APP_NAME,
6752: p_msg_name => 'OKL_SO_LSE_APP_APL_RECOM_ERR');
6753: RAISE OKL_API.G_EXCEPTION_ERROR;
6754: END IF;
6755: END IF;--Check for Appeal validity
6756:
6757: IF(l_lapv_rec.application_status IN ('PR-ACCEPTED'))
6767: END IF;
6768:
6769: LEASE_APP_VAL(
6770: p_api_version => p_api_version
6771: ,p_init_msg_list => OKL_API.G_FALSE
6772: ,x_return_status => l_return_status
6773: ,x_msg_count => x_msg_count
6774: ,x_msg_data => x_msg_data
6775: ,p_lapv_rec => l_lapv_rec
6790: ,L_MODULE || ' Result of LEASE_APP_VAL'
6791: ,'l_return_status ' || l_return_status);
6792: END IF; -- end of statement level debug
6793:
6794: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6795: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6796: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
6797: RAISE OKL_API.G_EXCEPTION_ERROR;
6798: END IF;
6791: ,'l_return_status ' || l_return_status);
6792: END IF; -- end of statement level debug
6793:
6794: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6795: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6796: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
6797: RAISE OKL_API.G_EXCEPTION_ERROR;
6798: END IF;
6799:
6792: END IF; -- end of statement level debug
6793:
6794: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6795: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6796: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
6797: RAISE OKL_API.G_EXCEPTION_ERROR;
6798: END IF;
6799:
6800: OPEN acr_dtls_csr(l_lapv_rec.id);
6793:
6794: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6795: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6796: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
6797: RAISE OKL_API.G_EXCEPTION_ERROR;
6798: END IF;
6799:
6800: OPEN acr_dtls_csr(l_lapv_rec.id);
6801: FETCH acr_dtls_csr INTO acr_dtls_rec;
6808:
6809: l_req_amt := get_financed_amount(l_lsq_dtls_rec.lsq_id);
6810: IF(l_req_amt <= 0)
6811: THEN
6812: l_return_status := OKL_API.G_RET_STS_ERROR;
6813: OKL_API.SET_MESSAGE(
6814: p_app_name => G_APP_NAME,
6815: p_msg_name => 'OKL_AMOUNT_GREATER_THAN_ZERO');
6816: RAISE OKL_API.G_EXCEPTION_ERROR;
6809: l_req_amt := get_financed_amount(l_lsq_dtls_rec.lsq_id);
6810: IF(l_req_amt <= 0)
6811: THEN
6812: l_return_status := OKL_API.G_RET_STS_ERROR;
6813: OKL_API.SET_MESSAGE(
6814: p_app_name => G_APP_NAME,
6815: p_msg_name => 'OKL_AMOUNT_GREATER_THAN_ZERO');
6816: RAISE OKL_API.G_EXCEPTION_ERROR;
6817: ELSE
6812: l_return_status := OKL_API.G_RET_STS_ERROR;
6813: OKL_API.SET_MESSAGE(
6814: p_app_name => G_APP_NAME,
6815: p_msg_name => 'OKL_AMOUNT_GREATER_THAN_ZERO');
6816: RAISE OKL_API.G_EXCEPTION_ERROR;
6817: ELSE
6818: -- Bug 4902717 PAGARG Update the Requested Amount on Credit Application
6819: --before submitting it for approval
6820: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
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:
6850: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6851: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6852: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
6853: RAISE OKL_API.G_EXCEPTION_ERROR;
6854: END IF;
6847: ,' result status ' || l_return_status);
6848: END IF; -- end of statement level debug
6849:
6850: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6851: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6852: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
6853: RAISE OKL_API.G_EXCEPTION_ERROR;
6854: END IF;
6855:
6848: END IF; -- end of statement level debug
6849:
6850: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6851: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6852: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
6853: RAISE OKL_API.G_EXCEPTION_ERROR;
6854: END IF;
6855:
6856: --assign the new values
6849:
6850: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6851: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6852: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
6853: RAISE OKL_API.G_EXCEPTION_ERROR;
6854: END IF;
6855:
6856: --assign the new values
6857: l_crd_req_rec.requested_amount := l_req_amt;
6866: END IF;
6867: --update the credit application data
6868: OCM_CREDIT_REQUEST_UPDATE_PUB.UPDATE_CREDIT_REQUEST(
6869: p_api_version => l_api_version,
6870: p_init_msg_list => OKL_API.G_FALSE,
6871: p_commit => NULL,
6872: p_validation_level => NULL,
6873: x_return_status => l_return_status,
6874: x_msg_count => x_msg_count,
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:
6894: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6895: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6896: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
6897: RAISE OKL_API.G_EXCEPTION_ERROR;
6898: END IF;
6891: ,' result status ' || l_return_status);
6892: END IF; -- end of statement level debug
6893:
6894: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6895: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6896: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
6897: RAISE OKL_API.G_EXCEPTION_ERROR;
6898: END IF;
6899: END IF;
6892: END IF; -- end of statement level debug
6893:
6894: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6895: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6896: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
6897: RAISE OKL_API.G_EXCEPTION_ERROR;
6898: END IF;
6899: END IF;
6900:
6893:
6894: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6895: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6896: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
6897: RAISE OKL_API.G_EXCEPTION_ERROR;
6898: END IF;
6899: END IF;
6900:
6901: --Trigger the Credit Approval workflow
6911: ,x_msg_data => x_msg_data
6912: ,p_event_name => p_event_name
6913: ,p_parameters => l_parameter_list);
6914:
6915: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6916: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6917: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
6918: RAISE OKL_API.G_EXCEPTION_ERROR;
6919: END IF;
6912: ,p_event_name => p_event_name
6913: ,p_parameters => l_parameter_list);
6914:
6915: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6916: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6917: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
6918: RAISE OKL_API.G_EXCEPTION_ERROR;
6919: END IF;
6920: -- Bug#4741121 - viselvar - Modified - End
6913: ,p_parameters => l_parameter_list);
6914:
6915: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6916: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6917: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
6918: RAISE OKL_API.G_EXCEPTION_ERROR;
6919: END IF;
6920: -- Bug#4741121 - viselvar - Modified - End
6921:
6914:
6915: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6916: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6917: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
6918: RAISE OKL_API.G_EXCEPTION_ERROR;
6919: END IF;
6920: -- Bug#4741121 - viselvar - Modified - End
6921:
6922: --11/05/05 SNAMBIAR - we should not update other teams table like this
6939: END IF;
6940:
6941: OCM_CREDIT_REQUEST_UPDATE_PUB.UPDATE_CREDIT_REQUEST_STATUS(
6942: p_api_version => l_api_version
6943: ,p_init_msg_list => OKL_API.G_FALSE
6944: ,p_commit => OKL_API.G_FALSE
6945: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
6946: ,x_return_status => l_return_status
6947: ,x_msg_count => x_msg_count
6940:
6941: OCM_CREDIT_REQUEST_UPDATE_PUB.UPDATE_CREDIT_REQUEST_STATUS(
6942: p_api_version => l_api_version
6943: ,p_init_msg_list => OKL_API.G_FALSE
6944: ,p_commit => OKL_API.G_FALSE
6945: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
6946: ,x_return_status => l_return_status
6947: ,x_msg_count => x_msg_count
6948: ,x_msg_data => x_msg_data
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:
6968: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6969: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6970: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
6971: RAISE OKL_API.G_EXCEPTION_ERROR;
6972: END IF;
6965: ,'l_return_status ' || l_return_status);
6966: END IF; -- end of statement level debug
6967:
6968: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6969: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6970: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
6971: RAISE OKL_API.G_EXCEPTION_ERROR;
6972: END IF;
6973:
6966: END IF; -- end of statement level debug
6967:
6968: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6969: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6970: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
6971: RAISE OKL_API.G_EXCEPTION_ERROR;
6972: END IF;
6973:
6974: l_lapv_rec.application_status := 'CR-SUBMITTED';
6967:
6968: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6969: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6970: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
6971: RAISE OKL_API.G_EXCEPTION_ERROR;
6972: END IF;
6973:
6974: l_lapv_rec.application_status := 'CR-SUBMITTED';
6975:
6982: END IF;
6983:
6984: SET_LEASE_APP_STATUS(
6985: p_api_version => p_api_version
6986: ,p_init_msg_list => OKL_API.G_FALSE
6987: ,p_lap_id => l_lapv_rec.id
6988: ,p_lap_status => l_lapv_rec.application_status
6989: ,x_return_status => l_return_status
6990: ,x_msg_count => x_msg_count
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:
7009: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
7010: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7011: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
7012: RAISE OKL_API.G_EXCEPTION_ERROR;
7013: END IF;
7006: ,'l_return_status ' || l_return_status);
7007: END IF; -- end of statement level debug
7008:
7009: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
7010: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7011: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
7012: RAISE OKL_API.G_EXCEPTION_ERROR;
7013: END IF;
7014: ELSE
7007: END IF; -- end of statement level debug
7008:
7009: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
7010: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7011: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
7012: RAISE OKL_API.G_EXCEPTION_ERROR;
7013: END IF;
7014: ELSE
7015: l_return_status := OKL_API.G_RET_STS_ERROR;
7008:
7009: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
7010: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7011: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
7012: RAISE OKL_API.G_EXCEPTION_ERROR;
7013: END IF;
7014: ELSE
7015: l_return_status := OKL_API.G_RET_STS_ERROR;
7016: l_meaning := get_lookup_meaning('OKL_LEASE_APP_STATUS', 'CR-SUBMITTED');
7011: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
7012: RAISE OKL_API.G_EXCEPTION_ERROR;
7013: END IF;
7014: ELSE
7015: l_return_status := OKL_API.G_RET_STS_ERROR;
7016: l_meaning := get_lookup_meaning('OKL_LEASE_APP_STATUS', 'CR-SUBMITTED');
7017: OKL_API.SET_MESSAGE(
7018: p_app_name => G_APP_NAME,
7019: p_msg_name => 'OKL_SO_LSE_APP_ACTION_ERR',
7013: END IF;
7014: ELSE
7015: l_return_status := OKL_API.G_RET_STS_ERROR;
7016: l_meaning := get_lookup_meaning('OKL_LEASE_APP_STATUS', 'CR-SUBMITTED');
7017: OKL_API.SET_MESSAGE(
7018: p_app_name => G_APP_NAME,
7019: p_msg_name => 'OKL_SO_LSE_APP_ACTION_ERR',
7020: p_token1 => 'TEXT',
7021: p_token1_value => l_lapv_rec.reference_number,
7022: p_token2 => 'STATUS',
7023: p_token2_value => l_lapv_rec.application_status,
7024: p_token3 => 'ACTION',
7025: p_token3_value => l_meaning);
7026: RAISE OKL_API.G_EXCEPTION_ERROR;
7027: END IF;
7028:
7029: x_return_status := l_return_status;
7030:
7027: END IF;
7028:
7029: x_return_status := l_return_status;
7030:
7031: OKL_API.END_ACTIVITY(
7032: x_msg_count => x_msg_count
7033: ,x_msg_data => x_msg_data);
7034: EXCEPTION
7035: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7031: OKL_API.END_ACTIVITY(
7032: x_msg_count => x_msg_count
7033: ,x_msg_data => x_msg_data);
7034: EXCEPTION
7035: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7036: --Credit Request Details Cursor
7037: IF acr_dtls_csr%ISOPEN
7038: THEN
7039: CLOSE acr_dtls_csr;
7057: IF lse_app_dtls_csr%ISOPEN
7058: THEN
7059: CLOSE lse_app_dtls_csr;
7060: END IF;
7061: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7062: p_api_name => l_api_name,
7063: p_pkg_name => G_PKG_NAME,
7064: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
7065: x_msg_count => x_msg_count,
7060: END IF;
7061: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7062: p_api_name => l_api_name,
7063: p_pkg_name => G_PKG_NAME,
7064: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
7065: x_msg_count => x_msg_count,
7066: x_msg_data => x_msg_data,
7067: p_api_type => G_API_TYPE);
7068:
7065: x_msg_count => x_msg_count,
7066: x_msg_data => x_msg_data,
7067: p_api_type => G_API_TYPE);
7068:
7069: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7070: --Credit Request Details Cursor
7071: IF acr_dtls_csr%ISOPEN
7072: THEN
7073: CLOSE acr_dtls_csr;
7091: IF lse_app_dtls_csr%ISOPEN
7092: THEN
7093: CLOSE lse_app_dtls_csr;
7094: END IF;
7095: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7096: p_api_name => l_api_name,
7097: p_pkg_name => G_PKG_NAME,
7098: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
7099: x_msg_count => x_msg_count,
7094: END IF;
7095: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7096: p_api_name => l_api_name,
7097: p_pkg_name => G_PKG_NAME,
7098: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
7099: x_msg_count => x_msg_count,
7100: x_msg_data => x_msg_data,
7101: p_api_type => G_API_TYPE);
7102:
7125: IF lse_app_dtls_csr%ISOPEN
7126: THEN
7127: CLOSE lse_app_dtls_csr;
7128: END IF;
7129: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7130: p_api_name => l_api_name,
7131: p_pkg_name => G_PKG_NAME,
7132: p_exc_name => 'OTHERS',
7133: x_msg_count => x_msg_count,
7175: AND CHR.SCS_CODE = 'PROGRAM';
7176: pgm_agr_dtls_rec pgm_agr_dtls_csr%ROWTYPE;
7177:
7178: BEGIN
7179: l_return_status := OKL_API.G_RET_STS_ERROR;
7180: l_eligible := false;
7181: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.IS_VALID_PROGRAM_AGREEMENT';
7182:
7183: -- check for logging on PROCEDURE level
7194: l_okl_ec_rec.src_type := 'VENDOR_PROGRAM';
7195: l_okl_ec_rec.validation_mode := 'LOV';
7196: l_okl_ec_rec.source_name := pgm_agr_dtls_rec.program_agreement;
7197:
7198: IF(p_lap_id IS NOT NULL AND p_lap_id <> OKL_API.G_MISS_NUM)
7199: THEN
7200: --Populate the EC rec
7201: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
7202: THEN
7207: END IF;
7208:
7209: POPULATE_EC_REC(
7210: p_api_version => l_api_version
7211: ,p_init_msg_list => OKL_API.G_FALSE
7212: ,p_lap_id => p_lap_id
7213: ,x_return_status => l_return_status
7214: ,x_msg_count => x_msg_count
7215: ,x_msg_data => x_msg_data
7230: ,L_MODULE || ' Result of POPULATE_EC_REC'
7231: ,'l_return_status ' || l_return_status);
7232: END IF; -- end of statement level debug
7233:
7234: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
7235: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7236: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
7237: RAISE OKL_API.G_EXCEPTION_ERROR;
7238: END IF;
7231: ,'l_return_status ' || l_return_status);
7232: END IF; -- end of statement level debug
7233:
7234: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
7235: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7236: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
7237: RAISE OKL_API.G_EXCEPTION_ERROR;
7238: END IF;
7239: ELSE
7232: END IF; -- end of statement level debug
7233:
7234: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
7235: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7236: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
7237: RAISE OKL_API.G_EXCEPTION_ERROR;
7238: END IF;
7239: ELSE
7240: l_okl_ec_rec.target_eff_from := p_eff_from;
7233:
7234: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
7235: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7236: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
7237: RAISE OKL_API.G_EXCEPTION_ERROR;
7238: END IF;
7239: ELSE
7240: l_okl_ec_rec.target_eff_from := p_eff_from;
7241: END IF;
7249: END IF;
7250:
7251: OKL_ECC_PUB.EVALUATE_ELIGIBILITY_CRITERIA(
7252: p_api_version => l_api_version
7253: ,p_init_msg_list => OKL_API.G_FALSE
7254: ,x_return_status => l_return_status
7255: ,x_msg_count => x_msg_count
7256: ,x_msg_data => x_msg_data
7257: ,p_okl_ec_rec => l_okl_ec_rec
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:
7276: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
7277: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7278: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
7279: RAISE OKL_API.G_EXCEPTION_ERROR;
7280: END IF;
7273: ,'l_return_status ' || l_return_status);
7274: END IF; -- end of statement level debug
7275:
7276: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
7277: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7278: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
7279: RAISE OKL_API.G_EXCEPTION_ERROR;
7280: END IF;
7281:
7274: END IF; -- end of statement level debug
7275:
7276: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
7277: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7278: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
7279: RAISE OKL_API.G_EXCEPTION_ERROR;
7280: END IF;
7281:
7282: IF(l_return_status = OKL_API.G_RET_STS_SUCCESS AND l_eligible)
7275:
7276: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
7277: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7278: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
7279: RAISE OKL_API.G_EXCEPTION_ERROR;
7280: END IF;
7281:
7282: IF(l_return_status = OKL_API.G_RET_STS_SUCCESS AND l_eligible)
7283: THEN
7278: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
7279: RAISE OKL_API.G_EXCEPTION_ERROR;
7280: END IF;
7281:
7282: IF(l_return_status = OKL_API.G_RET_STS_SUCCESS AND l_eligible)
7283: THEN
7284: l_return_status := OKL_API.G_RET_STS_SUCCESS;
7285: ELSE
7286: l_return_status := OKL_API.G_RET_STS_ERROR;
7280: END IF;
7281:
7282: IF(l_return_status = OKL_API.G_RET_STS_SUCCESS AND l_eligible)
7283: THEN
7284: l_return_status := OKL_API.G_RET_STS_SUCCESS;
7285: ELSE
7286: l_return_status := OKL_API.G_RET_STS_ERROR;
7287: END IF;
7288:
7282: IF(l_return_status = OKL_API.G_RET_STS_SUCCESS AND l_eligible)
7283: THEN
7284: l_return_status := OKL_API.G_RET_STS_SUCCESS;
7285: ELSE
7286: l_return_status := OKL_API.G_RET_STS_ERROR;
7287: END IF;
7288:
7289: RETURN l_return_status;
7290: EXCEPTION
7287: END IF;
7288:
7289: RETURN l_return_status;
7290: EXCEPTION
7291: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7292: --Program Agreement Details Cursor
7293: IF pgm_agr_dtls_csr%ISOPEN
7294: THEN
7295: CLOSE pgm_agr_dtls_csr;
7293: IF pgm_agr_dtls_csr%ISOPEN
7294: THEN
7295: CLOSE pgm_agr_dtls_csr;
7296: END IF;
7297: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
7298: p_api_name => l_api_name,
7299: p_pkg_name => G_PKG_NAME,
7300: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
7301: x_msg_count => x_msg_count,
7296: END IF;
7297: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
7298: p_api_name => l_api_name,
7299: p_pkg_name => G_PKG_NAME,
7300: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
7301: x_msg_count => x_msg_count,
7302: x_msg_data => x_msg_data,
7303: p_api_type => G_API_TYPE);
7304:
7301: x_msg_count => x_msg_count,
7302: x_msg_data => x_msg_data,
7303: p_api_type => G_API_TYPE);
7304:
7305: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7306: --Program Agreement Details Cursor
7307: IF pgm_agr_dtls_csr%ISOPEN
7308: THEN
7309: CLOSE pgm_agr_dtls_csr;
7307: IF pgm_agr_dtls_csr%ISOPEN
7308: THEN
7309: CLOSE pgm_agr_dtls_csr;
7310: END IF;
7311: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
7312: p_api_name => l_api_name,
7313: p_pkg_name => G_PKG_NAME,
7314: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
7315: x_msg_count => x_msg_count,
7310: END IF;
7311: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
7312: p_api_name => l_api_name,
7313: p_pkg_name => G_PKG_NAME,
7314: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
7315: x_msg_count => x_msg_count,
7316: x_msg_data => x_msg_data,
7317: p_api_type => G_API_TYPE);
7318:
7321: IF pgm_agr_dtls_csr%ISOPEN
7322: THEN
7323: CLOSE pgm_agr_dtls_csr;
7324: END IF;
7325: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
7326: p_api_name => l_api_name,
7327: p_pkg_name => G_PKG_NAME,
7328: p_exc_name => 'OTHERS',
7329: x_msg_count => x_msg_count,
7372: AND LATV.ID = cp_lat_id;
7373: lat_dtls_rec lat_dtls_csr%ROWTYPE;
7374:
7375: BEGIN
7376: l_return_status := OKL_API.G_RET_STS_ERROR;
7377: l_eligible := false;
7378: L_MODULE := 'OKL.PLSQL.OKL_LEASE_APP_PVT.IS_VALID_LEASEAPP_TEMPLATE';
7379:
7380: -- check for logging on PROCEDURE level
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
7389: OPEN lat_dtls_csr(p_lat_id);
7390: FETCH lat_dtls_csr INTO lat_dtls_rec;
7391: CLOSE lat_dtls_csr;
7395: l_okl_ec_rec.source_name := lat_dtls_rec.lat_number;
7396: END IF;
7397:
7398: IF(p_lap_id IS NOT NULL
7399: AND p_lap_id <> OKL_API.G_MISS_NUM)
7400: THEN
7401: --Populate the EC rec
7402: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
7403: THEN
7408: END IF;
7409:
7410: POPULATE_EC_REC(
7411: p_api_version => l_api_version
7412: ,p_init_msg_list => OKL_API.G_FALSE
7413: ,p_lap_id => p_lap_id
7414: ,x_return_status => l_return_status
7415: ,x_msg_count => x_msg_count
7416: ,x_msg_data => x_msg_data
7431: ,L_MODULE || ' Result of POPULATE_EC_REC'
7432: ,'l_return_status ' || l_return_status);
7433: END IF; -- end of statement level debug
7434:
7435: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
7436: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7437: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
7438: RAISE OKL_API.G_EXCEPTION_ERROR;
7439: END IF;
7432: ,'l_return_status ' || l_return_status);
7433: END IF; -- end of statement level debug
7434:
7435: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
7436: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7437: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
7438: RAISE OKL_API.G_EXCEPTION_ERROR;
7439: END IF;
7440: ELSE
7433: END IF; -- end of statement level debug
7434:
7435: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
7436: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7437: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
7438: RAISE OKL_API.G_EXCEPTION_ERROR;
7439: END IF;
7440: ELSE
7441: l_okl_ec_rec.target_eff_from := p_eff_from;
7434:
7435: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
7436: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7437: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
7438: RAISE OKL_API.G_EXCEPTION_ERROR;
7439: END IF;
7440: ELSE
7441: l_okl_ec_rec.target_eff_from := p_eff_from;
7442: END IF;
7450: END IF;
7451:
7452: OKL_ECC_PUB.EVALUATE_ELIGIBILITY_CRITERIA(
7453: p_api_version => l_api_version
7454: ,p_init_msg_list => OKL_API.G_FALSE
7455: ,x_return_status => l_return_status
7456: ,x_msg_count => x_msg_count
7457: ,x_msg_data => x_msg_data
7458: ,p_okl_ec_rec => l_okl_ec_rec
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:
7477: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
7478: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7479: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
7480: RAISE OKL_API.G_EXCEPTION_ERROR;
7481: END IF;
7474: ,'l_return_status ' || l_return_status);
7475: END IF; -- end of statement level debug
7476:
7477: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
7478: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7479: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
7480: RAISE OKL_API.G_EXCEPTION_ERROR;
7481: END IF;
7482:
7475: END IF; -- end of statement level debug
7476:
7477: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
7478: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7479: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
7480: RAISE OKL_API.G_EXCEPTION_ERROR;
7481: END IF;
7482:
7483: IF(l_return_status = OKL_API.G_RET_STS_SUCCESS AND l_eligible)
7476:
7477: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
7478: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7479: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
7480: RAISE OKL_API.G_EXCEPTION_ERROR;
7481: END IF;
7482:
7483: IF(l_return_status = OKL_API.G_RET_STS_SUCCESS AND l_eligible)
7484: THEN
7479: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
7480: RAISE OKL_API.G_EXCEPTION_ERROR;
7481: END IF;
7482:
7483: IF(l_return_status = OKL_API.G_RET_STS_SUCCESS AND l_eligible)
7484: THEN
7485: l_return_status := OKL_API.G_RET_STS_SUCCESS;
7486: ELSE
7487: l_return_status := OKL_API.G_RET_STS_ERROR;
7481: END IF;
7482:
7483: IF(l_return_status = OKL_API.G_RET_STS_SUCCESS AND l_eligible)
7484: THEN
7485: l_return_status := OKL_API.G_RET_STS_SUCCESS;
7486: ELSE
7487: l_return_status := OKL_API.G_RET_STS_ERROR;
7488: END IF;
7489:
7483: IF(l_return_status = OKL_API.G_RET_STS_SUCCESS AND l_eligible)
7484: THEN
7485: l_return_status := OKL_API.G_RET_STS_SUCCESS;
7486: ELSE
7487: l_return_status := OKL_API.G_RET_STS_ERROR;
7488: END IF;
7489:
7490: RETURN l_return_status;
7491: EXCEPTION
7488: END IF;
7489:
7490: RETURN l_return_status;
7491: EXCEPTION
7492: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7493: --Lease Application Template Details Cursor
7494: IF lat_dtls_csr%ISOPEN
7495: THEN
7496: CLOSE lat_dtls_csr;
7494: IF lat_dtls_csr%ISOPEN
7495: THEN
7496: CLOSE lat_dtls_csr;
7497: END IF;
7498: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
7499: p_api_name => l_api_name,
7500: p_pkg_name => G_PKG_NAME,
7501: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
7502: x_msg_count => x_msg_count,
7497: END IF;
7498: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
7499: p_api_name => l_api_name,
7500: p_pkg_name => G_PKG_NAME,
7501: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
7502: x_msg_count => x_msg_count,
7503: x_msg_data => x_msg_data,
7504: p_api_type => G_API_TYPE);
7505:
7502: x_msg_count => x_msg_count,
7503: x_msg_data => x_msg_data,
7504: p_api_type => G_API_TYPE);
7505:
7506: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7507: --Lease Application Template Details Cursor
7508: IF lat_dtls_csr%ISOPEN
7509: THEN
7510: CLOSE lat_dtls_csr;
7508: IF lat_dtls_csr%ISOPEN
7509: THEN
7510: CLOSE lat_dtls_csr;
7511: END IF;
7512: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
7513: p_api_name => l_api_name,
7514: p_pkg_name => G_PKG_NAME,
7515: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
7516: x_msg_count => x_msg_count,
7511: END IF;
7512: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
7513: p_api_name => l_api_name,
7514: p_pkg_name => G_PKG_NAME,
7515: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
7516: x_msg_count => x_msg_count,
7517: x_msg_data => x_msg_data,
7518: p_api_type => G_API_TYPE);
7519:
7522: IF lat_dtls_csr%ISOPEN
7523: THEN
7524: CLOSE lat_dtls_csr;
7525: END IF;
7526: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
7527: p_api_name => l_api_name,
7528: p_pkg_name => G_PKG_NAME,
7529: p_exc_name => 'OTHERS',
7530: x_msg_count => x_msg_count,
7575: l_site_use_id := p_site_use_id;
7576:
7577: --Begin viselvar bug#4740946
7578: --Begin-varangan-bug#4723072-getting site level risk
7579: /*If (p_site_use_id IS NOT NULL AND p_site_use_id <> OKL_API.G_MISS_NUM) Then
7580: Begin
7581: select a.site_use_id site_use_id
7582: Into l_site_use_id
7583: from Hz_cust_site_uses a,
7593: End If;*/
7594: --End-varangan-bug#4723072-getting site level risk
7595: -- End viselvar Bug#4723072
7596:
7597: IF(l_party_id IS NULL OR l_party_id = OKL_API.G_MISS_NUM)
7598: THEN
7599: l_party_id := -99;
7600: END IF;
7601: IF(l_cust_acct_id IS NULL OR l_cust_acct_id = OKL_API.G_MISS_NUM)
7597: IF(l_party_id IS NULL OR l_party_id = OKL_API.G_MISS_NUM)
7598: THEN
7599: l_party_id := -99;
7600: END IF;
7601: IF(l_cust_acct_id IS NULL OR l_cust_acct_id = OKL_API.G_MISS_NUM)
7602: THEN
7603: l_cust_acct_id := -99;
7604: END IF;
7605: IF(l_site_use_id IS NULL OR l_site_use_id = OKL_API.G_MISS_NUM)
7601: IF(l_cust_acct_id IS NULL OR l_cust_acct_id = OKL_API.G_MISS_NUM)
7602: THEN
7603: l_cust_acct_id := -99;
7604: END IF;
7605: IF(l_site_use_id IS NULL OR l_site_use_id = OKL_API.G_MISS_NUM)
7606: THEN
7607: l_site_use_id := -99;
7608: END IF;
7609:
7676: AND LAP.ID = cp_lap_id;
7677: in_play_qte_dtls_rec in_play_qte_dtls_csr%ROWTYPE;
7678:
7679: BEGIN
7680: l_return_status := OKL_API.G_RET_STS_SUCCESS;
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');
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(
7692: p_api_name => l_api_name
7693: ,p_pkg_name => G_PKG_NAME
7694: ,p_init_msg_list => p_init_msg_list
7695: ,l_api_version => l_api_version
7697: ,p_api_type => G_API_TYPE
7698: ,x_return_status => l_return_status);
7699:
7700: -- check if activity started successfully
7701: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7702: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7703: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7704: RAISE OKL_API.G_EXCEPTION_ERROR;
7705: END IF;
7698: ,x_return_status => l_return_status);
7699:
7700: -- check if activity started successfully
7701: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7702: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7703: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7704: RAISE OKL_API.G_EXCEPTION_ERROR;
7705: END IF;
7706:
7699:
7700: -- check if activity started successfully
7701: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7702: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7703: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7704: RAISE OKL_API.G_EXCEPTION_ERROR;
7705: END IF;
7706:
7707: IF(p_lap_id IS NULL OR
7700: -- check if activity started successfully
7701: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7702: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7703: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7704: RAISE OKL_API.G_EXCEPTION_ERROR;
7705: END IF;
7706:
7707: IF(p_lap_id IS NULL OR
7708: p_lap_id = OKL_API.G_MISS_NUM)
7704: RAISE OKL_API.G_EXCEPTION_ERROR;
7705: END IF;
7706:
7707: IF(p_lap_id IS NULL OR
7708: p_lap_id = OKL_API.G_MISS_NUM)
7709: THEN
7710: l_return_status := OKL_API.G_RET_STS_ERROR;
7711: OKL_API.SET_MESSAGE(
7712: p_app_name => G_APP_NAME,
7706:
7707: IF(p_lap_id IS NULL OR
7708: p_lap_id = OKL_API.G_MISS_NUM)
7709: THEN
7710: l_return_status := OKL_API.G_RET_STS_ERROR;
7711: OKL_API.SET_MESSAGE(
7712: p_app_name => G_APP_NAME,
7713: p_msg_name => 'OKL_SO_LSE_APP_INVALID');
7714: RAISE OKL_API.G_EXCEPTION_ERROR;
7707: IF(p_lap_id IS NULL OR
7708: p_lap_id = OKL_API.G_MISS_NUM)
7709: THEN
7710: l_return_status := OKL_API.G_RET_STS_ERROR;
7711: OKL_API.SET_MESSAGE(
7712: p_app_name => G_APP_NAME,
7713: p_msg_name => 'OKL_SO_LSE_APP_INVALID');
7714: RAISE OKL_API.G_EXCEPTION_ERROR;
7715: END IF;
7710: l_return_status := OKL_API.G_RET_STS_ERROR;
7711: OKL_API.SET_MESSAGE(
7712: p_app_name => G_APP_NAME,
7713: p_msg_name => 'OKL_SO_LSE_APP_INVALID');
7714: RAISE OKL_API.G_EXCEPTION_ERROR;
7715: END IF;
7716:
7717: OPEN in_play_qte_dtls_csr(p_lap_id);
7718: FETCH in_play_qte_dtls_csr INTO in_play_qte_dtls_rec;
7717: OPEN in_play_qte_dtls_csr(p_lap_id);
7718: FETCH in_play_qte_dtls_csr INTO in_play_qte_dtls_rec;
7719: IF in_play_qte_dtls_csr%NOTFOUND
7720: THEN
7721: l_return_status := OKL_API.G_RET_STS_ERROR;
7722: OKL_API.SET_MESSAGE(
7723: p_app_name => G_APP_NAME,
7724: p_msg_name => 'OKL_SO_LSE_APP_INVALID');
7725: RAISE OKL_API.G_EXCEPTION_ERROR;
7718: FETCH in_play_qte_dtls_csr INTO in_play_qte_dtls_rec;
7719: IF in_play_qte_dtls_csr%NOTFOUND
7720: THEN
7721: l_return_status := OKL_API.G_RET_STS_ERROR;
7722: OKL_API.SET_MESSAGE(
7723: p_app_name => G_APP_NAME,
7724: p_msg_name => 'OKL_SO_LSE_APP_INVALID');
7725: RAISE OKL_API.G_EXCEPTION_ERROR;
7726: END IF;
7721: l_return_status := OKL_API.G_RET_STS_ERROR;
7722: OKL_API.SET_MESSAGE(
7723: p_app_name => G_APP_NAME,
7724: p_msg_name => 'OKL_SO_LSE_APP_INVALID');
7725: RAISE OKL_API.G_EXCEPTION_ERROR;
7726: END IF;
7727: CLOSE in_play_qte_dtls_csr;
7728: IF in_play_qte_dtls_rec.lap_status IN ('CR-REJECTED', 'CR-APPROVED', 'RECOM_NOT_APPROVED')
7729: THEN --[1]
7741:
7742: -- call the procedure to create lease quote line
7743: OKL_LEASE_QUOTE_PVT.UPDATE_LEASE_QTE(
7744: p_api_version => p_api_version
7745: ,p_init_msg_list => OKL_API.G_FALSE
7746: ,p_transaction_control => OKL_API.G_TRUE
7747: ,p_lease_qte_rec => l_lsqv_rec
7748: ,x_lease_qte_rec => x_lsqv_rec
7749: ,x_return_status => l_return_status
7742: -- call the procedure to create lease quote line
7743: OKL_LEASE_QUOTE_PVT.UPDATE_LEASE_QTE(
7744: p_api_version => p_api_version
7745: ,p_init_msg_list => OKL_API.G_FALSE
7746: ,p_transaction_control => OKL_API.G_TRUE
7747: ,p_lease_qte_rec => l_lsqv_rec
7748: ,x_lease_qte_rec => x_lsqv_rec
7749: ,x_return_status => l_return_status
7750: ,x_msg_count => x_msg_count
7768: ' result status ' || l_return_status ||
7769: ' x_msg_data ' || x_msg_data);
7770: END IF; -- end of statement level debug
7771:
7772: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
7773: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7774: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
7775: RAISE OKL_API.G_EXCEPTION_ERROR;
7776: END IF;
7769: ' x_msg_data ' || x_msg_data);
7770: END IF; -- end of statement level debug
7771:
7772: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
7773: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7774: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
7775: RAISE OKL_API.G_EXCEPTION_ERROR;
7776: END IF;
7777:
7770: END IF; -- end of statement level debug
7771:
7772: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
7773: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7774: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
7775: RAISE OKL_API.G_EXCEPTION_ERROR;
7776: END IF;
7777:
7778: --Update counter offer
7771:
7772: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
7773: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7774: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
7775: RAISE OKL_API.G_EXCEPTION_ERROR;
7776: END IF;
7777:
7778: --Update counter offer
7779: l_lsqv_rec.id := p_cntr_offr;
7789:
7790: -- call the procedure to create lease quote line
7791: OKL_LEASE_QUOTE_PVT.UPDATE_LEASE_QTE(
7792: p_api_version => p_api_version
7793: ,p_init_msg_list => OKL_API.G_FALSE
7794: ,p_transaction_control => OKL_API.G_TRUE
7795: ,p_lease_qte_rec => l_lsqv_rec
7796: ,x_lease_qte_rec => x_lsqv_rec
7797: ,x_return_status => l_return_status
7790: -- call the procedure to create lease quote line
7791: OKL_LEASE_QUOTE_PVT.UPDATE_LEASE_QTE(
7792: p_api_version => p_api_version
7793: ,p_init_msg_list => OKL_API.G_FALSE
7794: ,p_transaction_control => OKL_API.G_TRUE
7795: ,p_lease_qte_rec => l_lsqv_rec
7796: ,x_lease_qte_rec => x_lsqv_rec
7797: ,x_return_status => l_return_status
7798: ,x_msg_count => x_msg_count
7816: ' result status ' || l_return_status ||
7817: ' x_msg_data ' || x_msg_data);
7818: END IF; -- end of statement level debug
7819:
7820: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
7821: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7822: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
7823: RAISE OKL_API.G_EXCEPTION_ERROR;
7824: END IF;
7817: ' x_msg_data ' || x_msg_data);
7818: END IF; -- end of statement level debug
7819:
7820: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
7821: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7822: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
7823: RAISE OKL_API.G_EXCEPTION_ERROR;
7824: END IF;
7825: -- Bug#4741121 - viselvar - Modified - Start
7818: END IF; -- end of statement level debug
7819:
7820: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
7821: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7822: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
7823: RAISE OKL_API.G_EXCEPTION_ERROR;
7824: END IF;
7825: -- Bug#4741121 - viselvar - Modified - Start
7826: -- raise the business event passing the Lease Application id added to the parameter list
7819:
7820: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
7821: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7822: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
7823: RAISE OKL_API.G_EXCEPTION_ERROR;
7824: END IF;
7825: -- Bug#4741121 - viselvar - Modified - Start
7826: -- raise the business event passing the Lease Application id added to the parameter list
7827:
7837: ,p_event_name => p_event_name
7838: ,p_parameters => l_parameter_list);
7839:
7840:
7841: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
7842: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7843: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
7844: RAISE OKL_API.G_EXCEPTION_ERROR;
7845: END IF;
7838: ,p_parameters => l_parameter_list);
7839:
7840:
7841: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
7842: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7843: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
7844: RAISE OKL_API.G_EXCEPTION_ERROR;
7845: END IF;
7846: -- Bug#4741121 - viselvar - Modified - End
7839:
7840:
7841: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
7842: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7843: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
7844: RAISE OKL_API.G_EXCEPTION_ERROR;
7845: END IF;
7846: -- Bug#4741121 - viselvar - Modified - End
7847: x_lapv_rec := l_lapv_rec;
7840:
7841: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
7842: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7843: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
7844: RAISE OKL_API.G_EXCEPTION_ERROR;
7845: END IF;
7846: -- Bug#4741121 - viselvar - Modified - End
7847: x_lapv_rec := l_lapv_rec;
7848: ELSE
7847: x_lapv_rec := l_lapv_rec;
7848: ELSE
7849: -- Accept counter offer is applicable only for CR-ACCEPTED or CR-REJECTED
7850: -- RECOM_NOT_APPROVED Lease Applications only
7851: l_return_status := OKL_API.G_RET_STS_ERROR;
7852: OKL_API.SET_MESSAGE(
7853: p_app_name => G_APP_NAME,
7854: p_msg_name => 'OKL_SO_ALT_OFFER_ACC_ERR',
7855: p_token1 => 'TEXT',
7848: ELSE
7849: -- Accept counter offer is applicable only for CR-ACCEPTED or CR-REJECTED
7850: -- RECOM_NOT_APPROVED Lease Applications only
7851: l_return_status := OKL_API.G_RET_STS_ERROR;
7852: OKL_API.SET_MESSAGE(
7853: p_app_name => G_APP_NAME,
7854: p_msg_name => 'OKL_SO_ALT_OFFER_ACC_ERR',
7855: p_token1 => 'TEXT',
7856: p_token1_value => in_play_qte_dtls_rec.lap_number,
7855: p_token1 => 'TEXT',
7856: p_token1_value => in_play_qte_dtls_rec.lap_number,
7857: p_token2 => 'STATUS',
7858: p_token2_value => in_play_qte_dtls_rec.lap_status);
7859: RAISE OKL_API.G_EXCEPTION_ERROR;
7860: END IF; -- [1]
7861:
7862: x_return_status := l_return_status;
7863: OKL_API.END_ACTIVITY(
7859: RAISE OKL_API.G_EXCEPTION_ERROR;
7860: END IF; -- [1]
7861:
7862: x_return_status := l_return_status;
7863: OKL_API.END_ACTIVITY(
7864: x_msg_count => x_msg_count
7865: ,x_msg_data => x_msg_data);
7866: EXCEPTION
7867: WHEN OKL_API.G_EXCEPTION_ERROR
7863: OKL_API.END_ACTIVITY(
7864: x_msg_count => x_msg_count
7865: ,x_msg_data => x_msg_data);
7866: EXCEPTION
7867: WHEN OKL_API.G_EXCEPTION_ERROR
7868: THEN
7869: IF in_play_qte_dtls_csr%ISOPEN
7870: THEN
7871: CLOSE in_play_qte_dtls_csr;
7869: IF in_play_qte_dtls_csr%ISOPEN
7870: THEN
7871: CLOSE in_play_qte_dtls_csr;
7872: END IF;
7873: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7874: p_api_name => l_api_name,
7875: p_pkg_name => G_PKG_NAME,
7876: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
7877: x_msg_count => x_msg_count,
7872: END IF;
7873: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7874: p_api_name => l_api_name,
7875: p_pkg_name => G_PKG_NAME,
7876: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
7877: x_msg_count => x_msg_count,
7878: x_msg_data => x_msg_data,
7879: p_api_type => G_API_TYPE);
7880:
7877: x_msg_count => x_msg_count,
7878: x_msg_data => x_msg_data,
7879: p_api_type => G_API_TYPE);
7880:
7881: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
7882: THEN
7883: IF in_play_qte_dtls_csr%ISOPEN
7884: THEN
7885: CLOSE in_play_qte_dtls_csr;
7883: IF in_play_qte_dtls_csr%ISOPEN
7884: THEN
7885: CLOSE in_play_qte_dtls_csr;
7886: END IF;
7887: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7888: p_api_name => l_api_name,
7889: p_pkg_name => G_PKG_NAME,
7890: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
7891: x_msg_count => x_msg_count,
7886: END IF;
7887: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7888: p_api_name => l_api_name,
7889: p_pkg_name => G_PKG_NAME,
7890: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
7891: x_msg_count => x_msg_count,
7892: x_msg_data => x_msg_data,
7893: p_api_type => G_API_TYPE);
7894:
7897: IF in_play_qte_dtls_csr%ISOPEN
7898: THEN
7899: CLOSE in_play_qte_dtls_csr;
7900: END IF;
7901: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7902: p_api_name => l_api_name,
7903: p_pkg_name => G_PKG_NAME,
7904: p_exc_name => 'OTHERS',
7905: x_msg_count => x_msg_count,
7947: WHERE LAB.ID = cp_lap_id;
7948: lap_db_val_rec lap_db_val_csr%ROWTYPE;
7949:
7950: BEGIN
7951: l_return_status := OKL_API.G_RET_STS_SUCCESS;
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');
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(
7963: p_api_name => l_api_name
7964: ,p_pkg_name => G_PKG_NAME
7965: ,p_init_msg_list => p_init_msg_list
7966: ,l_api_version => l_api_version
7968: ,p_api_type => G_API_TYPE
7969: ,x_return_status => l_return_status);
7970:
7971: -- check if activity started successfully
7972: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7973: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7974: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7975: RAISE OKL_API.G_EXCEPTION_ERROR;
7976: END IF;
7969: ,x_return_status => l_return_status);
7970:
7971: -- check if activity started successfully
7972: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7973: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7974: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7975: RAISE OKL_API.G_EXCEPTION_ERROR;
7976: END IF;
7977:
7970:
7971: -- check if activity started successfully
7972: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7973: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7974: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7975: RAISE OKL_API.G_EXCEPTION_ERROR;
7976: END IF;
7977:
7978: --Populate lease application rec with database values
7971: -- check if activity started successfully
7972: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7973: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7974: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
7975: RAISE OKL_API.G_EXCEPTION_ERROR;
7976: END IF;
7977:
7978: --Populate lease application rec with database values
7979: IF(p_leaseapp_id IS NOT NULL OR
7976: END IF;
7977:
7978: --Populate lease application rec with database values
7979: IF(p_leaseapp_id IS NOT NULL OR
7980: p_leaseapp_id <> OKL_API.G_MISS_NUM)
7981: THEN
7982: OPEN lap_db_val_csr(p_leaseapp_id);
7983: FETCH lap_db_val_csr INTO lap_db_val_rec;
7984: IF(lap_db_val_csr%NOTFOUND)
7982: OPEN lap_db_val_csr(p_leaseapp_id);
7983: FETCH lap_db_val_csr INTO lap_db_val_rec;
7984: IF(lap_db_val_csr%NOTFOUND)
7985: THEN
7986: l_return_status := OKL_API.G_RET_STS_ERROR;
7987: OKL_API.SET_MESSAGE(
7988: p_app_name => G_APP_NAME,
7989: p_msg_name => 'OKL_SO_LSE_APP_INVALID');
7990: RAISE OKL_API.G_EXCEPTION_ERROR;
7983: FETCH lap_db_val_csr INTO lap_db_val_rec;
7984: IF(lap_db_val_csr%NOTFOUND)
7985: THEN
7986: l_return_status := OKL_API.G_RET_STS_ERROR;
7987: OKL_API.SET_MESSAGE(
7988: p_app_name => G_APP_NAME,
7989: p_msg_name => 'OKL_SO_LSE_APP_INVALID');
7990: RAISE OKL_API.G_EXCEPTION_ERROR;
7991: ELSIF(lap_db_val_rec.application_status <> 'CONV-K')
7986: l_return_status := OKL_API.G_RET_STS_ERROR;
7987: OKL_API.SET_MESSAGE(
7988: p_app_name => G_APP_NAME,
7989: p_msg_name => 'OKL_SO_LSE_APP_INVALID');
7990: RAISE OKL_API.G_EXCEPTION_ERROR;
7991: ELSIF(lap_db_val_rec.application_status <> 'CONV-K')
7992: THEN
7993: --Lease Application not in status CONV-K, can not be reverted
7994: l_return_status := OKL_API.G_RET_STS_ERROR;
7990: RAISE OKL_API.G_EXCEPTION_ERROR;
7991: ELSIF(lap_db_val_rec.application_status <> 'CONV-K')
7992: THEN
7993: --Lease Application not in status CONV-K, can not be reverted
7994: l_return_status := OKL_API.G_RET_STS_ERROR;
7995: l_meaning := get_lookup_meaning('OKL_LEASE_APP_STATUS' ,'CONV-K');
7996: OKL_API.SET_MESSAGE(
7997: p_app_name => G_APP_NAME,
7998: p_msg_name => 'OKL_SO_LSE_APP_INVALID_STS',
7992: THEN
7993: --Lease Application not in status CONV-K, can not be reverted
7994: l_return_status := OKL_API.G_RET_STS_ERROR;
7995: l_meaning := get_lookup_meaning('OKL_LEASE_APP_STATUS' ,'CONV-K');
7996: OKL_API.SET_MESSAGE(
7997: p_app_name => G_APP_NAME,
7998: p_msg_name => 'OKL_SO_LSE_APP_INVALID_STS',
7999: p_token1 => 'TEXT',
8000: p_token1_value => lap_db_val_rec.lease_appl_number,
7999: p_token1 => 'TEXT',
8000: p_token1_value => lap_db_val_rec.lease_appl_number,
8001: p_token2 => 'STATUS',
8002: p_token2_value => l_meaning);
8003: RAISE OKL_API.G_EXCEPTION_ERROR;
8004: END IF;
8005: CLOSE lap_db_val_csr;
8006: ELSE
8007: l_return_status := OKL_API.G_RET_STS_ERROR;
8003: RAISE OKL_API.G_EXCEPTION_ERROR;
8004: END IF;
8005: CLOSE lap_db_val_csr;
8006: ELSE
8007: l_return_status := OKL_API.G_RET_STS_ERROR;
8008: OKL_API.SET_MESSAGE(
8009: p_app_name => G_APP_NAME,
8010: p_msg_name => 'OKL_SO_LSE_APP_INVALID');
8011: RAISE OKL_API.G_EXCEPTION_ERROR;
8004: END IF;
8005: CLOSE lap_db_val_csr;
8006: ELSE
8007: l_return_status := OKL_API.G_RET_STS_ERROR;
8008: OKL_API.SET_MESSAGE(
8009: p_app_name => G_APP_NAME,
8010: p_msg_name => 'OKL_SO_LSE_APP_INVALID');
8011: RAISE OKL_API.G_EXCEPTION_ERROR;
8012: END IF; --Lease Application Id is null or G_MISS_NUM
8007: l_return_status := OKL_API.G_RET_STS_ERROR;
8008: OKL_API.SET_MESSAGE(
8009: p_app_name => G_APP_NAME,
8010: p_msg_name => 'OKL_SO_LSE_APP_INVALID');
8011: RAISE OKL_API.G_EXCEPTION_ERROR;
8012: END IF; --Lease Application Id is null or G_MISS_NUM
8013:
8014: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
8015: THEN
8021:
8022: -- call the procedure to update a lease application status
8023: SET_LEASE_APP_STATUS(
8024: p_api_version => p_api_version
8025: ,p_init_msg_list => OKL_API.G_FALSE
8026: ,p_lap_id => p_leaseapp_id
8027: ,p_lap_status => 'CR-APPROVED'
8028: ,x_return_status => l_return_status
8029: ,x_msg_count => x_msg_count
8045: ,'return status ' || l_return_status ||
8046: ' x_msg_data ' || x_msg_data);
8047: END IF; -- end of statement level debug
8048:
8049: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
8050: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8051: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
8052: RAISE OKL_API.G_EXCEPTION_ERROR;
8053: END IF;
8046: ' x_msg_data ' || x_msg_data);
8047: END IF; -- end of statement level debug
8048:
8049: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
8050: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8051: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
8052: RAISE OKL_API.G_EXCEPTION_ERROR;
8053: END IF;
8054:
8047: END IF; -- end of statement level debug
8048:
8049: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
8050: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8051: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
8052: RAISE OKL_API.G_EXCEPTION_ERROR;
8053: END IF;
8054:
8055: x_return_status := l_return_status;
8048:
8049: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
8050: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8051: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
8052: RAISE OKL_API.G_EXCEPTION_ERROR;
8053: END IF;
8054:
8055: x_return_status := l_return_status;
8056:
8053: END IF;
8054:
8055: x_return_status := l_return_status;
8056:
8057: OKL_API.END_ACTIVITY(
8058: x_msg_count => x_msg_count
8059: ,x_msg_data => x_msg_data);
8060: EXCEPTION
8061: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8057: OKL_API.END_ACTIVITY(
8058: x_msg_count => x_msg_count
8059: ,x_msg_data => x_msg_data);
8060: EXCEPTION
8061: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8062: --Lease Application Details Cusrsor
8063: IF lap_db_val_csr%ISOPEN
8064: THEN
8065: CLOSE lap_db_val_csr;
8063: IF lap_db_val_csr%ISOPEN
8064: THEN
8065: CLOSE lap_db_val_csr;
8066: END IF;
8067: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8068: p_api_name => l_api_name,
8069: p_pkg_name => G_PKG_NAME,
8070: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
8071: x_msg_count => x_msg_count,
8066: END IF;
8067: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8068: p_api_name => l_api_name,
8069: p_pkg_name => G_PKG_NAME,
8070: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
8071: x_msg_count => x_msg_count,
8072: x_msg_data => x_msg_data,
8073: p_api_type => G_API_TYPE);
8074:
8071: x_msg_count => x_msg_count,
8072: x_msg_data => x_msg_data,
8073: p_api_type => G_API_TYPE);
8074:
8075: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8076: --Lease Application Details Cusrsor
8077: IF lap_db_val_csr%ISOPEN
8078: THEN
8079: CLOSE lap_db_val_csr;
8077: IF lap_db_val_csr%ISOPEN
8078: THEN
8079: CLOSE lap_db_val_csr;
8080: END IF;
8081: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8082: p_api_name => l_api_name,
8083: p_pkg_name => G_PKG_NAME,
8084: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
8085: x_msg_count => x_msg_count,
8080: END IF;
8081: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8082: p_api_name => l_api_name,
8083: p_pkg_name => G_PKG_NAME,
8084: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
8085: x_msg_count => x_msg_count,
8086: x_msg_data => x_msg_data,
8087: p_api_type => G_API_TYPE);
8088:
8091: IF lap_db_val_csr%ISOPEN
8092: THEN
8093: CLOSE lap_db_val_csr;
8094: END IF;
8095: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8096: p_api_name => l_api_name,
8097: p_pkg_name => G_PKG_NAME,
8098: p_exc_name => 'OTHERS',
8099: x_msg_count => x_msg_count,
8178: AND CCRM.CREDIT_RECOMMENDATION = 'COUNTER_OFFER'
8179: AND CCR.SOURCE_COLUMN1 = cp_lap_id
8180: AND CCRM.RECOMMENDATION_VALUE1 = cp_co_id;
8181: BEGIN
8182: l_return_status := OKL_API.G_RET_STS_SUCCESS;
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');
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(
8194: p_api_name => l_api_name
8195: ,p_pkg_name => G_PKG_NAME
8196: ,p_init_msg_list => p_init_msg_list
8197: ,l_api_version => l_api_version
8199: ,p_api_type => G_API_TYPE
8200: ,x_return_status => l_return_status);
8201:
8202: -- check if activity started successfully
8203: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8204: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8205: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
8206: RAISE OKL_API.G_EXCEPTION_ERROR;
8207: END IF;
8200: ,x_return_status => l_return_status);
8201:
8202: -- check if activity started successfully
8203: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8204: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8205: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
8206: RAISE OKL_API.G_EXCEPTION_ERROR;
8207: END IF;
8208:
8201:
8202: -- check if activity started successfully
8203: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8204: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8205: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
8206: RAISE OKL_API.G_EXCEPTION_ERROR;
8207: END IF;
8208:
8209: --Logic for the procedures goes here
8202: -- check if activity started successfully
8203: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8204: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8205: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
8206: RAISE OKL_API.G_EXCEPTION_ERROR;
8207: END IF;
8208:
8209: --Logic for the procedures goes here
8210: l_leaseapp_id := p_leaseapp_id;
8219: CLOSE credit_recom_csr;
8220: l_recom_count := l_approve_count + l_reject_count;
8221: IF(l_recom_count > 1) --changed from <> to > for bug 6945703
8222: THEN
8223: l_return_status := OKL_API.G_RET_STS_ERROR;
8224: OKL_API.SET_MESSAGE(
8225: p_app_name => G_APP_NAME,
8226: p_msg_name => 'OKL_SO_LSE_APP_CRE_REC_ERR');
8227: RAISE OKL_API.G_EXCEPTION_ERROR;
8220: l_recom_count := l_approve_count + l_reject_count;
8221: IF(l_recom_count > 1) --changed from <> to > for bug 6945703
8222: THEN
8223: l_return_status := OKL_API.G_RET_STS_ERROR;
8224: OKL_API.SET_MESSAGE(
8225: p_app_name => G_APP_NAME,
8226: p_msg_name => 'OKL_SO_LSE_APP_CRE_REC_ERR');
8227: RAISE OKL_API.G_EXCEPTION_ERROR;
8228: END IF;
8223: l_return_status := OKL_API.G_RET_STS_ERROR;
8224: OKL_API.SET_MESSAGE(
8225: p_app_name => G_APP_NAME,
8226: p_msg_name => 'OKL_SO_LSE_APP_CRE_REC_ERR');
8227: RAISE OKL_API.G_EXCEPTION_ERROR;
8228: END IF;
8229:
8230: OPEN credit_recom_csr(l_leaseapp_id, 'CHECKLIST');
8231: FETCH credit_recom_csr INTO l_recom_count;
8231: FETCH credit_recom_csr INTO l_recom_count;
8232: CLOSE credit_recom_csr;
8233: IF(l_recom_count > 1)
8234: THEN
8235: l_return_status := OKL_API.G_RET_STS_ERROR;
8236: l_recom_mean := get_lookup_meaning('OKL_CR_MGMT_RECOMMENDATION', 'CHECKLIST');
8237: OKL_API.SET_MESSAGE(
8238: p_app_name => G_APP_NAME,
8239: p_msg_name => 'OKL_SO_LSE_APP_MUL_RECOM',
8233: IF(l_recom_count > 1)
8234: THEN
8235: l_return_status := OKL_API.G_RET_STS_ERROR;
8236: l_recom_mean := get_lookup_meaning('OKL_CR_MGMT_RECOMMENDATION', 'CHECKLIST');
8237: OKL_API.SET_MESSAGE(
8238: p_app_name => G_APP_NAME,
8239: p_msg_name => 'OKL_SO_LSE_APP_MUL_RECOM',
8240: p_token1 => 'TEXT',
8241: p_token1_value => l_recom_mean);
8238: p_app_name => G_APP_NAME,
8239: p_msg_name => 'OKL_SO_LSE_APP_MUL_RECOM',
8240: p_token1 => 'TEXT',
8241: p_token1_value => l_recom_mean);
8242: RAISE OKL_API.G_EXCEPTION_ERROR;
8243: END IF;
8244:
8245: OPEN credit_recom_csr(l_leaseapp_id, 'EXPIRATION_DATE');
8246: FETCH credit_recom_csr INTO l_recom_count;
8246: FETCH credit_recom_csr INTO l_recom_count;
8247: CLOSE credit_recom_csr;
8248: IF(l_recom_count > 1)
8249: THEN
8250: l_return_status := OKL_API.G_RET_STS_ERROR;
8251: l_recom_mean := get_lookup_meaning('OKL_CR_MGMT_RECOMMENDATION', 'EXPIRATION_DATE');
8252: OKL_API.SET_MESSAGE(
8253: p_app_name => G_APP_NAME,
8254: p_msg_name => 'OKL_SO_LSE_APP_MUL_RECOM',
8248: IF(l_recom_count > 1)
8249: THEN
8250: l_return_status := OKL_API.G_RET_STS_ERROR;
8251: l_recom_mean := get_lookup_meaning('OKL_CR_MGMT_RECOMMENDATION', 'EXPIRATION_DATE');
8252: OKL_API.SET_MESSAGE(
8253: p_app_name => G_APP_NAME,
8254: p_msg_name => 'OKL_SO_LSE_APP_MUL_RECOM',
8255: p_token1 => 'TEXT',
8256: p_token1_value => l_recom_mean);
8253: p_app_name => G_APP_NAME,
8254: p_msg_name => 'OKL_SO_LSE_APP_MUL_RECOM',
8255: p_token1 => 'TEXT',
8256: p_token1_value => l_recom_mean);
8257: RAISE OKL_API.G_EXCEPTION_ERROR;
8258: ELSIF(l_recom_count = 0)
8259: THEN
8260: --If there is no recommendation for Expiration Days then set the expiration
8261: --days value as NULL
8268: END IF;
8269:
8270: SET_LEASE_APP_EXPDAYS(
8271: p_api_version => p_api_version
8272: ,p_init_msg_list => OKL_API.G_FALSE
8273: ,p_lap_id => l_leaseapp_id
8274: ,p_lap_expdays => NULL
8275: ,x_return_status => l_return_status
8276: ,x_msg_count => x_msg_count
8291: ,L_MODULE || ' Result of SET_LEASE_APP_EXPDAYS'
8292: ,'return status ' || l_return_status);
8293: END IF; -- end of statement level debug
8294:
8295: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
8296: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8297: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
8298: RAISE OKL_API.G_EXCEPTION_ERROR;
8299: END IF;
8292: ,'return status ' || l_return_status);
8293: END IF; -- end of statement level debug
8294:
8295: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
8296: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8297: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
8298: RAISE OKL_API.G_EXCEPTION_ERROR;
8299: END IF;
8300: END IF;--For Expiration Date recommendation check
8293: END IF; -- end of statement level debug
8294:
8295: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
8296: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8297: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
8298: RAISE OKL_API.G_EXCEPTION_ERROR;
8299: END IF;
8300: END IF;--For Expiration Date recommendation check
8301:
8294:
8295: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
8296: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8297: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
8298: RAISE OKL_API.G_EXCEPTION_ERROR;
8299: END IF;
8300: END IF;--For Expiration Date recommendation check
8301:
8302: --BUG 4931146 PAGARG Loop through the Counter Offers linked to given Lease App
8325:
8326: -- call the procedure to update lease quote
8327: OKL_LSQ_PVT.UPDATE_ROW(
8328: p_api_version => p_api_version
8329: ,p_init_msg_list => OKL_API.G_FALSE
8330: ,p_lsqv_rec => l_lsqv_rec
8331: ,x_lsqv_rec => x_lsqv_rec
8332: ,x_return_status => l_return_status
8333: ,x_msg_count => x_msg_count
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
8352:
8353: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
8354: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8355: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
8356: RAISE OKL_API.G_EXCEPTION_ERROR;
8357: END IF;
8350: ' result status ' || l_return_status);
8351: END IF; -- end of statement level debug
8352:
8353: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
8354: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8355: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
8356: RAISE OKL_API.G_EXCEPTION_ERROR;
8357: END IF;
8358: ELSE
8351: END IF; -- end of statement level debug
8352:
8353: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
8354: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8355: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
8356: RAISE OKL_API.G_EXCEPTION_ERROR;
8357: END IF;
8358: ELSE
8359: --If Counter offer is found as recommendation in OCM then validate
8352:
8353: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
8354: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8355: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
8356: RAISE OKL_API.G_EXCEPTION_ERROR;
8357: END IF;
8358: ELSE
8359: --If Counter offer is found as recommendation in OCM then validate
8360: --whether pricing is completed for Counter Offer or not
8359: --If Counter offer is found as recommendation in OCM then validate
8360: --whether pricing is completed for Counter Offer or not
8361: IF(okl_counter_offer_rec.status = 'CR-INCOMPLETE')
8362: THEN
8363: l_return_status := OKL_API.G_RET_STS_ERROR;
8364: OKL_API.SET_MESSAGE(
8365: p_app_name => G_APP_NAME,
8366: p_msg_name => 'OKL_SO_LSE_APP_COUN_OFFER_ERR',
8367: p_token1 => 'TEXT',
8360: --whether pricing is completed for Counter Offer or not
8361: IF(okl_counter_offer_rec.status = 'CR-INCOMPLETE')
8362: THEN
8363: l_return_status := OKL_API.G_RET_STS_ERROR;
8364: OKL_API.SET_MESSAGE(
8365: p_app_name => G_APP_NAME,
8366: p_msg_name => 'OKL_SO_LSE_APP_COUN_OFFER_ERR',
8367: p_token1 => 'TEXT',
8368: p_token1_value => okl_counter_offer_rec.reference_number);
8365: p_app_name => G_APP_NAME,
8366: p_msg_name => 'OKL_SO_LSE_APP_COUN_OFFER_ERR',
8367: p_token1 => 'TEXT',
8368: p_token1_value => okl_counter_offer_rec.reference_number);
8369: RAISE OKL_API.G_EXCEPTION_ERROR;
8370: END IF;
8371: END IF;--For counter offer not found as credit recommendations in OCM
8372: CLOSE ocm_counter_offer_csr;
8373: END LOOP;
8373: END LOOP;
8374: --BUG 4931146 PAGARG Fix End
8375:
8376: x_return_status := l_return_status;
8377: OKL_API.END_ACTIVITY(
8378: x_msg_count => x_msg_count
8379: ,x_msg_data => x_msg_data);
8380: EXCEPTION
8381: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8377: OKL_API.END_ACTIVITY(
8378: x_msg_count => x_msg_count
8379: ,x_msg_data => x_msg_data);
8380: EXCEPTION
8381: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8382: --Credit Recommendations Cursor
8383: IF credit_recom_csr%ISOPEN
8384: THEN
8385: CLOSE credit_recom_csr;
8383: IF credit_recom_csr%ISOPEN
8384: THEN
8385: CLOSE credit_recom_csr;
8386: END IF;
8387: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8388: p_api_name => l_api_name,
8389: p_pkg_name => G_PKG_NAME,
8390: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
8391: x_msg_count => x_msg_count,
8386: END IF;
8387: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8388: p_api_name => l_api_name,
8389: p_pkg_name => G_PKG_NAME,
8390: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
8391: x_msg_count => x_msg_count,
8392: x_msg_data => x_msg_data,
8393: p_api_type => G_API_TYPE);
8394:
8391: x_msg_count => x_msg_count,
8392: x_msg_data => x_msg_data,
8393: p_api_type => G_API_TYPE);
8394:
8395: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8396: --Credit Recommendations Cursor
8397: IF credit_recom_csr%ISOPEN
8398: THEN
8399: CLOSE credit_recom_csr;
8397: IF credit_recom_csr%ISOPEN
8398: THEN
8399: CLOSE credit_recom_csr;
8400: END IF;
8401: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8402: p_api_name => l_api_name,
8403: p_pkg_name => G_PKG_NAME,
8404: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
8405: x_msg_count => x_msg_count,
8400: END IF;
8401: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8402: p_api_name => l_api_name,
8403: p_pkg_name => G_PKG_NAME,
8404: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
8405: x_msg_count => x_msg_count,
8406: x_msg_data => x_msg_data,
8407: p_api_type => G_API_TYPE);
8408:
8411: IF credit_recom_csr%ISOPEN
8412: THEN
8413: CLOSE credit_recom_csr;
8414: END IF;
8415: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8416: p_api_name => l_api_name,
8417: p_pkg_name => G_PKG_NAME,
8418: p_exc_name => 'OTHERS',
8419: x_msg_count => x_msg_count,
8485: AND CRR.SOURCE_COLUMN3 = 'LEASEAPP'
8486: AND LAP.ID = cp_lap_id;
8487: src_lse_app_dtls_rec src_lse_app_dtls_csr%ROWTYPE;
8488: BEGIN
8489: l_return_status := OKL_API.G_RET_STS_SUCCESS;
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');
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(
8501: p_api_name => l_api_name
8502: ,p_pkg_name => G_PKG_NAME
8503: ,p_init_msg_list => p_init_msg_list
8504: ,l_api_version => l_api_version
8506: ,p_api_type => G_API_TYPE
8507: ,x_return_status => l_return_status);
8508:
8509: -- check if activity started successfully
8510: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8511: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8512: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
8513: RAISE OKL_API.G_EXCEPTION_ERROR;
8514: END IF;
8507: ,x_return_status => l_return_status);
8508:
8509: -- check if activity started successfully
8510: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8511: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8512: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
8513: RAISE OKL_API.G_EXCEPTION_ERROR;
8514: END IF;
8515:
8508:
8509: -- check if activity started successfully
8510: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8511: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8512: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
8513: RAISE OKL_API.G_EXCEPTION_ERROR;
8514: END IF;
8515:
8516: l_lapv_rec := p_lapv_rec;
8509: -- check if activity started successfully
8510: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8511: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8512: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
8513: RAISE OKL_API.G_EXCEPTION_ERROR;
8514: END IF;
8515:
8516: l_lapv_rec := p_lapv_rec;
8517: l_lsqv_rec := p_lsqv_rec;
8533: END IF;
8534:
8535: LEASE_APP_VAL(
8536: p_api_version => p_api_version
8537: ,p_init_msg_list => OKL_API.G_FALSE
8538: ,x_return_status => l_return_status
8539: ,x_msg_count => x_msg_count
8540: ,x_msg_data => x_msg_data
8541: ,p_lapv_rec => l_lapv_rec
8556: ,L_MODULE || ' Result of LEASE_APP_VAL'
8557: ,'l_return_status ' || l_return_status);
8558: END IF; -- end of statement level debug
8559:
8560: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
8561: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8562: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
8563: RAISE OKL_API.G_EXCEPTION_ERROR;
8564: END IF;
8557: ,'l_return_status ' || l_return_status);
8558: END IF; -- end of statement level debug
8559:
8560: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
8561: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8562: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
8563: RAISE OKL_API.G_EXCEPTION_ERROR;
8564: END IF;
8565:
8558: END IF; -- end of statement level debug
8559:
8560: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
8561: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8562: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
8563: RAISE OKL_API.G_EXCEPTION_ERROR;
8564: END IF;
8565:
8566: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
8559:
8560: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
8561: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8562: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
8563: RAISE OKL_API.G_EXCEPTION_ERROR;
8564: END IF;
8565:
8566: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
8567: THEN
8573:
8574: -- call the TAPI insert_row to create a lease application
8575: OKL_LAP_PVT.INSERT_ROW(
8576: p_api_version => p_api_version
8577: ,p_init_msg_list => OKL_API.G_FALSE
8578: ,x_return_status => l_return_status
8579: ,x_msg_count => x_msg_count
8580: ,x_msg_data => x_msg_data
8581: ,p_lapv_rec => l_lapv_rec
8599: ' result status ' || l_return_status ||
8600: ' x_msg_data ' || x_msg_data);
8601: END IF; -- end of statement level debug
8602:
8603: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
8604: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8605: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
8606: RAISE OKL_API.G_EXCEPTION_ERROR;
8607: END IF;
8600: ' x_msg_data ' || x_msg_data);
8601: END IF; -- end of statement level debug
8602:
8603: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
8604: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8605: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
8606: RAISE OKL_API.G_EXCEPTION_ERROR;
8607: END IF;
8608:
8601: END IF; -- end of statement level debug
8602:
8603: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
8604: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8605: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
8606: RAISE OKL_API.G_EXCEPTION_ERROR;
8607: END IF;
8608:
8609: --Populate lease quote rec values
8602:
8603: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
8604: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8605: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
8606: RAISE OKL_API.G_EXCEPTION_ERROR;
8607: END IF;
8608:
8609: --Populate lease quote rec values
8610: l_lsqv_rec.parent_object_code := 'LEASEAPP';
8634:
8635: -- call the procedure to create lease quote line
8636: OKL_LEASE_QUOTE_PVT.DUPLICATE_LEASE_QTE(
8637: p_api_version => p_api_version
8638: ,p_init_msg_list => OKL_API.G_FALSE
8639: ,p_transaction_control => OKL_API.G_TRUE
8640: ,p_source_quote_id => src_lse_app_dtls_rec.lsq_id
8641: ,p_lease_qte_rec => l_lsqv_rec
8642: ,x_lease_qte_rec => x_lsqv_rec
8635: -- call the procedure to create lease quote line
8636: OKL_LEASE_QUOTE_PVT.DUPLICATE_LEASE_QTE(
8637: p_api_version => p_api_version
8638: ,p_init_msg_list => OKL_API.G_FALSE
8639: ,p_transaction_control => OKL_API.G_TRUE
8640: ,p_source_quote_id => src_lse_app_dtls_rec.lsq_id
8641: ,p_lease_qte_rec => l_lsqv_rec
8642: ,x_lease_qte_rec => x_lsqv_rec
8643: ,x_return_status => l_return_status
8662: ' result status ' || l_return_status ||
8663: ' x_msg_data ' || x_msg_data);
8664: END IF; -- end of statement level debug
8665:
8666: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
8667: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8668: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
8669: RAISE OKL_API.G_EXCEPTION_ERROR;
8670: END IF;
8663: ' x_msg_data ' || x_msg_data);
8664: END IF; -- end of statement level debug
8665:
8666: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
8667: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8668: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
8669: RAISE OKL_API.G_EXCEPTION_ERROR;
8670: END IF;
8671:
8664: END IF; -- end of statement level debug
8665:
8666: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
8667: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8668: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
8669: RAISE OKL_API.G_EXCEPTION_ERROR;
8670: END IF;
8671:
8672: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
8665:
8666: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
8667: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8668: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
8669: RAISE OKL_API.G_EXCEPTION_ERROR;
8670: END IF;
8671:
8672: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
8673: THEN
8681: l_crr_rec.parent_credit_request_id := src_lse_app_dtls_rec.credit_request_id;
8682: --call to duplicate Credit Lease Application
8683: CREATE_CREDIT_APP(
8684: p_api_version => p_api_version
8685: ,p_init_msg_list => OKL_API.G_FALSE
8686: ,x_return_status => l_return_status
8687: ,x_msg_count => x_msg_count
8688: ,x_msg_data => x_msg_data
8689: ,p_lapv_rec => x_lapv_rec
8705: ,L_MODULE || ' Result of CREATE_CREDIT_APP'
8706: ,' result status ' || l_return_status);
8707: END IF; -- end of statement level debug
8708:
8709: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
8710: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8711: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
8712: RAISE OKL_API.G_EXCEPTION_ERROR;
8713: END IF;
8706: ,' result status ' || l_return_status);
8707: END IF; -- end of statement level debug
8708:
8709: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
8710: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8711: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
8712: RAISE OKL_API.G_EXCEPTION_ERROR;
8713: END IF;
8714: --asawanka. for bug 5169964
8707: END IF; -- end of statement level debug
8708:
8709: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
8710: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8711: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
8712: RAISE OKL_API.G_EXCEPTION_ERROR;
8713: END IF;
8714: --asawanka. for bug 5169964
8715: OPEN chk_hdr_dtls_csr(x_lapv_rec.id);
8708:
8709: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
8710: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8711: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
8712: RAISE OKL_API.G_EXCEPTION_ERROR;
8713: END IF;
8714: --asawanka. for bug 5169964
8715: OPEN chk_hdr_dtls_csr(x_lapv_rec.id);
8716: FETCH chk_hdr_dtls_csr INTO chk_hdr_dtls_rec;
8728:
8729: --call to create Checklist Instance
8730: CHECKLIST_INST_CRE(
8731: p_api_version => p_api_version
8732: ,p_init_msg_list => OKL_API.G_FALSE
8733: ,x_return_status => l_return_status
8734: ,x_msg_count => x_msg_count
8735: ,x_msg_data => x_msg_data
8736: ,p_lap_id => x_lapv_rec.id
8751: ,L_MODULE || ' Result of CHECKLIST_INST_CRE'
8752: ,' result status ' || l_return_status);
8753: END IF; -- end of statement level debug
8754:
8755: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
8756: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8757: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
8758: RAISE OKL_API.G_EXCEPTION_ERROR;
8759: END IF;
8752: ,' result status ' || l_return_status);
8753: END IF; -- end of statement level debug
8754:
8755: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
8756: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8757: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
8758: RAISE OKL_API.G_EXCEPTION_ERROR;
8759: END IF;
8760: END IF; -- Condition to check for call to create checklist instance
8753: END IF; -- end of statement level debug
8754:
8755: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
8756: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8757: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
8758: RAISE OKL_API.G_EXCEPTION_ERROR;
8759: END IF;
8760: END IF; -- Condition to check for call to create checklist instance
8761:
8754:
8755: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
8756: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8757: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
8758: RAISE OKL_API.G_EXCEPTION_ERROR;
8759: END IF;
8760: END IF; -- Condition to check for call to create checklist instance
8761:
8762: --Update the status of Parent Lease Application as in Progress
8770:
8771: --call the procedure to update a lease application status
8772: SET_IN_PROGRESS_STATUS(
8773: p_api_version => p_api_version
8774: ,p_init_msg_list => OKL_API.G_FALSE
8775: ,p_lap_id => p_source_lap_id
8776: ,p_action => 'RESUBMIT'
8777: ,x_return_status => l_return_status
8778: ,x_msg_count => x_msg_count
8794: ,'return status ' || l_return_status ||
8795: ' x_msg_data ' || x_msg_data);
8796: END IF; -- end of statement level debug
8797:
8798: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
8799: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8800: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
8801: RAISE OKL_API.G_EXCEPTION_ERROR;
8802: END IF;
8795: ' x_msg_data ' || x_msg_data);
8796: END IF; -- end of statement level debug
8797:
8798: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
8799: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8800: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
8801: RAISE OKL_API.G_EXCEPTION_ERROR;
8802: END IF;
8803:
8796: END IF; -- end of statement level debug
8797:
8798: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
8799: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8800: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
8801: RAISE OKL_API.G_EXCEPTION_ERROR;
8802: END IF;
8803:
8804: -- raise the business event passing the Lease Application id added to the parameter list
8797:
8798: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
8799: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8800: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
8801: RAISE OKL_API.G_EXCEPTION_ERROR;
8802: END IF;
8803:
8804: -- raise the business event passing the Lease Application id added to the parameter list
8805: wf_event.addparametertolist('LAPP_ID'
8813: ,x_msg_data => x_msg_data
8814: ,p_event_name => p_event_name
8815: ,p_parameters => l_parameter_list);
8816:
8817: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
8818: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8819: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
8820: RAISE OKL_API.G_EXCEPTION_ERROR;
8821: END IF;
8814: ,p_event_name => p_event_name
8815: ,p_parameters => l_parameter_list);
8816:
8817: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
8818: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8819: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
8820: RAISE OKL_API.G_EXCEPTION_ERROR;
8821: END IF;
8822:
8815: ,p_parameters => l_parameter_list);
8816:
8817: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
8818: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8819: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
8820: RAISE OKL_API.G_EXCEPTION_ERROR;
8821: END IF;
8822:
8823: x_return_status := l_return_status;
8816:
8817: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
8818: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8819: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
8820: RAISE OKL_API.G_EXCEPTION_ERROR;
8821: END IF;
8822:
8823: x_return_status := l_return_status;
8824: OKL_API.END_ACTIVITY(
8820: RAISE OKL_API.G_EXCEPTION_ERROR;
8821: END IF;
8822:
8823: x_return_status := l_return_status;
8824: OKL_API.END_ACTIVITY(
8825: x_msg_count => x_msg_count
8826: ,x_msg_data => x_msg_data);
8827: EXCEPTION
8828: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8824: OKL_API.END_ACTIVITY(
8825: x_msg_count => x_msg_count
8826: ,x_msg_data => x_msg_data);
8827: EXCEPTION
8828: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8829: --Checklist Header Details Cursor
8830: IF chk_hdr_dtls_csr%ISOPEN
8831: THEN
8832: CLOSE chk_hdr_dtls_csr;
8835: IF src_lse_app_dtls_csr%ISOPEN
8836: THEN
8837: CLOSE src_lse_app_dtls_csr;
8838: END IF;
8839: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8840: p_api_name => l_api_name,
8841: p_pkg_name => G_PKG_NAME,
8842: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
8843: x_msg_count => x_msg_count,
8838: END IF;
8839: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8840: p_api_name => l_api_name,
8841: p_pkg_name => G_PKG_NAME,
8842: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
8843: x_msg_count => x_msg_count,
8844: x_msg_data => x_msg_data,
8845: p_api_type => G_API_TYPE);
8846:
8843: x_msg_count => x_msg_count,
8844: x_msg_data => x_msg_data,
8845: p_api_type => G_API_TYPE);
8846:
8847: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8848: --Checklist Header Details Cursor
8849: IF chk_hdr_dtls_csr%ISOPEN
8850: THEN
8851: CLOSE chk_hdr_dtls_csr;
8854: IF src_lse_app_dtls_csr%ISOPEN
8855: THEN
8856: CLOSE src_lse_app_dtls_csr;
8857: END IF;
8858: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8859: p_api_name => l_api_name,
8860: p_pkg_name => G_PKG_NAME,
8861: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
8862: x_msg_count => x_msg_count,
8857: END IF;
8858: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8859: p_api_name => l_api_name,
8860: p_pkg_name => G_PKG_NAME,
8861: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
8862: x_msg_count => x_msg_count,
8863: x_msg_data => x_msg_data,
8864: p_api_type => G_API_TYPE);
8865:
8873: IF src_lse_app_dtls_csr%ISOPEN
8874: THEN
8875: CLOSE src_lse_app_dtls_csr;
8876: END IF;
8877: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8878: p_api_name => l_api_name,
8879: p_pkg_name => G_PKG_NAME,
8880: p_exc_name => 'OTHERS',
8881: x_msg_count => x_msg_count,
8923: FROM OKL_LEASE_APPLICATIONS_B LAB
8924: WHERE LAB.ID = cp_lap_id;
8925: lap_db_val_rec lap_db_val_csr%ROWTYPE;
8926: BEGIN
8927: l_return_status := OKL_API.G_RET_STS_SUCCESS;
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');
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(
8939: p_api_name => l_api_name
8940: ,p_pkg_name => G_PKG_NAME
8941: ,p_init_msg_list => p_init_msg_list
8942: ,l_api_version => l_api_version
8944: ,p_api_type => G_API_TYPE
8945: ,x_return_status => l_return_status);
8946:
8947: -- check if activity started successfully
8948: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8949: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8950: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
8951: RAISE OKL_API.G_EXCEPTION_ERROR;
8952: END IF;
8945: ,x_return_status => l_return_status);
8946:
8947: -- check if activity started successfully
8948: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8949: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8950: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
8951: RAISE OKL_API.G_EXCEPTION_ERROR;
8952: END IF;
8953:
8946:
8947: -- check if activity started successfully
8948: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8949: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8950: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
8951: RAISE OKL_API.G_EXCEPTION_ERROR;
8952: END IF;
8953:
8954: IF(p_lease_app_id IS NOT NULL OR
8947: -- check if activity started successfully
8948: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8949: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8950: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
8951: RAISE OKL_API.G_EXCEPTION_ERROR;
8952: END IF;
8953:
8954: IF(p_lease_app_id IS NOT NULL OR
8955: p_lease_app_id <> OKL_API.G_MISS_NUM)
8951: RAISE OKL_API.G_EXCEPTION_ERROR;
8952: END IF;
8953:
8954: IF(p_lease_app_id IS NOT NULL OR
8955: p_lease_app_id <> OKL_API.G_MISS_NUM)
8956: THEN
8957: OPEN lap_db_val_csr(p_lease_app_id);
8958: FETCH lap_db_val_csr INTO lap_db_val_rec;
8959: IF(lap_db_val_csr%NOTFOUND)
8957: OPEN lap_db_val_csr(p_lease_app_id);
8958: FETCH lap_db_val_csr INTO lap_db_val_rec;
8959: IF(lap_db_val_csr%NOTFOUND)
8960: THEN
8961: l_return_status := OKL_API.G_RET_STS_ERROR;
8962: OKL_API.SET_MESSAGE(
8963: p_app_name => G_APP_NAME,
8964: p_msg_name => 'OKL_SO_LSE_APP_INVALID');
8965: RAISE OKL_API.G_EXCEPTION_ERROR;
8958: FETCH lap_db_val_csr INTO lap_db_val_rec;
8959: IF(lap_db_val_csr%NOTFOUND)
8960: THEN
8961: l_return_status := OKL_API.G_RET_STS_ERROR;
8962: OKL_API.SET_MESSAGE(
8963: p_app_name => G_APP_NAME,
8964: p_msg_name => 'OKL_SO_LSE_APP_INVALID');
8965: RAISE OKL_API.G_EXCEPTION_ERROR;
8966: END IF;
8961: l_return_status := OKL_API.G_RET_STS_ERROR;
8962: OKL_API.SET_MESSAGE(
8963: p_app_name => G_APP_NAME,
8964: p_msg_name => 'OKL_SO_LSE_APP_INVALID');
8965: RAISE OKL_API.G_EXCEPTION_ERROR;
8966: END IF;
8967: CLOSE lap_db_val_csr;
8968: ELSE
8969: l_return_status := OKL_API.G_RET_STS_ERROR;
8965: RAISE OKL_API.G_EXCEPTION_ERROR;
8966: END IF;
8967: CLOSE lap_db_val_csr;
8968: ELSE
8969: l_return_status := OKL_API.G_RET_STS_ERROR;
8970: OKL_API.SET_MESSAGE(
8971: p_app_name => G_APP_NAME,
8972: p_msg_name => 'OKL_SO_LSE_APP_INVALID');
8973: RAISE OKL_API.G_EXCEPTION_ERROR;
8966: END IF;
8967: CLOSE lap_db_val_csr;
8968: ELSE
8969: l_return_status := OKL_API.G_RET_STS_ERROR;
8970: OKL_API.SET_MESSAGE(
8971: p_app_name => G_APP_NAME,
8972: p_msg_name => 'OKL_SO_LSE_APP_INVALID');
8973: RAISE OKL_API.G_EXCEPTION_ERROR;
8974: END IF; --Lease Application Id is null or G_MISS_NUM
8969: l_return_status := OKL_API.G_RET_STS_ERROR;
8970: OKL_API.SET_MESSAGE(
8971: p_app_name => G_APP_NAME,
8972: p_msg_name => 'OKL_SO_LSE_APP_INVALID');
8973: RAISE OKL_API.G_EXCEPTION_ERROR;
8974: END IF; --Lease Application Id is null or G_MISS_NUM
8975:
8976: /* Due to data integrity concerns, users would not be able to cancel applications
8977: that are in any of the following statuses:
8980: */
8981: IF(lap_db_val_rec.application_status IN
8982: ('CR-SUBMITTED', 'CR-REJECTED', 'CR-APPROVED','CONV-K', 'PR-SUBMITTED', 'RECOM_NOT_APPROVED') )
8983: THEN
8984: l_return_status := OKL_API.G_RET_STS_ERROR;
8985: l_meaning := get_lookup_meaning('OKL_LEASE_APP_STATUS', 'CANCELED');
8986: OKL_API.SET_MESSAGE(
8987: p_app_name => G_APP_NAME,
8988: p_msg_name => 'OKL_SO_LSE_APP_ACTION_ERR',
8982: ('CR-SUBMITTED', 'CR-REJECTED', 'CR-APPROVED','CONV-K', 'PR-SUBMITTED', 'RECOM_NOT_APPROVED') )
8983: THEN
8984: l_return_status := OKL_API.G_RET_STS_ERROR;
8985: l_meaning := get_lookup_meaning('OKL_LEASE_APP_STATUS', 'CANCELED');
8986: OKL_API.SET_MESSAGE(
8987: p_app_name => G_APP_NAME,
8988: p_msg_name => 'OKL_SO_LSE_APP_ACTION_ERR',
8989: p_token1 => 'TEXT',
8990: p_token1_value => lap_db_val_rec.lease_appl_number,
8991: p_token2 => 'STATUS',
8992: p_token2_value => lap_db_val_rec.application_status,
8993: p_token3 => 'ACTION',
8994: p_token3_value => l_meaning);
8995: RAISE OKL_API.G_EXCEPTION_ERROR;
8996: ELSE
8997: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
8998: THEN
8999: OKL_DEBUG_PUB.LOG_DEBUG(
9004:
9005: --call the procedure to Validate Cancel action on lease app
9006: CHECK_ELIGIBILITY(
9007: p_api_version => p_api_version
9008: ,p_init_msg_list => OKL_API.G_FALSE
9009: ,x_return_status => l_return_status
9010: ,x_msg_count => x_msg_count
9011: ,x_msg_data => x_msg_data
9012: ,p_lap_id => p_lease_app_id
9028: ,'return status ' || l_return_status ||
9029: ' x_msg_data ' || x_msg_data);
9030: END IF; -- end of statement level debug
9031:
9032: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9033: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9034: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
9035: RAISE OKL_API.G_EXCEPTION_ERROR;
9036: END IF;
9029: ' x_msg_data ' || x_msg_data);
9030: END IF; -- end of statement level debug
9031:
9032: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9033: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9034: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
9035: RAISE OKL_API.G_EXCEPTION_ERROR;
9036: END IF;
9037:
9030: END IF; -- end of statement level debug
9031:
9032: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9033: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9034: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
9035: RAISE OKL_API.G_EXCEPTION_ERROR;
9036: END IF;
9037:
9038: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
9031:
9032: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9033: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9034: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
9035: RAISE OKL_API.G_EXCEPTION_ERROR;
9036: END IF;
9037:
9038: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
9039: THEN
9045:
9046: --call the procedure to update a lease application status
9047: SET_LEASE_APP_STATUS(
9048: p_api_version => p_api_version
9049: ,p_init_msg_list => OKL_API.G_FALSE
9050: ,p_lap_id => p_lease_app_id
9051: ,p_lap_status => 'CANCELED'
9052: ,x_return_status => l_return_status
9053: ,x_msg_count => x_msg_count
9069: ,'return status ' || l_return_status ||
9070: ' x_msg_data ' || x_msg_data);
9071: END IF; -- end of statement level debug
9072:
9073: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9074: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9075: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
9076: RAISE OKL_API.G_EXCEPTION_ERROR;
9077: END IF;
9070: ' x_msg_data ' || x_msg_data);
9071: END IF; -- end of statement level debug
9072:
9073: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9074: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9075: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
9076: RAISE OKL_API.G_EXCEPTION_ERROR;
9077: END IF;
9078:
9071: END IF; -- end of statement level debug
9072:
9073: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9074: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9075: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
9076: RAISE OKL_API.G_EXCEPTION_ERROR;
9077: END IF;
9078:
9079: -- Added by rravikir for Bug 5001802
9072:
9073: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9074: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9075: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
9076: RAISE OKL_API.G_EXCEPTION_ERROR;
9077: END IF;
9078:
9079: -- Added by rravikir for Bug 5001802
9080: -- Call the API to process the lease app subsidy pool
9087: END IF;
9088:
9089: OKL_LEASE_QUOTE_SUBPOOL_PVT.PROCESS_LEASEAPP_SUBSIDY_POOL(
9090: p_api_version => p_api_version
9091: ,p_init_msg_list => OKL_API.G_FALSE
9092: ,p_transaction_control => OKL_API.G_TRUE
9093: ,p_leaseapp_id => p_lease_app_id
9094: ,p_transaction_reason => 'CANCEL_LEASE_APP'
9095: ,p_quote_id => null
9088:
9089: OKL_LEASE_QUOTE_SUBPOOL_PVT.PROCESS_LEASEAPP_SUBSIDY_POOL(
9090: p_api_version => p_api_version
9091: ,p_init_msg_list => OKL_API.G_FALSE
9092: ,p_transaction_control => OKL_API.G_TRUE
9093: ,p_leaseapp_id => p_lease_app_id
9094: ,p_transaction_reason => 'CANCEL_LEASE_APP'
9095: ,p_quote_id => null
9096: ,x_return_status => l_return_status
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:
9116: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
9117: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9118: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
9119: RAISE OKL_API.G_EXCEPTION_ERROR;
9120: END IF;
9113: ,'l_return_status ' || l_return_status);
9114: END IF; -- end of statement level debug
9115:
9116: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
9117: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9118: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
9119: RAISE OKL_API.G_EXCEPTION_ERROR;
9120: END IF;
9121: -- End changes for Bug 5001802
9114: END IF; -- end of statement level debug
9115:
9116: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
9117: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9118: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
9119: RAISE OKL_API.G_EXCEPTION_ERROR;
9120: END IF;
9121: -- End changes for Bug 5001802
9122:
9115:
9116: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
9117: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9118: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
9119: RAISE OKL_API.G_EXCEPTION_ERROR;
9120: END IF;
9121: -- End changes for Bug 5001802
9122:
9123: --Call the API which will check if there is any Parent to this Lease App
9132: END IF;
9133:
9134: REVERT_TO_ORIG_STATUS(
9135: p_api_version => l_api_version
9136: ,p_init_msg_list => OKL_API.G_FALSE
9137: ,p_lap_id => p_lease_app_id
9138: ,x_return_status => l_return_status
9139: ,x_msg_count => x_msg_count
9140: ,x_msg_data => x_msg_data);
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:
9158: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
9159: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9160: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
9161: RAISE OKL_API.G_EXCEPTION_ERROR;
9162: END IF;
9155: ,'l_return_status ' || l_return_status);
9156: END IF; -- end of statement level debug
9157:
9158: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
9159: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9160: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
9161: RAISE OKL_API.G_EXCEPTION_ERROR;
9162: END IF;
9163:
9156: END IF; -- end of statement level debug
9157:
9158: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
9159: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9160: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
9161: RAISE OKL_API.G_EXCEPTION_ERROR;
9162: END IF;
9163:
9164: -- Bug#4741121 - viselvar - Modified - Start
9157:
9158: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
9159: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9160: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
9161: RAISE OKL_API.G_EXCEPTION_ERROR;
9162: END IF;
9163:
9164: -- Bug#4741121 - viselvar - Modified - Start
9165: -- raise the business event passing the Lease Application id added to the parameter list
9174: ,x_msg_data => x_msg_data
9175: ,p_event_name => p_event_name
9176: ,p_parameters => l_parameter_list);
9177:
9178: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
9179: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9180: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
9181: RAISE OKL_API.G_EXCEPTION_ERROR;
9182: END IF;
9175: ,p_event_name => p_event_name
9176: ,p_parameters => l_parameter_list);
9177:
9178: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
9179: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9180: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
9181: RAISE OKL_API.G_EXCEPTION_ERROR;
9182: END IF;
9183: -- Bug#4741121 - viselvar - Modified - End
9176: ,p_parameters => l_parameter_list);
9177:
9178: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
9179: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9180: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
9181: RAISE OKL_API.G_EXCEPTION_ERROR;
9182: END IF;
9183: -- Bug#4741121 - viselvar - Modified - End
9184: END IF;
9177:
9178: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
9179: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9180: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
9181: RAISE OKL_API.G_EXCEPTION_ERROR;
9182: END IF;
9183: -- Bug#4741121 - viselvar - Modified - End
9184: END IF;
9185:
9183: -- Bug#4741121 - viselvar - Modified - End
9184: END IF;
9185:
9186: x_return_status := l_return_status;
9187: OKL_API.END_ACTIVITY(
9188: x_msg_count => x_msg_count
9189: ,x_msg_data => x_msg_data);
9190: EXCEPTION
9191: WHEN OKL_API.G_EXCEPTION_ERROR THEN
9187: OKL_API.END_ACTIVITY(
9188: x_msg_count => x_msg_count
9189: ,x_msg_data => x_msg_data);
9190: EXCEPTION
9191: WHEN OKL_API.G_EXCEPTION_ERROR THEN
9192: --Lease App Details Cursor
9193: IF lap_db_val_csr%ISOPEN
9194: THEN
9195: CLOSE lap_db_val_csr;
9193: IF lap_db_val_csr%ISOPEN
9194: THEN
9195: CLOSE lap_db_val_csr;
9196: END IF;
9197: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9198: p_api_name => l_api_name,
9199: p_pkg_name => G_PKG_NAME,
9200: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
9201: x_msg_count => x_msg_count,
9196: END IF;
9197: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9198: p_api_name => l_api_name,
9199: p_pkg_name => G_PKG_NAME,
9200: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
9201: x_msg_count => x_msg_count,
9202: x_msg_data => x_msg_data,
9203: p_api_type => G_API_TYPE);
9204: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
9200: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
9201: x_msg_count => x_msg_count,
9202: x_msg_data => x_msg_data,
9203: p_api_type => G_API_TYPE);
9204: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
9205: --Lease App Details Cursor
9206: IF lap_db_val_csr%ISOPEN
9207: THEN
9208: CLOSE lap_db_val_csr;
9206: IF lap_db_val_csr%ISOPEN
9207: THEN
9208: CLOSE lap_db_val_csr;
9209: END IF;
9210: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9211: p_api_name => l_api_name,
9212: p_pkg_name => G_PKG_NAME,
9213: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
9214: x_msg_count => x_msg_count,
9209: END IF;
9210: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9211: p_api_name => l_api_name,
9212: p_pkg_name => G_PKG_NAME,
9213: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
9214: x_msg_count => x_msg_count,
9215: x_msg_data => x_msg_data,
9216: p_api_type => G_API_TYPE);
9217: WHEN OTHERS THEN
9219: IF lap_db_val_csr%ISOPEN
9220: THEN
9221: CLOSE lap_db_val_csr;
9222: END IF;
9223: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9224: p_api_name => l_api_name,
9225: p_pkg_name => G_PKG_NAME,
9226: p_exc_name => 'OTHERS',
9227: x_msg_count => x_msg_count,
9295: AND CRR.SOURCE_COLUMN3 = 'LEASEAPP'
9296: AND LAP.ID = cp_lap_id;
9297: src_lse_app_dtls_rec src_lse_app_dtls_csr%ROWTYPE;
9298: BEGIN
9299: l_return_status := OKL_API.G_RET_STS_SUCCESS;
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');
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(
9311: p_api_name => l_api_name
9312: ,p_pkg_name => G_PKG_NAME
9313: ,p_init_msg_list => p_init_msg_list
9314: ,l_api_version => l_api_version
9316: ,p_api_type => G_API_TYPE
9317: ,x_return_status => l_return_status);
9318:
9319: -- check if activity started successfully
9320: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9321: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9322: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
9323: RAISE OKL_API.G_EXCEPTION_ERROR;
9324: END IF;
9317: ,x_return_status => l_return_status);
9318:
9319: -- check if activity started successfully
9320: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9321: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9322: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
9323: RAISE OKL_API.G_EXCEPTION_ERROR;
9324: END IF;
9325:
9318:
9319: -- check if activity started successfully
9320: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9321: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9322: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
9323: RAISE OKL_API.G_EXCEPTION_ERROR;
9324: END IF;
9325:
9326: l_lapv_rec := p_lapv_rec;
9319: -- check if activity started successfully
9320: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9321: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9322: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
9323: RAISE OKL_API.G_EXCEPTION_ERROR;
9324: END IF;
9325:
9326: l_lapv_rec := p_lapv_rec;
9327: l_lsqv_rec := p_lsqv_rec;
9342: END IF;
9343:
9344: LEASE_APP_VAL(
9345: p_api_version => p_api_version
9346: ,p_init_msg_list => OKL_API.G_FALSE
9347: ,x_return_status => l_return_status
9348: ,x_msg_count => x_msg_count
9349: ,x_msg_data => x_msg_data
9350: ,p_lapv_rec => l_lapv_rec
9365: ,L_MODULE || ' Result of LEASE_APP_VAL'
9366: ,'l_return_status ' || l_return_status);
9367: END IF; -- end of statement level debug
9368:
9369: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
9370: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9371: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
9372: RAISE OKL_API.G_EXCEPTION_ERROR;
9373: END IF;
9366: ,'l_return_status ' || l_return_status);
9367: END IF; -- end of statement level debug
9368:
9369: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
9370: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9371: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
9372: RAISE OKL_API.G_EXCEPTION_ERROR;
9373: END IF;
9374:
9367: END IF; -- end of statement level debug
9368:
9369: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
9370: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9371: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
9372: RAISE OKL_API.G_EXCEPTION_ERROR;
9373: END IF;
9374:
9375: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
9368:
9369: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
9370: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9371: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
9372: RAISE OKL_API.G_EXCEPTION_ERROR;
9373: END IF;
9374:
9375: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
9376: THEN
9382:
9383: -- call the TAPI insert_row to create a lease application
9384: OKL_LAP_PVT.INSERT_ROW(
9385: p_api_version => p_api_version
9386: ,p_init_msg_list => OKL_API.G_FALSE
9387: ,x_return_status => l_return_status
9388: ,x_msg_count => x_msg_count
9389: ,x_msg_data => x_msg_data
9390: ,p_lapv_rec => l_lapv_rec
9408: ' result status ' || l_return_status ||
9409: ' x_msg_data ' || x_msg_data);
9410: END IF; -- end of statement level debug
9411:
9412: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
9413: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9414: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
9415: RAISE OKL_API.G_EXCEPTION_ERROR;
9416: END IF;
9409: ' x_msg_data ' || x_msg_data);
9410: END IF; -- end of statement level debug
9411:
9412: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
9413: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9414: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
9415: RAISE OKL_API.G_EXCEPTION_ERROR;
9416: END IF;
9417:
9410: END IF; -- end of statement level debug
9411:
9412: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
9413: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9414: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
9415: RAISE OKL_API.G_EXCEPTION_ERROR;
9416: END IF;
9417:
9418: --Populate lease quote rec values
9411:
9412: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
9413: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9414: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
9415: RAISE OKL_API.G_EXCEPTION_ERROR;
9416: END IF;
9417:
9418: --Populate lease quote rec values
9419: l_lsqv_rec.parent_object_code := 'LEASEAPP';
9444:
9445: -- call the procedure to create lease quote line
9446: OKL_LEASE_QUOTE_PVT.DUPLICATE_LEASE_QTE(
9447: p_api_version => p_api_version
9448: ,p_init_msg_list => OKL_API.G_FALSE
9449: ,p_transaction_control => OKL_API.G_TRUE
9450: ,p_source_quote_id => src_lse_app_dtls_rec.lsq_id
9451: ,p_lease_qte_rec => l_lsqv_rec
9452: ,x_lease_qte_rec => x_lsqv_rec
9445: -- call the procedure to create lease quote line
9446: OKL_LEASE_QUOTE_PVT.DUPLICATE_LEASE_QTE(
9447: p_api_version => p_api_version
9448: ,p_init_msg_list => OKL_API.G_FALSE
9449: ,p_transaction_control => OKL_API.G_TRUE
9450: ,p_source_quote_id => src_lse_app_dtls_rec.lsq_id
9451: ,p_lease_qte_rec => l_lsqv_rec
9452: ,x_lease_qte_rec => x_lsqv_rec
9453: ,x_return_status => l_return_status
9472: ' result status ' || l_return_status ||
9473: ' x_msg_data ' || x_msg_data);
9474: END IF; -- end of statement level debug
9475:
9476: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
9477: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9478: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
9479: RAISE OKL_API.G_EXCEPTION_ERROR;
9480: END IF;
9473: ' x_msg_data ' || x_msg_data);
9474: END IF; -- end of statement level debug
9475:
9476: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
9477: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9478: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
9479: RAISE OKL_API.G_EXCEPTION_ERROR;
9480: END IF;
9481:
9474: END IF; -- end of statement level debug
9475:
9476: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
9477: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9478: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
9479: RAISE OKL_API.G_EXCEPTION_ERROR;
9480: END IF;
9481:
9482: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
9475:
9476: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
9477: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9478: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
9479: RAISE OKL_API.G_EXCEPTION_ERROR;
9480: END IF;
9481:
9482: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
9483: THEN
9497: l_crr_rec.parent_credit_request_id := src_lse_app_dtls_rec.credit_request_id;
9498: --call to duplicate Credit Lease Application
9499: CREATE_CREDIT_APP(
9500: p_api_version => p_api_version
9501: ,p_init_msg_list => OKL_API.G_FALSE
9502: ,x_return_status => l_return_status
9503: ,x_msg_count => x_msg_count
9504: ,x_msg_data => x_msg_data
9505: ,p_lapv_rec => x_lapv_rec
9521: ,L_MODULE || ' Result of CREATE_CREDIT_APP'
9522: ,' result status ' || l_return_status);
9523: END IF; -- end of statement level debug
9524:
9525: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
9526: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9527: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
9528: RAISE OKL_API.G_EXCEPTION_ERROR;
9529: END IF;
9522: ,' result status ' || l_return_status);
9523: END IF; -- end of statement level debug
9524:
9525: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
9526: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9527: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
9528: RAISE OKL_API.G_EXCEPTION_ERROR;
9529: END IF;
9530:
9523: END IF; -- end of statement level debug
9524:
9525: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
9526: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9527: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
9528: RAISE OKL_API.G_EXCEPTION_ERROR;
9529: END IF;
9530:
9531: OPEN chk_hdr_dtls_csr(p_source_lap_id);
9524:
9525: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
9526: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9527: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
9528: RAISE OKL_API.G_EXCEPTION_ERROR;
9529: END IF;
9530:
9531: OPEN chk_hdr_dtls_csr(p_source_lap_id);
9532: FETCH chk_hdr_dtls_csr INTO chk_hdr_dtls_rec;
9544:
9545: --call to create Checklist Instance
9546: CHECKLIST_INST_CRE(
9547: p_api_version => p_api_version
9548: ,p_init_msg_list => OKL_API.G_FALSE
9549: ,x_return_status => l_return_status
9550: ,x_msg_count => x_msg_count
9551: ,x_msg_data => x_msg_data
9552: ,p_lap_id => x_lapv_rec.id
9567: ,L_MODULE || ' Result of CHECKLIST_INST_CRE'
9568: ,' result status ' || l_return_status);
9569: END IF; -- end of statement level debug
9570:
9571: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
9572: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9573: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
9574: RAISE OKL_API.G_EXCEPTION_ERROR;
9575: END IF;
9568: ,' result status ' || l_return_status);
9569: END IF; -- end of statement level debug
9570:
9571: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
9572: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9573: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
9574: RAISE OKL_API.G_EXCEPTION_ERROR;
9575: END IF;
9576: END IF; -- Condition to check for call to create checklist instance
9569: END IF; -- end of statement level debug
9570:
9571: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
9572: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9573: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
9574: RAISE OKL_API.G_EXCEPTION_ERROR;
9575: END IF;
9576: END IF; -- Condition to check for call to create checklist instance
9577:
9570:
9571: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
9572: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9573: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
9574: RAISE OKL_API.G_EXCEPTION_ERROR;
9575: END IF;
9576: END IF; -- Condition to check for call to create checklist instance
9577:
9578: --Update the status of Parent Lease Application as in Progress
9586:
9587: --call the procedure to update a lease application status
9588: SET_IN_PROGRESS_STATUS(
9589: p_api_version => p_api_version
9590: ,p_init_msg_list => OKL_API.G_FALSE
9591: ,p_lap_id => p_source_lap_id
9592: ,p_action => 'APPEAL'
9593: ,x_return_status => l_return_status
9594: ,x_msg_count => x_msg_count
9610: ,'return status ' || l_return_status ||
9611: ' x_msg_data ' || x_msg_data);
9612: END IF; -- end of statement level debug
9613:
9614: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
9615: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9616: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
9617: RAISE OKL_API.G_EXCEPTION_ERROR;
9618: END IF;
9611: ' x_msg_data ' || x_msg_data);
9612: END IF; -- end of statement level debug
9613:
9614: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
9615: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9616: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
9617: RAISE OKL_API.G_EXCEPTION_ERROR;
9618: END IF;
9619:
9612: END IF; -- end of statement level debug
9613:
9614: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
9615: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9616: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
9617: RAISE OKL_API.G_EXCEPTION_ERROR;
9618: END IF;
9619:
9620: -- raise the business event passing the Lease Application id added to the parameter list
9613:
9614: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
9615: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9616: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
9617: RAISE OKL_API.G_EXCEPTION_ERROR;
9618: END IF;
9619:
9620: -- raise the business event passing the Lease Application id added to the parameter list
9621: wf_event.addparametertolist('LAPP_ID'
9628: ,x_msg_data => x_msg_data
9629: ,p_event_name => p_event_name
9630: ,p_parameters => l_parameter_list);
9631:
9632: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
9633: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9634: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
9635: RAISE OKL_API.G_EXCEPTION_ERROR;
9636: END IF;
9629: ,p_event_name => p_event_name
9630: ,p_parameters => l_parameter_list);
9631:
9632: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
9633: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9634: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
9635: RAISE OKL_API.G_EXCEPTION_ERROR;
9636: END IF;
9637:
9630: ,p_parameters => l_parameter_list);
9631:
9632: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
9633: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9634: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
9635: RAISE OKL_API.G_EXCEPTION_ERROR;
9636: END IF;
9637:
9638: x_return_status := l_return_status;
9631:
9632: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
9633: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9634: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
9635: RAISE OKL_API.G_EXCEPTION_ERROR;
9636: END IF;
9637:
9638: x_return_status := l_return_status;
9639: OKL_API.END_ACTIVITY(
9635: RAISE OKL_API.G_EXCEPTION_ERROR;
9636: END IF;
9637:
9638: x_return_status := l_return_status;
9639: OKL_API.END_ACTIVITY(
9640: x_msg_count => x_msg_count
9641: ,x_msg_data => x_msg_data);
9642: EXCEPTION
9643: WHEN OKL_API.G_EXCEPTION_ERROR THEN
9639: OKL_API.END_ACTIVITY(
9640: x_msg_count => x_msg_count
9641: ,x_msg_data => x_msg_data);
9642: EXCEPTION
9643: WHEN OKL_API.G_EXCEPTION_ERROR THEN
9644: --Checklist Header Details Cursor
9645: IF chk_hdr_dtls_csr%ISOPEN
9646: THEN
9647: CLOSE chk_hdr_dtls_csr;
9650: IF src_lse_app_dtls_csr%ISOPEN
9651: THEN
9652: CLOSE src_lse_app_dtls_csr;
9653: END IF;
9654: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9655: p_api_name => l_api_name,
9656: p_pkg_name => G_PKG_NAME,
9657: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
9658: x_msg_count => x_msg_count,
9653: END IF;
9654: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9655: p_api_name => l_api_name,
9656: p_pkg_name => G_PKG_NAME,
9657: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
9658: x_msg_count => x_msg_count,
9659: x_msg_data => x_msg_data,
9660: p_api_type => G_API_TYPE);
9661: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
9657: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
9658: x_msg_count => x_msg_count,
9659: x_msg_data => x_msg_data,
9660: p_api_type => G_API_TYPE);
9661: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
9662: --Checklist Header Details Cursor
9663: IF chk_hdr_dtls_csr%ISOPEN
9664: THEN
9665: CLOSE chk_hdr_dtls_csr;
9668: IF src_lse_app_dtls_csr%ISOPEN
9669: THEN
9670: CLOSE src_lse_app_dtls_csr;
9671: END IF;
9672: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9673: p_api_name => l_api_name,
9674: p_pkg_name => G_PKG_NAME,
9675: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
9676: x_msg_count => x_msg_count,
9671: END IF;
9672: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9673: p_api_name => l_api_name,
9674: p_pkg_name => G_PKG_NAME,
9675: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
9676: x_msg_count => x_msg_count,
9677: x_msg_data => x_msg_data,
9678: p_api_type => G_API_TYPE);
9679: WHEN OTHERS THEN
9686: IF src_lse_app_dtls_csr%ISOPEN
9687: THEN
9688: CLOSE src_lse_app_dtls_csr;
9689: END IF;
9690: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9691: p_api_name => l_api_name,
9692: p_pkg_name => G_PKG_NAME,
9693: p_exc_name => 'OTHERS',
9694: x_msg_count => x_msg_count,
9795: FROM OKL_LEASE_APPLICATIONS_B LAB
9796: WHERE LAB.ID = p_lap_id;
9797: lse_app_dtls_rec lse_app_dtls_csr%ROWTYPE;
9798: BEGIN
9799: l_return_status := OKL_API.G_RET_STS_SUCCESS;
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');
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(
9811: p_api_name => l_api_name
9812: ,p_pkg_name => G_PKG_NAME
9813: ,p_init_msg_list => p_init_msg_list
9814: ,l_api_version => l_api_version
9816: ,p_api_type => G_API_TYPE
9817: ,x_return_status => l_return_status);
9818:
9819: -- check if activity started successfully
9820: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9821: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9822: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
9823: RAISE OKL_API.G_EXCEPTION_ERROR;
9824: END IF;
9817: ,x_return_status => l_return_status);
9818:
9819: -- check if activity started successfully
9820: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9821: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9822: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
9823: RAISE OKL_API.G_EXCEPTION_ERROR;
9824: END IF;
9825:
9818:
9819: -- check if activity started successfully
9820: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9821: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9822: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
9823: RAISE OKL_API.G_EXCEPTION_ERROR;
9824: END IF;
9825:
9826: OPEN lse_app_dtls_csr(p_lap_id);
9819: -- check if activity started successfully
9820: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9821: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9822: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
9823: RAISE OKL_API.G_EXCEPTION_ERROR;
9824: END IF;
9825:
9826: OPEN lse_app_dtls_csr(p_lap_id);
9827: FETCH lse_app_dtls_csr INTO lse_app_dtls_rec;
9832: FOR child_lse_app_rec IN child_lse_app_csr(p_lap_id)
9833: LOOP
9834: IF child_lse_app_rec.application_status NOT IN ('CANCELED', 'WITHDRAWN')
9835: THEN
9836: l_return_status := OKL_API.G_RET_STS_ERROR;
9837: l_meaning := get_lookup_meaning('OKL_LEASE_APP_ACTION', 'APPEAL');
9838: OKL_API.SET_MESSAGE(
9839: p_app_name => G_APP_NAME,
9840: p_msg_name => 'OKL_SO_LSE_APP_APP_RESUB_ERR',
9834: IF child_lse_app_rec.application_status NOT IN ('CANCELED', 'WITHDRAWN')
9835: THEN
9836: l_return_status := OKL_API.G_RET_STS_ERROR;
9837: l_meaning := get_lookup_meaning('OKL_LEASE_APP_ACTION', 'APPEAL');
9838: OKL_API.SET_MESSAGE(
9839: p_app_name => G_APP_NAME,
9840: p_msg_name => 'OKL_SO_LSE_APP_APP_RESUB_ERR',
9841: p_token1 => 'ACTION',
9842: p_token1_value => l_meaning,
9841: p_token1 => 'ACTION',
9842: p_token1_value => l_meaning,
9843: p_token2 => 'TEXT',
9844: p_token2_value => lse_app_dtls_rec.reference_number);
9845: RAISE OKL_API.G_EXCEPTION_ERROR;
9846: END IF;
9847: END LOOP;
9848: OPEN credit_recom_csr(p_lap_id, 'AUTHORIZE_APPEAL');
9849: FETCH credit_recom_csr INTO l_count;
9854: FETCH appeal_exp_date_csr INTO l_exp_date;
9855: CLOSE appeal_exp_date_csr;
9856: IF(l_exp_Date < TRUNC(SYSDATE))
9857: THEN
9858: l_return_status := OKL_API.G_RET_STS_ERROR;
9859: OKL_API.SET_MESSAGE(
9860: p_app_name => G_APP_NAME,
9861: p_msg_name => 'OKL_SO_LSE_APP_APPEAL_PRD_EXP',
9862: p_token1 => 'TEXT',
9855: CLOSE appeal_exp_date_csr;
9856: IF(l_exp_Date < TRUNC(SYSDATE))
9857: THEN
9858: l_return_status := OKL_API.G_RET_STS_ERROR;
9859: OKL_API.SET_MESSAGE(
9860: p_app_name => G_APP_NAME,
9861: p_msg_name => 'OKL_SO_LSE_APP_APPEAL_PRD_EXP',
9862: p_token1 => 'TEXT',
9863: p_token1_value => lse_app_dtls_rec.reference_number);
9860: p_app_name => G_APP_NAME,
9861: p_msg_name => 'OKL_SO_LSE_APP_APPEAL_PRD_EXP',
9862: p_token1 => 'TEXT',
9863: p_token1_value => lse_app_dtls_rec.reference_number);
9864: RAISE OKL_API.G_EXCEPTION_ERROR;
9865: END IF;
9866: ELSE
9867: l_return_status := OKL_API.G_RET_STS_ERROR;
9868: OKL_API.SET_MESSAGE(
9863: p_token1_value => lse_app_dtls_rec.reference_number);
9864: RAISE OKL_API.G_EXCEPTION_ERROR;
9865: END IF;
9866: ELSE
9867: l_return_status := OKL_API.G_RET_STS_ERROR;
9868: OKL_API.SET_MESSAGE(
9869: p_app_name => G_APP_NAME,
9870: p_msg_name => 'OKL_SO_LSE_APP_APPEAL_AUTH_ERR',
9871: p_token1 => 'TEXT',
9864: RAISE OKL_API.G_EXCEPTION_ERROR;
9865: END IF;
9866: ELSE
9867: l_return_status := OKL_API.G_RET_STS_ERROR;
9868: OKL_API.SET_MESSAGE(
9869: p_app_name => G_APP_NAME,
9870: p_msg_name => 'OKL_SO_LSE_APP_APPEAL_AUTH_ERR',
9871: p_token1 => 'TEXT',
9872: p_token1_value => lse_app_dtls_rec.reference_number);
9869: p_app_name => G_APP_NAME,
9870: p_msg_name => 'OKL_SO_LSE_APP_APPEAL_AUTH_ERR',
9871: p_token1 => 'TEXT',
9872: p_token1_value => lse_app_dtls_rec.reference_number);
9873: RAISE OKL_API.G_EXCEPTION_ERROR;
9874: END IF;
9875: END IF;
9876:
9877: IF(p_action = 'RESUBMIT' )
9878: THEN
9879: -- Bug# 7140398 - Start
9880: -- Donot allow resubmit in case the primary quote is Credit Declined.
9881: IF (is_primary_quote_declined(p_lap_id)) THEN
9882: l_return_status := OKL_API.G_RET_STS_ERROR;
9883: OKL_API.SET_MESSAGE(
9884: p_app_name => G_APP_NAME,
9885: p_msg_name => 'OKL_SO_DEC_OFFER_RESUBM_ERR');
9886: RAISE OKL_API.G_EXCEPTION_ERROR;
9879: -- Bug# 7140398 - Start
9880: -- Donot allow resubmit in case the primary quote is Credit Declined.
9881: IF (is_primary_quote_declined(p_lap_id)) THEN
9882: l_return_status := OKL_API.G_RET_STS_ERROR;
9883: OKL_API.SET_MESSAGE(
9884: p_app_name => G_APP_NAME,
9885: p_msg_name => 'OKL_SO_DEC_OFFER_RESUBM_ERR');
9886: RAISE OKL_API.G_EXCEPTION_ERROR;
9887: END IF;
9882: l_return_status := OKL_API.G_RET_STS_ERROR;
9883: OKL_API.SET_MESSAGE(
9884: p_app_name => G_APP_NAME,
9885: p_msg_name => 'OKL_SO_DEC_OFFER_RESUBM_ERR');
9886: RAISE OKL_API.G_EXCEPTION_ERROR;
9887: END IF;
9888: -- Bug# 7140398 - End
9889: FOR child_lse_app_rec IN child_lse_app_csr(p_lap_id)
9890: LOOP
9889: FOR child_lse_app_rec IN child_lse_app_csr(p_lap_id)
9890: LOOP
9891: IF child_lse_app_rec.application_status NOT IN ('CANCELED', 'WITHDRAWN')
9892: THEN
9893: l_return_status := OKL_API.G_RET_STS_ERROR;
9894: l_meaning := get_lookup_meaning('OKL_LEASE_APP_ACTION', 'RESUBMIT');
9895: OKL_API.SET_MESSAGE(
9896: p_app_name => G_APP_NAME,
9897: p_msg_name => 'OKL_SO_LSE_APP_APP_RESUB_ERR',
9891: IF child_lse_app_rec.application_status NOT IN ('CANCELED', 'WITHDRAWN')
9892: THEN
9893: l_return_status := OKL_API.G_RET_STS_ERROR;
9894: l_meaning := get_lookup_meaning('OKL_LEASE_APP_ACTION', 'RESUBMIT');
9895: OKL_API.SET_MESSAGE(
9896: p_app_name => G_APP_NAME,
9897: p_msg_name => 'OKL_SO_LSE_APP_APP_RESUB_ERR',
9898: p_token1 => 'ACTION',
9899: p_token1_value => l_meaning,
9898: p_token1 => 'ACTION',
9899: p_token1_value => l_meaning,
9900: p_token2 => 'TEXT',
9901: p_token2_value => lse_app_dtls_rec.reference_number);
9902: RAISE OKL_API.G_EXCEPTION_ERROR;
9903: RAISE OKL_API.G_EXCEPTION_ERROR;
9904: END IF;
9905: END LOOP;
9906: END IF;
9899: p_token1_value => l_meaning,
9900: p_token2 => 'TEXT',
9901: p_token2_value => lse_app_dtls_rec.reference_number);
9902: RAISE OKL_API.G_EXCEPTION_ERROR;
9903: RAISE OKL_API.G_EXCEPTION_ERROR;
9904: END IF;
9905: END LOOP;
9906: END IF;
9907:
9910: FOR child_lse_app_rec IN child_lse_app_csr(p_lap_id)
9911: LOOP
9912: IF child_lse_app_rec.application_status <> 'CANCELED'
9913: THEN
9914: l_return_status := OKL_API.G_RET_STS_ERROR;
9915: OKL_API.SET_MESSAGE(
9916: p_app_name => G_APP_NAME,
9917: p_msg_name => 'OKL_SO_LSE_APP_CANCEL_ERR',
9918: p_token1 => 'TEXT',
9911: LOOP
9912: IF child_lse_app_rec.application_status <> 'CANCELED'
9913: THEN
9914: l_return_status := OKL_API.G_RET_STS_ERROR;
9915: OKL_API.SET_MESSAGE(
9916: p_app_name => G_APP_NAME,
9917: p_msg_name => 'OKL_SO_LSE_APP_CANCEL_ERR',
9918: p_token1 => 'TEXT',
9919: p_token1_value => lse_app_dtls_rec.reference_number);
9916: p_app_name => G_APP_NAME,
9917: p_msg_name => 'OKL_SO_LSE_APP_CANCEL_ERR',
9918: p_token1 => 'TEXT',
9919: p_token1_value => lse_app_dtls_rec.reference_number);
9920: RAISE OKL_API.G_EXCEPTION_ERROR;
9921: END IF;
9922: END LOOP;
9923: END IF;
9924:
9927: FOR child_lse_app_rec IN child_lse_app_csr(p_lap_id)
9928: LOOP
9929: IF child_lse_app_rec.application_status IN ('APPEALINPROG', 'RESUBMITINPROG')
9930: THEN
9931: l_return_status := OKL_API.G_RET_STS_ERROR;
9932: l_meaning := get_lookup_meaning('OKL_LEASE_APP_ACTION', 'WITHDRAW');
9933: OKL_API.SET_MESSAGE(
9934: p_app_name => G_APP_NAME,
9935: p_msg_name => 'OKL_SO_LSE_APP_IN_PROG_ERR',
9929: IF child_lse_app_rec.application_status IN ('APPEALINPROG', 'RESUBMITINPROG')
9930: THEN
9931: l_return_status := OKL_API.G_RET_STS_ERROR;
9932: l_meaning := get_lookup_meaning('OKL_LEASE_APP_ACTION', 'WITHDRAW');
9933: OKL_API.SET_MESSAGE(
9934: p_app_name => G_APP_NAME,
9935: p_msg_name => 'OKL_SO_LSE_APP_IN_PROG_ERR',
9936: p_token1 => 'ACTION',
9937: p_token1_value => l_meaning,
9936: p_token1 => 'ACTION',
9937: p_token1_value => l_meaning,
9938: p_token2 => 'TEXT',
9939: p_token2_value => lse_app_dtls_rec.reference_number);
9940: RAISE OKL_API.G_EXCEPTION_ERROR;
9941: END IF;
9942: END LOOP;
9943: END IF;
9944:
9946: THEN
9947: -- Bug# 7140398 - Start
9948: -- Donot allow convertion to contract in case the primary quote is Credit Declined.
9949: IF (is_primary_quote_declined(p_lap_id)) THEN
9950: l_return_status := OKL_API.G_RET_STS_ERROR;
9951: OKL_API.SET_MESSAGE(
9952: p_app_name => G_APP_NAME,
9953: p_msg_name => 'OKL_SO_DEC_OFFER_TO_CHR_ERR');
9954: RAISE OKL_API.G_EXCEPTION_ERROR;
9947: -- Bug# 7140398 - Start
9948: -- Donot allow convertion to contract in case the primary quote is Credit Declined.
9949: IF (is_primary_quote_declined(p_lap_id)) THEN
9950: l_return_status := OKL_API.G_RET_STS_ERROR;
9951: OKL_API.SET_MESSAGE(
9952: p_app_name => G_APP_NAME,
9953: p_msg_name => 'OKL_SO_DEC_OFFER_TO_CHR_ERR');
9954: RAISE OKL_API.G_EXCEPTION_ERROR;
9955: END IF;
9950: l_return_status := OKL_API.G_RET_STS_ERROR;
9951: OKL_API.SET_MESSAGE(
9952: p_app_name => G_APP_NAME,
9953: p_msg_name => 'OKL_SO_DEC_OFFER_TO_CHR_ERR');
9954: RAISE OKL_API.G_EXCEPTION_ERROR;
9955: END IF;
9956: -- Bug# 7140398 - End
9957:
9958: FOR child_lse_app_rec IN child_lse_app_csr(p_lap_id)
9958: FOR child_lse_app_rec IN child_lse_app_csr(p_lap_id)
9959: LOOP
9960: IF child_lse_app_rec.application_status IN ('APPEALINPROG', 'RESUBMITINPROG')
9961: THEN
9962: l_return_status := OKL_API.G_RET_STS_ERROR;
9963: l_meaning := get_lookup_meaning('OKL_LEASE_APP_ACTION', 'CRECON');
9964: OKL_API.SET_MESSAGE(
9965: p_app_name => G_APP_NAME,
9966: p_msg_name => 'OKL_SO_LSE_APP_IN_PROG_ERR',
9960: IF child_lse_app_rec.application_status IN ('APPEALINPROG', 'RESUBMITINPROG')
9961: THEN
9962: l_return_status := OKL_API.G_RET_STS_ERROR;
9963: l_meaning := get_lookup_meaning('OKL_LEASE_APP_ACTION', 'CRECON');
9964: OKL_API.SET_MESSAGE(
9965: p_app_name => G_APP_NAME,
9966: p_msg_name => 'OKL_SO_LSE_APP_IN_PROG_ERR',
9967: p_token1 => 'ACTION',
9968: p_token1_value => l_meaning,
9967: p_token1 => 'ACTION',
9968: p_token1_value => l_meaning,
9969: p_token2 => 'TEXT',
9970: p_token2_value => lse_app_dtls_rec.reference_number);
9971: RAISE OKL_API.G_EXCEPTION_ERROR;
9972: END IF;
9973: IF child_lse_app_rec.application_status = 'CONV-K'
9974: THEN
9975: OPEN contract_dtls_csr(child_lse_app_rec.id);
9974: THEN
9975: OPEN contract_dtls_csr(child_lse_app_rec.id);
9976: FETCH contract_dtls_csr INTO contract_dtls_rec;
9977: CLOSE contract_dtls_csr;
9978: l_return_status := OKL_API.G_RET_STS_ERROR;
9979: OKL_API.SET_MESSAGE(
9980: p_app_name => G_APP_NAME,
9981: p_msg_name => 'OKL_SO_LSE_APP_CRE_CON_ERR',
9982: p_token1 => 'CONTRACT_NUM',
9975: OPEN contract_dtls_csr(child_lse_app_rec.id);
9976: FETCH contract_dtls_csr INTO contract_dtls_rec;
9977: CLOSE contract_dtls_csr;
9978: l_return_status := OKL_API.G_RET_STS_ERROR;
9979: OKL_API.SET_MESSAGE(
9980: p_app_name => G_APP_NAME,
9981: p_msg_name => 'OKL_SO_LSE_APP_CRE_CON_ERR',
9982: p_token1 => 'CONTRACT_NUM',
9983: p_token1_value => contract_dtls_rec.contract_number,
9982: p_token1 => 'CONTRACT_NUM',
9983: p_token1_value => contract_dtls_rec.contract_number,
9984: p_token2 => 'TEXT',
9985: p_token2_value => child_lse_app_rec.reference_number);
9986: RAISE OKL_API.G_EXCEPTION_ERROR;
9987: END IF;
9988: END LOOP;
9989: FOR parent_lse_app_rec IN parent_lse_app_csr(p_lap_id)
9990: LOOP
9992: THEN
9993: OPEN contract_dtls_csr(parent_lse_app_rec.id);
9994: FETCH contract_dtls_csr INTO contract_dtls_rec;
9995: CLOSE contract_dtls_csr;
9996: l_return_status := OKL_API.G_RET_STS_ERROR;
9997: OKL_API.SET_MESSAGE(
9998: p_app_name => G_APP_NAME,
9999: p_msg_name => 'OKL_SO_LSE_APP_CRE_CON_ERR',
10000: p_token1 => 'CONTRACT_NUM',
9993: OPEN contract_dtls_csr(parent_lse_app_rec.id);
9994: FETCH contract_dtls_csr INTO contract_dtls_rec;
9995: CLOSE contract_dtls_csr;
9996: l_return_status := OKL_API.G_RET_STS_ERROR;
9997: OKL_API.SET_MESSAGE(
9998: p_app_name => G_APP_NAME,
9999: p_msg_name => 'OKL_SO_LSE_APP_CRE_CON_ERR',
10000: p_token1 => 'CONTRACT_NUM',
10001: p_token1_value => contract_dtls_rec.contract_number,
10000: p_token1 => 'CONTRACT_NUM',
10001: p_token1_value => contract_dtls_rec.contract_number,
10002: p_token2 => 'TEXT',
10003: p_token2_value => parent_lse_app_rec.reference_number);
10004: RAISE OKL_API.G_EXCEPTION_ERROR;
10005: END IF;
10006: END LOOP;
10007: END IF;
10008:
10006: END LOOP;
10007: END IF;
10008:
10009: x_return_status := l_return_status;
10010: OKL_API.END_ACTIVITY(
10011: x_msg_count => x_msg_count
10012: ,x_msg_data => x_msg_data);
10013: EXCEPTION
10014: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10010: OKL_API.END_ACTIVITY(
10011: x_msg_count => x_msg_count
10012: ,x_msg_data => x_msg_data);
10013: EXCEPTION
10014: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10015: --Check if Child Lease App cursor is open
10016: IF child_lse_app_csr%ISOPEN
10017: THEN
10018: CLOSE child_lse_app_csr;
10041: IF lse_app_dtls_csr%ISOPEN
10042: THEN
10043: CLOSE lse_app_dtls_csr;
10044: END IF;
10045: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10046: p_api_name => l_api_name,
10047: p_pkg_name => G_PKG_NAME,
10048: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10049: x_msg_count => x_msg_count,
10044: END IF;
10045: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10046: p_api_name => l_api_name,
10047: p_pkg_name => G_PKG_NAME,
10048: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10049: x_msg_count => x_msg_count,
10050: x_msg_data => x_msg_data,
10051: p_api_type => G_API_TYPE);
10052: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10048: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10049: x_msg_count => x_msg_count,
10050: x_msg_data => x_msg_data,
10051: p_api_type => G_API_TYPE);
10052: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10053: --Check if Child Lease App cursor is open
10054: IF child_lse_app_csr%ISOPEN
10055: THEN
10056: CLOSE child_lse_app_csr;
10079: IF lse_app_dtls_csr%ISOPEN
10080: THEN
10081: CLOSE lse_app_dtls_csr;
10082: END IF;
10083: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10084: p_api_name => l_api_name,
10085: p_pkg_name => G_PKG_NAME,
10086: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
10087: x_msg_count => x_msg_count,
10082: END IF;
10083: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10084: p_api_name => l_api_name,
10085: p_pkg_name => G_PKG_NAME,
10086: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
10087: x_msg_count => x_msg_count,
10088: x_msg_data => x_msg_data,
10089: p_api_type => G_API_TYPE);
10090: WHEN OTHERS THEN
10117: IF lse_app_dtls_csr%ISOPEN
10118: THEN
10119: CLOSE lse_app_dtls_csr;
10120: END IF;
10121: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10122: p_api_name => l_api_name,
10123: p_pkg_name => G_PKG_NAME,
10124: p_exc_name => 'OTHERS',
10125: x_msg_count => x_msg_count,
10153: l_api_version CONSTANT NUMBER DEFAULT G_INIT_VERSION;
10154: l_api_name CONSTANT VARCHAR2(30) DEFAULT 'LEASE_APP_QA_VAL';
10155: l_return_status VARCHAR2(1);
10156: BEGIN
10157: l_return_status := OKL_API.G_RET_STS_SUCCESS;
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');
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(
10169: p_api_name => l_api_name
10170: ,p_pkg_name => G_PKG_NAME
10171: ,p_init_msg_list => p_init_msg_list
10172: ,l_api_version => l_api_version
10174: ,p_api_type => G_API_TYPE
10175: ,x_return_status => l_return_status);
10176:
10177: -- check if activity started successfully
10178: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10179: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10180: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10181: RAISE OKL_API.G_EXCEPTION_ERROR;
10182: END IF;
10175: ,x_return_status => l_return_status);
10176:
10177: -- check if activity started successfully
10178: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10179: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10180: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10181: RAISE OKL_API.G_EXCEPTION_ERROR;
10182: END IF;
10183:
10176:
10177: -- check if activity started successfully
10178: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10179: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10180: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10181: RAISE OKL_API.G_EXCEPTION_ERROR;
10182: END IF;
10183:
10184: --QA Checker integration
10177: -- check if activity started successfully
10178: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10179: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10180: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10181: RAISE OKL_API.G_EXCEPTION_ERROR;
10182: END IF;
10183:
10184: --QA Checker integration
10185: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
10191: END IF;
10192:
10193: OKL_SALES_QUOTE_QA_PVT.RUN_QA_CHECKER(
10194: p_api_version => p_api_version
10195: ,p_init_msg_list => OKL_API.G_FALSE
10196: ,p_object_type => 'LEASEAPP'
10197: ,p_object_id => p_lap_id
10198: ,x_qa_result => x_qa_result
10199: ,x_return_status => l_return_status
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:
10219: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
10220: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10221: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
10222: RAISE OKL_API.G_EXCEPTION_ERROR;
10223: END IF;
10216: ,'l_return_status ' || l_return_status);
10217: END IF; -- end of statement level debug
10218:
10219: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
10220: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10221: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
10222: RAISE OKL_API.G_EXCEPTION_ERROR;
10223: END IF;
10224: --End of Validatation API call
10217: END IF; -- end of statement level debug
10218:
10219: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
10220: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10221: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
10222: RAISE OKL_API.G_EXCEPTION_ERROR;
10223: END IF;
10224: --End of Validatation API call
10225:
10218:
10219: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
10220: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10221: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
10222: RAISE OKL_API.G_EXCEPTION_ERROR;
10223: END IF;
10224: --End of Validatation API call
10225:
10226: x_return_status := l_return_status;
10224: --End of Validatation API call
10225:
10226: x_return_status := l_return_status;
10227:
10228: OKL_API.END_ACTIVITY(
10229: x_msg_count => x_msg_count
10230: ,x_msg_data => x_msg_data);
10231: EXCEPTION
10232: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10228: OKL_API.END_ACTIVITY(
10229: x_msg_count => x_msg_count
10230: ,x_msg_data => x_msg_data);
10231: EXCEPTION
10232: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10233: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10234: p_api_name => l_api_name,
10235: p_pkg_name => G_PKG_NAME,
10236: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10229: x_msg_count => x_msg_count
10230: ,x_msg_data => x_msg_data);
10231: EXCEPTION
10232: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10233: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10234: p_api_name => l_api_name,
10235: p_pkg_name => G_PKG_NAME,
10236: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10237: x_msg_count => x_msg_count,
10232: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10233: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10234: p_api_name => l_api_name,
10235: p_pkg_name => G_PKG_NAME,
10236: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10237: x_msg_count => x_msg_count,
10238: x_msg_data => x_msg_data,
10239: p_api_type => G_API_TYPE);
10240:
10237: x_msg_count => x_msg_count,
10238: x_msg_data => x_msg_data,
10239: p_api_type => G_API_TYPE);
10240:
10241: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10242: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10243: p_api_name => l_api_name,
10244: p_pkg_name => G_PKG_NAME,
10245: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
10238: x_msg_data => x_msg_data,
10239: p_api_type => G_API_TYPE);
10240:
10241: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10242: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10243: p_api_name => l_api_name,
10244: p_pkg_name => G_PKG_NAME,
10245: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
10246: x_msg_count => x_msg_count,
10241: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10242: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10243: p_api_name => l_api_name,
10244: p_pkg_name => G_PKG_NAME,
10245: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
10246: x_msg_count => x_msg_count,
10247: x_msg_data => x_msg_data,
10248: p_api_type => G_API_TYPE);
10249:
10247: x_msg_data => x_msg_data,
10248: p_api_type => G_API_TYPE);
10249:
10250: WHEN OTHERS THEN
10251: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10252: p_api_name => l_api_name,
10253: p_pkg_name => G_PKG_NAME,
10254: p_exc_name => 'OTHERS',
10255: x_msg_count => x_msg_count,
10299: AND LSQ.PARENT_OBJECT_ID = p_lap_id;
10300: l_lsq_dtls_rec l_lsq_dtls_csr%ROWTYPE;
10301:
10302: BEGIN
10303: l_return_status := OKL_API.G_RET_STS_SUCCESS;
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');
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(
10315: p_api_name => l_api_name
10316: ,p_pkg_name => G_PKG_NAME
10317: ,p_init_msg_list => p_init_msg_list
10318: ,l_api_version => l_api_version
10320: ,p_api_type => G_API_TYPE
10321: ,x_return_status => l_return_status);
10322:
10323: -- check if activity started successfully
10324: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10325: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10326: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10327: RAISE OKL_API.G_EXCEPTION_ERROR;
10328: END IF;
10321: ,x_return_status => l_return_status);
10322:
10323: -- check if activity started successfully
10324: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10325: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10326: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10327: RAISE OKL_API.G_EXCEPTION_ERROR;
10328: END IF;
10329:
10322:
10323: -- check if activity started successfully
10324: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10325: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10326: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10327: RAISE OKL_API.G_EXCEPTION_ERROR;
10328: END IF;
10329:
10330: --Obtain the details of Lease Quote line of Lease App
10323: -- check if activity started successfully
10324: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10325: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10326: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10327: RAISE OKL_API.G_EXCEPTION_ERROR;
10328: END IF;
10329:
10330: --Obtain the details of Lease Quote line of Lease App
10331: OPEN l_lsq_dtls_csr(p_lap_id);
10342: END IF;
10343:
10344: OKL_PRICING_UTILS_PVT.PRICE_STANDARD_QUOTE(
10345: p_api_version => p_api_version
10346: ,p_init_msg_list => OKL_API.G_FALSE
10347: ,p_qte_id => l_lsq_dtls_rec.lsq_id
10348: ,x_return_status => l_return_status
10349: ,x_msg_count => x_msg_count
10350: ,x_msg_data => x_msg_data);
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:
10368: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
10369: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10370: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
10371: RAISE OKL_API.G_EXCEPTION_ERROR;
10372: END IF;
10365: ,'l_return_status ' || l_return_status);
10366: END IF; -- end of statement level debug
10367:
10368: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
10369: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10370: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
10371: RAISE OKL_API.G_EXCEPTION_ERROR;
10372: END IF;
10373: --End of Pricing API call
10366: END IF; -- end of statement level debug
10367:
10368: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
10369: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10370: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
10371: RAISE OKL_API.G_EXCEPTION_ERROR;
10372: END IF;
10373: --End of Pricing API call
10374:
10367:
10368: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
10369: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10370: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
10371: RAISE OKL_API.G_EXCEPTION_ERROR;
10372: END IF;
10373: --End of Pricing API call
10374:
10375: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
10381: END IF;
10382:
10383: SET_LEASE_APP_STATUS(
10384: p_api_version => p_api_version
10385: ,p_init_msg_list => OKL_API.G_FALSE
10386: ,p_lap_id => p_lap_id
10387: ,p_lap_status => 'PR-COMPLETE'
10388: ,x_return_status => l_return_status
10389: ,x_msg_count => x_msg_count
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:
10408: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
10409: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10410: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
10411: RAISE OKL_API.G_EXCEPTION_ERROR;
10412: END IF;
10405: ,'l_return_status ' || l_return_status);
10406: END IF; -- end of statement level debug
10407:
10408: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
10409: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10410: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
10411: RAISE OKL_API.G_EXCEPTION_ERROR;
10412: END IF;
10413:
10406: END IF; -- end of statement level debug
10407:
10408: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
10409: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10410: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
10411: RAISE OKL_API.G_EXCEPTION_ERROR;
10412: END IF;
10413:
10414: -- Bug#4741121 - viselvar - Modified - Start
10407:
10408: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
10409: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10410: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
10411: RAISE OKL_API.G_EXCEPTION_ERROR;
10412: END IF;
10413:
10414: -- Bug#4741121 - viselvar - Modified - Start
10415: -- raise the business event passing the Lease Application id added to the parameter list
10425: ,p_event_name => p_event_name
10426: ,p_parameters => l_parameter_list);
10427:
10428:
10429: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
10430: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10431: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
10432: RAISE OKL_API.G_EXCEPTION_ERROR;
10433: END IF;
10426: ,p_parameters => l_parameter_list);
10427:
10428:
10429: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
10430: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10431: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
10432: RAISE OKL_API.G_EXCEPTION_ERROR;
10433: END IF;
10434:
10427:
10428:
10429: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
10430: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10431: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
10432: RAISE OKL_API.G_EXCEPTION_ERROR;
10433: END IF;
10434:
10435: -- Bug#4741121 - viselvar - Modified - End
10428:
10429: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
10430: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10431: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
10432: RAISE OKL_API.G_EXCEPTION_ERROR;
10433: END IF;
10434:
10435: -- Bug#4741121 - viselvar - Modified - End
10436: x_return_status := l_return_status;
10434:
10435: -- Bug#4741121 - viselvar - Modified - End
10436: x_return_status := l_return_status;
10437:
10438: OKL_API.END_ACTIVITY(
10439: x_msg_count => x_msg_count
10440: ,x_msg_data => x_msg_data);
10441: EXCEPTION
10442: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10438: OKL_API.END_ACTIVITY(
10439: x_msg_count => x_msg_count
10440: ,x_msg_data => x_msg_data);
10441: EXCEPTION
10442: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10443: --Check if Lease Quote cursor is open
10444: IF l_lsq_dtls_csr%ISOPEN
10445: THEN
10446: CLOSE l_lsq_dtls_csr;
10444: IF l_lsq_dtls_csr%ISOPEN
10445: THEN
10446: CLOSE l_lsq_dtls_csr;
10447: END IF;
10448: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10449: p_api_name => l_api_name,
10450: p_pkg_name => G_PKG_NAME,
10451: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10452: x_msg_count => x_msg_count,
10447: END IF;
10448: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10449: p_api_name => l_api_name,
10450: p_pkg_name => G_PKG_NAME,
10451: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10452: x_msg_count => x_msg_count,
10453: x_msg_data => x_msg_data,
10454: p_api_type => G_API_TYPE);
10455:
10452: x_msg_count => x_msg_count,
10453: x_msg_data => x_msg_data,
10454: p_api_type => G_API_TYPE);
10455:
10456: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10457: --Check if Lease Quote cursor is open
10458: IF l_lsq_dtls_csr%ISOPEN
10459: THEN
10460: CLOSE l_lsq_dtls_csr;
10458: IF l_lsq_dtls_csr%ISOPEN
10459: THEN
10460: CLOSE l_lsq_dtls_csr;
10461: END IF;
10462: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10463: p_api_name => l_api_name,
10464: p_pkg_name => G_PKG_NAME,
10465: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
10466: x_msg_count => x_msg_count,
10461: END IF;
10462: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10463: p_api_name => l_api_name,
10464: p_pkg_name => G_PKG_NAME,
10465: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
10466: x_msg_count => x_msg_count,
10467: x_msg_data => x_msg_data,
10468: p_api_type => G_API_TYPE);
10469: WHEN OTHERS THEN
10471: IF l_lsq_dtls_csr%ISOPEN
10472: THEN
10473: CLOSE l_lsq_dtls_csr;
10474: END IF;
10475: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10476: p_api_name => l_api_name,
10477: p_pkg_name => G_PKG_NAME,
10478: p_exc_name => 'OTHERS',
10479: x_msg_count => x_msg_count,
10514: x_lapv_rec lapv_rec_type;
10515: x_lsqv_rec lsqv_rec_type;
10516:
10517: BEGIN
10518: l_return_status := OKL_API.G_RET_STS_SUCCESS;
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');
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(
10530: p_api_name => l_api_name
10531: ,p_pkg_name => G_PKG_NAME
10532: ,p_init_msg_list => p_init_msg_list
10533: ,l_api_version => l_api_version
10535: ,p_api_type => G_API_TYPE
10536: ,x_return_status => l_return_status);
10537:
10538: -- check if activity started successfully
10539: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10540: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10541: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10542: RAISE OKL_API.G_EXCEPTION_ERROR;
10543: END IF;
10536: ,x_return_status => l_return_status);
10537:
10538: -- check if activity started successfully
10539: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10540: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10541: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10542: RAISE OKL_API.G_EXCEPTION_ERROR;
10543: END IF;
10544:
10537:
10538: -- check if activity started successfully
10539: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10540: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10541: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10542: RAISE OKL_API.G_EXCEPTION_ERROR;
10543: END IF;
10544:
10545: --Populate Lease Application rec with the values from database.
10538: -- check if activity started successfully
10539: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10540: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10541: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10542: RAISE OKL_API.G_EXCEPTION_ERROR;
10543: END IF;
10544:
10545: --Populate Lease Application rec with the values from database.
10546: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
10552: END IF;
10553:
10554: POPULATE_LEASE_APP(
10555: p_api_version => p_api_version
10556: ,p_init_msg_list => OKL_API.G_FALSE
10557: ,x_return_status => l_return_status
10558: ,x_msg_count => x_msg_count
10559: ,x_msg_data => x_msg_data
10560: ,p_lap_id => p_lap_id
10576: ,L_MODULE || ' Result of POPULATE_LEASE_APP'
10577: ,'l_return_status ' || l_return_status);
10578: END IF; -- end of statement level debug
10579:
10580: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
10581: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10582: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
10583: RAISE OKL_API.G_EXCEPTION_ERROR;
10584: END IF;
10577: ,'l_return_status ' || l_return_status);
10578: END IF; -- end of statement level debug
10579:
10580: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
10581: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10582: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
10583: RAISE OKL_API.G_EXCEPTION_ERROR;
10584: END IF;
10585:
10578: END IF; -- end of statement level debug
10579:
10580: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
10581: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10582: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
10583: RAISE OKL_API.G_EXCEPTION_ERROR;
10584: END IF;
10585:
10586: l_lapv_rec := x_lapv_rec;
10579:
10580: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
10581: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10582: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
10583: RAISE OKL_API.G_EXCEPTION_ERROR;
10584: END IF;
10585:
10586: l_lapv_rec := x_lapv_rec;
10587: l_lapv_rec.application_status := p_lap_status;
10595: END IF;
10596:
10597: OKL_LAP_PVT.UPDATE_ROW(
10598: p_api_version => p_api_version
10599: ,p_init_msg_list => OKL_API.G_FALSE
10600: ,x_return_status => l_return_status
10601: ,x_msg_count => x_msg_count
10602: ,x_msg_data => x_msg_data
10603: ,p_lapv_rec => l_lapv_rec
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:
10622: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
10623: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10624: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
10625: RAISE OKL_API.G_EXCEPTION_ERROR;
10626: END IF;
10619: ,'l_return_status ' || l_return_status);
10620: END IF; -- end of statement level debug
10621:
10622: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
10623: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10624: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
10625: RAISE OKL_API.G_EXCEPTION_ERROR;
10626: END IF;
10627:
10620: END IF; -- end of statement level debug
10621:
10622: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
10623: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10624: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
10625: RAISE OKL_API.G_EXCEPTION_ERROR;
10626: END IF;
10627:
10628: x_return_status := l_return_status;
10621:
10622: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
10623: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10624: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
10625: RAISE OKL_API.G_EXCEPTION_ERROR;
10626: END IF;
10627:
10628: x_return_status := l_return_status;
10629:
10626: END IF;
10627:
10628: x_return_status := l_return_status;
10629:
10630: OKL_API.END_ACTIVITY(
10631: x_msg_count => x_msg_count
10632: ,x_msg_data => x_msg_data);
10633: EXCEPTION
10634: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10630: OKL_API.END_ACTIVITY(
10631: x_msg_count => x_msg_count
10632: ,x_msg_data => x_msg_data);
10633: EXCEPTION
10634: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10635: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10636: p_api_name => l_api_name,
10637: p_pkg_name => G_PKG_NAME,
10638: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10631: x_msg_count => x_msg_count
10632: ,x_msg_data => x_msg_data);
10633: EXCEPTION
10634: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10635: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10636: p_api_name => l_api_name,
10637: p_pkg_name => G_PKG_NAME,
10638: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10639: x_msg_count => x_msg_count,
10634: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10635: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10636: p_api_name => l_api_name,
10637: p_pkg_name => G_PKG_NAME,
10638: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10639: x_msg_count => x_msg_count,
10640: x_msg_data => x_msg_data,
10641: p_api_type => G_API_TYPE);
10642:
10639: x_msg_count => x_msg_count,
10640: x_msg_data => x_msg_data,
10641: p_api_type => G_API_TYPE);
10642:
10643: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10644: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10645: p_api_name => l_api_name,
10646: p_pkg_name => G_PKG_NAME,
10647: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
10640: x_msg_data => x_msg_data,
10641: p_api_type => G_API_TYPE);
10642:
10643: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10644: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10645: p_api_name => l_api_name,
10646: p_pkg_name => G_PKG_NAME,
10647: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
10648: x_msg_count => x_msg_count,
10643: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10644: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10645: p_api_name => l_api_name,
10646: p_pkg_name => G_PKG_NAME,
10647: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
10648: x_msg_count => x_msg_count,
10649: x_msg_data => x_msg_data,
10650: p_api_type => G_API_TYPE);
10651:
10649: x_msg_data => x_msg_data,
10650: p_api_type => G_API_TYPE);
10651:
10652: WHEN OTHERS THEN
10653: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10654: p_api_name => l_api_name,
10655: p_pkg_name => G_PKG_NAME,
10656: p_exc_name => 'OTHERS',
10657: x_msg_count => x_msg_count,
10693: x_lapv_rec lapv_rec_type;
10694: x_lsqv_rec lsqv_rec_type;
10695:
10696: BEGIN
10697: l_return_status := OKL_API.G_RET_STS_SUCCESS;
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');
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(
10709: p_api_name => l_api_name
10710: ,p_pkg_name => G_PKG_NAME
10711: ,p_init_msg_list => p_init_msg_list
10712: ,l_api_version => l_api_version
10714: ,p_api_type => G_API_TYPE
10715: ,x_return_status => l_return_status);
10716:
10717: -- check if activity started successfully
10718: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10719: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10720: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10721: RAISE OKL_API.G_EXCEPTION_ERROR;
10722: END IF;
10715: ,x_return_status => l_return_status);
10716:
10717: -- check if activity started successfully
10718: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10719: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10720: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10721: RAISE OKL_API.G_EXCEPTION_ERROR;
10722: END IF;
10723:
10716:
10717: -- check if activity started successfully
10718: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10719: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10720: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10721: RAISE OKL_API.G_EXCEPTION_ERROR;
10722: END IF;
10723:
10724: --Populate Lease Application rec with the values from database.
10717: -- check if activity started successfully
10718: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10719: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10720: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10721: RAISE OKL_API.G_EXCEPTION_ERROR;
10722: END IF;
10723:
10724: --Populate Lease Application rec with the values from database.
10725: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
10731: END IF;
10732:
10733: POPULATE_LEASE_APP(
10734: p_api_version => p_api_version
10735: ,p_init_msg_list => OKL_API.G_FALSE
10736: ,x_return_status => l_return_status
10737: ,x_msg_count => x_msg_count
10738: ,x_msg_data => x_msg_data
10739: ,p_lap_id => p_lap_id
10755: ,L_MODULE || ' Result of POPULATE_LEASE_APP'
10756: ,'l_return_status ' || l_return_status);
10757: END IF; -- end of statement level debug
10758:
10759: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
10760: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10761: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
10762: RAISE OKL_API.G_EXCEPTION_ERROR;
10763: END IF;
10756: ,'l_return_status ' || l_return_status);
10757: END IF; -- end of statement level debug
10758:
10759: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
10760: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10761: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
10762: RAISE OKL_API.G_EXCEPTION_ERROR;
10763: END IF;
10764:
10757: END IF; -- end of statement level debug
10758:
10759: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
10760: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10761: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
10762: RAISE OKL_API.G_EXCEPTION_ERROR;
10763: END IF;
10764:
10765: l_lapv_rec := x_lapv_rec;
10758:
10759: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
10760: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10761: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
10762: RAISE OKL_API.G_EXCEPTION_ERROR;
10763: END IF;
10764:
10765: l_lapv_rec := x_lapv_rec;
10766: l_lapv_rec.cr_exp_days := p_lap_expdays;
10774: END IF;
10775:
10776: OKL_LAP_PVT.UPDATE_ROW(
10777: p_api_version => p_api_version
10778: ,p_init_msg_list => OKL_API.G_FALSE
10779: ,x_return_status => l_return_status
10780: ,x_msg_count => x_msg_count
10781: ,x_msg_data => x_msg_data
10782: ,p_lapv_rec => l_lapv_rec
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:
10801: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
10802: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10803: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
10804: RAISE OKL_API.G_EXCEPTION_ERROR;
10805: END IF;
10798: ,'l_return_status ' || l_return_status);
10799: END IF; -- end of statement level debug
10800:
10801: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
10802: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10803: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
10804: RAISE OKL_API.G_EXCEPTION_ERROR;
10805: END IF;
10806:
10799: END IF; -- end of statement level debug
10800:
10801: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
10802: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10803: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
10804: RAISE OKL_API.G_EXCEPTION_ERROR;
10805: END IF;
10806:
10807: x_return_status := l_return_status;
10800:
10801: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
10802: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10803: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
10804: RAISE OKL_API.G_EXCEPTION_ERROR;
10805: END IF;
10806:
10807: x_return_status := l_return_status;
10808:
10805: END IF;
10806:
10807: x_return_status := l_return_status;
10808:
10809: OKL_API.END_ACTIVITY(
10810: x_msg_count => x_msg_count
10811: ,x_msg_data => x_msg_data);
10812: EXCEPTION
10813: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10809: OKL_API.END_ACTIVITY(
10810: x_msg_count => x_msg_count
10811: ,x_msg_data => x_msg_data);
10812: EXCEPTION
10813: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10814: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10815: p_api_name => l_api_name,
10816: p_pkg_name => G_PKG_NAME,
10817: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10810: x_msg_count => x_msg_count
10811: ,x_msg_data => x_msg_data);
10812: EXCEPTION
10813: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10814: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10815: p_api_name => l_api_name,
10816: p_pkg_name => G_PKG_NAME,
10817: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10818: x_msg_count => x_msg_count,
10813: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10814: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10815: p_api_name => l_api_name,
10816: p_pkg_name => G_PKG_NAME,
10817: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10818: x_msg_count => x_msg_count,
10819: x_msg_data => x_msg_data,
10820: p_api_type => G_API_TYPE);
10821:
10818: x_msg_count => x_msg_count,
10819: x_msg_data => x_msg_data,
10820: p_api_type => G_API_TYPE);
10821:
10822: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10823: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10824: p_api_name => l_api_name,
10825: p_pkg_name => G_PKG_NAME,
10826: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
10819: x_msg_data => x_msg_data,
10820: p_api_type => G_API_TYPE);
10821:
10822: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10823: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10824: p_api_name => l_api_name,
10825: p_pkg_name => G_PKG_NAME,
10826: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
10827: x_msg_count => x_msg_count,
10822: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10823: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10824: p_api_name => l_api_name,
10825: p_pkg_name => G_PKG_NAME,
10826: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
10827: x_msg_count => x_msg_count,
10828: x_msg_data => x_msg_data,
10829: p_api_type => G_API_TYPE);
10830:
10828: x_msg_data => x_msg_data,
10829: p_api_type => G_API_TYPE);
10830:
10831: WHEN OTHERS THEN
10832: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10833: p_api_name => l_api_name,
10834: p_pkg_name => G_PKG_NAME,
10835: p_exc_name => 'OTHERS',
10836: x_msg_count => x_msg_count,
10865: l_func_curr_code VARCHAR2(15);
10866: l_return_status VARCHAR2(1);
10867: l_meaning VARCHAR2(80);
10868: BEGIN
10869: l_return_status := OKL_API.G_RET_STS_SUCCESS;
10870: SELECT OKL_ACCOUNTING_UTIL.GET_FUNC_CURR_CODE INTO l_func_curr_code
10871: FROM DUAL;
10872:
10873: IF(p_curr_code IS NULL
10870: SELECT OKL_ACCOUNTING_UTIL.GET_FUNC_CURR_CODE INTO l_func_curr_code
10871: FROM DUAL;
10872:
10873: IF(p_curr_code IS NULL
10874: OR p_curr_code = OKL_API.G_MISS_CHAR)
10875: THEN
10876: l_return_status := OKL_API.G_RET_STS_ERROR;
10877: OKL_API.SET_MESSAGE(
10878: p_app_name => G_APP_NAME,
10872:
10873: IF(p_curr_code IS NULL
10874: OR p_curr_code = OKL_API.G_MISS_CHAR)
10875: THEN
10876: l_return_status := OKL_API.G_RET_STS_ERROR;
10877: OKL_API.SET_MESSAGE(
10878: p_app_name => G_APP_NAME,
10879: p_msg_name => 'OKL_INVALID_CURRENCY');
10880: RETURN l_return_status;
10873: IF(p_curr_code IS NULL
10874: OR p_curr_code = OKL_API.G_MISS_CHAR)
10875: THEN
10876: l_return_status := OKL_API.G_RET_STS_ERROR;
10877: OKL_API.SET_MESSAGE(
10878: p_app_name => G_APP_NAME,
10879: p_msg_name => 'OKL_INVALID_CURRENCY');
10880: RETURN l_return_status;
10881: END IF;
10880: RETURN l_return_status;
10881: END IF;
10882:
10883: IF(l_func_curr_code IS NULL
10884: OR l_func_curr_code = OKL_API.G_MISS_CHAR)
10885: THEN
10886: l_return_status := OKL_API.G_RET_STS_ERROR;
10887: OKL_API.SET_MESSAGE(
10888: p_app_name => G_APP_NAME,
10882:
10883: IF(l_func_curr_code IS NULL
10884: OR l_func_curr_code = OKL_API.G_MISS_CHAR)
10885: THEN
10886: l_return_status := OKL_API.G_RET_STS_ERROR;
10887: OKL_API.SET_MESSAGE(
10888: p_app_name => G_APP_NAME,
10889: p_msg_name => 'OKL_FUNC_CURR_NOT_FOUND');
10890: RETURN l_return_status;
10883: IF(l_func_curr_code IS NULL
10884: OR l_func_curr_code = OKL_API.G_MISS_CHAR)
10885: THEN
10886: l_return_status := OKL_API.G_RET_STS_ERROR;
10887: OKL_API.SET_MESSAGE(
10888: p_app_name => G_APP_NAME,
10889: p_msg_name => 'OKL_FUNC_CURR_NOT_FOUND');
10890: RETURN l_return_status;
10891: END IF;
10892:
10893: IF(p_curr_code <> l_func_curr_code)
10894: THEN
10895: IF(p_curr_type IS NULL
10896: OR p_curr_type = OKL_API.G_MISS_CHAR
10897: OR p_curr_type = 'NONE')
10898: THEN
10899: l_return_status := OKL_API.G_RET_STS_ERROR;
10900: OKL_API.SET_MESSAGE(
10895: IF(p_curr_type IS NULL
10896: OR p_curr_type = OKL_API.G_MISS_CHAR
10897: OR p_curr_type = 'NONE')
10898: THEN
10899: l_return_status := OKL_API.G_RET_STS_ERROR;
10900: OKL_API.SET_MESSAGE(
10901: p_app_name => G_APP_NAME,
10902: p_msg_name => 'OKL_BPD_PLS_ENT_CUR_TYPE');
10903: RETURN l_return_status;
10896: OR p_curr_type = OKL_API.G_MISS_CHAR
10897: OR p_curr_type = 'NONE')
10898: THEN
10899: l_return_status := OKL_API.G_RET_STS_ERROR;
10900: OKL_API.SET_MESSAGE(
10901: p_app_name => G_APP_NAME,
10902: p_msg_name => 'OKL_BPD_PLS_ENT_CUR_TYPE');
10903: RETURN l_return_status;
10904: ELSE
10908: WHERE CONVERSION_TYPE = p_curr_type;
10909:
10910: IF(l_meaning IS NULL)
10911: THEN
10912: l_return_status := OKL_API.G_RET_STS_ERROR;
10913: OKL_API.SET_MESSAGE(
10914: p_app_name => G_APP_NAME,
10915: p_msg_name => 'OKL_INVALID_CURR_CONV');
10916: RETURN l_return_status;
10909:
10910: IF(l_meaning IS NULL)
10911: THEN
10912: l_return_status := OKL_API.G_RET_STS_ERROR;
10913: OKL_API.SET_MESSAGE(
10914: p_app_name => G_APP_NAME,
10915: p_msg_name => 'OKL_INVALID_CURR_CONV');
10916: RETURN l_return_status;
10917: END IF;
10920: THEN
10921: -- bug 5148581 abhsaxen modify checking condition
10922: --replace or with and
10923: IF(p_curr_rate IS NOT NULL
10924: AND p_curr_rate <> OKL_API.G_MISS_NUM)
10925: THEN
10926: l_return_status := OKL_API.G_RET_STS_ERROR;
10927: OKL_API.SET_MESSAGE(
10928: p_app_name => G_APP_NAME,
10922: --replace or with and
10923: IF(p_curr_rate IS NOT NULL
10924: AND p_curr_rate <> OKL_API.G_MISS_NUM)
10925: THEN
10926: l_return_status := OKL_API.G_RET_STS_ERROR;
10927: OKL_API.SET_MESSAGE(
10928: p_app_name => G_APP_NAME,
10929: p_msg_name => 'OKL_LA_CONV_RATE_CHK');
10930: RETURN l_return_status;
10923: IF(p_curr_rate IS NOT NULL
10924: AND p_curr_rate <> OKL_API.G_MISS_NUM)
10925: THEN
10926: l_return_status := OKL_API.G_RET_STS_ERROR;
10927: OKL_API.SET_MESSAGE(
10928: p_app_name => G_APP_NAME,
10929: p_msg_name => 'OKL_LA_CONV_RATE_CHK');
10930: RETURN l_return_status;
10931: END IF;
10929: p_msg_name => 'OKL_LA_CONV_RATE_CHK');
10930: RETURN l_return_status;
10931: END IF;
10932: IF(p_curr_date IS NULL
10933: OR p_curr_date = OKL_API.G_MISS_DATE)
10934: THEN
10935: l_return_status := OKL_API.G_RET_STS_ERROR;
10936: OKL_API.SET_MESSAGE(
10937: p_app_name => G_APP_NAME,
10931: END IF;
10932: IF(p_curr_date IS NULL
10933: OR p_curr_date = OKL_API.G_MISS_DATE)
10934: THEN
10935: l_return_status := OKL_API.G_RET_STS_ERROR;
10936: OKL_API.SET_MESSAGE(
10937: p_app_name => G_APP_NAME,
10938: p_msg_name => 'OKL_CONVERSION_DATE_INVALID');
10939: RETURN l_return_status;
10932: IF(p_curr_date IS NULL
10933: OR p_curr_date = OKL_API.G_MISS_DATE)
10934: THEN
10935: l_return_status := OKL_API.G_RET_STS_ERROR;
10936: OKL_API.SET_MESSAGE(
10937: p_app_name => G_APP_NAME,
10938: p_msg_name => 'OKL_CONVERSION_DATE_INVALID');
10939: RETURN l_return_status;
10940: END IF;
10940: END IF;
10941: ELSIF(UPPER(p_curr_type) = 'USER')
10942: THEN
10943: IF(p_curr_rate IS NULL
10944: OR p_curr_rate = OKL_API.G_MISS_NUM)
10945: THEN
10946: l_return_status := OKL_API.G_RET_STS_ERROR;
10947: OKL_API.SET_MESSAGE(
10948: p_app_name => G_APP_NAME,
10942: THEN
10943: IF(p_curr_rate IS NULL
10944: OR p_curr_rate = OKL_API.G_MISS_NUM)
10945: THEN
10946: l_return_status := OKL_API.G_RET_STS_ERROR;
10947: OKL_API.SET_MESSAGE(
10948: p_app_name => G_APP_NAME,
10949: p_msg_name => 'OKL_BPD_USR_RTE_SUPPLIED');
10950: RETURN l_return_status;
10943: IF(p_curr_rate IS NULL
10944: OR p_curr_rate = OKL_API.G_MISS_NUM)
10945: THEN
10946: l_return_status := OKL_API.G_RET_STS_ERROR;
10947: OKL_API.SET_MESSAGE(
10948: p_app_name => G_APP_NAME,
10949: p_msg_name => 'OKL_BPD_USR_RTE_SUPPLIED');
10950: RETURN l_return_status;
10951: END IF;
10949: p_msg_name => 'OKL_BPD_USR_RTE_SUPPLIED');
10950: RETURN l_return_status;
10951: END IF;
10952: IF(p_curr_date IS NULL
10953: OR p_curr_date = OKL_API.G_MISS_DATE)
10954: THEN
10955: l_return_status := OKL_API.G_RET_STS_ERROR;
10956: OKL_API.SET_MESSAGE(
10957: p_app_name => G_APP_NAME,
10951: END IF;
10952: IF(p_curr_date IS NULL
10953: OR p_curr_date = OKL_API.G_MISS_DATE)
10954: THEN
10955: l_return_status := OKL_API.G_RET_STS_ERROR;
10956: OKL_API.SET_MESSAGE(
10957: p_app_name => G_APP_NAME,
10958: p_msg_name => 'OKL_CONVERSION_DATE_INVALID');
10959: RETURN l_return_status;
10952: IF(p_curr_date IS NULL
10953: OR p_curr_date = OKL_API.G_MISS_DATE)
10954: THEN
10955: l_return_status := OKL_API.G_RET_STS_ERROR;
10956: OKL_API.SET_MESSAGE(
10957: p_app_name => G_APP_NAME,
10958: p_msg_name => 'OKL_CONVERSION_DATE_INVALID');
10959: RETURN l_return_status;
10960: END IF;
10960: END IF;
10961: END IF;--Check for different values for Conversion Type
10962: ELSE
10963: --Currency Conversion columns must not be populated
10964: IF((p_curr_type IS NOT NULL AND p_curr_type <> OKL_API.G_MISS_CHAR AND p_curr_type <> 'NONE') OR
10965: (p_curr_rate IS NOT NULL AND p_curr_rate <> OKL_API.G_MISS_NUM) OR
10966: (p_curr_date IS NOT NULL AND p_curr_date <> OKL_API.G_MISS_DATE))
10967: THEN
10968: l_return_status := OKL_API.G_RET_STS_ERROR;
10961: END IF;--Check for different values for Conversion Type
10962: ELSE
10963: --Currency Conversion columns must not be populated
10964: IF((p_curr_type IS NOT NULL AND p_curr_type <> OKL_API.G_MISS_CHAR AND p_curr_type <> 'NONE') OR
10965: (p_curr_rate IS NOT NULL AND p_curr_rate <> OKL_API.G_MISS_NUM) OR
10966: (p_curr_date IS NOT NULL AND p_curr_date <> OKL_API.G_MISS_DATE))
10967: THEN
10968: l_return_status := OKL_API.G_RET_STS_ERROR;
10969: OKL_API.SET_MESSAGE(
10962: ELSE
10963: --Currency Conversion columns must not be populated
10964: IF((p_curr_type IS NOT NULL AND p_curr_type <> OKL_API.G_MISS_CHAR AND p_curr_type <> 'NONE') OR
10965: (p_curr_rate IS NOT NULL AND p_curr_rate <> OKL_API.G_MISS_NUM) OR
10966: (p_curr_date IS NOT NULL AND p_curr_date <> OKL_API.G_MISS_DATE))
10967: THEN
10968: l_return_status := OKL_API.G_RET_STS_ERROR;
10969: OKL_API.SET_MESSAGE(
10970: p_app_name => G_APP_NAME,
10964: IF((p_curr_type IS NOT NULL AND p_curr_type <> OKL_API.G_MISS_CHAR AND p_curr_type <> 'NONE') OR
10965: (p_curr_rate IS NOT NULL AND p_curr_rate <> OKL_API.G_MISS_NUM) OR
10966: (p_curr_date IS NOT NULL AND p_curr_date <> OKL_API.G_MISS_DATE))
10967: THEN
10968: l_return_status := OKL_API.G_RET_STS_ERROR;
10969: OKL_API.SET_MESSAGE(
10970: p_app_name => G_APP_NAME,
10971: p_msg_name => 'OKL_CURR_FUNC_CURR_SAME');
10972: RETURN l_return_status;
10965: (p_curr_rate IS NOT NULL AND p_curr_rate <> OKL_API.G_MISS_NUM) OR
10966: (p_curr_date IS NOT NULL AND p_curr_date <> OKL_API.G_MISS_DATE))
10967: THEN
10968: l_return_status := OKL_API.G_RET_STS_ERROR;
10969: OKL_API.SET_MESSAGE(
10970: p_app_name => G_APP_NAME,
10971: p_msg_name => 'OKL_CURR_FUNC_CURR_SAME');
10972: RETURN l_return_status;
10973: END IF;
10976: RETURN l_return_status;
10977: EXCEPTION
10978: WHEN OTHERS
10979: THEN
10980: OKL_API.SET_MESSAGE(
10981: p_app_name => G_APP_NAME,
10982: p_msg_name => G_UNEXPECTED_ERROR,
10983: p_token1 => G_SQLCODE_TOKEN,
10984: p_token1_value => SQLCODE,
10983: p_token1 => G_SQLCODE_TOKEN,
10984: p_token1_value => SQLCODE,
10985: p_token2 => G_SQLERRM_TOKEN,
10986: p_token2_value => SQLERRM);
10987: RETURN OKL_API.G_RET_STS_ERROR;
10988: END is_curr_conv_valid;
10989:
10990: ------------------------------------------------------------------------------
10991: -- PROCEDURE lease_app_unaccept
11024: FROM OKL_LEASE_APPLICATIONS_B LAB
11025: WHERE LAB.ID = p_lse_app_id;
11026: lse_app_dtls_rec lse_app_dtls_csr%ROWTYPE;
11027: BEGIN
11028: l_return_status := OKL_API.G_RET_STS_SUCCESS;
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');
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(
11040: p_api_name => l_api_name
11041: ,p_pkg_name => G_PKG_NAME
11042: ,p_init_msg_list => p_init_msg_list
11043: ,l_api_version => l_api_version
11045: ,p_api_type => G_API_TYPE
11046: ,x_return_status => l_return_status);
11047:
11048: -- check if activity started successfully
11049: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11050: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11051: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
11052: RAISE OKL_API.G_EXCEPTION_ERROR;
11053: END IF;
11046: ,x_return_status => l_return_status);
11047:
11048: -- check if activity started successfully
11049: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11050: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11051: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
11052: RAISE OKL_API.G_EXCEPTION_ERROR;
11053: END IF;
11054:
11047:
11048: -- check if activity started successfully
11049: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11050: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11051: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
11052: RAISE OKL_API.G_EXCEPTION_ERROR;
11053: END IF;
11054:
11055: --Populate Lease Application rec with the values from database.
11048: -- check if activity started successfully
11049: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11050: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11051: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
11052: RAISE OKL_API.G_EXCEPTION_ERROR;
11053: END IF;
11054:
11055: --Populate Lease Application rec with the values from database.
11056: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
11062: END IF;
11063:
11064: POPULATE_LEASE_APP(
11065: p_api_version => p_api_version
11066: ,p_init_msg_list => OKL_API.G_FALSE
11067: ,x_return_status => l_return_status
11068: ,x_msg_count => x_msg_count
11069: ,x_msg_data => x_msg_data
11070: ,p_lap_id => p_lap_id
11086: ,L_MODULE || ' Result of POPULATE_LEASE_APP'
11087: ,'l_return_status ' || l_return_status);
11088: END IF; -- end of statement level debug
11089:
11090: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
11091: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11092: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
11093: RAISE OKL_API.G_EXCEPTION_ERROR;
11094: END IF;
11087: ,'l_return_status ' || l_return_status);
11088: END IF; -- end of statement level debug
11089:
11090: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
11091: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11092: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
11093: RAISE OKL_API.G_EXCEPTION_ERROR;
11094: END IF;
11095:
11088: END IF; -- end of statement level debug
11089:
11090: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
11091: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11092: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
11093: RAISE OKL_API.G_EXCEPTION_ERROR;
11094: END IF;
11095:
11096: --Validate if Lease App is appealed lease app then unaccept is not allowed
11089:
11090: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
11091: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11092: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
11093: RAISE OKL_API.G_EXCEPTION_ERROR;
11094: END IF;
11095:
11096: --Validate if Lease App is appealed lease app then unaccept is not allowed
11097: IF(l_lapv_rec.action = 'APPEAL')
11099: OPEN lse_app_dtls_csr(l_lapv_rec.parent_leaseapp_id);
11100: FETCH lse_app_dtls_csr INTO lse_app_dtls_rec;
11101: CLOSE lse_app_dtls_csr;
11102:
11103: l_return_status := OKL_API.G_RET_STS_ERROR;
11104: OKL_API.SET_MESSAGE(
11105: p_app_name => G_APP_NAME,
11106: p_msg_name => 'OKL_SO_LSE_APP_UNACCEPT_ERR',
11107: p_token1 => 'LEASE_APP',
11100: FETCH lse_app_dtls_csr INTO lse_app_dtls_rec;
11101: CLOSE lse_app_dtls_csr;
11102:
11103: l_return_status := OKL_API.G_RET_STS_ERROR;
11104: OKL_API.SET_MESSAGE(
11105: p_app_name => G_APP_NAME,
11106: p_msg_name => 'OKL_SO_LSE_APP_UNACCEPT_ERR',
11107: p_token1 => 'LEASE_APP',
11108: p_token1_value => l_lapv_rec.reference_number,
11107: p_token1 => 'LEASE_APP',
11108: p_token1_value => l_lapv_rec.reference_number,
11109: p_token2 => 'APL_LEASE_APP',
11110: p_token2_value => lse_app_dtls_rec.reference_number);
11111: RAISE OKL_API.G_EXCEPTION_ERROR;
11112: END IF;
11113:
11114: IF(l_lapv_rec.application_status = 'PR-ACCEPTED')
11115: THEN
11122: END IF;
11123:
11124: SET_LEASE_APP_STATUS(
11125: p_api_version => p_api_version
11126: ,p_init_msg_list => OKL_API.G_FALSE
11127: ,p_lap_id => p_lap_id
11128: ,p_lap_status => 'PR-APPROVED'
11129: ,x_return_status => l_return_status
11130: ,x_msg_count => x_msg_count
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:
11149: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
11150: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11151: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
11152: RAISE OKL_API.G_EXCEPTION_ERROR;
11153: END IF;
11146: ,'l_return_status ' || l_return_status);
11147: END IF; -- end of statement level debug
11148:
11149: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
11150: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11151: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
11152: RAISE OKL_API.G_EXCEPTION_ERROR;
11153: END IF;
11154:
11147: END IF; -- end of statement level debug
11148:
11149: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
11150: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11151: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
11152: RAISE OKL_API.G_EXCEPTION_ERROR;
11153: END IF;
11154:
11155: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
11148:
11149: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
11150: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11151: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
11152: RAISE OKL_API.G_EXCEPTION_ERROR;
11153: END IF;
11154:
11155: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
11156: THEN
11162:
11163: -- call the procedure to unaccept lease quote
11164: OKL_LEASE_QUOTE_PVT.UNACCEPT_LEASE_QTE(
11165: p_api_version => p_api_version
11166: ,p_init_msg_list => OKL_API.G_FALSE
11167: ,p_transaction_control => OKL_API.G_TRUE
11168: ,p_quote_id => l_lsqv_rec.id
11169: ,x_return_status => l_return_status
11170: ,x_msg_count => x_msg_count
11163: -- call the procedure to unaccept lease quote
11164: OKL_LEASE_QUOTE_PVT.UNACCEPT_LEASE_QTE(
11165: p_api_version => p_api_version
11166: ,p_init_msg_list => OKL_API.G_FALSE
11167: ,p_transaction_control => OKL_API.G_TRUE
11168: ,p_quote_id => l_lsqv_rec.id
11169: ,x_return_status => l_return_status
11170: ,x_msg_count => x_msg_count
11171: ,x_msg_data => x_msg_data);
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:
11189: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
11190: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11191: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
11192: RAISE OKL_API.G_EXCEPTION_ERROR;
11193: END IF;
11186: ,' result status ' || l_return_status);
11187: END IF; -- end of statement level debug
11188:
11189: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
11190: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11191: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
11192: RAISE OKL_API.G_EXCEPTION_ERROR;
11193: END IF;
11194: END IF;
11187: END IF; -- end of statement level debug
11188:
11189: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
11190: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11191: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
11192: RAISE OKL_API.G_EXCEPTION_ERROR;
11193: END IF;
11194: END IF;
11195:
11188:
11189: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
11190: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11191: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
11192: RAISE OKL_API.G_EXCEPTION_ERROR;
11193: END IF;
11194: END IF;
11195:
11196: x_return_status := l_return_status;
11193: END IF;
11194: END IF;
11195:
11196: x_return_status := l_return_status;
11197: OKL_API.END_ACTIVITY(
11198: x_msg_count => x_msg_count
11199: ,x_msg_data => x_msg_data);
11200: EXCEPTION
11201: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11197: OKL_API.END_ACTIVITY(
11198: x_msg_count => x_msg_count
11199: ,x_msg_data => x_msg_data);
11200: EXCEPTION
11201: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11202: --Lease Application Details cursor
11203: IF lse_app_dtls_csr%ISOPEN
11204: THEN
11205: CLOSE lse_app_dtls_csr;
11203: IF lse_app_dtls_csr%ISOPEN
11204: THEN
11205: CLOSE lse_app_dtls_csr;
11206: END IF;
11207: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11208: p_api_name => l_api_name,
11209: p_pkg_name => G_PKG_NAME,
11210: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
11211: x_msg_count => x_msg_count,
11206: END IF;
11207: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11208: p_api_name => l_api_name,
11209: p_pkg_name => G_PKG_NAME,
11210: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
11211: x_msg_count => x_msg_count,
11212: x_msg_data => x_msg_data,
11213: p_api_type => G_API_TYPE);
11214: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11210: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
11211: x_msg_count => x_msg_count,
11212: x_msg_data => x_msg_data,
11213: p_api_type => G_API_TYPE);
11214: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11215: --Lease Application Details cursor
11216: IF lse_app_dtls_csr%ISOPEN
11217: THEN
11218: CLOSE lse_app_dtls_csr;
11216: IF lse_app_dtls_csr%ISOPEN
11217: THEN
11218: CLOSE lse_app_dtls_csr;
11219: END IF;
11220: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11221: p_api_name => l_api_name,
11222: p_pkg_name => G_PKG_NAME,
11223: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
11224: x_msg_count => x_msg_count,
11219: END IF;
11220: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11221: p_api_name => l_api_name,
11222: p_pkg_name => G_PKG_NAME,
11223: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
11224: x_msg_count => x_msg_count,
11225: x_msg_data => x_msg_data,
11226: p_api_type => G_API_TYPE);
11227: WHEN OTHERS THEN
11229: IF lse_app_dtls_csr%ISOPEN
11230: THEN
11231: CLOSE lse_app_dtls_csr;
11232: END IF;
11233: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11234: p_api_name => l_api_name,
11235: p_pkg_name => G_PKG_NAME,
11236: p_exc_name => 'OTHERS',
11237: x_msg_count => x_msg_count,
11277: WHERE LAB.ID = p_lap_id;
11278: l_lap_dtls_rec l_lap_dtls_csr%ROWTYPE;
11279:
11280: BEGIN
11281: l_return_status := OKL_API.G_RET_STS_SUCCESS;
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');
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(
11293: p_api_name => l_api_name
11294: ,p_pkg_name => G_PKG_NAME
11295: ,p_init_msg_list => p_init_msg_list
11296: ,l_api_version => l_api_version
11298: ,p_api_type => G_API_TYPE
11299: ,x_return_status => l_return_status);
11300:
11301: -- check if activity started successfully
11302: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11303: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11304: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
11305: RAISE OKL_API.G_EXCEPTION_ERROR;
11306: END IF;
11299: ,x_return_status => l_return_status);
11300:
11301: -- check if activity started successfully
11302: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11303: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11304: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
11305: RAISE OKL_API.G_EXCEPTION_ERROR;
11306: END IF;
11307:
11300:
11301: -- check if activity started successfully
11302: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11303: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11304: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
11305: RAISE OKL_API.G_EXCEPTION_ERROR;
11306: END IF;
11307:
11308: --Obtain the details of Lease App
11301: -- check if activity started successfully
11302: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11303: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11304: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
11305: RAISE OKL_API.G_EXCEPTION_ERROR;
11306: END IF;
11307:
11308: --Obtain the details of Lease App
11309: OPEN l_lap_dtls_csr(p_lap_id);
11319: END IF;
11320:
11321: OKL_QUOTE_TO_CONTRACT_PVT.CREATE_CONTRACT(
11322: p_api_version => p_api_version
11323: ,p_init_msg_list => OKL_API.G_FALSE
11324: ,x_return_status => l_return_status
11325: ,x_msg_count => x_msg_count
11326: ,x_msg_data => x_msg_data
11327: ,p_contract_number => NULL -- Bug#9356216 - null passed so that OKC Autonumbering would be used
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:
11349: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
11350: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11351: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
11352: RAISE OKL_API.G_EXCEPTION_ERROR;
11353: END IF;
11346: ,' return status ' || l_return_status);
11347: END IF; -- end of statement level debug
11348:
11349: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
11350: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11351: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
11352: RAISE OKL_API.G_EXCEPTION_ERROR;
11353: END IF;
11354: --End of create contract API call
11347: END IF; -- end of statement level debug
11348:
11349: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
11350: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11351: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
11352: RAISE OKL_API.G_EXCEPTION_ERROR;
11353: END IF;
11354: --End of create contract API call
11355:
11348:
11349: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
11350: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11351: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
11352: RAISE OKL_API.G_EXCEPTION_ERROR;
11353: END IF;
11354: --End of create contract API call
11355:
11356: x_return_status := l_return_status;
11353: END IF;
11354: --End of create contract API call
11355:
11356: x_return_status := l_return_status;
11357: OKL_API.END_ACTIVITY(
11358: x_msg_count => x_msg_count
11359: ,x_msg_data => x_msg_data);
11360: EXCEPTION
11361: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11357: OKL_API.END_ACTIVITY(
11358: x_msg_count => x_msg_count
11359: ,x_msg_data => x_msg_data);
11360: EXCEPTION
11361: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11362: --Check if Lease App cursor is open
11363: IF l_lap_dtls_csr%ISOPEN
11364: THEN
11365: CLOSE l_lap_dtls_csr;
11363: IF l_lap_dtls_csr%ISOPEN
11364: THEN
11365: CLOSE l_lap_dtls_csr;
11366: END IF;
11367: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11368: p_api_name => l_api_name,
11369: p_pkg_name => G_PKG_NAME,
11370: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
11371: x_msg_count => x_msg_count,
11366: END IF;
11367: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11368: p_api_name => l_api_name,
11369: p_pkg_name => G_PKG_NAME,
11370: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
11371: x_msg_count => x_msg_count,
11372: x_msg_data => x_msg_data,
11373: p_api_type => G_API_TYPE);
11374: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11370: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
11371: x_msg_count => x_msg_count,
11372: x_msg_data => x_msg_data,
11373: p_api_type => G_API_TYPE);
11374: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11375: --Check if Lease App cursor is open
11376: IF l_lap_dtls_csr%ISOPEN
11377: THEN
11378: CLOSE l_lap_dtls_csr;
11376: IF l_lap_dtls_csr%ISOPEN
11377: THEN
11378: CLOSE l_lap_dtls_csr;
11379: END IF;
11380: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11381: p_api_name => l_api_name,
11382: p_pkg_name => G_PKG_NAME,
11383: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
11384: x_msg_count => x_msg_count,
11379: END IF;
11380: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11381: p_api_name => l_api_name,
11382: p_pkg_name => G_PKG_NAME,
11383: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
11384: x_msg_count => x_msg_count,
11385: x_msg_data => x_msg_data,
11386: p_api_type => G_API_TYPE);
11387: WHEN OTHERS THEN
11389: IF l_lap_dtls_csr%ISOPEN
11390: THEN
11391: CLOSE l_lap_dtls_csr;
11392: END IF;
11393: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11394: p_api_name => l_api_name,
11395: p_pkg_name => G_PKG_NAME,
11396: p_exc_name => 'OTHERS',
11397: x_msg_count => x_msg_count,
11480: AND SOURCE_COLUMN1 = LAB.PARENT_LEASEAPP_ID
11481: AND LAB.ID = cp_lap_id;
11482: crd_app_data_rec crd_app_data_csr%ROWTYPE;
11483: BEGIN
11484: l_return_status := OKL_API.G_RET_STS_SUCCESS;
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');
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(
11496: p_api_name => l_api_name
11497: ,p_pkg_name => G_PKG_NAME
11498: ,p_init_msg_list => p_init_msg_list
11499: ,l_api_version => l_api_version
11501: ,p_api_type => G_API_TYPE
11502: ,x_return_status => l_return_status);
11503:
11504: -- check if activity started successfully
11505: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11506: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11507: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
11508: RAISE OKL_API.G_EXCEPTION_ERROR;
11509: END IF;
11502: ,x_return_status => l_return_status);
11503:
11504: -- check if activity started successfully
11505: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11506: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11507: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
11508: RAISE OKL_API.G_EXCEPTION_ERROR;
11509: END IF;
11510:
11503:
11504: -- check if activity started successfully
11505: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11506: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11507: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
11508: RAISE OKL_API.G_EXCEPTION_ERROR;
11509: END IF;
11510:
11511: OPEN crd_app_data_csr(p_lap_id);
11504: -- check if activity started successfully
11505: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11506: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11507: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
11508: RAISE OKL_API.G_EXCEPTION_ERROR;
11509: END IF;
11510:
11511: OPEN crd_app_data_csr(p_lap_id);
11512: FETCH crd_app_data_csr INTO crd_app_data_rec;
11526: END IF;
11527:
11528: POP_CHECKLIST_ITEM(
11529: p_api_version => p_api_version
11530: ,p_init_msg_list => OKL_API.G_FALSE
11531: ,p_cld_id => p_cr_conds(i).itm_name
11532: ,x_cldv_rec => l_cldv_tbl(i)
11533: ,x_return_status => l_return_status
11534: ,x_msg_count => x_msg_count
11549: ,L_MODULE || ' Result of POP_CHECKLIST_ITEM'
11550: ,'l_return_status ' || l_return_status);
11551: END IF; -- end of statement level debug
11552:
11553: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
11554: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11555: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
11556: RAISE OKL_API.G_EXCEPTION_ERROR;
11557: END IF;
11550: ,'l_return_status ' || l_return_status);
11551: END IF; -- end of statement level debug
11552:
11553: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
11554: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11555: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
11556: RAISE OKL_API.G_EXCEPTION_ERROR;
11557: END IF;
11558:
11551: END IF; -- end of statement level debug
11552:
11553: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
11554: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11555: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
11556: RAISE OKL_API.G_EXCEPTION_ERROR;
11557: END IF;
11558:
11559: l_cldv_tbl(i).appeal_flag := p_cr_conds(i).itm_value;
11552:
11553: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
11554: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11555: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
11556: RAISE OKL_API.G_EXCEPTION_ERROR;
11557: END IF;
11558:
11559: l_cldv_tbl(i).appeal_flag := p_cr_conds(i).itm_value;
11560: IF(l_cldv_tbl(i).appeal_flag = 'Y')
11575: END IF;
11576:
11577: OKL_CHECKLIST_PVT.UPD_CHKLST_DTL_APL_FLAG(
11578: p_api_version => p_api_version
11579: ,p_init_msg_list => OKL_API.G_FALSE
11580: ,x_return_status => l_return_status
11581: ,x_msg_count => x_msg_count
11582: ,x_msg_data => x_msg_data
11583: ,p_cldv_tbl => l_cldv_tbl
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:
11602: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
11603: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11604: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
11605: RAISE OKL_API.G_EXCEPTION_ERROR;
11606: END IF;
11599: ,'l_return_status ' || l_return_status);
11600: END IF; -- end of statement level debug
11601:
11602: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
11603: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11604: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
11605: RAISE OKL_API.G_EXCEPTION_ERROR;
11606: END IF;
11607: END IF;--If check for credit conditions table count check
11600: END IF; -- end of statement level debug
11601:
11602: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
11603: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11604: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
11605: RAISE OKL_API.G_EXCEPTION_ERROR;
11606: END IF;
11607: END IF;--If check for credit conditions table count check
11608:
11601:
11602: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
11603: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11604: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
11605: RAISE OKL_API.G_EXCEPTION_ERROR;
11606: END IF;
11607: END IF;--If check for credit conditions table count check
11608:
11609: recom_count := 1;
11699: END IF;
11700:
11701: OCM_RECOMMENDATIONS_PUB.MARK_APPEAL(
11702: p_api_version => p_api_version
11703: ,p_init_msg_list => OKL_API.G_FALSE
11704: ,p_commit => NULL
11705: ,p_validation_level => NULL
11706: ,p_credit_request_id => crd_app_data_rec.credit_request_id
11707: ,p_case_folder_id => NULL
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:
11729: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
11730: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11731: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
11732: RAISE OKL_API.G_EXCEPTION_ERROR;
11733: END IF;
11726: ,'l_return_status ' || l_return_status);
11727: END IF; -- end of statement level debug
11728:
11729: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
11730: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11731: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
11732: RAISE OKL_API.G_EXCEPTION_ERROR;
11733: END IF;
11734:
11727: END IF; -- end of statement level debug
11728:
11729: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
11730: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11731: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
11732: RAISE OKL_API.G_EXCEPTION_ERROR;
11733: END IF;
11734:
11735: x_return_status := l_return_status;
11728:
11729: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
11730: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11731: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
11732: RAISE OKL_API.G_EXCEPTION_ERROR;
11733: END IF;
11734:
11735: x_return_status := l_return_status;
11736: OKL_API.END_ACTIVITY(
11732: RAISE OKL_API.G_EXCEPTION_ERROR;
11733: END IF;
11734:
11735: x_return_status := l_return_status;
11736: OKL_API.END_ACTIVITY(
11737: x_msg_count => x_msg_count
11738: ,x_msg_data => x_msg_data);
11739: EXCEPTION
11740: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11736: OKL_API.END_ACTIVITY(
11737: x_msg_count => x_msg_count
11738: ,x_msg_data => x_msg_data);
11739: EXCEPTION
11740: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11741: --Credit Recommendation Details Cursor
11742: IF credit_recom_csr%ISOPEN
11743: THEN
11744: CLOSE credit_recom_csr;
11747: IF crd_app_data_csr%ISOPEN
11748: THEN
11749: CLOSE crd_app_data_csr;
11750: END IF;
11751: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11752: p_api_name => l_api_name,
11753: p_pkg_name => G_PKG_NAME,
11754: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
11755: x_msg_count => x_msg_count,
11750: END IF;
11751: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11752: p_api_name => l_api_name,
11753: p_pkg_name => G_PKG_NAME,
11754: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
11755: x_msg_count => x_msg_count,
11756: x_msg_data => x_msg_data,
11757: p_api_type => G_API_TYPE);
11758:
11755: x_msg_count => x_msg_count,
11756: x_msg_data => x_msg_data,
11757: p_api_type => G_API_TYPE);
11758:
11759: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11760: --Credit Recommendation Details Cursor
11761: IF credit_recom_csr%ISOPEN
11762: THEN
11763: CLOSE credit_recom_csr;
11766: IF crd_app_data_csr%ISOPEN
11767: THEN
11768: CLOSE crd_app_data_csr;
11769: END IF;
11770: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11771: p_api_name => l_api_name,
11772: p_pkg_name => G_PKG_NAME,
11773: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
11774: x_msg_count => x_msg_count,
11769: END IF;
11770: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11771: p_api_name => l_api_name,
11772: p_pkg_name => G_PKG_NAME,
11773: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
11774: x_msg_count => x_msg_count,
11775: x_msg_data => x_msg_data,
11776: p_api_type => G_API_TYPE);
11777: WHEN OTHERS THEN
11784: IF crd_app_data_csr%ISOPEN
11785: THEN
11786: CLOSE crd_app_data_csr;
11787: END IF;
11788: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11789: p_api_name => l_api_name,
11790: p_pkg_name => G_PKG_NAME,
11791: p_exc_name => 'OTHERS',
11792: x_msg_count => x_msg_count,
11876: AND LSQ.STATUS = 'CT-ACCEPTED'
11877: AND CLAB.ID = p_lap_id;
11878: l_uniq_qte_contract_rec l_uniq_qte_contract_csr%ROWTYPE;
11879: BEGIN
11880: l_return_status := OKL_API.G_RET_STS_SUCCESS;
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');
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(
11892: p_api_name => l_api_name
11893: ,p_pkg_name => G_PKG_NAME
11894: ,p_init_msg_list => p_init_msg_list
11895: ,l_api_version => l_api_version
11897: ,p_api_type => G_API_TYPE
11898: ,x_return_status => l_return_status);
11899:
11900: -- check if activity started successfully
11901: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11902: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11903: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
11904: RAISE OKL_API.G_EXCEPTION_ERROR;
11905: END IF;
11898: ,x_return_status => l_return_status);
11899:
11900: -- check if activity started successfully
11901: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11902: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11903: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
11904: RAISE OKL_API.G_EXCEPTION_ERROR;
11905: END IF;
11906:
11899:
11900: -- check if activity started successfully
11901: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11902: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11903: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
11904: RAISE OKL_API.G_EXCEPTION_ERROR;
11905: END IF;
11906:
11907: -- ER# 7140398 - Start
11900: -- check if activity started successfully
11901: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11902: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11903: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
11904: RAISE OKL_API.G_EXCEPTION_ERROR;
11905: END IF;
11906:
11907: -- ER# 7140398 - Start
11908: -- Do not allow conversion to contract in case the primary quote is Credit Declined.
11906:
11907: -- ER# 7140398 - Start
11908: -- Do not allow conversion to contract in case the primary quote is Credit Declined.
11909: IF (is_primary_quote_declined(p_lap_id)) THEN
11910: l_return_status := OKL_API.G_RET_STS_ERROR;
11911: OKL_API.SET_MESSAGE(
11912: p_app_name => G_APP_NAME,
11913: p_msg_name => 'OKL_SO_DEC_OFFER_TO_CHR_ERR');
11914: RAISE OKL_API.G_EXCEPTION_ERROR;
11907: -- ER# 7140398 - Start
11908: -- Do not allow conversion to contract in case the primary quote is Credit Declined.
11909: IF (is_primary_quote_declined(p_lap_id)) THEN
11910: l_return_status := OKL_API.G_RET_STS_ERROR;
11911: OKL_API.SET_MESSAGE(
11912: p_app_name => G_APP_NAME,
11913: p_msg_name => 'OKL_SO_DEC_OFFER_TO_CHR_ERR');
11914: RAISE OKL_API.G_EXCEPTION_ERROR;
11915: END IF;
11910: l_return_status := OKL_API.G_RET_STS_ERROR;
11911: OKL_API.SET_MESSAGE(
11912: p_app_name => G_APP_NAME,
11913: p_msg_name => 'OKL_SO_DEC_OFFER_TO_CHR_ERR');
11914: RAISE OKL_API.G_EXCEPTION_ERROR;
11915: END IF;
11916: -- Bug# 7140398 - End
11917:
11918: --Obtain the details of Lease App
11925: OPEN l_uniq_contract_csr(p_lap_id);
11926: FETCH l_uniq_contract_csr INTO l_uniq_contract_rec;
11927: IF l_uniq_contract_csr%FOUND
11928: THEN
11929: l_return_status := OKL_API.G_RET_STS_ERROR;
11930: OKL_API.SET_MESSAGE(
11931: p_app_name => G_APP_NAME,
11932: p_msg_name => 'OKL_SO_LSE_APP_DUP_CRE_CON_ERR',
11933: p_token1 => 'LSE_OPP',
11926: FETCH l_uniq_contract_csr INTO l_uniq_contract_rec;
11927: IF l_uniq_contract_csr%FOUND
11928: THEN
11929: l_return_status := OKL_API.G_RET_STS_ERROR;
11930: OKL_API.SET_MESSAGE(
11931: p_app_name => G_APP_NAME,
11932: p_msg_name => 'OKL_SO_LSE_APP_DUP_CRE_CON_ERR',
11933: p_token1 => 'LSE_OPP',
11934: p_token1_value => l_uniq_contract_rec.lse_opp,
11935: p_token2 => 'CONTRACT',
11936: p_token2_value => l_uniq_contract_rec.contract_number,
11937: p_token3 => 'LSE_APP',
11938: p_token3_value => l_uniq_contract_rec.lse_app);
11939: RAISE OKL_API.G_EXCEPTION_ERROR;
11940: END IF;
11941: CLOSE l_uniq_contract_csr;
11942:
11943: --Validate that only one contract being created from source Lease Opp through
11945: OPEN l_uniq_qte_contract_csr(p_lap_id);
11946: FETCH l_uniq_qte_contract_csr INTO l_uniq_qte_contract_rec;
11947: IF l_uniq_qte_contract_csr%FOUND
11948: THEN
11949: l_return_status := OKL_API.G_RET_STS_ERROR;
11950: OKL_API.SET_MESSAGE(
11951: p_app_name => G_APP_NAME,
11952: p_msg_name => 'OKL_SO_LSE_QTE_DUP_CRE_CON_ERR',
11953: p_token1 => 'LSE_OPP',
11946: FETCH l_uniq_qte_contract_csr INTO l_uniq_qte_contract_rec;
11947: IF l_uniq_qte_contract_csr%FOUND
11948: THEN
11949: l_return_status := OKL_API.G_RET_STS_ERROR;
11950: OKL_API.SET_MESSAGE(
11951: p_app_name => G_APP_NAME,
11952: p_msg_name => 'OKL_SO_LSE_QTE_DUP_CRE_CON_ERR',
11953: p_token1 => 'LSE_OPP',
11954: p_token1_value => l_uniq_qte_contract_rec.lse_opp,
11955: p_token2 => 'CONTRACT',
11956: p_token2_value => l_uniq_qte_contract_rec.contract_number,
11957: p_token3 => 'LSE_QTE',
11958: p_token3_value => l_uniq_qte_contract_rec.lse_qte);
11959: RAISE OKL_API.G_EXCEPTION_ERROR;
11960: END IF;
11961: CLOSE l_uniq_qte_contract_csr;
11962:
11963: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
11970:
11971: --call the procedure to Validate Create Contract action on lease app
11972: CHECK_ELIGIBILITY(
11973: p_api_version => p_api_version
11974: ,p_init_msg_list => OKL_API.G_FALSE
11975: ,x_return_status => l_return_status
11976: ,x_msg_count => x_msg_count
11977: ,x_msg_data => x_msg_data
11978: ,p_lap_id => p_lap_id
11994: ,'return status ' || l_return_status ||
11995: ' x_msg_data ' || x_msg_data);
11996: END IF; -- end of statement level debug
11997:
11998: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11999: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12000: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
12001: RAISE OKL_API.G_EXCEPTION_ERROR;
12002: END IF;
11995: ' x_msg_data ' || x_msg_data);
11996: END IF; -- end of statement level debug
11997:
11998: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11999: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12000: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
12001: RAISE OKL_API.G_EXCEPTION_ERROR;
12002: END IF;
12003:
11996: END IF; -- end of statement level debug
11997:
11998: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11999: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12000: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
12001: RAISE OKL_API.G_EXCEPTION_ERROR;
12002: END IF;
12003:
12004: x_return_status := l_return_status;
11997:
11998: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11999: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12000: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
12001: RAISE OKL_API.G_EXCEPTION_ERROR;
12002: END IF;
12003:
12004: x_return_status := l_return_status;
12005: OKL_API.END_ACTIVITY(
12001: RAISE OKL_API.G_EXCEPTION_ERROR;
12002: END IF;
12003:
12004: x_return_status := l_return_status;
12005: OKL_API.END_ACTIVITY(
12006: x_msg_count => x_msg_count
12007: ,x_msg_data => x_msg_data);
12008: EXCEPTION
12009: WHEN OKL_API.G_EXCEPTION_ERROR THEN
12005: OKL_API.END_ACTIVITY(
12006: x_msg_count => x_msg_count
12007: ,x_msg_data => x_msg_data);
12008: EXCEPTION
12009: WHEN OKL_API.G_EXCEPTION_ERROR THEN
12010: --Check if Lease App cursor is open
12011: IF l_lap_dtls_csr%ISOPEN
12012: THEN
12013: CLOSE l_lap_dtls_csr;
12021: IF l_uniq_qte_contract_csr%ISOPEN
12022: THEN
12023: CLOSE l_uniq_qte_contract_csr;
12024: END IF;
12025: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
12026: p_api_name => l_api_name,
12027: p_pkg_name => G_PKG_NAME,
12028: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
12029: x_msg_count => x_msg_count,
12024: END IF;
12025: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
12026: p_api_name => l_api_name,
12027: p_pkg_name => G_PKG_NAME,
12028: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
12029: x_msg_count => x_msg_count,
12030: x_msg_data => x_msg_data,
12031: p_api_type => G_API_TYPE);
12032: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
12028: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
12029: x_msg_count => x_msg_count,
12030: x_msg_data => x_msg_data,
12031: p_api_type => G_API_TYPE);
12032: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
12033: --Check if Lease App cursor is open
12034: IF l_lap_dtls_csr%ISOPEN
12035: THEN
12036: CLOSE l_lap_dtls_csr;
12044: IF l_uniq_qte_contract_csr%ISOPEN
12045: THEN
12046: CLOSE l_uniq_qte_contract_csr;
12047: END IF;
12048: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
12049: p_api_name => l_api_name,
12050: p_pkg_name => G_PKG_NAME,
12051: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
12052: x_msg_count => x_msg_count,
12047: END IF;
12048: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
12049: p_api_name => l_api_name,
12050: p_pkg_name => G_PKG_NAME,
12051: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
12052: x_msg_count => x_msg_count,
12053: x_msg_data => x_msg_data,
12054: p_api_type => G_API_TYPE);
12055: WHEN OTHERS THEN
12067: IF l_uniq_qte_contract_csr%ISOPEN
12068: THEN
12069: CLOSE l_uniq_qte_contract_csr;
12070: END IF;
12071: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
12072: p_api_name => l_api_name,
12073: p_pkg_name => G_PKG_NAME,
12074: p_exc_name => 'OTHERS',
12075: x_msg_count => x_msg_count,