130: l_prev_sty_id NUMBER := -1;
131: l_total_curr_amt NUMBER := 0 ;
132: l_total_prop_amt NUMBER := 0 ;
133:
134: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
135: l_api_version CONSTANT NUMBER := 1;
136: l_api_name CONSTANT VARCHAR2(30) := 'get_payment_summary';
137:
138: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'get_payment_summary';
151: 'p_qte_id :'||p_qte_id);
152:
153: END IF;
154:
155: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
156: G_PKG_NAME,
157: p_init_msg_list,
158: l_api_version,
159: p_api_version,
159: p_api_version,
160: '_PVT',
161: x_return_status);
162:
163: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
164: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
165: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
166: RAISE OKL_API.G_EXCEPTION_ERROR;
167: END IF;
160: '_PVT',
161: x_return_status);
162:
163: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
164: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
165: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
166: RAISE OKL_API.G_EXCEPTION_ERROR;
167: END IF;
168:
161: x_return_status);
162:
163: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
164: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
165: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
166: RAISE OKL_API.G_EXCEPTION_ERROR;
167: END IF;
168:
169: IF p_qte_id IS NULL OR p_qte_id = OKL_API.G_MISS_NUM THEN
162:
163: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
164: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
165: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
166: RAISE OKL_API.G_EXCEPTION_ERROR;
167: END IF;
168:
169: IF p_qte_id IS NULL OR p_qte_id = OKL_API.G_MISS_NUM THEN
170:
165: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
166: RAISE OKL_API.G_EXCEPTION_ERROR;
167: END IF;
168:
169: IF p_qte_id IS NULL OR p_qte_id = OKL_API.G_MISS_NUM THEN
170:
171: -- quote id is required
172: OKL_API.set_message( p_app_name => 'OKC',
173: p_msg_name => G_REQUIRED_VALUE,
168:
169: IF p_qte_id IS NULL OR p_qte_id = OKL_API.G_MISS_NUM THEN
170:
171: -- quote id is required
172: OKL_API.set_message( p_app_name => 'OKC',
173: p_msg_name => G_REQUIRED_VALUE,
174: p_token1 => G_COL_NAME_TOKEN,
175: p_token1_value => 'QUOTE_ID');
176: RAISE OKL_API.G_EXCEPTION_ERROR;
172: OKL_API.set_message( p_app_name => 'OKC',
173: p_msg_name => G_REQUIRED_VALUE,
174: p_token1 => G_COL_NAME_TOKEN,
175: p_token1_value => 'QUOTE_ID');
176: RAISE OKL_API.G_EXCEPTION_ERROR;
177: END IF;
178:
179: -- This cursor will return 2 rows for each stream type
180: FOR l_pymtsummary_rec IN l_pymtsummary_csr(p_qte_id) LOOP
204: x_total_curr_amt := l_total_curr_amt ;
205: x_total_prop_amt := l_total_prop_amt ;
206: x_return_status := l_return_status;
207:
208: OKL_API.END_ACTIVITY (x_msg_count, x_msg_data);
209:
210: IF (is_debug_procedure_on) THEN
211: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
212: END IF;
211: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
212: END IF;
213:
214: EXCEPTION
215: WHEN OKL_API.G_EXCEPTION_ERROR THEN
216: IF (is_debug_exception_on) THEN
217: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
218: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
219: END IF;
214: EXCEPTION
215: WHEN OKL_API.G_EXCEPTION_ERROR THEN
216: IF (is_debug_exception_on) THEN
217: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
218: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
219: END IF;
220:
221: IF l_pymtsummary_csr%ISOPEN THEN
222: CLOSE l_pymtsummary_csr;
220:
221: IF l_pymtsummary_csr%ISOPEN THEN
222: CLOSE l_pymtsummary_csr;
223: END IF;
224: x_return_status := OKL_API.G_RET_STS_ERROR;
225: WHEN OTHERS THEN
226: IF (is_debug_exception_on) THEN
227: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
228: 'EXCEPTION :'||sqlerrm);
233: CLOSE l_pymtsummary_csr;
234: END IF;
235:
236: -- store SQL error message on message stack for caller
237: OKL_API.SET_MESSAGE (
238: p_app_name => G_APP_NAME
239: ,p_msg_name => G_UNEXPECTED_ERROR
240: ,p_token1 => G_SQLCODE_TOKEN
241: ,p_token1_value => sqlcode
242: ,p_token2 => G_SQLERRM_TOKEN
243: ,p_token2_value => sqlerrm);
244:
245: -- notify caller of an UNEXPECTED error
246: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
247:
248: END get_payment_summary;
249:
250: /*========================================================================
324:
325: l_cfo_id NUMBER;
326: lp_cfov_rec cfov_rec_type;
327: lx_cfov_rec cfov_rec_type;
328: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
329: l_dummy VARCHAR2(1);
330:
331: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'create_cash_flow_object';
332: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
374:
375: ELSE
376: --OTY_CODE object already exists for STS_CODE payments.
377:
378: OKL_API.set_message(p_app_name => 'OKL',
379: p_msg_name => 'OKL_AM_OBJ_EXISTS',
380: p_token1 => 'OTY_CODE',
381: p_token1_value => p_obj_type_code,
382: p_token2 => 'STS_CODE',
380: p_token1 => 'OTY_CODE',
381: p_token1_value => p_obj_type_code,
382: p_token2 => 'STS_CODE',
383: p_token2_value => p_sts_code);
384: RAISE OKL_API.G_EXCEPTION_ERROR;
385: END IF;
386: CLOSE l_cash_flow_objects_csr;
387:
388: x_return_status := l_return_status;
391: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'end(-)');
392: END IF;
393:
394: EXCEPTION
395: WHEN OKL_API.G_EXCEPTION_ERROR THEN
396:
397: IF (is_debug_exception_on) THEN
398: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
399: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
395: WHEN OKL_API.G_EXCEPTION_ERROR THEN
396:
397: IF (is_debug_exception_on) THEN
398: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
399: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
400: END IF;
401:
402: IF l_cash_flow_objects_csr%ISOPEN THEN
403: CLOSE l_cash_flow_objects_csr;
401:
402: IF l_cash_flow_objects_csr%ISOPEN THEN
403: CLOSE l_cash_flow_objects_csr;
404: END IF;
405: x_return_status := OKL_API.G_RET_STS_ERROR;
406: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
407:
408: IF (is_debug_exception_on) THEN
409: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
402: IF l_cash_flow_objects_csr%ISOPEN THEN
403: CLOSE l_cash_flow_objects_csr;
404: END IF;
405: x_return_status := OKL_API.G_RET_STS_ERROR;
406: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
407:
408: IF (is_debug_exception_on) THEN
409: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
410: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
406: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
407:
408: IF (is_debug_exception_on) THEN
409: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
410: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
411: END IF;
412:
413: IF l_cash_flow_objects_csr%ISOPEN THEN
414: CLOSE l_cash_flow_objects_csr;
412:
413: IF l_cash_flow_objects_csr%ISOPEN THEN
414: CLOSE l_cash_flow_objects_csr;
415: END IF;
416: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
417: WHEN OTHERS THEN
418:
419: IF (is_debug_exception_on) THEN
420: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
423:
424: IF l_cash_flow_objects_csr%ISOPEN THEN
425: CLOSE l_cash_flow_objects_csr;
426: END IF;
427: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
428: -- unexpected error
429: OKL_API.set_message(p_app_name => g_app_name,
430: p_msg_name => g_unexpected_error,
431: p_token1 => g_sqlcode_token,
425: CLOSE l_cash_flow_objects_csr;
426: END IF;
427: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
428: -- unexpected error
429: OKL_API.set_message(p_app_name => g_app_name,
430: p_msg_name => g_unexpected_error,
431: p_token1 => g_sqlcode_token,
432: p_token1_value => sqlcode,
433: p_token2 => g_sqlerrm_token,
505: lp_cflv_rec cflv_rec_type;
506: lx_cflv_rec cflv_rec_type;
507:
508: l_dummy VARCHAR2(1) := '?';
509: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
510: l_caf_id NUMBER ;
511: l_currency_code VARCHAR2(15);
512: l_amount NUMBER;
513: l_stub_amount NUMBER;
599: OPEN l_kheaders_csr(p_cashflow_rec.p_khr_id);
600: FETCH l_kheaders_csr INTO l_currency_code;
601: IF l_kheaders_csr%NOTFOUND THEN
602: -- contract ID is invalid
603: OKL_API.set_message( p_app_name => 'OKC',
604: p_msg_name => G_INVALID_VALUE,
605: p_token1 => G_COL_NAME_TOKEN,
606: p_token1_value => 'CONTRACT_ID');
607:
604: p_msg_name => G_INVALID_VALUE,
605: p_token1 => G_COL_NAME_TOKEN,
606: p_token1_value => 'CONTRACT_ID');
607:
608: RAISE OKL_API.G_EXCEPTION_ERROR;
609: END IF;
610: CLOSE l_kheaders_csr;
611:
612: IF p_cashflow_rec.p_stub_days IS NOT NULL THEN
611:
612: IF p_cashflow_rec.p_stub_days IS NOT NULL THEN
613: okl_accounting_util.round_amount(
614: p_api_version => p_api_version,
615: p_init_msg_list => OKL_API.G_FALSE,
616: x_return_status => l_return_status,
617: x_msg_count => x_msg_count,
618: x_msg_data => x_msg_data,
619: p_amount => p_cashflow_rec.p_stub_amount,
620: p_currency_code => l_currency_code,
621: p_round_option => 'AEL',
622: x_rounded_amount => l_stub_amount);
623:
624: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
625: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
626: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
627: RAISE OKL_API.G_EXCEPTION_ERROR;
628: END IF;
621: p_round_option => 'AEL',
622: x_rounded_amount => l_stub_amount);
623:
624: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
625: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
626: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
627: RAISE OKL_API.G_EXCEPTION_ERROR;
628: END IF;
629:
622: x_rounded_amount => l_stub_amount);
623:
624: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
625: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
626: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
627: RAISE OKL_API.G_EXCEPTION_ERROR;
628: END IF;
629:
630: lp_cflv_rec.stub_days := p_cashflow_rec.p_stub_days;
623:
624: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
625: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
626: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
627: RAISE OKL_API.G_EXCEPTION_ERROR;
628: END IF;
629:
630: lp_cflv_rec.stub_days := p_cashflow_rec.p_stub_days;
631: lp_cflv_rec.stub_amount := l_stub_amount;
632: ELSE
633:
634: okl_accounting_util.round_amount(
635: p_api_version => p_api_version,
636: p_init_msg_list => OKL_API.G_FALSE,
637: x_return_status => l_return_status,
638: x_msg_count => x_msg_count,
639: x_msg_data => x_msg_data,
640: p_amount => p_cashflow_rec.p_amount,
641: p_currency_code => l_currency_code,
642: p_round_option => 'AEL',
643: x_rounded_amount => l_amount);
644:
645: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
646: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
647: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
648: RAISE OKL_API.G_EXCEPTION_ERROR;
649: END IF;
642: p_round_option => 'AEL',
643: x_rounded_amount => l_amount);
644:
645: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
646: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
647: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
648: RAISE OKL_API.G_EXCEPTION_ERROR;
649: END IF;
650:
643: x_rounded_amount => l_amount);
644:
645: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
646: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
647: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
648: RAISE OKL_API.G_EXCEPTION_ERROR;
649: END IF;
650:
651: lp_cflv_rec.amount := l_amount;
644:
645: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
646: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
647: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
648: RAISE OKL_API.G_EXCEPTION_ERROR;
649: END IF;
650:
651: lp_cflv_rec.amount := l_amount;
652: lp_cflv_rec.number_of_periods := p_cashflow_rec.p_period_in_months;
670: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
671: END IF;
672:
673: EXCEPTION
674: WHEN OKL_API.G_EXCEPTION_ERROR THEN
675:
676: IF (is_debug_exception_on) THEN
677: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
678: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
674: WHEN OKL_API.G_EXCEPTION_ERROR THEN
675:
676: IF (is_debug_exception_on) THEN
677: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
678: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
679: END IF;
680:
681: IF l_cashflow_csr%ISOPEN THEN
682: CLOSE l_cashflow_csr;
683: END IF;
684: IF l_kheaders_csr%ISOPEN THEN
685: CLOSE l_kheaders_csr;
686: END IF;
687: x_return_status := OKL_API.G_RET_STS_ERROR;
688: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
689:
690: IF (is_debug_exception_on) THEN
691: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
684: IF l_kheaders_csr%ISOPEN THEN
685: CLOSE l_kheaders_csr;
686: END IF;
687: x_return_status := OKL_API.G_RET_STS_ERROR;
688: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
689:
690: IF (is_debug_exception_on) THEN
691: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
692: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
688: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
689:
690: IF (is_debug_exception_on) THEN
691: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
692: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
693: END IF;
694:
695: IF l_cashflow_csr%ISOPEN THEN
696: CLOSE l_cashflow_csr;
697: END IF;
698: IF l_kheaders_csr%ISOPEN THEN
699: CLOSE l_kheaders_csr;
700: END IF;
701: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
702: WHEN OTHERS THEN
703:
704: IF (is_debug_exception_on) THEN
705: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
711: END IF;
712: IF l_kheaders_csr%ISOPEN THEN
713: CLOSE l_kheaders_csr;
714: END IF;
715: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
716: -- unexpecetd error
717: OKL_API.set_message(p_app_name => g_app_name,
718: p_msg_name => g_unexpected_error,
719: p_token1 => g_sqlcode_token,
713: CLOSE l_kheaders_csr;
714: END IF;
715: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
716: -- unexpecetd error
717: OKL_API.set_message(p_app_name => g_app_name,
718: p_msg_name => g_unexpected_error,
719: p_token1 => g_sqlcode_token,
720: p_token1_value => sqlcode,
721: p_token2 => g_sqlerrm_token,
753: | call bulk insert for all four objects
754: *=======================================================================*/
755: PROCEDURE get_current_payments(
756: p_api_version IN NUMBER,
757: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
758: x_return_status OUT NOCOPY VARCHAR2,
759: x_msg_count OUT NOCOPY NUMBER,
760: x_msg_data OUT NOCOPY VARCHAR2,
761: p_quote_id IN NUMBER,
875: lx_qcov_rec qcov_rec_type;
876:
877: lp_cashflow_rec cashflow_rec_type;
878:
879: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
880:
881: l_pymt_count NUMBER := 0;
882: l_sys_date DATE;
883: l_api_version CONSTANT NUMBER := 1;
933: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
934: 'after call to create_cash_flow_object :'||l_return_status);
935: END IF;
936:
937: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
938: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
939: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
940: RAISE OKL_API.G_EXCEPTION_ERROR;
941: END IF;
934: 'after call to create_cash_flow_object :'||l_return_status);
935: END IF;
936:
937: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
938: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
939: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
940: RAISE OKL_API.G_EXCEPTION_ERROR;
941: END IF;
942:
935: END IF;
936:
937: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
938: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
939: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
940: RAISE OKL_API.G_EXCEPTION_ERROR;
941: END IF;
942:
943: -- Store Objects in OKL_TRX_QTE_CF_OBJECTS
936:
937: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
938: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
939: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
940: RAISE OKL_API.G_EXCEPTION_ERROR;
941: END IF;
942:
943: -- Store Objects in OKL_TRX_QTE_CF_OBJECTS
944:
985: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
986: 'after call to create_cash_flows :'||l_return_status);
987: END IF;
988:
989: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
990: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
991: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
992: RAISE OKL_API.G_EXCEPTION_ERROR;
993: END IF;
986: 'after call to create_cash_flows :'||l_return_status);
987: END IF;
988:
989: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
990: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
991: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
992: RAISE OKL_API.G_EXCEPTION_ERROR;
993: END IF;
994:
987: END IF;
988:
989: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
990: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
991: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
992: RAISE OKL_API.G_EXCEPTION_ERROR;
993: END IF;
994:
995: END LOOP;
988:
989: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
990: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
991: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
992: RAISE OKL_API.G_EXCEPTION_ERROR;
993: END IF;
994:
995: END LOOP;
996:
1038: 'after call to create_cash_flow_object :'||l_return_status);
1039: END IF;
1040:
1041:
1042: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1043: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1044: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1045: RAISE OKL_API.G_EXCEPTION_ERROR;
1046: END IF;
1039: END IF;
1040:
1041:
1042: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1043: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1044: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1045: RAISE OKL_API.G_EXCEPTION_ERROR;
1046: END IF;
1047:
1040:
1041:
1042: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1043: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1044: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1045: RAISE OKL_API.G_EXCEPTION_ERROR;
1046: END IF;
1047:
1048: lp_qcov_rec.qte_id := p_quote_id;
1041:
1042: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1043: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1044: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1045: RAISE OKL_API.G_EXCEPTION_ERROR;
1046: END IF;
1047:
1048: lp_qcov_rec.qte_id := p_quote_id;
1049: lp_qcov_rec.cfo_id := l_cfo_id;
1087: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1088: 'after call to create_cash_flows :'||l_return_status);
1089: END IF;
1090:
1091: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1092: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1093: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1094: RAISE OKL_API.G_EXCEPTION_ERROR;
1095: END IF;
1088: 'after call to create_cash_flows :'||l_return_status);
1089: END IF;
1090:
1091: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1092: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1093: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1094: RAISE OKL_API.G_EXCEPTION_ERROR;
1095: END IF;
1096: END LOOP;
1089: END IF;
1090:
1091: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1092: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1093: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1094: RAISE OKL_API.G_EXCEPTION_ERROR;
1095: END IF;
1096: END LOOP;
1097:
1090:
1091: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1092: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1093: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1094: RAISE OKL_API.G_EXCEPTION_ERROR;
1095: END IF;
1096: END LOOP;
1097:
1098: ------------------------Get Serviced Asset Line level payments --------------------------
1126: IF (is_debug_statement_on) THEN
1127: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1128: 'after call to create_cash_flow_object :'||l_return_status);
1129: END IF;
1130: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1131: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1132: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1133: RAISE OKL_API.G_EXCEPTION_ERROR;
1134: END IF;
1127: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1128: 'after call to create_cash_flow_object :'||l_return_status);
1129: END IF;
1130: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1131: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1132: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1133: RAISE OKL_API.G_EXCEPTION_ERROR;
1134: END IF;
1135:
1128: 'after call to create_cash_flow_object :'||l_return_status);
1129: END IF;
1130: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1131: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1132: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1133: RAISE OKL_API.G_EXCEPTION_ERROR;
1134: END IF;
1135:
1136: lp_qcov_rec.qte_id := p_quote_id;
1129: END IF;
1130: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1131: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1132: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1133: RAISE OKL_API.G_EXCEPTION_ERROR;
1134: END IF;
1135:
1136: lp_qcov_rec.qte_id := p_quote_id;
1137: lp_qcov_rec.cfo_id := l_cfo_id;
1175: IF (is_debug_statement_on) THEN
1176: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1177: 'after call to create_cash_flows :'||l_return_status);
1178: END IF;
1179: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1180: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1181: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1182: RAISE OKL_API.G_EXCEPTION_ERROR;
1183: END IF;
1176: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1177: 'after call to create_cash_flows :'||l_return_status);
1178: END IF;
1179: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1180: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1181: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1182: RAISE OKL_API.G_EXCEPTION_ERROR;
1183: END IF;
1184:
1177: 'after call to create_cash_flows :'||l_return_status);
1178: END IF;
1179: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1180: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1181: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1182: RAISE OKL_API.G_EXCEPTION_ERROR;
1183: END IF;
1184:
1185: END LOOP;
1178: END IF;
1179: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1180: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1181: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1182: RAISE OKL_API.G_EXCEPTION_ERROR;
1183: END IF;
1184:
1185: END LOOP;
1186: END LOOP;
1219: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1220: 'after call to create_cash_flow_object :'||l_return_status);
1221: END IF;
1222:
1223: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
1224: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1225: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1226: RAISE OKL_API.G_EXCEPTION_ERROR;
1227: END IF;
1220: 'after call to create_cash_flow_object :'||l_return_status);
1221: END IF;
1222:
1223: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
1224: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1225: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1226: RAISE OKL_API.G_EXCEPTION_ERROR;
1227: END IF;
1228: lp_qcov_rec.qte_id := p_quote_id;
1221: END IF;
1222:
1223: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
1224: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1225: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1226: RAISE OKL_API.G_EXCEPTION_ERROR;
1227: END IF;
1228: lp_qcov_rec.qte_id := p_quote_id;
1229: lp_qcov_rec.cfo_id := l_cfo_id;
1222:
1223: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
1224: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1225: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1226: RAISE OKL_API.G_EXCEPTION_ERROR;
1227: END IF;
1228: lp_qcov_rec.qte_id := p_quote_id;
1229: lp_qcov_rec.cfo_id := l_cfo_id;
1230: lp_qcov_rec.BASE_SOURCE_ID := l_feelineassets_rec.id;
1267: IF (is_debug_statement_on) THEN
1268: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1269: 'after call to create_cash_flows :'||l_return_status);
1270: END IF;
1271: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1272: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1273: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1274: RAISE OKL_API.G_EXCEPTION_ERROR;
1275: END IF;
1268: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1269: 'after call to create_cash_flows :'||l_return_status);
1270: END IF;
1271: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1272: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1273: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1274: RAISE OKL_API.G_EXCEPTION_ERROR;
1275: END IF;
1276: END LOOP;
1269: 'after call to create_cash_flows :'||l_return_status);
1270: END IF;
1271: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1272: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1273: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1274: RAISE OKL_API.G_EXCEPTION_ERROR;
1275: END IF;
1276: END LOOP;
1277: END LOOP;
1270: END IF;
1271: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1272: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1273: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1274: RAISE OKL_API.G_EXCEPTION_ERROR;
1275: END IF;
1276: END LOOP;
1277: END LOOP;
1278: END IF;
1284: --Bug 4299668 PAGARG All the four object table of records is populated for
1285: --current payment. Now call proceure for bulk insert.
1286: --**START**--
1287: okl_cfo_pvt.insert_row_bulk(p_api_version => p_api_version,
1288: p_init_msg_list => OKL_API.G_FALSE,
1289: x_return_status => l_return_status,
1290: x_msg_count => x_msg_count,
1291: x_msg_data => x_msg_data,
1292: p_cfov_tbl => g_cfov_tbl_type,
1296: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1297: 'after call to okl_cfo_pvt.insert_row_bulk :'||l_return_status);
1298: END IF;
1299:
1300: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1301: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1302: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1303: RAISE OKL_API.G_EXCEPTION_ERROR;
1304: END IF;
1297: 'after call to okl_cfo_pvt.insert_row_bulk :'||l_return_status);
1298: END IF;
1299:
1300: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1301: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1302: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1303: RAISE OKL_API.G_EXCEPTION_ERROR;
1304: END IF;
1305:
1298: END IF;
1299:
1300: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1301: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1302: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1303: RAISE OKL_API.G_EXCEPTION_ERROR;
1304: END IF;
1305:
1306: OKL_QCO_PVT.insert_row_bulk(p_api_version => p_api_version,
1299:
1300: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1301: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1302: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1303: RAISE OKL_API.G_EXCEPTION_ERROR;
1304: END IF;
1305:
1306: OKL_QCO_PVT.insert_row_bulk(p_api_version => p_api_version,
1307: p_init_msg_list => OKL_API.G_FALSE,
1303: RAISE OKL_API.G_EXCEPTION_ERROR;
1304: END IF;
1305:
1306: OKL_QCO_PVT.insert_row_bulk(p_api_version => p_api_version,
1307: p_init_msg_list => OKL_API.G_FALSE,
1308: x_return_status => l_return_status,
1309: x_msg_count => x_msg_count,
1310: x_msg_data => x_msg_data,
1311: p_qcov_tbl => g_qcov_tbl_type,
1315: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1316: 'after call to okl_cfo_pvt.insert_row_bulk :'||l_return_status);
1317: END IF;
1318:
1319: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1320: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1321: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1322: RAISE OKL_API.G_EXCEPTION_ERROR;
1323: END IF;
1316: 'after call to okl_cfo_pvt.insert_row_bulk :'||l_return_status);
1317: END IF;
1318:
1319: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1320: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1321: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1322: RAISE OKL_API.G_EXCEPTION_ERROR;
1323: END IF;
1324:
1317: END IF;
1318:
1319: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1320: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1321: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1322: RAISE OKL_API.G_EXCEPTION_ERROR;
1323: END IF;
1324:
1325: okl_caf_pvt.insert_row_bulk(p_api_version => p_api_version,
1318:
1319: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1320: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1321: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1322: RAISE OKL_API.G_EXCEPTION_ERROR;
1323: END IF;
1324:
1325: okl_caf_pvt.insert_row_bulk(p_api_version => p_api_version,
1326: p_init_msg_list => OKL_API.G_FALSE,
1322: RAISE OKL_API.G_EXCEPTION_ERROR;
1323: END IF;
1324:
1325: okl_caf_pvt.insert_row_bulk(p_api_version => p_api_version,
1326: p_init_msg_list => OKL_API.G_FALSE,
1327: x_return_status => l_return_status,
1328: x_msg_count => x_msg_count,
1329: x_msg_data => x_msg_data,
1330: p_cafv_tbl => g_cafv_tbl_type,
1334: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1335: 'after call to okl_cfo_pvt.insert_row_bulk :'||l_return_status);
1336: END IF;
1337:
1338: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1339: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1340: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1341: RAISE OKL_API.G_EXCEPTION_ERROR;
1342: END IF;
1335: 'after call to okl_cfo_pvt.insert_row_bulk :'||l_return_status);
1336: END IF;
1337:
1338: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1339: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1340: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1341: RAISE OKL_API.G_EXCEPTION_ERROR;
1342: END IF;
1343:
1336: END IF;
1337:
1338: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1339: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1340: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1341: RAISE OKL_API.G_EXCEPTION_ERROR;
1342: END IF;
1343:
1344: OKL_CFL_PVT.insert_row_bulk(p_api_version => p_api_version,
1337:
1338: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1339: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1340: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1341: RAISE OKL_API.G_EXCEPTION_ERROR;
1342: END IF;
1343:
1344: OKL_CFL_PVT.insert_row_bulk(p_api_version => p_api_version,
1345: p_init_msg_list => OKL_API.G_FALSE,
1341: RAISE OKL_API.G_EXCEPTION_ERROR;
1342: END IF;
1343:
1344: OKL_CFL_PVT.insert_row_bulk(p_api_version => p_api_version,
1345: p_init_msg_list => OKL_API.G_FALSE,
1346: x_return_status => l_return_status,
1347: x_msg_count => x_msg_count,
1348: x_msg_data => x_msg_data,
1349: p_cflv_tbl => g_cflv_tbl_type,
1353: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1354: 'after call to okl_cfo_pvt.insert_row_bulk :'||l_return_status);
1355: END IF;
1356:
1357: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1358: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1359: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1360: RAISE OKL_API.G_EXCEPTION_ERROR;
1361: END IF;
1354: 'after call to okl_cfo_pvt.insert_row_bulk :'||l_return_status);
1355: END IF;
1356:
1357: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1358: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1359: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1360: RAISE OKL_API.G_EXCEPTION_ERROR;
1361: END IF;
1362: --**END 4299668**--
1355: END IF;
1356:
1357: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1358: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1359: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1360: RAISE OKL_API.G_EXCEPTION_ERROR;
1361: END IF;
1362: --**END 4299668**--
1363:
1356:
1357: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1358: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1359: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1360: RAISE OKL_API.G_EXCEPTION_ERROR;
1361: END IF;
1362: --**END 4299668**--
1363:
1364: -- set the return status and out variables
1367: IF (is_debug_procedure_on) THEN
1368: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
1369: END IF;
1370: EXCEPTION
1371: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1372: IF (is_debug_exception_on) THEN
1373: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
1374: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
1375: END IF;
1370: EXCEPTION
1371: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1372: IF (is_debug_exception_on) THEN
1373: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
1374: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
1375: END IF;
1376:
1377:
1378: IF l_kpayments_csr%ISOPEN THEN
1389: -- Changed the cursor name as made it generalised
1390: IF l_lineassets_csr%ISOPEN THEN
1391: CLOSE l_lineassets_csr;
1392: END IF;
1393: x_return_status := OKL_API.G_RET_STS_ERROR;
1394: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1395: IF (is_debug_exception_on) THEN
1396: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
1397: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
1390: IF l_lineassets_csr%ISOPEN THEN
1391: CLOSE l_lineassets_csr;
1392: END IF;
1393: x_return_status := OKL_API.G_RET_STS_ERROR;
1394: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1395: IF (is_debug_exception_on) THEN
1396: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
1397: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
1398: END IF;
1393: x_return_status := OKL_API.G_RET_STS_ERROR;
1394: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1395: IF (is_debug_exception_on) THEN
1396: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
1397: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
1398: END IF;
1399:
1400: IF l_kpayments_csr%ISOPEN THEN
1401: CLOSE l_kpayments_csr;
1410: -- Changed the cursor name as made it generalised
1411: IF l_lineassets_csr%ISOPEN THEN
1412: CLOSE l_lineassets_csr;
1413: END IF;
1414: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1415: WHEN OTHERS THEN
1416: IF (is_debug_exception_on) THEN
1417: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
1418: 'EXCEPTION :'||sqlerrm);
1431: -- Changed the cursor name as made it generalised
1432: IF l_lineassets_csr%ISOPEN THEN
1433: CLOSE l_lineassets_csr;
1434: END IF;
1435: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1436: -- unexpected error
1437: OKL_API.set_message(p_app_name => g_app_name,
1438: p_msg_name => g_unexpected_error,
1439: p_token1 => g_sqlcode_token,
1433: CLOSE l_lineassets_csr;
1434: END IF;
1435: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1436: -- unexpected error
1437: OKL_API.set_message(p_app_name => g_app_name,
1438: p_msg_name => g_unexpected_error,
1439: p_token1 => g_sqlcode_token,
1440: p_token1_value => sqlcode,
1441: p_token2 => g_sqlerrm_token,
1531: +-----------------------------------------------------------------------*/
1532:
1533: l_cfo_id NUMBER;
1534: l_pymt_Count NUMBER;
1535: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1536: l_prev_sty_id NUMBER := -99;
1537:
1538: l_lowest_level_seq NUMBER;
1539: l_number_of_months NUMBER;
1610: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1611: 'after call to create_cash_flow_object :'||l_return_status);
1612: END IF;
1613:
1614: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1615: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1616: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1617: RAISE OKL_API.G_EXCEPTION_ERROR;
1618: END IF;
1611: 'after call to create_cash_flow_object :'||l_return_status);
1612: END IF;
1613:
1614: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1615: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1616: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1617: RAISE OKL_API.G_EXCEPTION_ERROR;
1618: END IF;
1619:
1612: END IF;
1613:
1614: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1615: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1616: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1617: RAISE OKL_API.G_EXCEPTION_ERROR;
1618: END IF;
1619:
1620: -- Create quote cf object
1613:
1614: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1615: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1616: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1617: RAISE OKL_API.G_EXCEPTION_ERROR;
1618: END IF;
1619:
1620: -- Create quote cf object
1621: lp_qcov_rec.qte_id := p_quote_id;
1683: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1684: 'after call to create_cash_flows:'||l_return_status);
1685: END IF;
1686:
1687: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1688: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1689: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1690: RAISE OKL_API.G_EXCEPTION_ERROR;
1691: END IF;
1684: 'after call to create_cash_flows:'||l_return_status);
1685: END IF;
1686:
1687: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1688: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1689: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1690: RAISE OKL_API.G_EXCEPTION_ERROR;
1691: END IF;
1692: ----
1685: END IF;
1686:
1687: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1688: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1689: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1690: RAISE OKL_API.G_EXCEPTION_ERROR;
1691: END IF;
1692: ----
1693:
1686:
1687: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1688: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1689: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1690: RAISE OKL_API.G_EXCEPTION_ERROR;
1691: END IF;
1692: ----
1693:
1694: ELSE
1748: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1749: 'after call to create_cash_flows :'||l_return_status);
1750: END IF;
1751:
1752: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1753: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1754: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1755: RAISE OKL_API.G_EXCEPTION_ERROR;
1756: END IF;
1749: 'after call to create_cash_flows :'||l_return_status);
1750: END IF;
1751:
1752: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1753: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1754: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1755: RAISE OKL_API.G_EXCEPTION_ERROR;
1756: END IF;
1757:
1750: END IF;
1751:
1752: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1753: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1754: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1755: RAISE OKL_API.G_EXCEPTION_ERROR;
1756: END IF;
1757:
1758: ELSIF p_date_eff_from >= l_curr_level_start_date AND p_date_eff_from < l_next_level_start_date THEN
1751:
1752: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1753: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1754: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1755: RAISE OKL_API.G_EXCEPTION_ERROR;
1756: END IF;
1757:
1758: ELSIF p_date_eff_from >= l_curr_level_start_date AND p_date_eff_from < l_next_level_start_date THEN
1759:
1906: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1907: 'after call to create_cash_flows :'||l_return_status);
1908: END IF;
1909:
1910: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1911: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1912: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1913: RAISE OKL_API.G_EXCEPTION_ERROR;
1914: END IF;
1907: 'after call to create_cash_flows :'||l_return_status);
1908: END IF;
1909:
1910: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1911: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1912: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1913: RAISE OKL_API.G_EXCEPTION_ERROR;
1914: END IF;
1915: END IF; -- IF l_new_periods > 0 OR l_new_stub_days > 0 THEN -- SECHAWLA 20-SEP-04 3816891: added this check
1908: END IF;
1909:
1910: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1911: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1912: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1913: RAISE OKL_API.G_EXCEPTION_ERROR;
1914: END IF;
1915: END IF; -- IF l_new_periods > 0 OR l_new_stub_days > 0 THEN -- SECHAWLA 20-SEP-04 3816891: added this check
1916:
1909:
1910: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1911: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1912: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1913: RAISE OKL_API.G_EXCEPTION_ERROR;
1914: END IF;
1915: END IF; -- IF l_new_periods > 0 OR l_new_stub_days > 0 THEN -- SECHAWLA 20-SEP-04 3816891: added this check
1916:
1917:
2011: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2012: 'after call to create_cash_flows :'||l_return_status);
2013: END IF;
2014:
2015: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2016: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2017: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2018: RAISE OKL_API.G_EXCEPTION_ERROR;
2019: END IF;
2012: 'after call to create_cash_flows :'||l_return_status);
2013: END IF;
2014:
2015: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2016: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2017: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2018: RAISE OKL_API.G_EXCEPTION_ERROR;
2019: END IF;
2020: -----------
2013: END IF;
2014:
2015: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2016: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2017: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2018: RAISE OKL_API.G_EXCEPTION_ERROR;
2019: END IF;
2020: -----------
2021:
2014:
2015: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2016: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2017: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2018: RAISE OKL_API.G_EXCEPTION_ERROR;
2019: END IF;
2020: -----------
2021:
2022: END IF;
2037: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
2038: END IF;
2039:
2040: EXCEPTION
2041: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2042:
2043: IF (is_debug_exception_on) THEN
2044: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
2045: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
2041: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2042:
2043: IF (is_debug_exception_on) THEN
2044: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
2045: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
2046: END IF;
2047:
2048: IF l_cashflows_csr%ISOPEN THEN
2049: CLOSE l_cashflows_csr;
2054: IF l_monthsuptodate_csr%ISOPEN THEN
2055: CLOSE l_monthsuptodate_csr;
2056: END IF;
2057:
2058: x_return_status := OKL_API.G_RET_STS_ERROR;
2059: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2060:
2061: IF (is_debug_exception_on) THEN
2062: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
2055: CLOSE l_monthsuptodate_csr;
2056: END IF;
2057:
2058: x_return_status := OKL_API.G_RET_STS_ERROR;
2059: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2060:
2061: IF (is_debug_exception_on) THEN
2062: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
2063: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
2059: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2060:
2061: IF (is_debug_exception_on) THEN
2062: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
2063: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
2064: END IF;
2065:
2066: IF l_cashflows_csr%ISOPEN THEN
2067: CLOSE l_cashflows_csr;
2072: IF l_monthsuptodate_csr%ISOPEN THEN
2073: CLOSE l_monthsuptodate_csr;
2074: END IF;
2075:
2076: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2077: WHEN OTHERS THEN
2078:
2079: IF (is_debug_exception_on) THEN
2080: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
2090: IF l_monthsuptodate_csr%ISOPEN THEN
2091: CLOSE l_monthsuptodate_csr;
2092: END IF;
2093:
2094: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2095: -- unexpected error
2096: OKL_API.set_message(p_app_name => g_app_name,
2097: p_msg_name => g_unexpected_error,
2098: p_token1 => g_sqlcode_token,
2092: END IF;
2093:
2094: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2095: -- unexpected error
2096: OKL_API.set_message(p_app_name => g_app_name,
2097: p_msg_name => g_unexpected_error,
2098: p_token1 => g_sqlcode_token,
2099: p_token1_value => sqlcode,
2100: p_token2 => g_sqlerrm_token,
2213: lx_qcov_rec qcov_rec_type;
2214:
2215: l_cfo_id NUMBER;
2216: l_pymt_Count NUMBER;
2217: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2218: l_prev_sty_id NUMBER := -99;
2219:
2220: lx_new_cash_flow VARCHAR2(1);
2221:
2283: 'after call to create_cash_flow_object :'||l_return_status);
2284: END IF;
2285:
2286:
2287: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2288: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2289: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2290: RAISE OKL_API.G_EXCEPTION_ERROR;
2291: END IF;
2284: END IF;
2285:
2286:
2287: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2288: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2289: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2290: RAISE OKL_API.G_EXCEPTION_ERROR;
2291: END IF;
2292:
2285:
2286:
2287: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2288: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2289: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2290: RAISE OKL_API.G_EXCEPTION_ERROR;
2291: END IF;
2292:
2293: lp_qcov_rec.qte_id := p_quote_id;
2286:
2287: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2288: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2289: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2290: RAISE OKL_API.G_EXCEPTION_ERROR;
2291: END IF;
2292:
2293: lp_qcov_rec.qte_id := p_quote_id;
2294: lp_qcov_rec.cfo_id := l_cfo_id;
2332: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2333: 'after call to create_cash_flows:'||l_return_status);
2334: END IF;
2335:
2336: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2337: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2338: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2339: RAISE OKL_API.G_EXCEPTION_ERROR;
2340: END IF;
2333: 'after call to create_cash_flows:'||l_return_status);
2334: END IF;
2335:
2336: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2337: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2338: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2339: RAISE OKL_API.G_EXCEPTION_ERROR;
2340: END IF;
2341:
2334: END IF;
2335:
2336: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2337: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2338: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2339: RAISE OKL_API.G_EXCEPTION_ERROR;
2340: END IF;
2341:
2342: END LOOP;
2335:
2336: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2337: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2338: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2339: RAISE OKL_API.G_EXCEPTION_ERROR;
2340: END IF;
2341:
2342: END LOOP;
2343: END LOOP;
2373: IF (is_debug_statement_on) THEN
2374: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2375: 'after call to calc_prop_line_payments :'||l_return_status);
2376: END IF;
2377: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2378: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2379: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2380: RAISE OKL_API.G_EXCEPTION_ERROR;
2381: END IF;
2374: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2375: 'after call to calc_prop_line_payments :'||l_return_status);
2376: END IF;
2377: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2378: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2379: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2380: RAISE OKL_API.G_EXCEPTION_ERROR;
2381: END IF;
2382: END IF;
2375: 'after call to calc_prop_line_payments :'||l_return_status);
2376: END IF;
2377: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2378: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2379: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2380: RAISE OKL_API.G_EXCEPTION_ERROR;
2381: END IF;
2382: END IF;
2383: ELSE
2376: END IF;
2377: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2378: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2379: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2380: RAISE OKL_API.G_EXCEPTION_ERROR;
2381: END IF;
2382: END IF;
2383: ELSE
2384: --
2409: 'after call to calc_prop_line_payments :'||l_return_status);
2410: END IF;
2411:
2412:
2413: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2414: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2415: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2416: RAISE OKL_API.G_EXCEPTION_ERROR;
2417: END IF;
2410: END IF;
2411:
2412:
2413: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2414: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2415: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2416: RAISE OKL_API.G_EXCEPTION_ERROR;
2417: END IF;
2418:
2411:
2412:
2413: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2414: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2415: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2416: RAISE OKL_API.G_EXCEPTION_ERROR;
2417: END IF;
2418:
2419: lp_qcov_rec.qte_id := p_quote_id;
2412:
2413: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2414: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2415: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2416: RAISE OKL_API.G_EXCEPTION_ERROR;
2417: END IF;
2418:
2419: lp_qcov_rec.qte_id := p_quote_id;
2420: lp_qcov_rec.cfo_id := l_cfo_id;
2459: 'after call to create_cash_flows :'||l_return_status);
2460: END IF;
2461:
2462:
2463: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2464: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2465: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2466: RAISE OKL_API.G_EXCEPTION_ERROR;
2467: END IF;
2460: END IF;
2461:
2462:
2463: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2464: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2465: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2466: RAISE OKL_API.G_EXCEPTION_ERROR;
2467: END IF;
2468:
2461:
2462:
2463: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2464: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2465: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2466: RAISE OKL_API.G_EXCEPTION_ERROR;
2467: END IF;
2468:
2469: END LOOP;
2462:
2463: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2464: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2465: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2466: RAISE OKL_API.G_EXCEPTION_ERROR;
2467: END IF;
2468:
2469: END LOOP;
2470: ---------------
2490:
2491: -- get the capitalize cost of the asset
2492:
2493: OKL_EXECUTE_FORMULA_PUB.EXECUTE(p_api_version => p_api_version,
2494: p_init_msg_list => OKL_API.G_FALSE,
2495: x_return_status => l_return_status,
2496: x_msg_count => x_msg_count,
2497: x_msg_data => x_msg_data,
2498: p_formula_name => 'LINE_CAP_AMNT',
2505: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2506: 'after call to OKL_EXECUTE_FORMULA_PUB.EXECUTE :'||l_return_status);
2507: END IF;
2508:
2509: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2510: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2511: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2512: RAISE OKL_API.G_EXCEPTION_ERROR;
2513: END IF;
2506: 'after call to OKL_EXECUTE_FORMULA_PUB.EXECUTE :'||l_return_status);
2507: END IF;
2508:
2509: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2510: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2511: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2512: RAISE OKL_API.G_EXCEPTION_ERROR;
2513: END IF;
2514:
2507: END IF;
2508:
2509: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2510: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2511: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2512: RAISE OKL_API.G_EXCEPTION_ERROR;
2513: END IF;
2514:
2515: -- Check if asset belongs to the quote
2508:
2509: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2510: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2511: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2512: RAISE OKL_API.G_EXCEPTION_ERROR;
2513: END IF;
2514:
2515: -- Check if asset belongs to the quote
2516: OPEN l_assetinquote_csr(p_quote_id, l_servicelineassets_rec.object1_id1);
2553: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2554: 'after call to calc_prop_line_payments :'||l_return_status);
2555: END IF;
2556:
2557: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2558: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2559: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2560: RAISE OKL_API.G_EXCEPTION_ERROR;
2561: END IF;
2554: 'after call to calc_prop_line_payments :'||l_return_status);
2555: END IF;
2556:
2557: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2558: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2559: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2560: RAISE OKL_API.G_EXCEPTION_ERROR;
2561: END IF;
2562: END IF;
2555: END IF;
2556:
2557: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2558: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2559: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2560: RAISE OKL_API.G_EXCEPTION_ERROR;
2561: END IF;
2562: END IF;
2563: ---
2556:
2557: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2558: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2559: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2560: RAISE OKL_API.G_EXCEPTION_ERROR;
2561: END IF;
2562: END IF;
2563: ---
2564: END IF;
2592: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2593: 'after call to create_cash_flow_object :'||l_return_status);
2594: END IF;
2595:
2596: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2597: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2598: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2599: RAISE OKL_API.G_EXCEPTION_ERROR;
2600: END IF;
2593: 'after call to create_cash_flow_object :'||l_return_status);
2594: END IF;
2595:
2596: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2597: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2598: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2599: RAISE OKL_API.G_EXCEPTION_ERROR;
2600: END IF;
2601:
2594: END IF;
2595:
2596: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2597: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2598: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2599: RAISE OKL_API.G_EXCEPTION_ERROR;
2600: END IF;
2601:
2602: lp_qcov_rec.qte_id := p_quote_id;
2595:
2596: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2597: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2598: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2599: RAISE OKL_API.G_EXCEPTION_ERROR;
2600: END IF;
2601:
2602: lp_qcov_rec.qte_id := p_quote_id;
2603: lp_qcov_rec.cfo_id := l_cfo_id;
2643: END IF;
2644:
2645:
2646:
2647: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2648: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2649: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2650: RAISE OKL_API.G_EXCEPTION_ERROR;
2651: END IF;
2644:
2645:
2646:
2647: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2648: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2649: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2650: RAISE OKL_API.G_EXCEPTION_ERROR;
2651: END IF;
2652:
2645:
2646:
2647: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2648: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2649: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2650: RAISE OKL_API.G_EXCEPTION_ERROR;
2651: END IF;
2652:
2653: END LOOP;
2646:
2647: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2648: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2649: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2650: RAISE OKL_API.G_EXCEPTION_ERROR;
2651: END IF;
2652:
2653: END LOOP;
2654: ---
2672: LOOP
2673: l_count := l_count + 1 ;
2674: -- get the capitalize cost of the asset
2675: OKL_EXECUTE_FORMULA_PUB.EXECUTE(p_api_version => p_api_version,
2676: p_init_msg_list => OKL_API.G_FALSE,
2677: x_return_status => l_return_status,
2678: x_msg_count => x_msg_count,
2679: x_msg_data => x_msg_data,
2680: p_formula_name => 'LINE_CAP_AMNT',
2683: x_value => l_curr_cap_cost);
2684:
2685:
2686:
2687: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2688: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2689: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2690: RAISE OKL_API.G_EXCEPTION_ERROR;
2691: END IF;
2684:
2685:
2686:
2687: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2688: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2689: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2690: RAISE OKL_API.G_EXCEPTION_ERROR;
2691: END IF;
2692: -- Check if asset belongs to the quote
2685:
2686:
2687: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2688: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2689: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2690: RAISE OKL_API.G_EXCEPTION_ERROR;
2691: END IF;
2692: -- Check if asset belongs to the quote
2693: OPEN l_assetinquote_csr(p_quote_id, l_feelineassets_rec.object1_id1);
2686:
2687: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2688: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2689: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2690: RAISE OKL_API.G_EXCEPTION_ERROR;
2691: END IF;
2692: -- Check if asset belongs to the quote
2693: OPEN l_assetinquote_csr(p_quote_id, l_feelineassets_rec.object1_id1);
2694: FETCH l_assetinquote_csr INTO l_quote_line_id, l_asset_quantity, l_quote_quantity;
2726: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2727: 'after call to calc_prop_line_payments :'||l_return_status);
2728: END IF;
2729:
2730: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2731: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2732: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2733: RAISE OKL_API.G_EXCEPTION_ERROR;
2734: END IF;
2727: 'after call to calc_prop_line_payments :'||l_return_status);
2728: END IF;
2729:
2730: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2731: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2732: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2733: RAISE OKL_API.G_EXCEPTION_ERROR;
2734: END IF;
2735: END IF;
2728: END IF;
2729:
2730: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2731: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2732: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2733: RAISE OKL_API.G_EXCEPTION_ERROR;
2734: END IF;
2735: END IF;
2736: END IF;
2729:
2730: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2731: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2732: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2733: RAISE OKL_API.G_EXCEPTION_ERROR;
2734: END IF;
2735: END IF;
2736: END IF;
2737:
2766: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2767: 'after call to create_cash_flow_object :'||l_return_status);
2768: END IF;
2769:
2770: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2771: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2772: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2773: RAISE OKL_API.G_EXCEPTION_ERROR;
2774: END IF;
2767: 'after call to create_cash_flow_object :'||l_return_status);
2768: END IF;
2769:
2770: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2771: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2772: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2773: RAISE OKL_API.G_EXCEPTION_ERROR;
2774: END IF;
2775:
2768: END IF;
2769:
2770: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2771: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2772: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2773: RAISE OKL_API.G_EXCEPTION_ERROR;
2774: END IF;
2775:
2776: lp_qcov_rec.qte_id := p_quote_id;
2769:
2770: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2771: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2772: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2773: RAISE OKL_API.G_EXCEPTION_ERROR;
2774: END IF;
2775:
2776: lp_qcov_rec.qte_id := p_quote_id;
2777: lp_qcov_rec.cfo_id := l_cfo_id;
2815: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2816: 'after call to create_cash_flows :'||l_return_status);
2817: END IF;
2818:
2819: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2820: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2821: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2822: RAISE OKL_API.G_EXCEPTION_ERROR;
2823: END IF;
2816: 'after call to create_cash_flows :'||l_return_status);
2817: END IF;
2818:
2819: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2820: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2821: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2822: RAISE OKL_API.G_EXCEPTION_ERROR;
2823: END IF;
2824:
2817: END IF;
2818:
2819: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2820: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2821: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2822: RAISE OKL_API.G_EXCEPTION_ERROR;
2823: END IF;
2824:
2825: END LOOP;
2818:
2819: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2820: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2821: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2822: RAISE OKL_API.G_EXCEPTION_ERROR;
2823: END IF;
2824:
2825: END LOOP;
2826: END IF;
2863: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2864: 'after call to calc_prop_line_payments :'||l_return_status);
2865: END IF;
2866:
2867: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2868: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2869: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2870: RAISE OKL_API.G_EXCEPTION_ERROR;
2871: END IF;
2864: 'after call to calc_prop_line_payments :'||l_return_status);
2865: END IF;
2866:
2867: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2868: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2869: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2870: RAISE OKL_API.G_EXCEPTION_ERROR;
2871: END IF;
2872:
2865: END IF;
2866:
2867: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2868: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2869: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2870: RAISE OKL_API.G_EXCEPTION_ERROR;
2871: END IF;
2872:
2873: END IF;
2866:
2867: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2868: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2869: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2870: RAISE OKL_API.G_EXCEPTION_ERROR;
2871: END IF;
2872:
2873: END IF;
2874:
2893: p_sts_code => G_PROPOSED_STATUS,
2894: x_cfo_id => l_cfo_id,
2895: x_return_status => l_return_status);
2896:
2897: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2898: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2899: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2900: RAISE OKL_API.G_EXCEPTION_ERROR;
2901: END IF;
2894: x_cfo_id => l_cfo_id,
2895: x_return_status => l_return_status);
2896:
2897: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2898: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2899: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2900: RAISE OKL_API.G_EXCEPTION_ERROR;
2901: END IF;
2902:
2895: x_return_status => l_return_status);
2896:
2897: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2898: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2899: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2900: RAISE OKL_API.G_EXCEPTION_ERROR;
2901: END IF;
2902:
2903: -- Store Objects in okl_quote_cf_objects
2896:
2897: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2898: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2899: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2900: RAISE OKL_API.G_EXCEPTION_ERROR;
2901: END IF;
2902:
2903: -- Store Objects in okl_quote_cf_objects
2904: lp_qcov_rec.qte_id := p_quote_id;
2938: p_cashflow_rec => lp_cashflow_rec,
2939: px_new_cash_flow => lx_new_cash_flow,
2940: x_return_status => l_return_status);
2941:
2942: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2943: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2944: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2945: RAISE OKL_API.G_EXCEPTION_ERROR;
2946: END IF;
2939: px_new_cash_flow => lx_new_cash_flow,
2940: x_return_status => l_return_status);
2941:
2942: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2943: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2944: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2945: RAISE OKL_API.G_EXCEPTION_ERROR;
2946: END IF;
2947:
2940: x_return_status => l_return_status);
2941:
2942: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2943: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2944: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2945: RAISE OKL_API.G_EXCEPTION_ERROR;
2946: END IF;
2947:
2948: END LOOP;
2941:
2942: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2943: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2944: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2945: RAISE OKL_API.G_EXCEPTION_ERROR;
2946: END IF;
2947:
2948: END LOOP;
2949: ---------------
2978: p_date_eff_from => p_date_eff_from,
2979: p_quote_id => p_quote_id,
2980: p_khr_id => p_khr_id ,
2981: x_return_status => l_return_status);
2982: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2983: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2984: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2985: RAISE OKL_API.G_EXCEPTION_ERROR;
2986: END IF;
2979: p_quote_id => p_quote_id,
2980: p_khr_id => p_khr_id ,
2981: x_return_status => l_return_status);
2982: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2983: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2984: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2985: RAISE OKL_API.G_EXCEPTION_ERROR;
2986: END IF;
2987: END IF;
2980: p_khr_id => p_khr_id ,
2981: x_return_status => l_return_status);
2982: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2983: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2984: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2985: RAISE OKL_API.G_EXCEPTION_ERROR;
2986: END IF;
2987: END IF;
2988: ELSE
2981: x_return_status => l_return_status);
2982: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2983: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2984: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2985: RAISE OKL_API.G_EXCEPTION_ERROR;
2986: END IF;
2987: END IF;
2988: ELSE
2989: l_prev_sty_id := -99;
3005: p_base_src_id => l_currpymtobjects_rec.base_source_id,
3006: p_sts_code => G_PROPOSED_STATUS,
3007: x_cfo_id => l_cfo_id,
3008: x_return_status => l_return_status);
3009: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3010: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3011: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3012: RAISE OKL_API.G_EXCEPTION_ERROR;
3013: END IF;
3006: p_sts_code => G_PROPOSED_STATUS,
3007: x_cfo_id => l_cfo_id,
3008: x_return_status => l_return_status);
3009: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3010: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3011: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3012: RAISE OKL_API.G_EXCEPTION_ERROR;
3013: END IF;
3014: -- Store Objects in okl_quote_cf_objects
3007: x_cfo_id => l_cfo_id,
3008: x_return_status => l_return_status);
3009: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3010: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3011: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3012: RAISE OKL_API.G_EXCEPTION_ERROR;
3013: END IF;
3014: -- Store Objects in okl_quote_cf_objects
3015: lp_qcov_rec.qte_id := p_quote_id;
3008: x_return_status => l_return_status);
3009: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3010: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3011: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3012: RAISE OKL_API.G_EXCEPTION_ERROR;
3013: END IF;
3014: -- Store Objects in okl_quote_cf_objects
3015: lp_qcov_rec.qte_id := p_quote_id;
3016: lp_qcov_rec.cfo_id := l_cfo_id;
3046: x_msg_data => x_msg_data,
3047: p_cashflow_rec => lp_cashflow_rec,
3048: px_new_cash_flow => lx_new_cash_flow,
3049: x_return_status => l_return_status);
3050: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3051: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3052: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3053: RAISE OKL_API.G_EXCEPTION_ERROR;
3054: END IF;
3047: p_cashflow_rec => lp_cashflow_rec,
3048: px_new_cash_flow => lx_new_cash_flow,
3049: x_return_status => l_return_status);
3050: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3051: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3052: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3053: RAISE OKL_API.G_EXCEPTION_ERROR;
3054: END IF;
3055: END LOOP;
3048: px_new_cash_flow => lx_new_cash_flow,
3049: x_return_status => l_return_status);
3050: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3051: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3052: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3053: RAISE OKL_API.G_EXCEPTION_ERROR;
3054: END IF;
3055: END LOOP;
3056: END IF;
3049: x_return_status => l_return_status);
3050: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3051: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3052: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3053: RAISE OKL_API.G_EXCEPTION_ERROR;
3054: END IF;
3055: END LOOP;
3056: END IF;
3057: CLOSE l_assetinquote_csr;
3060: --Bug 4299668 PAGARG All the four object table of records is populated for
3061: --current payment. Now call proceure for bulk insert.
3062: --**START**--
3063: okl_cfo_pvt.insert_row_bulk(p_api_version => p_api_version,
3064: p_init_msg_list => OKL_API.G_FALSE,
3065: x_return_status => l_return_status,
3066: x_msg_count => x_msg_count,
3067: x_msg_data => x_msg_data,
3068: p_cfov_tbl => g_cfov_tbl_type,
3067: x_msg_data => x_msg_data,
3068: p_cfov_tbl => g_cfov_tbl_type,
3069: x_cfov_tbl => gx_cfov_tbl_type);
3070:
3071: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3072: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3073: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3074: RAISE OKL_API.G_EXCEPTION_ERROR;
3075: END IF;
3068: p_cfov_tbl => g_cfov_tbl_type,
3069: x_cfov_tbl => gx_cfov_tbl_type);
3070:
3071: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3072: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3073: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3074: RAISE OKL_API.G_EXCEPTION_ERROR;
3075: END IF;
3076:
3069: x_cfov_tbl => gx_cfov_tbl_type);
3070:
3071: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3072: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3073: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3074: RAISE OKL_API.G_EXCEPTION_ERROR;
3075: END IF;
3076:
3077: OKL_QCO_PVT.insert_row_bulk(p_api_version => p_api_version,
3070:
3071: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3072: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3073: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3074: RAISE OKL_API.G_EXCEPTION_ERROR;
3075: END IF;
3076:
3077: OKL_QCO_PVT.insert_row_bulk(p_api_version => p_api_version,
3078: p_init_msg_list => OKL_API.G_FALSE,
3074: RAISE OKL_API.G_EXCEPTION_ERROR;
3075: END IF;
3076:
3077: OKL_QCO_PVT.insert_row_bulk(p_api_version => p_api_version,
3078: p_init_msg_list => OKL_API.G_FALSE,
3079: x_return_status => l_return_status,
3080: x_msg_count => x_msg_count,
3081: x_msg_data => x_msg_data,
3082: p_qcov_tbl => g_qcov_tbl_type,
3081: x_msg_data => x_msg_data,
3082: p_qcov_tbl => g_qcov_tbl_type,
3083: x_qcov_tbl => gx_qcov_tbl_type);
3084:
3085: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3086: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3087: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3088: RAISE OKL_API.G_EXCEPTION_ERROR;
3089: END IF;
3082: p_qcov_tbl => g_qcov_tbl_type,
3083: x_qcov_tbl => gx_qcov_tbl_type);
3084:
3085: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3086: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3087: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3088: RAISE OKL_API.G_EXCEPTION_ERROR;
3089: END IF;
3090:
3083: x_qcov_tbl => gx_qcov_tbl_type);
3084:
3085: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3086: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3087: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3088: RAISE OKL_API.G_EXCEPTION_ERROR;
3089: END IF;
3090:
3091: okl_caf_pvt.insert_row_bulk(p_api_version => p_api_version,
3084:
3085: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3086: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3087: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3088: RAISE OKL_API.G_EXCEPTION_ERROR;
3089: END IF;
3090:
3091: okl_caf_pvt.insert_row_bulk(p_api_version => p_api_version,
3092: p_init_msg_list => OKL_API.G_FALSE,
3088: RAISE OKL_API.G_EXCEPTION_ERROR;
3089: END IF;
3090:
3091: okl_caf_pvt.insert_row_bulk(p_api_version => p_api_version,
3092: p_init_msg_list => OKL_API.G_FALSE,
3093: x_return_status => l_return_status,
3094: x_msg_count => x_msg_count,
3095: x_msg_data => x_msg_data,
3096: p_cafv_tbl => g_cafv_tbl_type,
3095: x_msg_data => x_msg_data,
3096: p_cafv_tbl => g_cafv_tbl_type,
3097: x_cafv_tbl => gx_cafv_tbl_type);
3098:
3099: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3100: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3101: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3102: RAISE OKL_API.G_EXCEPTION_ERROR;
3103: END IF;
3096: p_cafv_tbl => g_cafv_tbl_type,
3097: x_cafv_tbl => gx_cafv_tbl_type);
3098:
3099: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3100: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3101: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3102: RAISE OKL_API.G_EXCEPTION_ERROR;
3103: END IF;
3104:
3097: x_cafv_tbl => gx_cafv_tbl_type);
3098:
3099: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3100: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3101: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3102: RAISE OKL_API.G_EXCEPTION_ERROR;
3103: END IF;
3104:
3105: OKL_CFL_PVT.insert_row_bulk(p_api_version => p_api_version,
3098:
3099: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3100: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3101: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3102: RAISE OKL_API.G_EXCEPTION_ERROR;
3103: END IF;
3104:
3105: OKL_CFL_PVT.insert_row_bulk(p_api_version => p_api_version,
3106: p_init_msg_list => OKL_API.G_FALSE,
3102: RAISE OKL_API.G_EXCEPTION_ERROR;
3103: END IF;
3104:
3105: OKL_CFL_PVT.insert_row_bulk(p_api_version => p_api_version,
3106: p_init_msg_list => OKL_API.G_FALSE,
3107: x_return_status => l_return_status,
3108: x_msg_count => x_msg_count,
3109: x_msg_data => x_msg_data,
3110: p_cflv_tbl => g_cflv_tbl_type,
3108: x_msg_count => x_msg_count,
3109: x_msg_data => x_msg_data,
3110: p_cflv_tbl => g_cflv_tbl_type,
3111: x_cflv_tbl => gx_cflv_tbl_type);
3112: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3113: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3114: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3115: RAISE OKL_API.G_EXCEPTION_ERROR;
3116: END IF;
3109: x_msg_data => x_msg_data,
3110: p_cflv_tbl => g_cflv_tbl_type,
3111: x_cflv_tbl => gx_cflv_tbl_type);
3112: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3113: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3114: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3115: RAISE OKL_API.G_EXCEPTION_ERROR;
3116: END IF;
3117: --**END 4299668**--
3110: p_cflv_tbl => g_cflv_tbl_type,
3111: x_cflv_tbl => gx_cflv_tbl_type);
3112: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3113: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3114: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3115: RAISE OKL_API.G_EXCEPTION_ERROR;
3116: END IF;
3117: --**END 4299668**--
3118:
3111: x_cflv_tbl => gx_cflv_tbl_type);
3112: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3113: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3114: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3115: RAISE OKL_API.G_EXCEPTION_ERROR;
3116: END IF;
3117: --**END 4299668**--
3118:
3119: -- set the return status and out variables
3124: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
3125: END IF;
3126:
3127: EXCEPTION
3128: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3129:
3130: IF (is_debug_exception_on) THEN
3131: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
3132: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
3128: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3129:
3130: IF (is_debug_exception_on) THEN
3131: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
3132: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
3133: END IF;
3134:
3135: IF l_currpymtlines_csr%ISOPEN THEN
3136: CLOSE l_currpymtlines_csr;
3149: END IF;
3150: IF l_currpymtobjects_csr%ISOPEN THEN
3151: CLOSE l_currpymtobjects_csr;
3152: END IF;
3153: x_return_status := OKL_API.G_RET_STS_ERROR;
3154: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3155:
3156: IF (is_debug_exception_on) THEN
3157: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
3150: IF l_currpymtobjects_csr%ISOPEN THEN
3151: CLOSE l_currpymtobjects_csr;
3152: END IF;
3153: x_return_status := OKL_API.G_RET_STS_ERROR;
3154: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3155:
3156: IF (is_debug_exception_on) THEN
3157: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
3158: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
3154: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3155:
3156: IF (is_debug_exception_on) THEN
3157: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
3158: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
3159: END IF;
3160:
3161: IF l_currpymtlines_csr%ISOPEN THEN
3162: CLOSE l_currpymtlines_csr;
3175: END IF;
3176: IF l_currpymtobjects_csr%ISOPEN THEN
3177: CLOSE l_currpymtobjects_csr;
3178: END IF;
3179: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3180: WHEN OTHERS THEN
3181:
3182: IF (is_debug_exception_on) THEN
3183: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
3201: END IF;
3202: IF l_currpymtobjects_csr%ISOPEN THEN
3203: CLOSE l_currpymtobjects_csr;
3204: END IF;
3205: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3206: -- unexpected error
3207: OKL_API.set_message(p_app_name => g_app_name,
3208: p_msg_name => g_unexpected_error,
3209: p_token1 => g_sqlcode_token,
3203: CLOSE l_currpymtobjects_csr;
3204: END IF;
3205: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3206: -- unexpected error
3207: OKL_API.set_message(p_app_name => g_app_name,
3208: p_msg_name => g_unexpected_error,
3209: p_token1 => g_sqlcode_token,
3210: p_token1_value => sqlcode,
3211: p_token2 => g_sqlerrm_token,
3263: +-----------------------------------------------------------------------*/
3264:
3265: l_api_version CONSTANT NUMBER := 1;
3266: l_api_name CONSTANT VARCHAR2(30) := 'calc_quote_payments';
3267: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3268:
3269: l_khr_id NUMBER;
3270: l_date_eff_from DATE;
3271: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'calc_quote_payments';
3285: 'p_quote_id :'||p_quote_id);
3286: END IF;
3287:
3288: --Check API version, initialize message list and create savepoint.
3289: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3290: G_PKG_NAME,
3291: p_init_msg_list,
3292: l_api_version,
3293: p_api_version,
3293: p_api_version,
3294: '_PVT',
3295: x_return_status);
3296:
3297: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3298: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3299: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3300: RAISE OKL_API.G_EXCEPTION_ERROR;
3301: END IF;
3294: '_PVT',
3295: x_return_status);
3296:
3297: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3298: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3299: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3300: RAISE OKL_API.G_EXCEPTION_ERROR;
3301: END IF;
3302:
3295: x_return_status);
3296:
3297: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3298: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3299: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3300: RAISE OKL_API.G_EXCEPTION_ERROR;
3301: END IF;
3302:
3303: IF p_quote_id IS NULL OR p_quote_id = OKL_API.G_MISS_NUM THEN
3296:
3297: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3298: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3299: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3300: RAISE OKL_API.G_EXCEPTION_ERROR;
3301: END IF;
3302:
3303: IF p_quote_id IS NULL OR p_quote_id = OKL_API.G_MISS_NUM THEN
3304: x_return_status := OKL_API.G_RET_STS_ERROR;
3299: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3300: RAISE OKL_API.G_EXCEPTION_ERROR;
3301: END IF;
3302:
3303: IF p_quote_id IS NULL OR p_quote_id = OKL_API.G_MISS_NUM THEN
3304: x_return_status := OKL_API.G_RET_STS_ERROR;
3305: -- quote id is required
3306: OKC_API.set_message( p_app_name => 'OKC',
3307: p_msg_name => G_REQUIRED_VALUE,
3300: RAISE OKL_API.G_EXCEPTION_ERROR;
3301: END IF;
3302:
3303: IF p_quote_id IS NULL OR p_quote_id = OKL_API.G_MISS_NUM THEN
3304: x_return_status := OKL_API.G_RET_STS_ERROR;
3305: -- quote id is required
3306: OKC_API.set_message( p_app_name => 'OKC',
3307: p_msg_name => G_REQUIRED_VALUE,
3308: p_token1 => G_COL_NAME_TOKEN,
3306: OKC_API.set_message( p_app_name => 'OKC',
3307: p_msg_name => G_REQUIRED_VALUE,
3308: p_token1 => G_COL_NAME_TOKEN,
3309: p_token1_value => 'QUOTE_ID');
3310: RAISE OKL_API.G_EXCEPTION_ERROR;
3311: END IF;
3312:
3313:
3314: OPEN l_quotehdr_csr(p_quote_id);
3314: OPEN l_quotehdr_csr(p_quote_id);
3315: FETCH l_quotehdr_csr INTO l_khr_id, l_date_eff_from;
3316: IF l_quotehdr_csr%NOTFOUND THEN
3317: -- quote ID is invalid
3318: x_return_status := OKL_API.G_RET_STS_ERROR;
3319: OKC_API.set_message( p_app_name => 'OKC',
3320: p_msg_name => G_INVALID_VALUE,
3321: p_token1 => G_COL_NAME_TOKEN,
3322: p_token1_value => 'QUOTE_ID');
3320: p_msg_name => G_INVALID_VALUE,
3321: p_token1 => G_COL_NAME_TOKEN,
3322: p_token1_value => 'QUOTE_ID');
3323:
3324: RAISE OKL_API.G_EXCEPTION_ERROR;
3325: END IF;
3326: CLOSE l_quotehdr_csr;
3327:
3328: --Bug 4299668 PAGARG Reset the global table of records for the four objects
3339: --**END 4299668**--
3340:
3341: get_current_payments(
3342: p_api_version => p_api_version,
3343: p_init_msg_list => OKL_API.G_FALSE,
3344: x_return_status => l_return_status,
3345: x_msg_count => x_msg_count,
3346: x_msg_data => x_msg_data,
3347: p_quote_id => p_quote_id,
3346: x_msg_data => x_msg_data,
3347: p_quote_id => p_quote_id,
3348: p_khr_id => l_khr_id);
3349:
3350: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3351: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3352: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3353: RAISE OKL_API.G_EXCEPTION_ERROR;
3354: END IF;
3347: p_quote_id => p_quote_id,
3348: p_khr_id => l_khr_id);
3349:
3350: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3351: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3352: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3353: RAISE OKL_API.G_EXCEPTION_ERROR;
3354: END IF;
3355:
3348: p_khr_id => l_khr_id);
3349:
3350: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3351: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3352: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3353: RAISE OKL_API.G_EXCEPTION_ERROR;
3354: END IF;
3355:
3356: --Bug 4299668 PAGARG Reset the global table of records for the four objects
3349:
3350: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3351: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3352: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3353: RAISE OKL_API.G_EXCEPTION_ERROR;
3354: END IF;
3355:
3356: --Bug 4299668 PAGARG Reset the global table of records for the four objects
3357: --and reset the Counter
3367: --**END 4299668**--
3368:
3369: calc_proposed_payments(
3370: p_api_version => p_api_version,
3371: p_init_msg_list => OKL_API.G_FALSE,
3372: x_return_status => l_return_status,
3373: x_msg_count => x_msg_count,
3374: x_msg_data => x_msg_data,
3375: p_quote_id => p_quote_id,
3375: p_quote_id => p_quote_id,
3376: p_khr_id => l_khr_id,
3377: p_date_eff_from => l_date_eff_from);
3378:
3379: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3380: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3381: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3382: RAISE OKL_API.G_EXCEPTION_ERROR;
3383: END IF;
3376: p_khr_id => l_khr_id,
3377: p_date_eff_from => l_date_eff_from);
3378:
3379: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3380: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3381: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3382: RAISE OKL_API.G_EXCEPTION_ERROR;
3383: END IF;
3384:
3377: p_date_eff_from => l_date_eff_from);
3378:
3379: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3380: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3381: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3382: RAISE OKL_API.G_EXCEPTION_ERROR;
3383: END IF;
3384:
3385: x_return_status := l_return_status;
3378:
3379: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3380: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3381: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3382: RAISE OKL_API.G_EXCEPTION_ERROR;
3383: END IF;
3384:
3385: x_return_status := l_return_status;
3386:
3384:
3385: x_return_status := l_return_status;
3386:
3387: -- end the transaction
3388: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3389:
3390: IF (is_debug_procedure_on) THEN
3391: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
3392: END IF;
3391: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
3392: END IF;
3393:
3394: EXCEPTION
3395: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3396:
3397: IF (is_debug_exception_on) THEN
3398: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
3399: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
3395: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3396:
3397: IF (is_debug_exception_on) THEN
3398: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
3399: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
3400: END IF;
3401:
3402: IF l_quotehdr_csr%ISOPEN THEN
3403: CLOSE l_quotehdr_csr;
3401:
3402: IF l_quotehdr_csr%ISOPEN THEN
3403: CLOSE l_quotehdr_csr;
3404: END IF;
3405: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3406: (
3407: l_api_name,
3408: G_PKG_NAME,
3409: 'OKL_API.G_RET_STS_ERROR',
3405: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3406: (
3407: l_api_name,
3408: G_PKG_NAME,
3409: 'OKL_API.G_RET_STS_ERROR',
3410: x_msg_count,
3411: x_msg_data,
3412: '_PVT'
3413: );
3410: x_msg_count,
3411: x_msg_data,
3412: '_PVT'
3413: );
3414: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3415: IF (is_debug_exception_on) THEN
3416: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
3417: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
3418: END IF;
3413: );
3414: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3415: IF (is_debug_exception_on) THEN
3416: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
3417: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
3418: END IF;
3419:
3420: IF l_quotehdr_csr%ISOPEN THEN
3421: CLOSE l_quotehdr_csr;
3419:
3420: IF l_quotehdr_csr%ISOPEN THEN
3421: CLOSE l_quotehdr_csr;
3422: END IF;
3423: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3424: (
3425: l_api_name,
3426: G_PKG_NAME,
3427: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3423: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3424: (
3425: l_api_name,
3426: G_PKG_NAME,
3427: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3428: x_msg_count,
3429: x_msg_data,
3430: '_PVT'
3431: );
3438:
3439: IF l_quotehdr_csr%ISOPEN THEN
3440: CLOSE l_quotehdr_csr;
3441: END IF;
3442: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3443: (
3444: l_api_name,
3445: G_PKG_NAME,
3446: 'OTHERS',