129: l_prev_sty_id NUMBER := -1;
130: l_total_curr_amt NUMBER := 0 ;
131: l_total_prop_amt NUMBER := 0 ;
132:
133: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
134: l_api_version CONSTANT NUMBER := 1;
135: l_api_name CONSTANT VARCHAR2(30) := 'get_payment_summary';
136:
137: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'get_payment_summary';
150: 'p_qte_id :'||p_qte_id);
151:
152: END IF;
153:
154: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
155: G_PKG_NAME,
156: p_init_msg_list,
157: l_api_version,
158: p_api_version,
158: p_api_version,
159: '_PVT',
160: x_return_status);
161:
162: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
163: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
164: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
165: RAISE OKL_API.G_EXCEPTION_ERROR;
166: END IF;
159: '_PVT',
160: x_return_status);
161:
162: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
163: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
164: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
165: RAISE OKL_API.G_EXCEPTION_ERROR;
166: END IF;
167:
160: x_return_status);
161:
162: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
163: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
164: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
165: RAISE OKL_API.G_EXCEPTION_ERROR;
166: END IF;
167:
168: IF p_qte_id IS NULL OR p_qte_id = OKL_API.G_MISS_NUM THEN
161:
162: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
163: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
164: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
165: RAISE OKL_API.G_EXCEPTION_ERROR;
166: END IF;
167:
168: IF p_qte_id IS NULL OR p_qte_id = OKL_API.G_MISS_NUM THEN
169:
164: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
165: RAISE OKL_API.G_EXCEPTION_ERROR;
166: END IF;
167:
168: IF p_qte_id IS NULL OR p_qte_id = OKL_API.G_MISS_NUM THEN
169:
170: -- quote id is required
171: OKL_API.set_message( p_app_name => 'OKC',
172: p_msg_name => G_REQUIRED_VALUE,
167:
168: IF p_qte_id IS NULL OR p_qte_id = OKL_API.G_MISS_NUM THEN
169:
170: -- quote id is required
171: OKL_API.set_message( p_app_name => 'OKC',
172: p_msg_name => G_REQUIRED_VALUE,
173: p_token1 => G_COL_NAME_TOKEN,
174: p_token1_value => 'QUOTE_ID');
175: RAISE OKL_API.G_EXCEPTION_ERROR;
171: OKL_API.set_message( p_app_name => 'OKC',
172: p_msg_name => G_REQUIRED_VALUE,
173: p_token1 => G_COL_NAME_TOKEN,
174: p_token1_value => 'QUOTE_ID');
175: RAISE OKL_API.G_EXCEPTION_ERROR;
176: END IF;
177:
178: -- This cursor will return 2 rows for each stream type
179: FOR l_pymtsummary_rec IN l_pymtsummary_csr(p_qte_id) LOOP
203: x_total_curr_amt := l_total_curr_amt ;
204: x_total_prop_amt := l_total_prop_amt ;
205: x_return_status := l_return_status;
206:
207: OKL_API.END_ACTIVITY (x_msg_count, x_msg_data);
208:
209: IF (is_debug_procedure_on) THEN
210: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
211: END IF;
210: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
211: END IF;
212:
213: EXCEPTION
214: WHEN OKL_API.G_EXCEPTION_ERROR THEN
215: IF (is_debug_exception_on) THEN
216: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
217: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
218: END IF;
213: EXCEPTION
214: WHEN OKL_API.G_EXCEPTION_ERROR THEN
215: IF (is_debug_exception_on) THEN
216: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
217: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
218: END IF;
219:
220: IF l_pymtsummary_csr%ISOPEN THEN
221: CLOSE l_pymtsummary_csr;
219:
220: IF l_pymtsummary_csr%ISOPEN THEN
221: CLOSE l_pymtsummary_csr;
222: END IF;
223: x_return_status := OKL_API.G_RET_STS_ERROR;
224: WHEN OTHERS THEN
225: IF (is_debug_exception_on) THEN
226: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
227: 'EXCEPTION :'||sqlerrm);
232: CLOSE l_pymtsummary_csr;
233: END IF;
234:
235: -- store SQL error message on message stack for caller
236: OKL_API.SET_MESSAGE (
237: p_app_name => G_APP_NAME
238: ,p_msg_name => G_UNEXPECTED_ERROR
239: ,p_token1 => G_SQLCODE_TOKEN
240: ,p_token1_value => sqlcode
241: ,p_token2 => G_SQLERRM_TOKEN
242: ,p_token2_value => sqlerrm);
243:
244: -- notify caller of an UNEXPECTED error
245: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
246:
247: END get_payment_summary;
248:
249: /*========================================================================
323:
324: l_cfo_id NUMBER;
325: lp_cfov_rec cfov_rec_type;
326: lx_cfov_rec cfov_rec_type;
327: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
328: l_dummy VARCHAR2(1);
329:
330: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'create_cash_flow_object';
331: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
373:
374: ELSE
375: --OTY_CODE object already exists for STS_CODE payments.
376:
377: OKL_API.set_message(p_app_name => 'OKL',
378: p_msg_name => 'OKL_AM_OBJ_EXISTS',
379: p_token1 => 'OTY_CODE',
380: p_token1_value => p_obj_type_code,
381: p_token2 => 'STS_CODE',
379: p_token1 => 'OTY_CODE',
380: p_token1_value => p_obj_type_code,
381: p_token2 => 'STS_CODE',
382: p_token2_value => p_sts_code);
383: RAISE OKL_API.G_EXCEPTION_ERROR;
384: END IF;
385: CLOSE l_cash_flow_objects_csr;
386:
387: x_return_status := l_return_status;
390: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'end(-)');
391: END IF;
392:
393: EXCEPTION
394: WHEN OKL_API.G_EXCEPTION_ERROR THEN
395:
396: IF (is_debug_exception_on) THEN
397: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
398: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
394: WHEN OKL_API.G_EXCEPTION_ERROR THEN
395:
396: IF (is_debug_exception_on) THEN
397: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
398: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
399: END IF;
400:
401: IF l_cash_flow_objects_csr%ISOPEN THEN
402: CLOSE l_cash_flow_objects_csr;
400:
401: IF l_cash_flow_objects_csr%ISOPEN THEN
402: CLOSE l_cash_flow_objects_csr;
403: END IF;
404: x_return_status := OKL_API.G_RET_STS_ERROR;
405: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
406:
407: IF (is_debug_exception_on) THEN
408: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
401: IF l_cash_flow_objects_csr%ISOPEN THEN
402: CLOSE l_cash_flow_objects_csr;
403: END IF;
404: x_return_status := OKL_API.G_RET_STS_ERROR;
405: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
406:
407: IF (is_debug_exception_on) THEN
408: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
409: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
405: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
406:
407: IF (is_debug_exception_on) THEN
408: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
409: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
410: END IF;
411:
412: IF l_cash_flow_objects_csr%ISOPEN THEN
413: CLOSE l_cash_flow_objects_csr;
411:
412: IF l_cash_flow_objects_csr%ISOPEN THEN
413: CLOSE l_cash_flow_objects_csr;
414: END IF;
415: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
416: WHEN OTHERS THEN
417:
418: IF (is_debug_exception_on) THEN
419: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
422:
423: IF l_cash_flow_objects_csr%ISOPEN THEN
424: CLOSE l_cash_flow_objects_csr;
425: END IF;
426: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
427: -- unexpected error
428: OKL_API.set_message(p_app_name => g_app_name,
429: p_msg_name => g_unexpected_error,
430: p_token1 => g_sqlcode_token,
424: CLOSE l_cash_flow_objects_csr;
425: END IF;
426: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
427: -- unexpected error
428: OKL_API.set_message(p_app_name => g_app_name,
429: p_msg_name => g_unexpected_error,
430: p_token1 => g_sqlcode_token,
431: p_token1_value => sqlcode,
432: p_token2 => g_sqlerrm_token,
504: lp_cflv_rec cflv_rec_type;
505: lx_cflv_rec cflv_rec_type;
506:
507: l_dummy VARCHAR2(1) := '?';
508: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
509: l_caf_id NUMBER ;
510: l_currency_code VARCHAR2(15);
511: l_amount NUMBER;
512: l_stub_amount NUMBER;
598: OPEN l_kheaders_csr(p_cashflow_rec.p_khr_id);
599: FETCH l_kheaders_csr INTO l_currency_code;
600: IF l_kheaders_csr%NOTFOUND THEN
601: -- contract ID is invalid
602: OKL_API.set_message( p_app_name => 'OKC',
603: p_msg_name => G_INVALID_VALUE,
604: p_token1 => G_COL_NAME_TOKEN,
605: p_token1_value => 'CONTRACT_ID');
606:
603: p_msg_name => G_INVALID_VALUE,
604: p_token1 => G_COL_NAME_TOKEN,
605: p_token1_value => 'CONTRACT_ID');
606:
607: RAISE OKL_API.G_EXCEPTION_ERROR;
608: END IF;
609: CLOSE l_kheaders_csr;
610:
611: IF p_cashflow_rec.p_stub_days IS NOT NULL THEN
610:
611: IF p_cashflow_rec.p_stub_days IS NOT NULL THEN
612: okl_accounting_util.round_amount(
613: p_api_version => p_api_version,
614: p_init_msg_list => OKL_API.G_FALSE,
615: x_return_status => l_return_status,
616: x_msg_count => x_msg_count,
617: x_msg_data => x_msg_data,
618: p_amount => p_cashflow_rec.p_stub_amount,
619: p_currency_code => l_currency_code,
620: p_round_option => 'AEL',
621: x_rounded_amount => l_stub_amount);
622:
623: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
624: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
625: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
626: RAISE OKL_API.G_EXCEPTION_ERROR;
627: END IF;
620: p_round_option => 'AEL',
621: x_rounded_amount => l_stub_amount);
622:
623: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
624: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
625: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
626: RAISE OKL_API.G_EXCEPTION_ERROR;
627: END IF;
628:
621: x_rounded_amount => l_stub_amount);
622:
623: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
624: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
625: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
626: RAISE OKL_API.G_EXCEPTION_ERROR;
627: END IF;
628:
629: lp_cflv_rec.stub_days := p_cashflow_rec.p_stub_days;
622:
623: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
624: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
625: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
626: RAISE OKL_API.G_EXCEPTION_ERROR;
627: END IF;
628:
629: lp_cflv_rec.stub_days := p_cashflow_rec.p_stub_days;
630: lp_cflv_rec.stub_amount := l_stub_amount;
631: ELSE
632:
633: okl_accounting_util.round_amount(
634: p_api_version => p_api_version,
635: p_init_msg_list => OKL_API.G_FALSE,
636: x_return_status => l_return_status,
637: x_msg_count => x_msg_count,
638: x_msg_data => x_msg_data,
639: p_amount => p_cashflow_rec.p_amount,
640: p_currency_code => l_currency_code,
641: p_round_option => 'AEL',
642: x_rounded_amount => l_amount);
643:
644: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
645: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
646: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
647: RAISE OKL_API.G_EXCEPTION_ERROR;
648: END IF;
641: p_round_option => 'AEL',
642: x_rounded_amount => l_amount);
643:
644: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
645: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
646: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
647: RAISE OKL_API.G_EXCEPTION_ERROR;
648: END IF;
649:
642: x_rounded_amount => l_amount);
643:
644: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
645: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
646: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
647: RAISE OKL_API.G_EXCEPTION_ERROR;
648: END IF;
649:
650: lp_cflv_rec.amount := l_amount;
643:
644: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
645: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
646: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
647: RAISE OKL_API.G_EXCEPTION_ERROR;
648: END IF;
649:
650: lp_cflv_rec.amount := l_amount;
651: lp_cflv_rec.number_of_periods := p_cashflow_rec.p_period_in_months;
669: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
670: END IF;
671:
672: EXCEPTION
673: WHEN OKL_API.G_EXCEPTION_ERROR THEN
674:
675: IF (is_debug_exception_on) THEN
676: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
677: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
673: WHEN OKL_API.G_EXCEPTION_ERROR THEN
674:
675: IF (is_debug_exception_on) THEN
676: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
677: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
678: END IF;
679:
680: IF l_cashflow_csr%ISOPEN THEN
681: CLOSE l_cashflow_csr;
682: END IF;
683: IF l_kheaders_csr%ISOPEN THEN
684: CLOSE l_kheaders_csr;
685: END IF;
686: x_return_status := OKL_API.G_RET_STS_ERROR;
687: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
688:
689: IF (is_debug_exception_on) THEN
690: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
683: IF l_kheaders_csr%ISOPEN THEN
684: CLOSE l_kheaders_csr;
685: END IF;
686: x_return_status := OKL_API.G_RET_STS_ERROR;
687: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
688:
689: IF (is_debug_exception_on) THEN
690: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
691: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
687: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
688:
689: IF (is_debug_exception_on) THEN
690: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
691: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
692: END IF;
693:
694: IF l_cashflow_csr%ISOPEN THEN
695: CLOSE l_cashflow_csr;
696: END IF;
697: IF l_kheaders_csr%ISOPEN THEN
698: CLOSE l_kheaders_csr;
699: END IF;
700: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
701: WHEN OTHERS THEN
702:
703: IF (is_debug_exception_on) THEN
704: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
710: END IF;
711: IF l_kheaders_csr%ISOPEN THEN
712: CLOSE l_kheaders_csr;
713: END IF;
714: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
715: -- unexpecetd error
716: OKL_API.set_message(p_app_name => g_app_name,
717: p_msg_name => g_unexpected_error,
718: p_token1 => g_sqlcode_token,
712: CLOSE l_kheaders_csr;
713: END IF;
714: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
715: -- unexpecetd error
716: OKL_API.set_message(p_app_name => g_app_name,
717: p_msg_name => g_unexpected_error,
718: p_token1 => g_sqlcode_token,
719: p_token1_value => sqlcode,
720: p_token2 => g_sqlerrm_token,
752: | call bulk insert for all four objects
753: *=======================================================================*/
754: PROCEDURE get_current_payments(
755: p_api_version IN NUMBER,
756: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
757: x_return_status OUT NOCOPY VARCHAR2,
758: x_msg_count OUT NOCOPY NUMBER,
759: x_msg_data OUT NOCOPY VARCHAR2,
760: p_quote_id IN NUMBER,
874: lx_qcov_rec qcov_rec_type;
875:
876: lp_cashflow_rec cashflow_rec_type;
877:
878: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
879:
880: l_pymt_count NUMBER := 0;
881: l_sys_date DATE;
882: l_api_version CONSTANT NUMBER := 1;
932: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
933: 'after call to create_cash_flow_object :'||l_return_status);
934: END IF;
935:
936: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
937: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
938: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
939: RAISE OKL_API.G_EXCEPTION_ERROR;
940: END IF;
933: 'after call to create_cash_flow_object :'||l_return_status);
934: END IF;
935:
936: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
937: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
938: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
939: RAISE OKL_API.G_EXCEPTION_ERROR;
940: END IF;
941:
934: END IF;
935:
936: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
937: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
938: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
939: RAISE OKL_API.G_EXCEPTION_ERROR;
940: END IF;
941:
942: -- Store Objects in OKL_TRX_QTE_CF_OBJECTS
935:
936: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
937: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
938: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
939: RAISE OKL_API.G_EXCEPTION_ERROR;
940: END IF;
941:
942: -- Store Objects in OKL_TRX_QTE_CF_OBJECTS
943:
984: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
985: 'after call to create_cash_flows :'||l_return_status);
986: END IF;
987:
988: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
989: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
990: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
991: RAISE OKL_API.G_EXCEPTION_ERROR;
992: END IF;
985: 'after call to create_cash_flows :'||l_return_status);
986: END IF;
987:
988: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
989: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
990: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
991: RAISE OKL_API.G_EXCEPTION_ERROR;
992: END IF;
993:
986: END IF;
987:
988: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
989: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
990: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
991: RAISE OKL_API.G_EXCEPTION_ERROR;
992: END IF;
993:
994: END LOOP;
987:
988: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
989: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
990: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
991: RAISE OKL_API.G_EXCEPTION_ERROR;
992: END IF;
993:
994: END LOOP;
995:
1037: 'after call to create_cash_flow_object :'||l_return_status);
1038: END IF;
1039:
1040:
1041: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1042: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1043: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1044: RAISE OKL_API.G_EXCEPTION_ERROR;
1045: END IF;
1038: END IF;
1039:
1040:
1041: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1042: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1043: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1044: RAISE OKL_API.G_EXCEPTION_ERROR;
1045: END IF;
1046:
1039:
1040:
1041: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1042: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1043: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1044: RAISE OKL_API.G_EXCEPTION_ERROR;
1045: END IF;
1046:
1047: lp_qcov_rec.qte_id := p_quote_id;
1040:
1041: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1042: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1043: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1044: RAISE OKL_API.G_EXCEPTION_ERROR;
1045: END IF;
1046:
1047: lp_qcov_rec.qte_id := p_quote_id;
1048: lp_qcov_rec.cfo_id := l_cfo_id;
1086: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1087: 'after call to create_cash_flows :'||l_return_status);
1088: END IF;
1089:
1090: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1091: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1092: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1093: RAISE OKL_API.G_EXCEPTION_ERROR;
1094: END IF;
1087: 'after call to create_cash_flows :'||l_return_status);
1088: END IF;
1089:
1090: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1091: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1092: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1093: RAISE OKL_API.G_EXCEPTION_ERROR;
1094: END IF;
1095: END LOOP;
1088: END IF;
1089:
1090: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1091: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1092: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1093: RAISE OKL_API.G_EXCEPTION_ERROR;
1094: END IF;
1095: END LOOP;
1096:
1089:
1090: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1091: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1092: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1093: RAISE OKL_API.G_EXCEPTION_ERROR;
1094: END IF;
1095: END LOOP;
1096:
1097: ------------------------Get Serviced Asset Line level payments --------------------------
1125: IF (is_debug_statement_on) THEN
1126: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1127: 'after call to create_cash_flow_object :'||l_return_status);
1128: END IF;
1129: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1130: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1131: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1132: RAISE OKL_API.G_EXCEPTION_ERROR;
1133: END IF;
1126: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1127: 'after call to create_cash_flow_object :'||l_return_status);
1128: END IF;
1129: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1130: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1131: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1132: RAISE OKL_API.G_EXCEPTION_ERROR;
1133: END IF;
1134:
1127: 'after call to create_cash_flow_object :'||l_return_status);
1128: END IF;
1129: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1130: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1131: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1132: RAISE OKL_API.G_EXCEPTION_ERROR;
1133: END IF;
1134:
1135: lp_qcov_rec.qte_id := p_quote_id;
1128: END IF;
1129: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1130: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1131: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1132: RAISE OKL_API.G_EXCEPTION_ERROR;
1133: END IF;
1134:
1135: lp_qcov_rec.qte_id := p_quote_id;
1136: lp_qcov_rec.cfo_id := l_cfo_id;
1174: IF (is_debug_statement_on) THEN
1175: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1176: 'after call to create_cash_flows :'||l_return_status);
1177: END IF;
1178: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1179: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1180: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1181: RAISE OKL_API.G_EXCEPTION_ERROR;
1182: END IF;
1175: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1176: 'after call to create_cash_flows :'||l_return_status);
1177: END IF;
1178: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1179: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1180: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1181: RAISE OKL_API.G_EXCEPTION_ERROR;
1182: END IF;
1183:
1176: 'after call to create_cash_flows :'||l_return_status);
1177: END IF;
1178: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1179: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1180: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1181: RAISE OKL_API.G_EXCEPTION_ERROR;
1182: END IF;
1183:
1184: END LOOP;
1177: END IF;
1178: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1179: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1180: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1181: RAISE OKL_API.G_EXCEPTION_ERROR;
1182: END IF;
1183:
1184: END LOOP;
1185: END LOOP;
1218: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1219: 'after call to create_cash_flow_object :'||l_return_status);
1220: END IF;
1221:
1222: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
1223: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1224: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1225: RAISE OKL_API.G_EXCEPTION_ERROR;
1226: END IF;
1219: 'after call to create_cash_flow_object :'||l_return_status);
1220: END IF;
1221:
1222: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
1223: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1224: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1225: RAISE OKL_API.G_EXCEPTION_ERROR;
1226: END IF;
1227: lp_qcov_rec.qte_id := p_quote_id;
1220: END IF;
1221:
1222: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
1223: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1224: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1225: RAISE OKL_API.G_EXCEPTION_ERROR;
1226: END IF;
1227: lp_qcov_rec.qte_id := p_quote_id;
1228: lp_qcov_rec.cfo_id := l_cfo_id;
1221:
1222: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
1223: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1224: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1225: RAISE OKL_API.G_EXCEPTION_ERROR;
1226: END IF;
1227: lp_qcov_rec.qte_id := p_quote_id;
1228: lp_qcov_rec.cfo_id := l_cfo_id;
1229: lp_qcov_rec.BASE_SOURCE_ID := l_feelineassets_rec.id;
1266: IF (is_debug_statement_on) THEN
1267: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1268: 'after call to create_cash_flows :'||l_return_status);
1269: END IF;
1270: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1271: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1272: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1273: RAISE OKL_API.G_EXCEPTION_ERROR;
1274: END IF;
1267: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1268: 'after call to create_cash_flows :'||l_return_status);
1269: END IF;
1270: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1271: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1272: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1273: RAISE OKL_API.G_EXCEPTION_ERROR;
1274: END IF;
1275: END LOOP;
1268: 'after call to create_cash_flows :'||l_return_status);
1269: END IF;
1270: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1271: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1272: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1273: RAISE OKL_API.G_EXCEPTION_ERROR;
1274: END IF;
1275: END LOOP;
1276: END LOOP;
1269: END IF;
1270: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1271: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1272: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1273: RAISE OKL_API.G_EXCEPTION_ERROR;
1274: END IF;
1275: END LOOP;
1276: END LOOP;
1277: END IF;
1283: --Bug 4299668 PAGARG All the four object table of records is populated for
1284: --current payment. Now call proceure for bulk insert.
1285: --**START**--
1286: okl_cfo_pvt.insert_row_bulk(p_api_version => p_api_version,
1287: p_init_msg_list => OKL_API.G_FALSE,
1288: x_return_status => l_return_status,
1289: x_msg_count => x_msg_count,
1290: x_msg_data => x_msg_data,
1291: p_cfov_tbl => g_cfov_tbl_type,
1295: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1296: 'after call to okl_cfo_pvt.insert_row_bulk :'||l_return_status);
1297: END IF;
1298:
1299: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1300: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1301: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1302: RAISE OKL_API.G_EXCEPTION_ERROR;
1303: END IF;
1296: 'after call to okl_cfo_pvt.insert_row_bulk :'||l_return_status);
1297: END IF;
1298:
1299: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1300: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1301: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1302: RAISE OKL_API.G_EXCEPTION_ERROR;
1303: END IF;
1304:
1297: END IF;
1298:
1299: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1300: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1301: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1302: RAISE OKL_API.G_EXCEPTION_ERROR;
1303: END IF;
1304:
1305: OKL_QCO_PVT.insert_row_bulk(p_api_version => p_api_version,
1298:
1299: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1300: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1301: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1302: RAISE OKL_API.G_EXCEPTION_ERROR;
1303: END IF;
1304:
1305: OKL_QCO_PVT.insert_row_bulk(p_api_version => p_api_version,
1306: p_init_msg_list => OKL_API.G_FALSE,
1302: RAISE OKL_API.G_EXCEPTION_ERROR;
1303: END IF;
1304:
1305: OKL_QCO_PVT.insert_row_bulk(p_api_version => p_api_version,
1306: p_init_msg_list => OKL_API.G_FALSE,
1307: x_return_status => l_return_status,
1308: x_msg_count => x_msg_count,
1309: x_msg_data => x_msg_data,
1310: p_qcov_tbl => g_qcov_tbl_type,
1314: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1315: 'after call to okl_cfo_pvt.insert_row_bulk :'||l_return_status);
1316: END IF;
1317:
1318: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1319: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1320: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1321: RAISE OKL_API.G_EXCEPTION_ERROR;
1322: END IF;
1315: 'after call to okl_cfo_pvt.insert_row_bulk :'||l_return_status);
1316: END IF;
1317:
1318: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1319: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1320: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1321: RAISE OKL_API.G_EXCEPTION_ERROR;
1322: END IF;
1323:
1316: END IF;
1317:
1318: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1319: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1320: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1321: RAISE OKL_API.G_EXCEPTION_ERROR;
1322: END IF;
1323:
1324: okl_caf_pvt.insert_row_bulk(p_api_version => p_api_version,
1317:
1318: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1319: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1320: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1321: RAISE OKL_API.G_EXCEPTION_ERROR;
1322: END IF;
1323:
1324: okl_caf_pvt.insert_row_bulk(p_api_version => p_api_version,
1325: p_init_msg_list => OKL_API.G_FALSE,
1321: RAISE OKL_API.G_EXCEPTION_ERROR;
1322: END IF;
1323:
1324: okl_caf_pvt.insert_row_bulk(p_api_version => p_api_version,
1325: p_init_msg_list => OKL_API.G_FALSE,
1326: x_return_status => l_return_status,
1327: x_msg_count => x_msg_count,
1328: x_msg_data => x_msg_data,
1329: p_cafv_tbl => g_cafv_tbl_type,
1333: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1334: 'after call to okl_cfo_pvt.insert_row_bulk :'||l_return_status);
1335: END IF;
1336:
1337: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1338: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1339: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1340: RAISE OKL_API.G_EXCEPTION_ERROR;
1341: END IF;
1334: 'after call to okl_cfo_pvt.insert_row_bulk :'||l_return_status);
1335: END IF;
1336:
1337: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1338: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1339: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1340: RAISE OKL_API.G_EXCEPTION_ERROR;
1341: END IF;
1342:
1335: END IF;
1336:
1337: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1338: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1339: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1340: RAISE OKL_API.G_EXCEPTION_ERROR;
1341: END IF;
1342:
1343: OKL_CFL_PVT.insert_row_bulk(p_api_version => p_api_version,
1336:
1337: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1338: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1339: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1340: RAISE OKL_API.G_EXCEPTION_ERROR;
1341: END IF;
1342:
1343: OKL_CFL_PVT.insert_row_bulk(p_api_version => p_api_version,
1344: p_init_msg_list => OKL_API.G_FALSE,
1340: RAISE OKL_API.G_EXCEPTION_ERROR;
1341: END IF;
1342:
1343: OKL_CFL_PVT.insert_row_bulk(p_api_version => p_api_version,
1344: p_init_msg_list => OKL_API.G_FALSE,
1345: x_return_status => l_return_status,
1346: x_msg_count => x_msg_count,
1347: x_msg_data => x_msg_data,
1348: p_cflv_tbl => g_cflv_tbl_type,
1352: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1353: 'after call to okl_cfo_pvt.insert_row_bulk :'||l_return_status);
1354: END IF;
1355:
1356: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1357: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1358: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1359: RAISE OKL_API.G_EXCEPTION_ERROR;
1360: END IF;
1353: 'after call to okl_cfo_pvt.insert_row_bulk :'||l_return_status);
1354: END IF;
1355:
1356: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1357: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1358: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1359: RAISE OKL_API.G_EXCEPTION_ERROR;
1360: END IF;
1361: --**END 4299668**--
1354: END IF;
1355:
1356: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1357: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1358: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1359: RAISE OKL_API.G_EXCEPTION_ERROR;
1360: END IF;
1361: --**END 4299668**--
1362:
1355:
1356: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1357: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1358: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1359: RAISE OKL_API.G_EXCEPTION_ERROR;
1360: END IF;
1361: --**END 4299668**--
1362:
1363: -- set the return status and out variables
1366: IF (is_debug_procedure_on) THEN
1367: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
1368: END IF;
1369: EXCEPTION
1370: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1371: IF (is_debug_exception_on) THEN
1372: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
1373: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
1374: END IF;
1369: EXCEPTION
1370: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1371: IF (is_debug_exception_on) THEN
1372: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
1373: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
1374: END IF;
1375:
1376:
1377: IF l_kpayments_csr%ISOPEN THEN
1388: -- Changed the cursor name as made it generalised
1389: IF l_lineassets_csr%ISOPEN THEN
1390: CLOSE l_lineassets_csr;
1391: END IF;
1392: x_return_status := OKL_API.G_RET_STS_ERROR;
1393: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1394: IF (is_debug_exception_on) THEN
1395: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
1396: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
1389: IF l_lineassets_csr%ISOPEN THEN
1390: CLOSE l_lineassets_csr;
1391: END IF;
1392: x_return_status := OKL_API.G_RET_STS_ERROR;
1393: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1394: IF (is_debug_exception_on) THEN
1395: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
1396: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
1397: END IF;
1392: x_return_status := OKL_API.G_RET_STS_ERROR;
1393: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1394: IF (is_debug_exception_on) THEN
1395: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
1396: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
1397: END IF;
1398:
1399: IF l_kpayments_csr%ISOPEN THEN
1400: CLOSE l_kpayments_csr;
1409: -- Changed the cursor name as made it generalised
1410: IF l_lineassets_csr%ISOPEN THEN
1411: CLOSE l_lineassets_csr;
1412: END IF;
1413: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1414: WHEN OTHERS THEN
1415: IF (is_debug_exception_on) THEN
1416: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
1417: 'EXCEPTION :'||sqlerrm);
1430: -- Changed the cursor name as made it generalised
1431: IF l_lineassets_csr%ISOPEN THEN
1432: CLOSE l_lineassets_csr;
1433: END IF;
1434: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1435: -- unexpected error
1436: OKL_API.set_message(p_app_name => g_app_name,
1437: p_msg_name => g_unexpected_error,
1438: p_token1 => g_sqlcode_token,
1432: CLOSE l_lineassets_csr;
1433: END IF;
1434: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1435: -- unexpected error
1436: OKL_API.set_message(p_app_name => g_app_name,
1437: p_msg_name => g_unexpected_error,
1438: p_token1 => g_sqlcode_token,
1439: p_token1_value => sqlcode,
1440: p_token2 => g_sqlerrm_token,
1523: +-----------------------------------------------------------------------*/
1524:
1525: l_cfo_id NUMBER;
1526: l_pymt_Count NUMBER;
1527: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1528: l_prev_sty_id NUMBER := -99;
1529:
1530: l_lowest_level_seq NUMBER;
1531: l_number_of_months NUMBER;
1602: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1603: 'after call to create_cash_flow_object :'||l_return_status);
1604: END IF;
1605:
1606: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1607: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1608: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1609: RAISE OKL_API.G_EXCEPTION_ERROR;
1610: END IF;
1603: 'after call to create_cash_flow_object :'||l_return_status);
1604: END IF;
1605:
1606: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1607: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1608: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1609: RAISE OKL_API.G_EXCEPTION_ERROR;
1610: END IF;
1611:
1604: END IF;
1605:
1606: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1607: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1608: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1609: RAISE OKL_API.G_EXCEPTION_ERROR;
1610: END IF;
1611:
1612: -- Create quote cf object
1605:
1606: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1607: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1608: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1609: RAISE OKL_API.G_EXCEPTION_ERROR;
1610: END IF;
1611:
1612: -- Create quote cf object
1613: lp_qcov_rec.qte_id := p_quote_id;
1675: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1676: 'after call to create_cash_flows:'||l_return_status);
1677: END IF;
1678:
1679: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1680: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1681: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1682: RAISE OKL_API.G_EXCEPTION_ERROR;
1683: END IF;
1676: 'after call to create_cash_flows:'||l_return_status);
1677: END IF;
1678:
1679: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1680: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1681: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1682: RAISE OKL_API.G_EXCEPTION_ERROR;
1683: END IF;
1684: ----
1677: END IF;
1678:
1679: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1680: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1681: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1682: RAISE OKL_API.G_EXCEPTION_ERROR;
1683: END IF;
1684: ----
1685:
1678:
1679: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1680: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1681: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1682: RAISE OKL_API.G_EXCEPTION_ERROR;
1683: END IF;
1684: ----
1685:
1686: ELSE
1740: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1741: 'after call to create_cash_flows :'||l_return_status);
1742: END IF;
1743:
1744: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1745: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1746: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1747: RAISE OKL_API.G_EXCEPTION_ERROR;
1748: END IF;
1741: 'after call to create_cash_flows :'||l_return_status);
1742: END IF;
1743:
1744: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1745: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1746: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1747: RAISE OKL_API.G_EXCEPTION_ERROR;
1748: END IF;
1749:
1742: END IF;
1743:
1744: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1745: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1746: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1747: RAISE OKL_API.G_EXCEPTION_ERROR;
1748: END IF;
1749:
1750: ELSIF p_date_eff_from >= l_curr_level_start_date AND p_date_eff_from < l_next_level_start_date THEN
1743:
1744: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1745: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1746: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1747: RAISE OKL_API.G_EXCEPTION_ERROR;
1748: END IF;
1749:
1750: ELSIF p_date_eff_from >= l_curr_level_start_date AND p_date_eff_from < l_next_level_start_date THEN
1751:
1898: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1899: 'after call to create_cash_flows :'||l_return_status);
1900: END IF;
1901:
1902: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1903: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1904: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1905: RAISE OKL_API.G_EXCEPTION_ERROR;
1906: END IF;
1899: 'after call to create_cash_flows :'||l_return_status);
1900: END IF;
1901:
1902: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1903: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1904: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1905: RAISE OKL_API.G_EXCEPTION_ERROR;
1906: END IF;
1907: END IF; -- IF l_new_periods > 0 OR l_new_stub_days > 0 THEN -- SECHAWLA 20-SEP-04 3816891: added this check
1900: END IF;
1901:
1902: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1903: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1904: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1905: RAISE OKL_API.G_EXCEPTION_ERROR;
1906: END IF;
1907: END IF; -- IF l_new_periods > 0 OR l_new_stub_days > 0 THEN -- SECHAWLA 20-SEP-04 3816891: added this check
1908:
1901:
1902: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1903: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1904: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1905: RAISE OKL_API.G_EXCEPTION_ERROR;
1906: END IF;
1907: END IF; -- IF l_new_periods > 0 OR l_new_stub_days > 0 THEN -- SECHAWLA 20-SEP-04 3816891: added this check
1908:
1909:
2003: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2004: 'after call to create_cash_flows :'||l_return_status);
2005: END IF;
2006:
2007: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2008: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2009: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2010: RAISE OKL_API.G_EXCEPTION_ERROR;
2011: END IF;
2004: 'after call to create_cash_flows :'||l_return_status);
2005: END IF;
2006:
2007: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2008: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2009: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2010: RAISE OKL_API.G_EXCEPTION_ERROR;
2011: END IF;
2012: -----------
2005: END IF;
2006:
2007: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2008: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2009: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2010: RAISE OKL_API.G_EXCEPTION_ERROR;
2011: END IF;
2012: -----------
2013:
2006:
2007: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2008: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2009: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2010: RAISE OKL_API.G_EXCEPTION_ERROR;
2011: END IF;
2012: -----------
2013:
2014: END IF;
2029: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
2030: END IF;
2031:
2032: EXCEPTION
2033: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2034:
2035: IF (is_debug_exception_on) THEN
2036: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
2037: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
2033: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2034:
2035: IF (is_debug_exception_on) THEN
2036: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
2037: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
2038: END IF;
2039:
2040: IF l_cashflows_csr%ISOPEN THEN
2041: CLOSE l_cashflows_csr;
2046: IF l_monthsuptodate_csr%ISOPEN THEN
2047: CLOSE l_monthsuptodate_csr;
2048: END IF;
2049:
2050: x_return_status := OKL_API.G_RET_STS_ERROR;
2051: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2052:
2053: IF (is_debug_exception_on) THEN
2054: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
2047: CLOSE l_monthsuptodate_csr;
2048: END IF;
2049:
2050: x_return_status := OKL_API.G_RET_STS_ERROR;
2051: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2052:
2053: IF (is_debug_exception_on) THEN
2054: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
2055: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
2051: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2052:
2053: IF (is_debug_exception_on) THEN
2054: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
2055: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
2056: END IF;
2057:
2058: IF l_cashflows_csr%ISOPEN THEN
2059: CLOSE l_cashflows_csr;
2064: IF l_monthsuptodate_csr%ISOPEN THEN
2065: CLOSE l_monthsuptodate_csr;
2066: END IF;
2067:
2068: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2069: WHEN OTHERS THEN
2070:
2071: IF (is_debug_exception_on) THEN
2072: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
2082: IF l_monthsuptodate_csr%ISOPEN THEN
2083: CLOSE l_monthsuptodate_csr;
2084: END IF;
2085:
2086: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2087: -- unexpected error
2088: OKL_API.set_message(p_app_name => g_app_name,
2089: p_msg_name => g_unexpected_error,
2090: p_token1 => g_sqlcode_token,
2084: END IF;
2085:
2086: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2087: -- unexpected error
2088: OKL_API.set_message(p_app_name => g_app_name,
2089: p_msg_name => g_unexpected_error,
2090: p_token1 => g_sqlcode_token,
2091: p_token1_value => sqlcode,
2092: p_token2 => g_sqlerrm_token,
2205: lx_qcov_rec qcov_rec_type;
2206:
2207: l_cfo_id NUMBER;
2208: l_pymt_Count NUMBER;
2209: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2210: l_prev_sty_id NUMBER := -99;
2211:
2212: lx_new_cash_flow VARCHAR2(1);
2213:
2275: 'after call to create_cash_flow_object :'||l_return_status);
2276: END IF;
2277:
2278:
2279: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2280: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2281: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2282: RAISE OKL_API.G_EXCEPTION_ERROR;
2283: END IF;
2276: END IF;
2277:
2278:
2279: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2280: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2281: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2282: RAISE OKL_API.G_EXCEPTION_ERROR;
2283: END IF;
2284:
2277:
2278:
2279: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2280: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2281: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2282: RAISE OKL_API.G_EXCEPTION_ERROR;
2283: END IF;
2284:
2285: lp_qcov_rec.qte_id := p_quote_id;
2278:
2279: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2280: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2281: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2282: RAISE OKL_API.G_EXCEPTION_ERROR;
2283: END IF;
2284:
2285: lp_qcov_rec.qte_id := p_quote_id;
2286: lp_qcov_rec.cfo_id := l_cfo_id;
2324: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2325: 'after call to create_cash_flows:'||l_return_status);
2326: END IF;
2327:
2328: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2329: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2330: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2331: RAISE OKL_API.G_EXCEPTION_ERROR;
2332: END IF;
2325: 'after call to create_cash_flows:'||l_return_status);
2326: END IF;
2327:
2328: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2329: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2330: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2331: RAISE OKL_API.G_EXCEPTION_ERROR;
2332: END IF;
2333:
2326: END IF;
2327:
2328: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2329: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2330: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2331: RAISE OKL_API.G_EXCEPTION_ERROR;
2332: END IF;
2333:
2334: END LOOP;
2327:
2328: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2329: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2330: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2331: RAISE OKL_API.G_EXCEPTION_ERROR;
2332: END IF;
2333:
2334: END LOOP;
2335: END LOOP;
2365: IF (is_debug_statement_on) THEN
2366: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2367: 'after call to calc_prop_line_payments :'||l_return_status);
2368: END IF;
2369: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2370: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2371: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2372: RAISE OKL_API.G_EXCEPTION_ERROR;
2373: END IF;
2366: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2367: 'after call to calc_prop_line_payments :'||l_return_status);
2368: END IF;
2369: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2370: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2371: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2372: RAISE OKL_API.G_EXCEPTION_ERROR;
2373: END IF;
2374: END IF;
2367: 'after call to calc_prop_line_payments :'||l_return_status);
2368: END IF;
2369: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2370: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2371: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2372: RAISE OKL_API.G_EXCEPTION_ERROR;
2373: END IF;
2374: END IF;
2375: ELSE
2368: END IF;
2369: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2370: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2371: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2372: RAISE OKL_API.G_EXCEPTION_ERROR;
2373: END IF;
2374: END IF;
2375: ELSE
2376: --
2401: 'after call to calc_prop_line_payments :'||l_return_status);
2402: END IF;
2403:
2404:
2405: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2406: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2407: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2408: RAISE OKL_API.G_EXCEPTION_ERROR;
2409: END IF;
2402: END IF;
2403:
2404:
2405: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2406: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2407: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2408: RAISE OKL_API.G_EXCEPTION_ERROR;
2409: END IF;
2410:
2403:
2404:
2405: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2406: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2407: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2408: RAISE OKL_API.G_EXCEPTION_ERROR;
2409: END IF;
2410:
2411: lp_qcov_rec.qte_id := p_quote_id;
2404:
2405: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2406: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2407: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2408: RAISE OKL_API.G_EXCEPTION_ERROR;
2409: END IF;
2410:
2411: lp_qcov_rec.qte_id := p_quote_id;
2412: lp_qcov_rec.cfo_id := l_cfo_id;
2451: 'after call to create_cash_flows :'||l_return_status);
2452: END IF;
2453:
2454:
2455: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2456: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2457: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2458: RAISE OKL_API.G_EXCEPTION_ERROR;
2459: END IF;
2452: END IF;
2453:
2454:
2455: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2456: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2457: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2458: RAISE OKL_API.G_EXCEPTION_ERROR;
2459: END IF;
2460:
2453:
2454:
2455: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2456: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2457: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2458: RAISE OKL_API.G_EXCEPTION_ERROR;
2459: END IF;
2460:
2461: END LOOP;
2454:
2455: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2456: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2457: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2458: RAISE OKL_API.G_EXCEPTION_ERROR;
2459: END IF;
2460:
2461: END LOOP;
2462: ---------------
2482:
2483: -- get the capitalize cost of the asset
2484:
2485: OKL_EXECUTE_FORMULA_PUB.EXECUTE(p_api_version => p_api_version,
2486: p_init_msg_list => OKL_API.G_FALSE,
2487: x_return_status => l_return_status,
2488: x_msg_count => x_msg_count,
2489: x_msg_data => x_msg_data,
2490: p_formula_name => 'LINE_CAP_AMNT',
2497: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2498: 'after call to OKL_EXECUTE_FORMULA_PUB.EXECUTE :'||l_return_status);
2499: END IF;
2500:
2501: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2502: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2503: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2504: RAISE OKL_API.G_EXCEPTION_ERROR;
2505: END IF;
2498: 'after call to OKL_EXECUTE_FORMULA_PUB.EXECUTE :'||l_return_status);
2499: END IF;
2500:
2501: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2502: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2503: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2504: RAISE OKL_API.G_EXCEPTION_ERROR;
2505: END IF;
2506:
2499: END IF;
2500:
2501: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2502: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2503: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2504: RAISE OKL_API.G_EXCEPTION_ERROR;
2505: END IF;
2506:
2507: -- Check if asset belongs to the quote
2500:
2501: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2502: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2503: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2504: RAISE OKL_API.G_EXCEPTION_ERROR;
2505: END IF;
2506:
2507: -- Check if asset belongs to the quote
2508: OPEN l_assetinquote_csr(p_quote_id, l_servicelineassets_rec.object1_id1);
2545: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2546: 'after call to calc_prop_line_payments :'||l_return_status);
2547: END IF;
2548:
2549: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2550: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2551: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2552: RAISE OKL_API.G_EXCEPTION_ERROR;
2553: END IF;
2546: 'after call to calc_prop_line_payments :'||l_return_status);
2547: END IF;
2548:
2549: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2550: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2551: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2552: RAISE OKL_API.G_EXCEPTION_ERROR;
2553: END IF;
2554: END IF;
2547: END IF;
2548:
2549: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2550: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2551: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2552: RAISE OKL_API.G_EXCEPTION_ERROR;
2553: END IF;
2554: END IF;
2555: ---
2548:
2549: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2550: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2551: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2552: RAISE OKL_API.G_EXCEPTION_ERROR;
2553: END IF;
2554: END IF;
2555: ---
2556: END IF;
2584: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2585: 'after call to create_cash_flow_object :'||l_return_status);
2586: END IF;
2587:
2588: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2589: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2590: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2591: RAISE OKL_API.G_EXCEPTION_ERROR;
2592: END IF;
2585: 'after call to create_cash_flow_object :'||l_return_status);
2586: END IF;
2587:
2588: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2589: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2590: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2591: RAISE OKL_API.G_EXCEPTION_ERROR;
2592: END IF;
2593:
2586: END IF;
2587:
2588: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2589: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2590: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2591: RAISE OKL_API.G_EXCEPTION_ERROR;
2592: END IF;
2593:
2594: lp_qcov_rec.qte_id := p_quote_id;
2587:
2588: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2589: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2590: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2591: RAISE OKL_API.G_EXCEPTION_ERROR;
2592: END IF;
2593:
2594: lp_qcov_rec.qte_id := p_quote_id;
2595: lp_qcov_rec.cfo_id := l_cfo_id;
2635: END IF;
2636:
2637:
2638:
2639: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2640: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2641: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2642: RAISE OKL_API.G_EXCEPTION_ERROR;
2643: END IF;
2636:
2637:
2638:
2639: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2640: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2641: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2642: RAISE OKL_API.G_EXCEPTION_ERROR;
2643: END IF;
2644:
2637:
2638:
2639: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2640: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2641: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2642: RAISE OKL_API.G_EXCEPTION_ERROR;
2643: END IF;
2644:
2645: END LOOP;
2638:
2639: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2640: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2641: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2642: RAISE OKL_API.G_EXCEPTION_ERROR;
2643: END IF;
2644:
2645: END LOOP;
2646: ---
2664: LOOP
2665: l_count := l_count + 1 ;
2666: -- get the capitalize cost of the asset
2667: OKL_EXECUTE_FORMULA_PUB.EXECUTE(p_api_version => p_api_version,
2668: p_init_msg_list => OKL_API.G_FALSE,
2669: x_return_status => l_return_status,
2670: x_msg_count => x_msg_count,
2671: x_msg_data => x_msg_data,
2672: p_formula_name => 'LINE_CAP_AMNT',
2675: x_value => l_curr_cap_cost);
2676:
2677:
2678:
2679: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2680: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2681: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2682: RAISE OKL_API.G_EXCEPTION_ERROR;
2683: END IF;
2676:
2677:
2678:
2679: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2680: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2681: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2682: RAISE OKL_API.G_EXCEPTION_ERROR;
2683: END IF;
2684: -- Check if asset belongs to the quote
2677:
2678:
2679: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2680: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2681: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2682: RAISE OKL_API.G_EXCEPTION_ERROR;
2683: END IF;
2684: -- Check if asset belongs to the quote
2685: OPEN l_assetinquote_csr(p_quote_id, l_feelineassets_rec.object1_id1);
2678:
2679: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2680: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2681: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2682: RAISE OKL_API.G_EXCEPTION_ERROR;
2683: END IF;
2684: -- Check if asset belongs to the quote
2685: OPEN l_assetinquote_csr(p_quote_id, l_feelineassets_rec.object1_id1);
2686: FETCH l_assetinquote_csr INTO l_quote_line_id, l_asset_quantity, l_quote_quantity;
2718: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2719: 'after call to calc_prop_line_payments :'||l_return_status);
2720: END IF;
2721:
2722: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2723: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2724: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2725: RAISE OKL_API.G_EXCEPTION_ERROR;
2726: END IF;
2719: 'after call to calc_prop_line_payments :'||l_return_status);
2720: END IF;
2721:
2722: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2723: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2724: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2725: RAISE OKL_API.G_EXCEPTION_ERROR;
2726: END IF;
2727: END IF;
2720: END IF;
2721:
2722: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2723: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2724: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2725: RAISE OKL_API.G_EXCEPTION_ERROR;
2726: END IF;
2727: END IF;
2728: END IF;
2721:
2722: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2723: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2724: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2725: RAISE OKL_API.G_EXCEPTION_ERROR;
2726: END IF;
2727: END IF;
2728: END IF;
2729:
2758: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2759: 'after call to create_cash_flow_object :'||l_return_status);
2760: END IF;
2761:
2762: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2763: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2764: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2765: RAISE OKL_API.G_EXCEPTION_ERROR;
2766: END IF;
2759: 'after call to create_cash_flow_object :'||l_return_status);
2760: END IF;
2761:
2762: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2763: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2764: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2765: RAISE OKL_API.G_EXCEPTION_ERROR;
2766: END IF;
2767:
2760: END IF;
2761:
2762: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2763: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2764: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2765: RAISE OKL_API.G_EXCEPTION_ERROR;
2766: END IF;
2767:
2768: lp_qcov_rec.qte_id := p_quote_id;
2761:
2762: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2763: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2764: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2765: RAISE OKL_API.G_EXCEPTION_ERROR;
2766: END IF;
2767:
2768: lp_qcov_rec.qte_id := p_quote_id;
2769: lp_qcov_rec.cfo_id := l_cfo_id;
2807: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2808: 'after call to create_cash_flows :'||l_return_status);
2809: END IF;
2810:
2811: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2812: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2813: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2814: RAISE OKL_API.G_EXCEPTION_ERROR;
2815: END IF;
2808: 'after call to create_cash_flows :'||l_return_status);
2809: END IF;
2810:
2811: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2812: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2813: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2814: RAISE OKL_API.G_EXCEPTION_ERROR;
2815: END IF;
2816:
2809: END IF;
2810:
2811: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2812: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2813: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2814: RAISE OKL_API.G_EXCEPTION_ERROR;
2815: END IF;
2816:
2817: END LOOP;
2810:
2811: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2812: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2813: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2814: RAISE OKL_API.G_EXCEPTION_ERROR;
2815: END IF;
2816:
2817: END LOOP;
2818: END IF;
2855: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2856: 'after call to calc_prop_line_payments :'||l_return_status);
2857: END IF;
2858:
2859: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2860: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2861: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2862: RAISE OKL_API.G_EXCEPTION_ERROR;
2863: END IF;
2856: 'after call to calc_prop_line_payments :'||l_return_status);
2857: END IF;
2858:
2859: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2860: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2861: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2862: RAISE OKL_API.G_EXCEPTION_ERROR;
2863: END IF;
2864:
2857: END IF;
2858:
2859: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2860: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2861: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2862: RAISE OKL_API.G_EXCEPTION_ERROR;
2863: END IF;
2864:
2865: END IF;
2858:
2859: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2860: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2861: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2862: RAISE OKL_API.G_EXCEPTION_ERROR;
2863: END IF;
2864:
2865: END IF;
2866:
2885: p_sts_code => G_PROPOSED_STATUS,
2886: x_cfo_id => l_cfo_id,
2887: x_return_status => l_return_status);
2888:
2889: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2890: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2891: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2892: RAISE OKL_API.G_EXCEPTION_ERROR;
2893: END IF;
2886: x_cfo_id => l_cfo_id,
2887: x_return_status => l_return_status);
2888:
2889: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2890: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2891: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2892: RAISE OKL_API.G_EXCEPTION_ERROR;
2893: END IF;
2894:
2887: x_return_status => l_return_status);
2888:
2889: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2890: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2891: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2892: RAISE OKL_API.G_EXCEPTION_ERROR;
2893: END IF;
2894:
2895: -- Store Objects in okl_quote_cf_objects
2888:
2889: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2890: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2891: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2892: RAISE OKL_API.G_EXCEPTION_ERROR;
2893: END IF;
2894:
2895: -- Store Objects in okl_quote_cf_objects
2896: lp_qcov_rec.qte_id := p_quote_id;
2930: p_cashflow_rec => lp_cashflow_rec,
2931: px_new_cash_flow => lx_new_cash_flow,
2932: x_return_status => l_return_status);
2933:
2934: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2935: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2936: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2937: RAISE OKL_API.G_EXCEPTION_ERROR;
2938: END IF;
2931: px_new_cash_flow => lx_new_cash_flow,
2932: x_return_status => l_return_status);
2933:
2934: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2935: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2936: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2937: RAISE OKL_API.G_EXCEPTION_ERROR;
2938: END IF;
2939:
2932: x_return_status => l_return_status);
2933:
2934: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2935: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2936: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2937: RAISE OKL_API.G_EXCEPTION_ERROR;
2938: END IF;
2939:
2940: END LOOP;
2933:
2934: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2935: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2936: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2937: RAISE OKL_API.G_EXCEPTION_ERROR;
2938: END IF;
2939:
2940: END LOOP;
2941: ---------------
2970: p_date_eff_from => p_date_eff_from,
2971: p_quote_id => p_quote_id,
2972: p_khr_id => p_khr_id ,
2973: x_return_status => l_return_status);
2974: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2975: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2976: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2977: RAISE OKL_API.G_EXCEPTION_ERROR;
2978: END IF;
2971: p_quote_id => p_quote_id,
2972: p_khr_id => p_khr_id ,
2973: x_return_status => l_return_status);
2974: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2975: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2976: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2977: RAISE OKL_API.G_EXCEPTION_ERROR;
2978: END IF;
2979: END IF;
2972: p_khr_id => p_khr_id ,
2973: x_return_status => l_return_status);
2974: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2975: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2976: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2977: RAISE OKL_API.G_EXCEPTION_ERROR;
2978: END IF;
2979: END IF;
2980: ELSE
2973: x_return_status => l_return_status);
2974: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2975: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2976: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2977: RAISE OKL_API.G_EXCEPTION_ERROR;
2978: END IF;
2979: END IF;
2980: ELSE
2981: l_prev_sty_id := -99;
2997: p_base_src_id => l_currpymtobjects_rec.base_source_id,
2998: p_sts_code => G_PROPOSED_STATUS,
2999: x_cfo_id => l_cfo_id,
3000: x_return_status => l_return_status);
3001: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3002: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3003: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3004: RAISE OKL_API.G_EXCEPTION_ERROR;
3005: END IF;
2998: p_sts_code => G_PROPOSED_STATUS,
2999: x_cfo_id => l_cfo_id,
3000: x_return_status => l_return_status);
3001: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3002: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3003: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3004: RAISE OKL_API.G_EXCEPTION_ERROR;
3005: END IF;
3006: -- Store Objects in okl_quote_cf_objects
2999: x_cfo_id => l_cfo_id,
3000: x_return_status => l_return_status);
3001: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3002: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3003: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3004: RAISE OKL_API.G_EXCEPTION_ERROR;
3005: END IF;
3006: -- Store Objects in okl_quote_cf_objects
3007: lp_qcov_rec.qte_id := p_quote_id;
3000: x_return_status => l_return_status);
3001: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3002: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3003: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3004: RAISE OKL_API.G_EXCEPTION_ERROR;
3005: END IF;
3006: -- Store Objects in okl_quote_cf_objects
3007: lp_qcov_rec.qte_id := p_quote_id;
3008: lp_qcov_rec.cfo_id := l_cfo_id;
3038: x_msg_data => x_msg_data,
3039: p_cashflow_rec => lp_cashflow_rec,
3040: px_new_cash_flow => lx_new_cash_flow,
3041: x_return_status => l_return_status);
3042: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3043: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3044: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3045: RAISE OKL_API.G_EXCEPTION_ERROR;
3046: END IF;
3039: p_cashflow_rec => lp_cashflow_rec,
3040: px_new_cash_flow => lx_new_cash_flow,
3041: x_return_status => l_return_status);
3042: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3043: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3044: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3045: RAISE OKL_API.G_EXCEPTION_ERROR;
3046: END IF;
3047: END LOOP;
3040: px_new_cash_flow => lx_new_cash_flow,
3041: x_return_status => l_return_status);
3042: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3043: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3044: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3045: RAISE OKL_API.G_EXCEPTION_ERROR;
3046: END IF;
3047: END LOOP;
3048: END IF;
3041: x_return_status => l_return_status);
3042: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3043: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3044: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3045: RAISE OKL_API.G_EXCEPTION_ERROR;
3046: END IF;
3047: END LOOP;
3048: END IF;
3049: CLOSE l_assetinquote_csr;
3052: --Bug 4299668 PAGARG All the four object table of records is populated for
3053: --current payment. Now call proceure for bulk insert.
3054: --**START**--
3055: okl_cfo_pvt.insert_row_bulk(p_api_version => p_api_version,
3056: p_init_msg_list => OKL_API.G_FALSE,
3057: x_return_status => l_return_status,
3058: x_msg_count => x_msg_count,
3059: x_msg_data => x_msg_data,
3060: p_cfov_tbl => g_cfov_tbl_type,
3059: x_msg_data => x_msg_data,
3060: p_cfov_tbl => g_cfov_tbl_type,
3061: x_cfov_tbl => gx_cfov_tbl_type);
3062:
3063: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3064: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3065: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3066: RAISE OKL_API.G_EXCEPTION_ERROR;
3067: END IF;
3060: p_cfov_tbl => g_cfov_tbl_type,
3061: x_cfov_tbl => gx_cfov_tbl_type);
3062:
3063: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3064: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3065: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3066: RAISE OKL_API.G_EXCEPTION_ERROR;
3067: END IF;
3068:
3061: x_cfov_tbl => gx_cfov_tbl_type);
3062:
3063: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3064: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3065: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3066: RAISE OKL_API.G_EXCEPTION_ERROR;
3067: END IF;
3068:
3069: OKL_QCO_PVT.insert_row_bulk(p_api_version => p_api_version,
3062:
3063: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3064: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3065: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3066: RAISE OKL_API.G_EXCEPTION_ERROR;
3067: END IF;
3068:
3069: OKL_QCO_PVT.insert_row_bulk(p_api_version => p_api_version,
3070: p_init_msg_list => OKL_API.G_FALSE,
3066: RAISE OKL_API.G_EXCEPTION_ERROR;
3067: END IF;
3068:
3069: OKL_QCO_PVT.insert_row_bulk(p_api_version => p_api_version,
3070: p_init_msg_list => OKL_API.G_FALSE,
3071: x_return_status => l_return_status,
3072: x_msg_count => x_msg_count,
3073: x_msg_data => x_msg_data,
3074: p_qcov_tbl => g_qcov_tbl_type,
3073: x_msg_data => x_msg_data,
3074: p_qcov_tbl => g_qcov_tbl_type,
3075: x_qcov_tbl => gx_qcov_tbl_type);
3076:
3077: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3078: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3079: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3080: RAISE OKL_API.G_EXCEPTION_ERROR;
3081: END IF;
3074: p_qcov_tbl => g_qcov_tbl_type,
3075: x_qcov_tbl => gx_qcov_tbl_type);
3076:
3077: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3078: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3079: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3080: RAISE OKL_API.G_EXCEPTION_ERROR;
3081: END IF;
3082:
3075: x_qcov_tbl => gx_qcov_tbl_type);
3076:
3077: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3078: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3079: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3080: RAISE OKL_API.G_EXCEPTION_ERROR;
3081: END IF;
3082:
3083: okl_caf_pvt.insert_row_bulk(p_api_version => p_api_version,
3076:
3077: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3078: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3079: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3080: RAISE OKL_API.G_EXCEPTION_ERROR;
3081: END IF;
3082:
3083: okl_caf_pvt.insert_row_bulk(p_api_version => p_api_version,
3084: p_init_msg_list => OKL_API.G_FALSE,
3080: RAISE OKL_API.G_EXCEPTION_ERROR;
3081: END IF;
3082:
3083: okl_caf_pvt.insert_row_bulk(p_api_version => p_api_version,
3084: p_init_msg_list => OKL_API.G_FALSE,
3085: x_return_status => l_return_status,
3086: x_msg_count => x_msg_count,
3087: x_msg_data => x_msg_data,
3088: p_cafv_tbl => g_cafv_tbl_type,
3087: x_msg_data => x_msg_data,
3088: p_cafv_tbl => g_cafv_tbl_type,
3089: x_cafv_tbl => gx_cafv_tbl_type);
3090:
3091: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3092: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3093: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3094: RAISE OKL_API.G_EXCEPTION_ERROR;
3095: END IF;
3088: p_cafv_tbl => g_cafv_tbl_type,
3089: x_cafv_tbl => gx_cafv_tbl_type);
3090:
3091: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3092: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3093: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3094: RAISE OKL_API.G_EXCEPTION_ERROR;
3095: END IF;
3096:
3089: x_cafv_tbl => gx_cafv_tbl_type);
3090:
3091: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3092: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3093: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3094: RAISE OKL_API.G_EXCEPTION_ERROR;
3095: END IF;
3096:
3097: OKL_CFL_PVT.insert_row_bulk(p_api_version => p_api_version,
3090:
3091: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3092: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3093: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3094: RAISE OKL_API.G_EXCEPTION_ERROR;
3095: END IF;
3096:
3097: OKL_CFL_PVT.insert_row_bulk(p_api_version => p_api_version,
3098: p_init_msg_list => OKL_API.G_FALSE,
3094: RAISE OKL_API.G_EXCEPTION_ERROR;
3095: END IF;
3096:
3097: OKL_CFL_PVT.insert_row_bulk(p_api_version => p_api_version,
3098: p_init_msg_list => OKL_API.G_FALSE,
3099: x_return_status => l_return_status,
3100: x_msg_count => x_msg_count,
3101: x_msg_data => x_msg_data,
3102: p_cflv_tbl => g_cflv_tbl_type,
3100: x_msg_count => x_msg_count,
3101: x_msg_data => x_msg_data,
3102: p_cflv_tbl => g_cflv_tbl_type,
3103: x_cflv_tbl => gx_cflv_tbl_type);
3104: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3105: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3106: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3107: RAISE OKL_API.G_EXCEPTION_ERROR;
3108: END IF;
3101: x_msg_data => x_msg_data,
3102: p_cflv_tbl => g_cflv_tbl_type,
3103: x_cflv_tbl => gx_cflv_tbl_type);
3104: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3105: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3106: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3107: RAISE OKL_API.G_EXCEPTION_ERROR;
3108: END IF;
3109: --**END 4299668**--
3102: p_cflv_tbl => g_cflv_tbl_type,
3103: x_cflv_tbl => gx_cflv_tbl_type);
3104: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3105: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3106: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3107: RAISE OKL_API.G_EXCEPTION_ERROR;
3108: END IF;
3109: --**END 4299668**--
3110:
3103: x_cflv_tbl => gx_cflv_tbl_type);
3104: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3105: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3106: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3107: RAISE OKL_API.G_EXCEPTION_ERROR;
3108: END IF;
3109: --**END 4299668**--
3110:
3111: -- set the return status and out variables
3116: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
3117: END IF;
3118:
3119: EXCEPTION
3120: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3121:
3122: IF (is_debug_exception_on) THEN
3123: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
3124: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
3120: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3121:
3122: IF (is_debug_exception_on) THEN
3123: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
3124: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
3125: END IF;
3126:
3127: IF l_currpymtlines_csr%ISOPEN THEN
3128: CLOSE l_currpymtlines_csr;
3141: END IF;
3142: IF l_currpymtobjects_csr%ISOPEN THEN
3143: CLOSE l_currpymtobjects_csr;
3144: END IF;
3145: x_return_status := OKL_API.G_RET_STS_ERROR;
3146: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3147:
3148: IF (is_debug_exception_on) THEN
3149: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
3142: IF l_currpymtobjects_csr%ISOPEN THEN
3143: CLOSE l_currpymtobjects_csr;
3144: END IF;
3145: x_return_status := OKL_API.G_RET_STS_ERROR;
3146: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3147:
3148: IF (is_debug_exception_on) THEN
3149: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
3150: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
3146: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3147:
3148: IF (is_debug_exception_on) THEN
3149: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
3150: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
3151: END IF;
3152:
3153: IF l_currpymtlines_csr%ISOPEN THEN
3154: CLOSE l_currpymtlines_csr;
3167: END IF;
3168: IF l_currpymtobjects_csr%ISOPEN THEN
3169: CLOSE l_currpymtobjects_csr;
3170: END IF;
3171: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3172: WHEN OTHERS THEN
3173:
3174: IF (is_debug_exception_on) THEN
3175: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
3193: END IF;
3194: IF l_currpymtobjects_csr%ISOPEN THEN
3195: CLOSE l_currpymtobjects_csr;
3196: END IF;
3197: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3198: -- unexpected error
3199: OKL_API.set_message(p_app_name => g_app_name,
3200: p_msg_name => g_unexpected_error,
3201: p_token1 => g_sqlcode_token,
3195: CLOSE l_currpymtobjects_csr;
3196: END IF;
3197: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3198: -- unexpected error
3199: OKL_API.set_message(p_app_name => g_app_name,
3200: p_msg_name => g_unexpected_error,
3201: p_token1 => g_sqlcode_token,
3202: p_token1_value => sqlcode,
3203: p_token2 => g_sqlerrm_token,
3255: +-----------------------------------------------------------------------*/
3256:
3257: l_api_version CONSTANT NUMBER := 1;
3258: l_api_name CONSTANT VARCHAR2(30) := 'calc_quote_payments';
3259: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3260:
3261: l_khr_id NUMBER;
3262: l_date_eff_from DATE;
3263: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'calc_quote_payments';
3277: 'p_quote_id :'||p_quote_id);
3278: END IF;
3279:
3280: --Check API version, initialize message list and create savepoint.
3281: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3282: G_PKG_NAME,
3283: p_init_msg_list,
3284: l_api_version,
3285: p_api_version,
3285: p_api_version,
3286: '_PVT',
3287: x_return_status);
3288:
3289: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3290: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3291: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3292: RAISE OKL_API.G_EXCEPTION_ERROR;
3293: END IF;
3286: '_PVT',
3287: x_return_status);
3288:
3289: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3290: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3291: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3292: RAISE OKL_API.G_EXCEPTION_ERROR;
3293: END IF;
3294:
3287: x_return_status);
3288:
3289: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3290: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3291: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3292: RAISE OKL_API.G_EXCEPTION_ERROR;
3293: END IF;
3294:
3295: IF p_quote_id IS NULL OR p_quote_id = OKL_API.G_MISS_NUM THEN
3288:
3289: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3290: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3291: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3292: RAISE OKL_API.G_EXCEPTION_ERROR;
3293: END IF;
3294:
3295: IF p_quote_id IS NULL OR p_quote_id = OKL_API.G_MISS_NUM THEN
3296: x_return_status := OKL_API.G_RET_STS_ERROR;
3291: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3292: RAISE OKL_API.G_EXCEPTION_ERROR;
3293: END IF;
3294:
3295: IF p_quote_id IS NULL OR p_quote_id = OKL_API.G_MISS_NUM THEN
3296: x_return_status := OKL_API.G_RET_STS_ERROR;
3297: -- quote id is required
3298: OKC_API.set_message( p_app_name => 'OKC',
3299: p_msg_name => G_REQUIRED_VALUE,
3292: RAISE OKL_API.G_EXCEPTION_ERROR;
3293: END IF;
3294:
3295: IF p_quote_id IS NULL OR p_quote_id = OKL_API.G_MISS_NUM THEN
3296: x_return_status := OKL_API.G_RET_STS_ERROR;
3297: -- quote id is required
3298: OKC_API.set_message( p_app_name => 'OKC',
3299: p_msg_name => G_REQUIRED_VALUE,
3300: p_token1 => G_COL_NAME_TOKEN,
3298: OKC_API.set_message( p_app_name => 'OKC',
3299: p_msg_name => G_REQUIRED_VALUE,
3300: p_token1 => G_COL_NAME_TOKEN,
3301: p_token1_value => 'QUOTE_ID');
3302: RAISE OKL_API.G_EXCEPTION_ERROR;
3303: END IF;
3304:
3305:
3306: OPEN l_quotehdr_csr(p_quote_id);
3306: OPEN l_quotehdr_csr(p_quote_id);
3307: FETCH l_quotehdr_csr INTO l_khr_id, l_date_eff_from;
3308: IF l_quotehdr_csr%NOTFOUND THEN
3309: -- quote ID is invalid
3310: x_return_status := OKL_API.G_RET_STS_ERROR;
3311: OKC_API.set_message( p_app_name => 'OKC',
3312: p_msg_name => G_INVALID_VALUE,
3313: p_token1 => G_COL_NAME_TOKEN,
3314: p_token1_value => 'QUOTE_ID');
3312: p_msg_name => G_INVALID_VALUE,
3313: p_token1 => G_COL_NAME_TOKEN,
3314: p_token1_value => 'QUOTE_ID');
3315:
3316: RAISE OKL_API.G_EXCEPTION_ERROR;
3317: END IF;
3318: CLOSE l_quotehdr_csr;
3319:
3320: --Bug 4299668 PAGARG Reset the global table of records for the four objects
3331: --**END 4299668**--
3332:
3333: get_current_payments(
3334: p_api_version => p_api_version,
3335: p_init_msg_list => OKL_API.G_FALSE,
3336: x_return_status => l_return_status,
3337: x_msg_count => x_msg_count,
3338: x_msg_data => x_msg_data,
3339: p_quote_id => p_quote_id,
3338: x_msg_data => x_msg_data,
3339: p_quote_id => p_quote_id,
3340: p_khr_id => l_khr_id);
3341:
3342: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3343: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3344: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3345: RAISE OKL_API.G_EXCEPTION_ERROR;
3346: END IF;
3339: p_quote_id => p_quote_id,
3340: p_khr_id => l_khr_id);
3341:
3342: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3343: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3344: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3345: RAISE OKL_API.G_EXCEPTION_ERROR;
3346: END IF;
3347:
3340: p_khr_id => l_khr_id);
3341:
3342: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3343: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3344: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3345: RAISE OKL_API.G_EXCEPTION_ERROR;
3346: END IF;
3347:
3348: --Bug 4299668 PAGARG Reset the global table of records for the four objects
3341:
3342: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3343: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3344: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3345: RAISE OKL_API.G_EXCEPTION_ERROR;
3346: END IF;
3347:
3348: --Bug 4299668 PAGARG Reset the global table of records for the four objects
3349: --and reset the Counter
3359: --**END 4299668**--
3360:
3361: calc_proposed_payments(
3362: p_api_version => p_api_version,
3363: p_init_msg_list => OKL_API.G_FALSE,
3364: x_return_status => l_return_status,
3365: x_msg_count => x_msg_count,
3366: x_msg_data => x_msg_data,
3367: p_quote_id => p_quote_id,
3367: p_quote_id => p_quote_id,
3368: p_khr_id => l_khr_id,
3369: p_date_eff_from => l_date_eff_from);
3370:
3371: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3372: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3373: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3374: RAISE OKL_API.G_EXCEPTION_ERROR;
3375: END IF;
3368: p_khr_id => l_khr_id,
3369: p_date_eff_from => l_date_eff_from);
3370:
3371: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3372: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3373: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3374: RAISE OKL_API.G_EXCEPTION_ERROR;
3375: END IF;
3376:
3369: p_date_eff_from => l_date_eff_from);
3370:
3371: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3372: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3373: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3374: RAISE OKL_API.G_EXCEPTION_ERROR;
3375: END IF;
3376:
3377: x_return_status := l_return_status;
3370:
3371: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3372: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3373: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3374: RAISE OKL_API.G_EXCEPTION_ERROR;
3375: END IF;
3376:
3377: x_return_status := l_return_status;
3378:
3376:
3377: x_return_status := l_return_status;
3378:
3379: -- end the transaction
3380: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3381:
3382: IF (is_debug_procedure_on) THEN
3383: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
3384: END IF;
3383: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
3384: END IF;
3385:
3386: EXCEPTION
3387: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3388:
3389: IF (is_debug_exception_on) THEN
3390: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
3391: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
3387: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3388:
3389: IF (is_debug_exception_on) THEN
3390: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
3391: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
3392: END IF;
3393:
3394: IF l_quotehdr_csr%ISOPEN THEN
3395: CLOSE l_quotehdr_csr;
3393:
3394: IF l_quotehdr_csr%ISOPEN THEN
3395: CLOSE l_quotehdr_csr;
3396: END IF;
3397: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3398: (
3399: l_api_name,
3400: G_PKG_NAME,
3401: 'OKL_API.G_RET_STS_ERROR',
3397: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3398: (
3399: l_api_name,
3400: G_PKG_NAME,
3401: 'OKL_API.G_RET_STS_ERROR',
3402: x_msg_count,
3403: x_msg_data,
3404: '_PVT'
3405: );
3402: x_msg_count,
3403: x_msg_data,
3404: '_PVT'
3405: );
3406: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3407: IF (is_debug_exception_on) THEN
3408: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
3409: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
3410: END IF;
3405: );
3406: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3407: IF (is_debug_exception_on) THEN
3408: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
3409: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
3410: END IF;
3411:
3412: IF l_quotehdr_csr%ISOPEN THEN
3413: CLOSE l_quotehdr_csr;
3411:
3412: IF l_quotehdr_csr%ISOPEN THEN
3413: CLOSE l_quotehdr_csr;
3414: END IF;
3415: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3416: (
3417: l_api_name,
3418: G_PKG_NAME,
3419: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3415: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3416: (
3417: l_api_name,
3418: G_PKG_NAME,
3419: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3420: x_msg_count,
3421: x_msg_data,
3422: '_PVT'
3423: );
3430:
3431: IF l_quotehdr_csr%ISOPEN THEN
3432: CLOSE l_quotehdr_csr;
3433: END IF;
3434: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3435: (
3436: l_api_name,
3437: G_PKG_NAME,
3438: 'OTHERS',