24: x_msg_count OUT NOCOPY NUMBER,
25: x_msg_data OUT NOCOPY VARCHAR2,
26: p_term_rec IN term_rec_type) AS
27: BEGIN
28: x_return_status := OKL_API.G_RET_STS_SUCCESS;
29: END validate_loan;
30:
31: -- Start of comments
32: --
60: x_msg_count OUT NOCOPY NUMBER,
61: x_msg_data OUT NOCOPY VARCHAR2,
62: p_term_rec IN term_rec_type,
63: p_tcnv_rec IN tcnv_rec_type) IS
64: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
65: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
66: lp_tcnv_rec tcnv_rec_type;
67: lx_stmv_tbl stmv_tbl_type;
68: lx_adjv_rec adjv_rec_type;
61: x_msg_data OUT NOCOPY VARCHAR2,
62: p_term_rec IN term_rec_type,
63: p_tcnv_rec IN tcnv_rec_type) IS
64: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
65: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
66: lp_tcnv_rec tcnv_rec_type;
67: lx_stmv_tbl stmv_tbl_type;
68: lx_adjv_rec adjv_rec_type;
69: lx_ajlv_tbl ajlv_tbl_type;
72: lx_chrv_rec chrv_rec_type;
73: lx_clev_tbl clev_tbl_type;
74: lx_id NUMBER;
75: i NUMBER := 1;
76: l_tran_started VARCHAR2(1) := OKL_API.G_FALSE;
77: l_evergreen_status VARCHAR2(1) := OKL_API.G_FALSE;
78: l_api_name VARCHAR2(30) := 'loan_termination';
79: l_sys_date DATE;
80: l_trn_already_set VARCHAR2(1) := 'N';
73: lx_clev_tbl clev_tbl_type;
74: lx_id NUMBER;
75: i NUMBER := 1;
76: l_tran_started VARCHAR2(1) := OKL_API.G_FALSE;
77: l_evergreen_status VARCHAR2(1) := OKL_API.G_FALSE;
78: l_api_name VARCHAR2(30) := 'loan_termination';
79: l_sys_date DATE;
80: l_trn_already_set VARCHAR2(1) := 'N';
81: lx_contract_status VARCHAR2(200);
157: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.representation_code: ' || p_tcnv_rec.representation_code);
158: END IF;
159:
160: -- Set the transaction
161: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
162: G_PKG_NAME,
163: p_init_msg_list,
164: l_api_version,
165: p_api_version,
165: p_api_version,
166: '_PVT',
167: x_return_status);
168:
169: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
170: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
171: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
172: RAISE OKL_API.G_EXCEPTION_ERROR;
173: END IF;
166: '_PVT',
167: x_return_status);
168:
169: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
170: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
171: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
172: RAISE OKL_API.G_EXCEPTION_ERROR;
173: END IF;
174:
167: x_return_status);
168:
169: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
170: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
171: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
172: RAISE OKL_API.G_EXCEPTION_ERROR;
173: END IF;
174:
175: -- Set the x return status
168:
169: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
170: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
171: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
172: RAISE OKL_API.G_EXCEPTION_ERROR;
173: END IF;
174:
175: -- Set the x return status
176: x_return_status := OKL_API.G_RET_STS_SUCCESS;
172: RAISE OKL_API.G_EXCEPTION_ERROR;
173: END IF;
174:
175: -- Set the x return status
176: x_return_status := OKL_API.G_RET_STS_SUCCESS;
177:
178: IF (is_debug_statement_on) THEN
179: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_LEASE_TRMNT_PVT.set_overall_status');
180: END IF;
201: END IF;
202:
203: -- check if transaction already exists
204: -- RMUNJULU 04-APR-03 2889694 Changed OR to AND
205: IF (p_tcnv_rec.id IS NOT NULL AND p_tcnv_rec.id <> OKL_API.G_MISS_NUM) THEN
206: l_trn_already_set := 'Y';
207: END IF;
208:
209: --get sysdate
228: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_LEASE_TRMNT_PVT.initialize_transaction , return status: ' || l_return_status);
229: END IF;
230: --akrangan bug 5354501 fix end
231: -- rollback if intialize transaction failed
232: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
233: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
234: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
235: RAISE OKL_API.G_EXCEPTION_ERROR;
236: END IF;
229: END IF;
230: --akrangan bug 5354501 fix end
231: -- rollback if intialize transaction failed
232: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
233: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
234: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
235: RAISE OKL_API.G_EXCEPTION_ERROR;
236: END IF;
237:
230: --akrangan bug 5354501 fix end
231: -- rollback if intialize transaction failed
232: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
233: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
234: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
235: RAISE OKL_API.G_EXCEPTION_ERROR;
236: END IF;
237:
238: IF (is_debug_statement_on) THEN
231: -- rollback if intialize transaction failed
232: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
233: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
234: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
235: RAISE OKL_API.G_EXCEPTION_ERROR;
236: END IF;
237:
238: IF (is_debug_statement_on) THEN
239: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_LEASE_TRMNT_PVT.process_transaction');
240: END IF;
241: -- insert the transaction record
242: OKL_AM_LEASE_TRMNT_PVT.process_transaction(
243: p_api_version => p_api_version,
244: p_init_msg_list => OKL_API.G_FALSE,
245: x_return_status => l_return_status,
246: x_msg_count => x_msg_count,
247: x_msg_data => x_msg_data,
248: p_id => 0,
254: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_LEASE_TRMNT_PVT.process_transaction , return status: ' || l_return_status);
255: END IF;
256:
257: -- rollback if processing transaction failed
258: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
259: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
260: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
261: RAISE OKL_API.G_EXCEPTION_ERROR;
262: END IF;
255: END IF;
256:
257: -- rollback if processing transaction failed
258: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
259: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
260: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
261: RAISE OKL_API.G_EXCEPTION_ERROR;
262: END IF;
263:
256:
257: -- rollback if processing transaction failed
258: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
259: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
260: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
261: RAISE OKL_API.G_EXCEPTION_ERROR;
262: END IF;
263:
264: -- set the trn rec id
257: -- rollback if processing transaction failed
258: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
259: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
260: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
261: RAISE OKL_API.G_EXCEPTION_ERROR;
262: END IF;
263:
264: -- set the trn rec id
265: lp_tcnv_rec.id := lx_id;
286: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_LEASE_TRMNT_PVT.initialize_transaction , return status: ' || l_return_status);
287: END IF;
288:
289: -- rollback if intialize transaction failed
290: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
291: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
292: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
293: RAISE OKL_API.G_EXCEPTION_ERROR;
294: END IF;
287: END IF;
288:
289: -- rollback if intialize transaction failed
290: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
291: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
292: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
293: RAISE OKL_API.G_EXCEPTION_ERROR;
294: END IF;
295:
288:
289: -- rollback if intialize transaction failed
290: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
291: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
292: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
293: RAISE OKL_API.G_EXCEPTION_ERROR;
294: END IF;
295:
296: END IF;
289: -- rollback if intialize transaction failed
290: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
291: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
292: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
293: RAISE OKL_API.G_EXCEPTION_ERROR;
294: END IF;
295:
296: END IF;
297:
309: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_LEASE_LOAN_TRMNT_PVT.get_set_quote_dates , return status: ' || l_return_status);
310: END IF;
311:
312: -- Rollback if error setting activity for api
313: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
314: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
315: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
316: RAISE OKL_API.G_EXCEPTION_ERROR;
317: END IF;
310: END IF;
311:
312: -- Rollback if error setting activity for api
313: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
314: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
315: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
316: RAISE OKL_API.G_EXCEPTION_ERROR;
317: END IF;
318:
311:
312: -- Rollback if error setting activity for api
313: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
314: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
315: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
316: RAISE OKL_API.G_EXCEPTION_ERROR;
317: END IF;
318:
319: -- rmunjulu +++++++++ Effective Dated Termination -- end ++++++++++++++++
312: -- Rollback if error setting activity for api
313: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
314: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
315: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
316: RAISE OKL_API.G_EXCEPTION_ERROR;
317: END IF;
318:
319: -- rmunjulu +++++++++ Effective Dated Termination -- end ++++++++++++++++
320:
324: -- check if loan valid
325: -- rmunjulu LOANS_ENHANCEMENTS
326: OKL_AM_LEASE_TRMNT_PVT.validate_lease(
327: p_api_version => p_api_version,
328: p_init_msg_list => OKL_API.G_FALSE,
329: x_return_status => l_return_status,
330: x_msg_count => x_msg_count,
331: x_msg_data => x_msg_data,
332: p_sys_date => l_sys_date,
356: END IF;
357: -- Since batch process is not checked initially in LLT check here
358: OKL_AM_LEASE_LOAN_TRMNT_PUB.validate_contract(
359: p_api_version => p_api_version,
360: p_init_msg_list => OKL_API.G_FALSE,
361: x_return_status => l_return_status,
362: x_msg_count => x_msg_count,
363: x_msg_data => x_msg_data,
364: p_contract_id => l_term_rec.p_contract_id,
369: END IF;
370:
371: -- Store the highest validation return status
372: -- To capture the return status of validate lease called above
373: IF (l_validate = OKL_API.G_RET_STS_SUCCESS) THEN
374: l_validate := l_return_status;
375: END IF;
376:
377: IF (is_debug_statement_on) THEN
397: END IF;
398:
399: -- if validation failed then insert transaction
400: -- and abort else continue next process
401: IF (l_validate <> OKL_API.G_RET_STS_SUCCESS) THEN
402: -- Validation of contract failed.
403: OKL_API.set_message( p_app_name => G_APP_NAME,
404: p_msg_name => 'OKL_AM_VAL_OF_K_FAILED');
405:
399: -- if validation failed then insert transaction
400: -- and abort else continue next process
401: IF (l_validate <> OKL_API.G_RET_STS_SUCCESS) THEN
402: -- Validation of contract failed.
403: OKL_API.set_message( p_app_name => G_APP_NAME,
404: p_msg_name => 'OKL_AM_VAL_OF_K_FAILED');
405:
406: IF (is_debug_statement_on) THEN
407: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_LEASE_TRMNT_PVT.set_transaction_rec');
419: END IF;
420: -- update the transaction record
421: OKL_AM_LEASE_TRMNT_PVT.process_transaction(
422: p_api_version => p_api_version,
423: p_init_msg_list => OKL_API.G_FALSE,
424: x_return_status => l_return_status,
425: x_msg_count => x_msg_count,
426: x_msg_data => x_msg_data,
427: p_id => 0,
433: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_LEASE_TRMNT_PVT.process_transaction , return status: ' || l_return_status);
434: END IF;
435:
436: -- rollback if processing transaction failed
437: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
438: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
439: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
440: RAISE OKL_API.G_EXCEPTION_ERROR;
441: END IF;
434: END IF;
435:
436: -- rollback if processing transaction failed
437: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
438: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
439: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
440: RAISE OKL_API.G_EXCEPTION_ERROR;
441: END IF;
442:
435:
436: -- rollback if processing transaction failed
437: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
438: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
439: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
440: RAISE OKL_API.G_EXCEPTION_ERROR;
441: END IF;
442:
443: IF (is_debug_statement_on) THEN
436: -- rollback if processing transaction failed
437: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
438: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
439: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
440: RAISE OKL_API.G_EXCEPTION_ERROR;
441: END IF;
442:
443: IF (is_debug_statement_on) THEN
444: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_UTIL_PVT.process_messages');
460: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_LEASE_LOAN_TRMNT_PVT.get_set_tmg_run , return status: ' || l_return_status);
461: END IF;
462:
463: -- rollback if api failed
464: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
465: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
466: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
467: RAISE OKL_API.G_EXCEPTION_ERROR;
468: END IF;
461: END IF;
462:
463: -- rollback if api failed
464: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
465: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
466: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
467: RAISE OKL_API.G_EXCEPTION_ERROR;
468: END IF;
469:
462:
463: -- rollback if api failed
464: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
465: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
466: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
467: RAISE OKL_API.G_EXCEPTION_ERROR;
468: END IF;
469:
470: -- abort since validation failed
463: -- rollback if api failed
464: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
465: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
466: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
467: RAISE OKL_API.G_EXCEPTION_ERROR;
468: END IF;
469:
470: -- abort since validation failed
471: RAISE G_EXCEPTION_HALT_VALIDATION;
475: /* -- RMUNJULU 3018641 Changed code to do validate step and store messages in trn
476: -- even when request from quote
477:
478: -- rollback if validation failed
479: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
480: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
481: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
482: RAISE OKL_API.G_EXCEPTION_ERROR;
483: END IF;
476: -- even when request from quote
477:
478: -- rollback if validation failed
479: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
480: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
481: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
482: RAISE OKL_API.G_EXCEPTION_ERROR;
483: END IF;
484:
477:
478: -- rollback if validation failed
479: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
480: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
481: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
482: RAISE OKL_API.G_EXCEPTION_ERROR;
483: END IF;
484:
485: -- set the transaction record
478: -- rollback if validation failed
479: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
480: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
481: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
482: RAISE OKL_API.G_EXCEPTION_ERROR;
483: END IF;
484:
485: -- set the transaction record
486: OKL_AM_LEASE_TRMNT_PVT.set_transaction_rec(
494: -- RMUNJULU 3018641 Changed code to do validate step and store messages in trn
495:
496: -- if validation failed then insert transaction
497: -- and abort else continue next process
498: IF (l_validate <> OKL_API.G_RET_STS_SUCCESS) THEN
499:
500: -- Validation of contract failed.
501: OKL_API.set_message( p_app_name => G_APP_NAME,
502: p_msg_name => 'OKL_AM_VAL_OF_K_FAILED');
497: -- and abort else continue next process
498: IF (l_validate <> OKL_API.G_RET_STS_SUCCESS) THEN
499:
500: -- Validation of contract failed.
501: OKL_API.set_message( p_app_name => G_APP_NAME,
502: p_msg_name => 'OKL_AM_VAL_OF_K_FAILED');
503:
504: IF (is_debug_statement_on) THEN
505: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_LEASE_TRMNT_PVT.set_transaction_rec');
517: END IF;
518: -- update the transaction record
519: OKL_AM_LEASE_TRMNT_PVT.process_transaction(
520: p_api_version => p_api_version,
521: p_init_msg_list => OKL_API.G_FALSE,
522: x_return_status => l_return_status,
523: x_msg_count => x_msg_count,
524: x_msg_data => x_msg_data,
525: p_id => 0,
531: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_LEASE_TRMNT_PVT.process_transaction , return status: ' || l_return_status);
532: END IF;
533:
534: -- rollback if processing transaction failed
535: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
536: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
537: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
538: RAISE OKL_API.G_EXCEPTION_ERROR;
539: END IF;
532: END IF;
533:
534: -- rollback if processing transaction failed
535: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
536: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
537: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
538: RAISE OKL_API.G_EXCEPTION_ERROR;
539: END IF;
540:
533:
534: -- rollback if processing transaction failed
535: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
536: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
537: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
538: RAISE OKL_API.G_EXCEPTION_ERROR;
539: END IF;
540:
541: IF (is_debug_statement_on) THEN
534: -- rollback if processing transaction failed
535: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
536: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
537: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
538: RAISE OKL_API.G_EXCEPTION_ERROR;
539: END IF;
540:
541: IF (is_debug_statement_on) THEN
542: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_UTIL_PVT.process_messages');
558: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_LEASE_LOAN_TRMNT_PVT.get_set_tmg_run , return status: ' || l_return_status);
559: END IF;
560:
561: -- rollback if api failed
562: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
563: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
564: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
565: RAISE OKL_API.G_EXCEPTION_ERROR;
566: END IF;
559: END IF;
560:
561: -- rollback if api failed
562: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
563: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
564: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
565: RAISE OKL_API.G_EXCEPTION_ERROR;
566: END IF;
567:
560:
561: -- rollback if api failed
562: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
563: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
564: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
565: RAISE OKL_API.G_EXCEPTION_ERROR;
566: END IF;
567:
568: -- abort since validation failed
561: -- rollback if api failed
562: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
563: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
564: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
565: RAISE OKL_API.G_EXCEPTION_ERROR;
566: END IF;
567:
568: -- abort since validation failed
569: RAISE G_EXCEPTION_HALT_VALIDATION;
576: END IF;
577: -- get the lines
578: OKL_AM_LEASE_TRMNT_PVT.get_contract_lines(
579: p_api_version => p_api_version,
580: p_init_msg_list => OKL_API.G_FALSE,
581: x_return_status => l_return_status,
582: x_msg_count => x_msg_count,
583: x_msg_data => x_msg_data,
584: p_term_rec => l_term_rec,
589: END IF;
590: -- process to check and cancel insurance
591: OKL_AM_LEASE_TRMNT_PVT.process_cancel_insurance(
592: p_api_version => p_api_version,
593: p_init_msg_list => OKL_API.G_FALSE,
594: x_return_status => l_return_status,
595: x_msg_count => x_msg_count,
596: x_msg_data => x_msg_data,
597: p_term_rec => l_term_rec,
605: END IF;
606: -- set the balances rec, close small balances, set transaction
607: OKL_AM_LEASE_TRMNT_PVT.process_close_balances(
608: p_api_version => p_api_version,
609: p_init_msg_list => OKL_API.G_FALSE,
610: x_return_status => l_return_status,
611: x_msg_count => x_msg_count,
612: x_msg_data => x_msg_data,
613: p_term_rec => l_term_rec,
629: /*
630: -- process close streams
631: OKL_AM_LEASE_TRMNT_PVT.process_close_streams(
632: p_api_version => p_api_version,
633: p_init_msg_list => OKL_API.G_FALSE,
634: x_return_status => l_return_status,
635: x_msg_count => x_msg_count,
636: x_msg_data => x_msg_data,
637: p_term_rec => l_term_rec,
647: END IF;
648: -- do accounting entries
649: OKL_AM_LEASE_TRMNT_PVT.process_accounting_entries(
650: p_api_version => p_api_version,
651: p_init_msg_list => OKL_API.G_FALSE,
652: x_return_status => l_return_status,
653: x_msg_count => x_msg_count,
654: x_msg_data => x_msg_data,
655: p_term_rec => l_term_rec,
665: -- RMUNJULU 02-JAN-03 2724951 always do dispose for loans
666: -- do asset dispose
667: OKL_AM_LEASE_TRMNT_PVT.process_asset_dispose(
668: p_api_version => p_api_version,
669: p_init_msg_list => OKL_API.G_FALSE,
670: x_return_status => l_return_status,
671: x_msg_count => x_msg_count,
672: x_msg_data => x_msg_data,
673: p_term_rec => l_term_rec,
685:
686: -- do asset dispose
687: OKL_AM_LEASE_TRMNT_PVT.process_asset_dispose(
688: p_api_version => p_api_version,
689: p_init_msg_list => OKL_API.G_FALSE,
690: x_return_status => l_return_status,
691: x_msg_count => x_msg_count,
692: x_msg_data => x_msg_data,
693: p_term_rec => l_term_rec,
696: p_klev_tbl => lx_klev_tbl,
697: p_trn_already_set => l_trn_already_set);
698:
699: -- Amortization of assets not needed since termination with purchase
700: OKL_API.set_message( p_app_name => G_APP_NAME,
701: p_msg_name => 'OKL_AM_AMORTIZE_NOT_NEED');
702:
703: -- Return of assets not needed since termination with purchase
704: OKL_API.set_message( p_app_name => G_APP_NAME,
700: OKL_API.set_message( p_app_name => G_APP_NAME,
701: p_msg_name => 'OKL_AM_AMORTIZE_NOT_NEED');
702:
703: -- Return of assets not needed since termination with purchase
704: OKL_API.set_message( p_app_name => G_APP_NAME,
705: p_msg_name => 'OKL_AM_RETURN_NOT_NEED');
706:
707: ELSE -- termination without purchase
708:
708:
709: -- do amortization and asset return
710: OKL_AM_LEASE_TRMNT_PVT.process_amortize_and_return(
711: p_api_version => p_api_version,
712: p_init_msg_list => OKL_API.G_FALSE,
713: x_return_status => l_return_status,
714: x_msg_count => x_msg_count,
715: x_msg_data => x_msg_data,
716: p_term_rec => l_term_rec,
720: p_klev_tbl => lx_klev_tbl,
721: p_trn_already_set => l_trn_already_set);
722:
723: -- Disposition of assets not needed since termination without purchase
724: OKL_API.set_message( p_app_name => G_APP_NAME,
725: p_msg_name => 'OKL_AM_DISPOSE_NOT_NEED');
726:
727: END IF;
728: */
727: END IF;
728: */
729:
730: -- update the contract only if the overall_status is success
731: IF (l_overall_status = OKL_API.G_RET_STS_SUCCESS) THEN
732:
733: -- Set the p_status (which sets the sts_code) for the contract
734: IF l_term_rec.p_control_flag = 'BATCH_PROCESS'
735: AND ( l_term_rec.p_quote_id IS NULL
732:
733: -- Set the p_status (which sets the sts_code) for the contract
734: IF l_term_rec.p_control_flag = 'BATCH_PROCESS'
735: AND ( l_term_rec.p_quote_id IS NULL
736: OR l_term_rec.p_quote_id = OKL_API.G_MISS_NUM) THEN
737: l_status := 'EXPIRED';
738: ELSE
739: l_status := 'TERMINATED';
740: END IF;
744: END IF;
745: -- set_and_update_contract
746: OKL_AM_LEASE_TRMNT_PVT.update_k_hdr_and_lines(
747: p_api_version => p_api_version,
748: p_init_msg_list => OKL_API.G_FALSE,
749: x_return_status => l_return_status,
750: x_msg_count => x_msg_count,
751: x_msg_data => x_msg_data,
752: p_status => l_status,
761: IF (is_debug_statement_on) THEN
762: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_LEASE_TRMNT_PVT.update_k_hdr_and_lines , return status: ' || l_return_status);
763: END IF;
764:
765: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
766:
767: IF (is_debug_statement_on) THEN
768: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_LEASE_TRMNT_PVT.set_transaction_rec');
769: END IF;
780:
781: ELSE -- Update of K hdr and lines failed
782:
783: -- Contract table update failed.
784: OKL_API.set_message( p_app_name => G_APP_NAME,
785: p_msg_name => 'OKL_AM_ERR_K_UPD');
786:
787: IF (is_debug_statement_on) THEN
788: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_LEASE_TRMNT_PVT.set_transaction_rec');
805: END IF;
806: -- update the transaction record
807: OKL_AM_LEASE_TRMNT_PVT.process_transaction(
808: p_api_version => p_api_version,
809: p_init_msg_list => OKL_API.G_FALSE,
810: x_return_status => l_return_status,
811: x_msg_count => x_msg_count,
812: x_msg_data => x_msg_data,
813: p_id => 0,
819: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_LEASE_TRMNT_PVT.process_transaction , return status: ' || l_return_status);
820: END IF;
821:
822: -- rollback if processing transaction failed
823: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
824: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
825: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
826: RAISE OKL_API.G_EXCEPTION_ERROR;
827: END IF;
820: END IF;
821:
822: -- rollback if processing transaction failed
823: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
824: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
825: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
826: RAISE OKL_API.G_EXCEPTION_ERROR;
827: END IF;
828:
821:
822: -- rollback if processing transaction failed
823: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
824: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
825: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
826: RAISE OKL_API.G_EXCEPTION_ERROR;
827: END IF;
828:
829: IF (is_debug_statement_on) THEN
822: -- rollback if processing transaction failed
823: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
824: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
825: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
826: RAISE OKL_API.G_EXCEPTION_ERROR;
827: END IF;
828:
829: IF (is_debug_statement_on) THEN
830: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_UTIL_PVT.process_messages');
849: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_LEASE_LOAN_TRMNT_PVT.get_set_tmg_run , return status: ' || l_return_status);
850: END IF;
851:
852: -- rollback if api failed
853: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
854: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
855: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
856: RAISE OKL_API.G_EXCEPTION_ERROR;
857: END IF;
850: END IF;
851:
852: -- rollback if api failed
853: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
854: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
855: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
856: RAISE OKL_API.G_EXCEPTION_ERROR;
857: END IF;
858:
851:
852: -- rollback if api failed
853: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
854: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
855: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
856: RAISE OKL_API.G_EXCEPTION_ERROR;
857: END IF;
858:
859: -- Set the return status
852: -- rollback if api failed
853: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
854: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
855: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
856: RAISE OKL_API.G_EXCEPTION_ERROR;
857: END IF;
858:
859: -- Set the return status
860: x_return_status := OKL_API.G_RET_STS_SUCCESS;
856: RAISE OKL_API.G_EXCEPTION_ERROR;
857: END IF;
858:
859: -- Set the return status
860: x_return_status := OKL_API.G_RET_STS_SUCCESS;
861:
862: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
863: IF (is_debug_procedure_on) THEN
864: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
858:
859: -- Set the return status
860: x_return_status := OKL_API.G_RET_STS_SUCCESS;
861:
862: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
863: IF (is_debug_procedure_on) THEN
864: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
865: END IF;
866:
868: WHEN G_EXCEPTION_HALT_VALIDATION THEN
869: IF (is_debug_exception_on) THEN
870: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_HALT_VALIDATION');
871: END IF;
872: x_return_status := OKL_API.G_RET_STS_SUCCESS;
873: WHEN OKL_API.G_EXCEPTION_ERROR THEN
874: IF (is_debug_exception_on) THEN
875: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
876: END IF;
869: IF (is_debug_exception_on) THEN
870: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_HALT_VALIDATION');
871: END IF;
872: x_return_status := OKL_API.G_RET_STS_SUCCESS;
873: WHEN OKL_API.G_EXCEPTION_ERROR THEN
874: IF (is_debug_exception_on) THEN
875: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
876: END IF;
877: x_return_status := OKL_API.HANDLE_EXCEPTIONS
873: WHEN OKL_API.G_EXCEPTION_ERROR THEN
874: IF (is_debug_exception_on) THEN
875: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
876: END IF;
877: x_return_status := OKL_API.HANDLE_EXCEPTIONS
878: (
879: l_api_name,
880: G_PKG_NAME,
881: 'OKL_API.G_RET_STS_ERROR',
877: x_return_status := OKL_API.HANDLE_EXCEPTIONS
878: (
879: l_api_name,
880: G_PKG_NAME,
881: 'OKL_API.G_RET_STS_ERROR',
882: x_msg_count,
883: x_msg_data,
884: '_PVT'
885: );
882: x_msg_count,
883: x_msg_data,
884: '_PVT'
885: );
886: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
887: IF (is_debug_exception_on) THEN
888: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
889: END IF;
890: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
886: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
887: IF (is_debug_exception_on) THEN
888: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
889: END IF;
890: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
891: (
892: l_api_name,
893: G_PKG_NAME,
894: 'OKL_API.G_RET_STS_UNEXP_ERROR',
890: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
891: (
892: l_api_name,
893: G_PKG_NAME,
894: 'OKL_API.G_RET_STS_UNEXP_ERROR',
895: x_msg_count,
896: x_msg_data,
897: '_PVT'
898: );
900: IF (is_debug_exception_on) THEN
901: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
902: || sqlcode || ' , SQLERRM : ' || sqlerrm);
903: END IF;
904: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
905: (
906: l_api_name,
907: G_PKG_NAME,
908: 'OTHERS',