91: SELECT khr.khr_id prog_khr_id
92: FROM okl_k_headers khr
93: WHERE khr.id = cp_chr_id;
94:
95: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
96: l_rep_agreement_yn VARCHAR2(1) := 'N';
97: l_program_khr_id NUMBER := NULL;
98: l_rulv_rec rulv_rec_type;
99: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'get_repurchase_agreement';
132: IF (is_debug_statement_on) THEN
133: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_am_util_pvt.get_rule_record , return status: ' || l_return_status);
134: END IF;
135:
136: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
137: IF l_rulv_rec.rule_information1 IS NOT NULL
138: AND l_rulv_rec.rule_information1 <> OKL_API.G_MISS_CHAR
139: THEN
140: l_rep_agreement_yn :=
134: END IF;
135:
136: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
137: IF l_rulv_rec.rule_information1 IS NOT NULL
138: AND l_rulv_rec.rule_information1 <> OKL_API.G_MISS_CHAR
139: THEN
140: l_rep_agreement_yn :=
141: l_rulv_rec.rule_information1;
142: END IF;
163: CLOSE l_khr_csr;
164: END IF;
165:
166: -- store SQL error message on message stack for caller
167: OKL_API.SET_MESSAGE (
168: p_app_name => G_APP_NAME
169: ,p_msg_name => G_UNEXPECTED_ERROR
170: ,p_token1 => G_SQLCODE_TOKEN
171: ,p_token1_value => sqlcode
190: p_rule_info1 IN VARCHAR2,
191: p_rule_info2 IN VARCHAR2,
192: x_return_status OUT NOCOPY VARCHAR2) IS
193:
194: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
195: l_quote_eff_days NUMBER := NULL;
196: l_quote_eff_max_days NUMBER := NULL;
197: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_quote_effectivity';
198: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name,
214: IF p_rule_info1 IS NOT NULL
215: AND p_rule_info1 <> G_MISS_CHAR THEN
216: l_quote_eff_days := to_number (p_rule_info1);
217: ELSE
218: l_return_status := OKL_API.G_RET_STS_ERROR;
219: OKC_API.SET_MESSAGE (
220: p_app_name => G_OKC_APP_NAME,
221: p_msg_name => G_REQUIRED_VALUE,
222: p_token1 => G_COL_NAME_TOKEN,
223: p_token1_value => 'Quote Effective Days');
224: END IF;
225:
226: IF l_quote_eff_days <= 0 THEN
227: l_return_status := OKL_API.G_RET_STS_ERROR;
228: OKC_API.SET_MESSAGE (
229: p_app_name => G_OKC_APP_NAME,
230: p_msg_name => G_INVALID_VALUE,
231: p_token1 => G_COL_NAME_TOKEN,
235: IF p_rule_info2 IS NOT NULL
236: AND p_rule_info2 <> G_MISS_CHAR THEN
237: l_quote_eff_max_days := p_rule_info2;
238: ELSE
239: l_return_status := OKL_API.G_RET_STS_ERROR;
240: OKC_API.SET_MESSAGE (
241: p_app_name => G_OKC_APP_NAME,
242: p_msg_name => G_REQUIRED_VALUE,
243: p_token1 => G_COL_NAME_TOKEN,
244: p_token1_value => 'Quote Effective Maximum Days');
245: END IF;
246:
247: IF l_quote_eff_max_days <= 0 THEN
248: l_return_status := OKL_API.G_RET_STS_ERROR;
249: OKC_API.SET_MESSAGE (
250: p_app_name => G_OKC_APP_NAME,
251: p_msg_name => G_INVALID_VALUE,
252: p_token1 => G_COL_NAME_TOKEN,
254: END IF;
255:
256: IF l_quote_eff_days > l_quote_eff_max_days THEN
257:
258: l_return_status := OKL_API.G_RET_STS_ERROR;
259: -- Please enter a value in Column COL_NAME1
260: -- that is less than the value of Column COL_NAME2.
261: OKC_API.SET_MESSAGE (
262: p_app_name => G_APP_NAME
280: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
281: END IF;
282:
283: -- store SQL error message on message stack for caller
284: OKL_API.SET_MESSAGE (
285: p_app_name => G_APP_NAME
286: ,p_msg_name => G_UNEXPECTED_ERROR
287: ,p_token1 => G_SQLCODE_TOKEN
288: ,p_token1_value => sqlcode
289: ,p_token2 => G_SQLERRM_TOKEN
290: ,p_token2_value => sqlerrm);
291:
292: -- notify caller of an UNEXPECTED error
293: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
294:
295: END check_quote_effectivity;
296:
297:
317: p_rgd_code IN VARCHAR2,
318: p_rdf_code IN VARCHAR2,
319: x_return_status OUT NOCOPY VARCHAR2) IS
320:
321: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
322: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_rule_value';
323: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name,
324: G_LEVEL_EXCEPTION);
325: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name,
353: AND p_calc_option = 'USE_FIXED_AMOUNT'
354: AND p_fixed_value = '1' AND nvl(p_formula_name,G_MISS_CHAR) =
355: G_MISS_CHAR THEN
356:
357: l_return_status := OKL_API.G_RET_STS_SUCCESS;
358:
359: -- If purchase option type = Fair Market Value
360: -- then Purchase Option :Use Fixed Amount or Use Formula
361: -- Purchase Option Amount :any amount except zero if Purchase
374: -- rbruno 7591732 change end
375: -- smadhava Added - Bug# 9044139
376: if (((p_calc_option = 'USE_FORMULA' AND nvl(p_formula_name,G_MISS_CHAR) <> G_MISS_CHAR AND nvl(p_fixed_value,G_MISS_NUM) = G_MISS_NUM))
377: or (p_calc_option = 'NOT_APPLICABLE')) THEN
378: l_return_status := OKL_API.G_RET_STS_SUCCESS;
379:
380: Else
381:
382: okl_am_util_pvt.set_invalid_rule_message (
382: okl_am_util_pvt.set_invalid_rule_message (
383: p_rgd_code => p_rgd_code,
384: p_rdf_code => p_rdf_code);
385:
386: l_return_status := OKL_API.G_RET_STS_ERROR;
387:
388: END IF;
389: -- rbruno 7569441 change end
390:
404: AND nvl(p_formula_name,G_MISS_CHAR) = G_MISS_CHAR)
405: OR (((p_calc_option = 'USE_FORMULA' AND nvl(p_formula_name,G_MISS_CHAR) <> G_MISS_CHAR AND nvl(p_fixed_value,G_MISS_NUM) = G_MISS_NUM)))
406: OR (p_calc_option = 'NOT_APPLICABLE')) THEN
407:
408: l_return_status := OKL_API.G_RET_STS_SUCCESS;
409:
410: -- If purchase option type = None
411: -- then Purchase Option :Not Applicable
412:
412:
413: ELSIF p_option_type = 'NONE'
414: AND p_calc_option = 'NOT_APPLICABLE' THEN
415:
416: l_return_status := OKL_API.G_RET_STS_SUCCESS;
417:
418:
419:
420: ELSE -- Invalid combination of values
428: IF (is_debug_statement_on) THEN
429: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_am_util_pvt.set_invalid_rule_message');
430: END IF;
431:
432: l_return_status := OKL_API.G_RET_STS_ERROR;
433:
434: END IF;
435:
436:
441: IF p_calc_option = 'NOT_APPLICABLE'
442: AND NVL (p_fixed_value, G_MISS_CHAR) = G_MISS_CHAR
443: AND NVL (p_formula_name, G_MISS_CHAR) = G_MISS_CHAR THEN
444:
445: l_return_status := OKL_API.G_RET_STS_SUCCESS;
446:
447: ELSIF p_calc_option = 'USE_FIXED_AMOUNT'
448: AND NVL (p_fixed_value, G_MISS_CHAR) <> G_MISS_CHAR
449: AND NVL (p_formula_name, G_MISS_CHAR) = G_MISS_CHAR THEN
447: ELSIF p_calc_option = 'USE_FIXED_AMOUNT'
448: AND NVL (p_fixed_value, G_MISS_CHAR) <> G_MISS_CHAR
449: AND NVL (p_formula_name, G_MISS_CHAR) = G_MISS_CHAR THEN
450:
451: l_return_status := OKL_API.G_RET_STS_SUCCESS;
452:
453: ELSIF p_calc_option = 'USE_FORMULA'
454: AND NVL (p_fixed_value, G_MISS_CHAR) = G_MISS_CHAR
455: AND NVL (p_formula_name, G_MISS_CHAR) <> G_MISS_CHAR THEN
453: ELSIF p_calc_option = 'USE_FORMULA'
454: AND NVL (p_fixed_value, G_MISS_CHAR) = G_MISS_CHAR
455: AND NVL (p_formula_name, G_MISS_CHAR) <> G_MISS_CHAR THEN
456:
457: l_return_status := OKL_API.G_RET_STS_SUCCESS;
458:
459: ELSE
460:
461: -- Invalid combination of values
468: IF (is_debug_statement_on) THEN
469: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_am_util_pvt.set_invalid_rule_message');
470: END IF;
471:
472: l_return_status := OKL_API.G_RET_STS_ERROR;
473:
474: END IF;
475: END IF;
476:
487: || sqlcode || ' , SQLERRM : ' || sqlerrm);
488: END IF;
489:
490: -- store SQL error message on message stack for caller
491: OKL_API.SET_MESSAGE (
492: p_app_name => G_APP_NAME
493: ,p_msg_name => G_UNEXPECTED_ERROR
494: ,p_token1 => G_SQLCODE_TOKEN
495: ,p_token1_value => sqlcode
496: ,p_token2 => G_SQLERRM_TOKEN
497: ,p_token2_value => sqlerrm);
498:
499: -- notify caller of an UNEXPECTED error
500: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
501:
502: END check_rule_value;
503:
504:
516: p_rdf_code IN VARCHAR2,
517: p_chr_id IN NUMBER,
518: x_return_status OUT NOCOPY VARCHAR2) IS
519:
520: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
521: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
522: l_rulv_rec rulv_rec_type;
523: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_rule_setup';
524: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
517: p_chr_id IN NUMBER,
518: x_return_status OUT NOCOPY VARCHAR2) IS
519:
520: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
521: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
522: l_rulv_rec rulv_rec_type;
523: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_rule_setup';
524: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
525: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
551: END IF;
552:
553: -- If rule is not found, return Success
554: -- If rule is found, check its setup
555: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
556:
557: -- ********************************************************
558: -- Evalute rule record: not_applicable, constant or formula
559: -- The field INFO1 indicated if the rule is either
572: p_rgd_code => p_rgd_code,
573: p_rdf_code => p_rdf_code,
574: x_return_status => l_return_status);
575:
576: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
577: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR
578: THEN
579: l_overall_status := l_return_status;
580: END IF;
573: p_rdf_code => p_rdf_code,
574: x_return_status => l_return_status);
575:
576: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
577: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR
578: THEN
579: l_overall_status := l_return_status;
580: END IF;
581: END IF;
590: p_rgd_code => p_rgd_code,
591: p_rdf_code => p_rdf_code,
592: x_return_status => l_return_status);
593:
594: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
595: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR
596: THEN
597: l_overall_status := l_return_status;
598: END IF;
591: p_rdf_code => p_rdf_code,
592: x_return_status => l_return_status);
593:
594: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
595: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR
596: THEN
597: l_overall_status := l_return_status;
598: END IF;
599: END IF;
610: p_rgd_code => p_rgd_code,
611: p_rdf_code => p_rdf_code,
612: x_return_status => l_return_status);
613:
614: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
615: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR
616: THEN
617: l_overall_status := l_return_status;
618: END IF;
611: p_rdf_code => p_rdf_code,
612: x_return_status => l_return_status);
613:
614: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
615: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR
616: THEN
617: l_overall_status := l_return_status;
618: END IF;
619: END IF;
634: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
635: END IF;
636:
637: -- store SQL error message on message stack for caller
638: OKL_API.SET_MESSAGE (
639: p_app_name => G_APP_NAME
640: ,p_msg_name => G_UNEXPECTED_ERROR
641: ,p_token1 => G_SQLCODE_TOKEN
642: ,p_token1_value => sqlcode
643: ,p_token2 => G_SQLERRM_TOKEN
644: ,p_token2_value => sqlerrm);
645:
646: -- notify caller of an UNEXPECTED error
647: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
648:
649: END check_rule_setup;
650:
651:
661: PROCEDURE check_contract_portfolio (
662: x_return_status OUT NOCOPY VARCHAR2,
663: p_chr_id IN NUMBER) IS
664:
665: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
666: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
667: l_rulv_rec rulv_rec_type;
668: l_rgd_code VARCHAR2(30) := 'AMCOPO'; -- Contract Portfolio RG
669: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_contract_portfolio';
662: x_return_status OUT NOCOPY VARCHAR2,
663: p_chr_id IN NUMBER) IS
664:
665: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
666: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
667: l_rulv_rec rulv_rec_type;
668: l_rgd_code VARCHAR2(30) := 'AMCOPO'; -- Contract Portfolio RG
669: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_contract_portfolio';
670: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
697: IF (is_debug_statement_on) THEN
698: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_am_util_pvt.get_rule_record , return status: ' || l_return_status);
699: END IF;
700:
701: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
702: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
703: l_overall_status := l_return_status;
704: END IF;
705: END IF;
698: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_am_util_pvt.get_rule_record , return status: ' || l_return_status);
699: END IF;
700:
701: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
702: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
703: l_overall_status := l_return_status;
704: END IF;
705: END IF;
706:
709: p_rdf_code => 'AMPRBA',
710: p_chr_id => p_chr_id,
711: x_return_status => l_return_status);
712:
713: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
714: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
715: l_overall_status := l_return_status;
716: END IF;
717: END IF;
710: p_chr_id => p_chr_id,
711: x_return_status => l_return_status);
712:
713: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
714: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
715: l_overall_status := l_return_status;
716: END IF;
717: END IF;
718:
734: IF (is_debug_statement_on) THEN
735: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_am_util_pvt.get_rule_record , return status: ' || l_return_status);
736: END IF;
737:
738: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
739: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
740: l_overall_status := l_return_status;
741: END IF;
742: END IF;
735: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_am_util_pvt.get_rule_record , return status: ' || l_return_status);
736: END IF;
737:
738: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
739: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
740: l_overall_status := l_return_status;
741: END IF;
742: END IF;
743:
759: IF (is_debug_statement_on) THEN
760: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_am_util_pvt.get_rule_record , return status: ' || l_return_status);
761: END IF;
762:
763: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
764: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
765: l_overall_status := l_return_status;
766: END IF;
767: END IF;
760: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_am_util_pvt.get_rule_record , return status: ' || l_return_status);
761: END IF;
762:
763: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
764: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
765: l_overall_status := l_return_status;
766: END IF;
767: END IF;
768:
784: IF (is_debug_statement_on) THEN
785: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_am_util_pvt.get_rule_record , return status: ' || l_return_status);
786: END IF;
787:
788: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
789: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
790: l_overall_status := l_return_status;
791: END IF;
792: END IF;
785: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_am_util_pvt.get_rule_record , return status: ' || l_return_status);
786: END IF;
787:
788: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
789: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
790: l_overall_status := l_return_status;
791: END IF;
792: END IF;
793:
804: sqlerrm);
805: END IF;
806:
807: -- store SQL error message on message stack for caller
808: OKL_API.SET_MESSAGE (
809: p_app_name => G_APP_NAME
810: ,p_msg_name => G_UNEXPECTED_ERROR
811: ,p_token1 => G_SQLCODE_TOKEN
812: ,p_token1_value => sqlcode
813: ,p_token2 => G_SQLERRM_TOKEN
814: ,p_token2_value => sqlerrm);
815:
816: -- notify caller of an UNEXPECTED error
817: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
818:
819: END check_contract_portfolio;
820:
821:
831: PROCEDURE check_calculate_quote (
832: x_return_status OUT NOCOPY VARCHAR2,
833: p_chr_id IN NUMBER) IS
834:
835: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
836: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
837: l_rulv_rec rulv_rec_type;
838: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_calculate_quote';
839: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
832: x_return_status OUT NOCOPY VARCHAR2,
833: p_chr_id IN NUMBER) IS
834:
835: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
836: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
837: l_rulv_rec rulv_rec_type;
838: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_calculate_quote';
839: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
840: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
866: IF (is_debug_statement_on) THEN
867: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_am_util_pvt.get_rule_record , return status: ' || l_return_status);
868: END IF;
869:
870: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
871: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
872: l_overall_status := l_return_status;
873: END IF;
874: END IF;
867: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_am_util_pvt.get_rule_record , return status: ' || l_return_status);
868: END IF;
869:
870: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
871: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
872: l_overall_status := l_return_status;
873: END IF;
874: END IF;
875:
883: p_rdf_code => 'AMBCOC',
884: p_chr_id => p_chr_id,
885: x_return_status => l_return_status);
886:
887: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
888: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
889: l_overall_status := l_return_status;
890: END IF;
891: END IF;
884: p_chr_id => p_chr_id,
885: x_return_status => l_return_status);
886:
887: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
888: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
889: l_overall_status := l_return_status;
890: END IF;
891: END IF;
892:
896: p_rdf_code => 'AMCRFE',
897: p_chr_id => p_chr_id,
898: x_return_status => l_return_status);
899:
900: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
901: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
902: l_overall_status := l_return_status;
903: END IF;
904: END IF;
897: p_chr_id => p_chr_id,
898: x_return_status => l_return_status);
899:
900: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
901: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
902: l_overall_status := l_return_status;
903: END IF;
904: END IF;
905:
909: p_rdf_code => 'AMCRIN',
910: p_chr_id => p_chr_id,
911: x_return_status => l_return_status);
912:
913: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
914: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
915: l_overall_status := l_return_status;
916: END IF;
917: END IF;
910: p_chr_id => p_chr_id,
911: x_return_status => l_return_status);
912:
913: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
914: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
915: l_overall_status := l_return_status;
916: END IF;
917: END IF;
918:
922: p_rdf_code => 'AMPRTX',
923: p_chr_id => p_chr_id,
924: x_return_status => l_return_status);
925:
926: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
927: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
928: l_overall_status := l_return_status;
929: END IF;
930: END IF;
923: p_chr_id => p_chr_id,
924: x_return_status => l_return_status);
925:
926: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
927: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
928: l_overall_status := l_return_status;
929: END IF;
930: END IF;
931:
935: p_rdf_code => 'AMCSDD',
936: p_chr_id => p_chr_id,
937: x_return_status => l_return_status);
938:
939: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
940: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
941: l_overall_status := l_return_status;
942: END IF;
943: END IF;
936: p_chr_id => p_chr_id,
937: x_return_status => l_return_status);
938:
939: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
940: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
941: l_overall_status := l_return_status;
942: END IF;
943: END IF;
944:
948: p_rdf_code => 'AMCQFE',
949: p_chr_id => p_chr_id,
950: x_return_status => l_return_status);
951:
952: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
953: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
954: l_overall_status := l_return_status;
955: END IF;
956: END IF;
949: p_chr_id => p_chr_id,
950: x_return_status => l_return_status);
951:
952: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
953: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
954: l_overall_status := l_return_status;
955: END IF;
956: END IF;
957:
961: p_rdf_code => 'AMCQDR',
962: p_chr_id => p_chr_id,
963: x_return_status => l_return_status);
964:
965: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
966: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
967: l_overall_status := l_return_status;
968: END IF;
969: END IF;
962: p_chr_id => p_chr_id,
963: x_return_status => l_return_status);
964:
965: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
966: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
967: l_overall_status := l_return_status;
968: END IF;
969: END IF;
970:
974: p_rdf_code => 'AMCTPE',
975: p_chr_id => p_chr_id,
976: x_return_status => l_return_status);
977:
978: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
979: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
980: l_overall_status := l_return_status;
981: END IF;
982: END IF;
975: p_chr_id => p_chr_id,
976: x_return_status => l_return_status);
977:
978: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
979: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
980: l_overall_status := l_return_status;
981: END IF;
982: END IF;
983:
991: p_rdf_code => 'AMBCOC',
992: p_chr_id => p_chr_id,
993: x_return_status => l_return_status);
994:
995: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
996: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
997: l_overall_status := l_return_status;
998: END IF;
999: END IF;
992: p_chr_id => p_chr_id,
993: x_return_status => l_return_status);
994:
995: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
996: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
997: l_overall_status := l_return_status;
998: END IF;
999: END IF;
1000:
1004: p_rdf_code => 'AMCRFE',
1005: p_chr_id => p_chr_id,
1006: x_return_status => l_return_status);
1007:
1008: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1009: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1010: l_overall_status := l_return_status;
1011: END IF;
1012: END IF;
1005: p_chr_id => p_chr_id,
1006: x_return_status => l_return_status);
1007:
1008: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1009: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1010: l_overall_status := l_return_status;
1011: END IF;
1012: END IF;
1013:
1017: p_rdf_code => 'AMCRIN',
1018: p_chr_id => p_chr_id,
1019: x_return_status => l_return_status);
1020:
1021: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1022: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1023: l_overall_status := l_return_status;
1024: END IF;
1025: END IF;
1018: p_chr_id => p_chr_id,
1019: x_return_status => l_return_status);
1020:
1021: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1022: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1023: l_overall_status := l_return_status;
1024: END IF;
1025: END IF;
1026:
1030: p_rdf_code => 'AMPRTX',
1031: p_chr_id => p_chr_id,
1032: x_return_status => l_return_status);
1033:
1034: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1035: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1036: l_overall_status := l_return_status;
1037: END IF;
1038: END IF;
1031: p_chr_id => p_chr_id,
1032: x_return_status => l_return_status);
1033:
1034: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1035: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1036: l_overall_status := l_return_status;
1037: END IF;
1038: END IF;
1039:
1043: p_rdf_code => 'AMCSDD',
1044: p_chr_id => p_chr_id,
1045: x_return_status => l_return_status);
1046:
1047: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1048: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1049: l_overall_status := l_return_status;
1050: END IF;
1051: END IF;
1044: p_chr_id => p_chr_id,
1045: x_return_status => l_return_status);
1046:
1047: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1048: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1049: l_overall_status := l_return_status;
1050: END IF;
1051: END IF;
1052:
1056: p_rdf_code => 'AMCQFE',
1057: p_chr_id => p_chr_id,
1058: x_return_status => l_return_status);
1059:
1060: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1061: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1062: l_overall_status := l_return_status;
1063: END IF;
1064: END IF;
1057: p_chr_id => p_chr_id,
1058: x_return_status => l_return_status);
1059:
1060: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1061: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1062: l_overall_status := l_return_status;
1063: END IF;
1064: END IF;
1065:
1069: p_rdf_code => 'AMCQDR',
1070: p_chr_id => p_chr_id,
1071: x_return_status => l_return_status);
1072:
1073: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1074: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1075: l_overall_status := l_return_status;
1076: END IF;
1077: END IF;
1070: p_chr_id => p_chr_id,
1071: x_return_status => l_return_status);
1072:
1073: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1074: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1075: l_overall_status := l_return_status;
1076: END IF;
1077: END IF;
1078:
1082: p_rdf_code => 'AMCTPE',
1083: p_chr_id => p_chr_id,
1084: x_return_status => l_return_status);
1085:
1086: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1087: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1088: l_overall_status := l_return_status;
1089: END IF;
1090: END IF;
1083: p_chr_id => p_chr_id,
1084: x_return_status => l_return_status);
1085:
1086: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1087: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1088: l_overall_status := l_return_status;
1089: END IF;
1090: END IF;
1091:
1099: p_rdf_code => 'AMBPOC',
1100: p_chr_id => p_chr_id,
1101: x_return_status => l_return_status);
1102:
1103: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1104: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1105: l_overall_status := l_return_status;
1106: END IF;
1107: END IF;
1100: p_chr_id => p_chr_id,
1101: x_return_status => l_return_status);
1102:
1103: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1104: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1105: l_overall_status := l_return_status;
1106: END IF;
1107: END IF;
1108:
1116: p_rdf_code => 'AMBPOC',
1117: p_chr_id => p_chr_id,
1118: x_return_status => l_return_status);
1119:
1120: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1121: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1122: l_overall_status := l_return_status;
1123: END IF;
1124: END IF;
1117: p_chr_id => p_chr_id,
1118: x_return_status => l_return_status);
1119:
1120: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1121: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1122: l_overall_status := l_return_status;
1123: END IF;
1124: END IF;
1125:
1133: p_rdf_code => 'AMBSPR',
1134: p_chr_id => p_chr_id,
1135: x_return_status => l_return_status);
1136:
1137: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1138: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1139: l_overall_status := l_return_status;
1140: END IF;
1141: END IF;
1134: p_chr_id => p_chr_id,
1135: x_return_status => l_return_status);
1136:
1137: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1138: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1139: l_overall_status := l_return_status;
1140: END IF;
1141: END IF;
1142:
1146: p_rdf_code => 'AMCQFE',
1147: p_chr_id => p_chr_id,
1148: x_return_status => l_return_status);
1149:
1150: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1151: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1152: l_overall_status := l_return_status;
1153: END IF;
1154: END IF;
1147: p_chr_id => p_chr_id,
1148: x_return_status => l_return_status);
1149:
1150: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1151: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1152: l_overall_status := l_return_status;
1153: END IF;
1154: END IF;
1155:
1159: p_rdf_code => 'AMCQDR',
1160: p_chr_id => p_chr_id,
1161: x_return_status => l_return_status);
1162:
1163: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1164: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1165: l_overall_status := l_return_status;
1166: END IF;
1167: END IF;
1160: p_chr_id => p_chr_id,
1161: x_return_status => l_return_status);
1162:
1163: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1164: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1165: l_overall_status := l_return_status;
1166: END IF;
1167: END IF;
1168:
1178: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
1179: END IF;
1180:
1181: -- store SQL error message on message stack for caller
1182: OKL_API.SET_MESSAGE (
1183: p_app_name => G_APP_NAME
1184: ,p_msg_name => G_UNEXPECTED_ERROR
1185: ,p_token1 => G_SQLCODE_TOKEN
1186: ,p_token1_value => sqlcode
1187: ,p_token2 => G_SQLERRM_TOKEN
1188: ,p_token2_value => sqlerrm);
1189:
1190: -- notify caller of an UNEXPECTED error
1191: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1192:
1193: END check_calculate_quote;
1194:
1195:
1205: PROCEDURE check_create_quote (
1206: x_return_status OUT NOCOPY VARCHAR2,
1207: p_chr_id IN NUMBER) IS
1208:
1209: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1210: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1211: l_rulv_rec rulv_rec_type;
1212: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_create_quote';
1213: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1206: x_return_status OUT NOCOPY VARCHAR2,
1207: p_chr_id IN NUMBER) IS
1208:
1209: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1210: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1211: l_rulv_rec rulv_rec_type;
1212: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_create_quote';
1213: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1214: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1240: IF (is_debug_statement_on) THEN
1241: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_am_util_pvt.get_rule_record , return status: ' || l_return_status);
1242: END IF;
1243:
1244: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1245: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1246: l_overall_status := l_return_status;
1247: END IF;
1248: END IF;
1241: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_am_util_pvt.get_rule_record , return status: ' || l_return_status);
1242: END IF;
1243:
1244: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1245: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1246: l_overall_status := l_return_status;
1247: END IF;
1248: END IF;
1249:
1246: l_overall_status := l_return_status;
1247: END IF;
1248: END IF;
1249:
1250: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
1251:
1252: check_quote_effectivity (
1253: p_rule_info1 => l_rulv_rec.rule_information1,
1254: p_rule_info2 => l_rulv_rec.rule_information2,
1255: x_return_status => l_return_status);
1256:
1257: END IF;
1258:
1259: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1260: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1261: l_overall_status := l_return_status;
1262: END IF;
1263: END IF;
1256:
1257: END IF;
1258:
1259: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1260: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1261: l_overall_status := l_return_status;
1262: END IF;
1263: END IF;
1264:
1280: IF (is_debug_statement_on) THEN
1281: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_am_util_pvt.get_rule_record , return status: ' || l_return_status);
1282: END IF;
1283:
1284: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1285: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1286: l_overall_status := l_return_status;
1287: END IF;
1288: END IF;
1281: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_am_util_pvt.get_rule_record , return status: ' || l_return_status);
1282: END IF;
1283:
1284: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1285: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1286: l_overall_status := l_return_status;
1287: END IF;
1288: END IF;
1289:
1299: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
1300: END IF;
1301:
1302: -- store SQL error message on message stack for caller
1303: OKL_API.SET_MESSAGE (
1304: p_app_name => G_APP_NAME
1305: ,p_msg_name => G_UNEXPECTED_ERROR
1306: ,p_token1 => G_SQLCODE_TOKEN
1307: ,p_token1_value => sqlcode
1308: ,p_token2 => G_SQLERRM_TOKEN
1309: ,p_token2_value => sqlerrm);
1310:
1311: -- notify caller of an UNEXPECTED error
1312: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1313:
1314: END check_create_quote;
1315:
1316:
1326: PROCEDURE check_quote_wf (
1327: x_return_status OUT NOCOPY VARCHAR2,
1328: p_chr_id IN NUMBER) IS
1329:
1330: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1331: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1332: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_quote_wf';
1333: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1334: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1327: x_return_status OUT NOCOPY VARCHAR2,
1328: p_chr_id IN NUMBER) IS
1329:
1330: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1331: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1332: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_quote_wf';
1333: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1334: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1335: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1351: p_rdf_code => 'AMGALO',
1352: p_chr_id => p_chr_id,
1353: x_return_status => l_return_status);
1354:
1355: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1356: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1357: l_overall_status := l_return_status;
1358: END IF;
1359: END IF;
1352: p_chr_id => p_chr_id,
1353: x_return_status => l_return_status);
1354:
1355: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1356: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1357: l_overall_status := l_return_status;
1358: END IF;
1359: END IF;
1360:
1370: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
1371: END IF;
1372:
1373: -- store SQL error message on message stack for caller
1374: OKL_API.SET_MESSAGE (
1375: p_app_name => G_APP_NAME
1376: ,p_msg_name => G_UNEXPECTED_ERROR
1377: ,p_token1 => G_SQLCODE_TOKEN
1378: ,p_token1_value => sqlcode
1379: ,p_token2 => G_SQLERRM_TOKEN
1380: ,p_token2_value => sqlerrm);
1381:
1382: -- notify caller of an UNEXPECTED error
1383: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1384:
1385: END check_quote_wf;
1386:
1387:
1406: AND pr.cle_id IS NULL
1407: AND pr.chr_id = cp_chr_id
1408: AND pr.dnz_chr_id = cp_chr_id;
1409:
1410: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1411: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1412:
1413: l_qtev_rec qtev_rec_type; -- Quote Header
1414: l_qpyv_tbl qpyv_tbl_type; -- Quote Parties
1407: AND pr.chr_id = cp_chr_id
1408: AND pr.dnz_chr_id = cp_chr_id;
1409:
1410: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1411: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1412:
1413: l_qtev_rec qtev_rec_type; -- Quote Header
1414: l_qpyv_tbl qpyv_tbl_type; -- Quote Parties
1415: l_taiv_rec taiv_rec_type; -- Billing Header
1445: IF (is_debug_statement_on) THEN
1446: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_am_parties_pvt.create_quote_parties , return status: ' || l_return_status);
1447: END IF;
1448:
1449: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1450: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1451: l_overall_status := l_return_status;
1452: END IF;
1453: END IF;
1446: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_am_parties_pvt.create_quote_parties , return status: ' || l_return_status);
1447: END IF;
1448:
1449: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1450: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1451: l_overall_status := l_return_status;
1452: END IF;
1453: END IF;
1454:
1472: IF (is_debug_statement_on) THEN
1473: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_am_invoices_pvt.get_vendor_billing_info , return status: ' || l_return_status);
1474: END IF;
1475:
1476: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1477: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR
1478: THEN
1479: l_overall_status := l_return_status;
1480: END IF;
1473: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_am_invoices_pvt.get_vendor_billing_info , return status: ' || l_return_status);
1474: END IF;
1475:
1476: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1477: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR
1478: THEN
1479: l_overall_status := l_return_status;
1480: END IF;
1481: END IF;
1499: CLOSE l_vendor_csr;
1500: END IF;
1501:
1502: -- store SQL error message on message stack for caller
1503: OKL_API.SET_MESSAGE (
1504: p_app_name => G_APP_NAME
1505: ,p_msg_name => G_UNEXPECTED_ERROR
1506: ,p_token1 => G_SQLCODE_TOKEN
1507: ,p_token1_value => sqlcode
1508: ,p_token2 => G_SQLERRM_TOKEN
1509: ,p_token2_value => sqlerrm);
1510:
1511: -- notify caller of an UNEXPECTED error
1512: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1513:
1514: END check_termin_quote_parties;
1515:
1516:
1526: PROCEDURE check_repurch_quote_parties (
1527: x_return_status OUT NOCOPY VARCHAR2,
1528: p_chr_id IN NUMBER) IS
1529:
1530: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1531: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1532:
1533: l_qtev_rec qtev_rec_type; -- Quote Header
1534: l_qpyv_tbl qpyv_tbl_type; -- Quote Parties
1527: x_return_status OUT NOCOPY VARCHAR2,
1528: p_chr_id IN NUMBER) IS
1529:
1530: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1531: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1532:
1533: l_qtev_rec qtev_rec_type; -- Quote Header
1534: l_qpyv_tbl qpyv_tbl_type; -- Quote Parties
1535: l_taiv_rec taiv_rec_type; -- Billing Header
1566: IF (is_debug_statement_on) THEN
1567: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_am_parties_pvt.create_partner_as_recipient , return status: ' || l_return_status);
1568: END IF;
1569:
1570: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1571: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1572: l_overall_status := l_return_status;
1573: END IF;
1574: END IF;
1567: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_am_parties_pvt.create_partner_as_recipient , return status: ' || l_return_status);
1568: END IF;
1569:
1570: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1571: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1572: l_overall_status := l_return_status;
1573: END IF;
1574: END IF;
1575:
1589: IF (is_debug_statement_on) THEN
1590: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_am_invoices_pvt.get_vendor_billing_info , return status: ' || l_return_status);
1591: END IF;
1592:
1593: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1594: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR
1595: THEN
1596: l_overall_status := l_return_status;
1597: END IF;
1590: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_am_invoices_pvt.get_vendor_billing_info , return status: ' || l_return_status);
1591: END IF;
1592:
1593: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1594: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR
1595: THEN
1596: l_overall_status := l_return_status;
1597: END IF;
1598: END IF;
1611: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
1612: END IF;
1613:
1614: -- store SQL error message on message stack for caller
1615: OKL_API.SET_MESSAGE (
1616: p_app_name => G_APP_NAME
1617: ,p_msg_name => G_UNEXPECTED_ERROR
1618: ,p_token1 => G_SQLCODE_TOKEN
1619: ,p_token1_value => sqlcode
1620: ,p_token2 => G_SQLERRM_TOKEN
1621: ,p_token2_value => sqlerrm);
1622:
1623: -- notify caller of an UNEXPECTED error
1624: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1625:
1626: END check_repurch_quote_parties;
1627:
1628:
1638: PROCEDURE check_bill_to_address (
1639: x_return_status OUT NOCOPY VARCHAR2,
1640: p_chr_id IN NUMBER) IS
1641:
1642: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1643: l_bill_to_address_rec okx_cust_site_uses_v%ROWTYPE;
1644: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_bill_to_address';
1645: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1646: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1677: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
1678: END IF;
1679:
1680: -- store SQL error message on message stack for caller
1681: OKL_API.SET_MESSAGE (
1682: p_app_name => G_APP_NAME
1683: ,p_msg_name => G_UNEXPECTED_ERROR
1684: ,p_token1 => G_SQLCODE_TOKEN
1685: ,p_token1_value => sqlcode
1686: ,p_token2 => G_SQLERRM_TOKEN
1687: ,p_token2_value => sqlerrm);
1688:
1689: -- notify caller of an UNEXPECTED error
1690: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1691:
1692: END check_bill_to_address;
1693:
1694:
1716: FROM okc_k_headers_b
1717: WHERE id = cp_chr_id;
1718:
1719: l_rulv_rec rulv_rec_type;
1720: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1721:
1722: -- Values stored in Security Deposit Rule
1723: l_held_until_maturity VARCHAR2(1);
1724: l_held_until_date DATE;
1758: IF (is_debug_statement_on) THEN
1759: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_am_util_pvt.get_rule_record , return status: ' || l_return_status);
1760: END IF;
1761:
1762: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
1763:
1764: OPEN l_contract_csr (p_chr_id);
1765: FETCH l_contract_csr INTO l_contract_end_date;
1766: CLOSE l_contract_csr;
1781: AND l_held_until_date IS NOT NULL
1782: AND l_held_until_date <> G_MISS_DATE
1783: AND l_held_until_date < l_contract_end_date THEN
1784:
1785: l_return_status := OKL_API.G_RET_STS_ERROR;
1786: OKC_API.SET_MESSAGE (
1787: p_app_name => G_OKC_APP_NAME,
1788: p_msg_name => G_INVALID_VALUE,
1789: p_token1 => G_COL_NAME_TOKEN,
1792: END IF;
1793:
1794: ELSE
1795: -- The rule is optional
1796: l_return_status := OKL_API.G_RET_STS_SUCCESS;
1797: END IF;
1798:
1799: x_return_status := l_return_status;
1800: IF (is_debug_procedure_on) THEN
1818: CLOSE l_contract_csr;
1819: END IF;
1820:
1821: -- store SQL error message on message stack for caller
1822: OKL_API.SET_MESSAGE (
1823: p_app_name => OKL_API.G_APP_NAME,
1824: p_msg_name => 'OKL_CONTRACTS_UNEXPECTED_ERROR',
1825: p_token1 => 'SQLCODE',
1826: p_token1_value => SQLCODE,
1819: END IF;
1820:
1821: -- store SQL error message on message stack for caller
1822: OKL_API.SET_MESSAGE (
1823: p_app_name => OKL_API.G_APP_NAME,
1824: p_msg_name => 'OKL_CONTRACTS_UNEXPECTED_ERROR',
1825: p_token1 => 'SQLCODE',
1826: p_token1_value => SQLCODE,
1827: p_token2 => 'SQLERRM',
1843: x_return_status OUT NOCOPY VARCHAR2,
1844: p_chr_id IN NUMBER,
1845: p_rgr_rec IN rgr_rec_type) IS
1846:
1847: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1848: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1849: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_am_rule_format';
1850: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1851: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1844: p_chr_id IN NUMBER,
1845: p_rgr_rec IN rgr_rec_type) IS
1846:
1847: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1848: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1849: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_am_rule_format';
1850: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1851: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1852: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1902: p_rgd_code => p_rgr_rec.rgd_code,
1903: p_rdf_code => p_rgr_rec.rule_information_category,
1904: x_return_status => l_return_status);
1905:
1906: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1907: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1908: l_overall_status := l_return_status;
1909: END IF;
1910: END IF;
1903: p_rdf_code => p_rgr_rec.rule_information_category,
1904: x_return_status => l_return_status);
1905:
1906: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1907: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1908: l_overall_status := l_return_status;
1909: END IF;
1910: END IF;
1911:
1919: p_rgd_code => p_rgr_rec.rgd_code,
1920: p_rdf_code => p_rgr_rec.rule_information_category,
1921: x_return_status => l_return_status);
1922:
1923: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1924: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1925: l_overall_status := l_return_status;
1926: END IF;
1927: END IF;
1920: p_rdf_code => p_rgr_rec.rule_information_category,
1921: x_return_status => l_return_status);
1922:
1923: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1924: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1925: l_overall_status := l_return_status;
1926: END IF;
1927: END IF;
1928:
1938: p_rgd_code => p_rgr_rec.rgd_code,
1939: p_rdf_code => p_rgr_rec.rule_information_category,
1940: x_return_status => l_return_status);
1941:
1942: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1943: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1944: l_overall_status := l_return_status;
1945: END IF;
1946: END IF;
1939: p_rdf_code => p_rgr_rec.rule_information_category,
1940: x_return_status => l_return_status);
1941:
1942: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1943: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1944: l_overall_status := l_return_status;
1945: END IF;
1946: END IF;
1947:
1957: p_rgd_code => p_rgr_rec.rgd_code,
1958: p_rdf_code => p_rgr_rec.rule_information_category,
1959: x_return_status => l_return_status);
1960:
1961: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1962: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1963: l_overall_status := l_return_status;
1964: END IF;
1965: END IF;
1958: p_rdf_code => p_rgr_rec.rule_information_category,
1959: x_return_status => l_return_status);
1960:
1961: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1962: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1963: l_overall_status := l_return_status;
1964: END IF;
1965: END IF;
1966:
1981: x_return_status => l_return_status);
1982:
1983: END IF;
1984:
1985: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1986: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1987: l_overall_status := l_return_status;
1988: END IF;
1989: END IF;
1982:
1983: END IF;
1984:
1985: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1986: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1987: l_overall_status := l_return_status;
1988: END IF;
1989: END IF;
1990:
2000: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
2001: END IF;
2002:
2003: -- store SQL error message on message stack for caller
2004: OKL_API.SET_MESSAGE (
2005: p_app_name => G_APP_NAME
2006: ,p_msg_name => G_UNEXPECTED_ERROR
2007: ,p_token1 => G_SQLCODE_TOKEN
2008: ,p_token1_value => sqlcode
2009: ,p_token2 => G_SQLERRM_TOKEN
2010: ,p_token2_value => sqlerrm);
2011:
2012: -- notify caller of an UNEXPECTED error
2013: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2014:
2015: END check_am_rule_format;
2016:
2017:
2027: PROCEDURE check_rule_constraints (
2028: x_return_status OUT NOCOPY VARCHAR2,
2029: p_chr_id IN NUMBER) IS
2030:
2031: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2032: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2033: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_rule_constraints';
2034: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name,
2035: G_LEVEL_EXCEPTION);
2028: x_return_status OUT NOCOPY VARCHAR2,
2029: p_chr_id IN NUMBER) IS
2030:
2031: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2032: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2033: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_rule_constraints';
2034: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name,
2035: G_LEVEL_EXCEPTION);
2036: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name,
2049: check_bill_to_address (
2050: x_return_status => l_return_status,
2051: p_chr_id => p_chr_id);
2052:
2053: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2054: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
2055: l_overall_status := l_return_status;
2056: END IF;
2057: END IF;
2050: x_return_status => l_return_status,
2051: p_chr_id => p_chr_id);
2052:
2053: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2054: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
2055: l_overall_status := l_return_status;
2056: END IF;
2057: END IF;
2058:
2059: check_create_quote (
2060: x_return_status => l_return_status,
2061: p_chr_id => p_chr_id);
2062:
2063: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2064: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
2065: l_overall_status := l_return_status;
2066: END IF;
2067: END IF;
2060: x_return_status => l_return_status,
2061: p_chr_id => p_chr_id);
2062:
2063: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2064: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
2065: l_overall_status := l_return_status;
2066: END IF;
2067: END IF;
2068:
2069: check_calculate_quote (
2070: x_return_status => l_return_status,
2071: p_chr_id => p_chr_id);
2072:
2073: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2074: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
2075: l_overall_status := l_return_status;
2076: END IF;
2077: END IF;
2070: x_return_status => l_return_status,
2071: p_chr_id => p_chr_id);
2072:
2073: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2074: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
2075: l_overall_status := l_return_status;
2076: END IF;
2077: END IF;
2078:
2079: check_repurch_quote_parties (
2080: x_return_status => l_return_status,
2081: p_chr_id => p_chr_id);
2082:
2083: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2084: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
2085: l_overall_status := l_return_status;
2086: END IF;
2087: END IF;
2080: x_return_status => l_return_status,
2081: p_chr_id => p_chr_id);
2082:
2083: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2084: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
2085: l_overall_status := l_return_status;
2086: END IF;
2087: END IF;
2088:
2089: check_sec_dep_disp (
2090: x_return_status => l_return_status,
2091: p_chr_id => p_chr_id);
2092:
2093: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2094: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
2095: l_overall_status := l_return_status;
2096: END IF;
2097: END IF;
2090: x_return_status => l_return_status,
2091: p_chr_id => p_chr_id);
2092:
2093: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2094: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
2095: l_overall_status := l_return_status;
2096: END IF;
2097: END IF;
2098:
2099: check_contract_portfolio (
2100: x_return_status => l_return_status,
2101: p_chr_id => p_chr_id);
2102:
2103: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2104: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
2105: l_overall_status := l_return_status;
2106: END IF;
2107: END IF;
2100: x_return_status => l_return_status,
2101: p_chr_id => p_chr_id);
2102:
2103: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2104: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
2105: l_overall_status := l_return_status;
2106: END IF;
2107: END IF;
2108:
2109: check_quote_wf (
2110: x_return_status => l_return_status,
2111: p_chr_id => p_chr_id);
2112:
2113: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2114: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
2115: l_overall_status := l_return_status;
2116: END IF;
2117: END IF;
2110: x_return_status => l_return_status,
2111: p_chr_id => p_chr_id);
2112:
2113: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2114: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
2115: l_overall_status := l_return_status;
2116: END IF;
2117: END IF;
2118:
2128: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
2129: END IF;
2130:
2131: -- store SQL error message on message stack for caller
2132: OKL_API.SET_MESSAGE (
2133: p_app_name => G_APP_NAME
2134: ,p_msg_name => G_UNEXPECTED_ERROR
2135: ,p_token1 => G_SQLCODE_TOKEN
2136: ,p_token1_value => sqlcode
2137: ,p_token2 => G_SQLERRM_TOKEN
2138: ,p_token2_value => sqlerrm);
2139:
2140: -- notify caller of an UNEXPECTED error
2141: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2142:
2143: END check_rule_constraints;
2144:
2145:
2155: PROCEDURE check_warning_constraints (
2156: x_return_status OUT NOCOPY VARCHAR2,
2157: p_chr_id IN NUMBER) IS
2158:
2159: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2160: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2161: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_warning_constraints';
2162: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name,
2163: G_LEVEL_EXCEPTION);
2156: x_return_status OUT NOCOPY VARCHAR2,
2157: p_chr_id IN NUMBER) IS
2158:
2159: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2160: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2161: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_warning_constraints';
2162: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name,
2163: G_LEVEL_EXCEPTION);
2164: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name,
2177: check_termin_quote_parties (
2178: x_return_status => l_return_status,
2179: p_chr_id => p_chr_id);
2180:
2181: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2182: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
2183: l_overall_status := l_return_status;
2184: END IF;
2185: END IF;
2178: x_return_status => l_return_status,
2179: p_chr_id => p_chr_id);
2180:
2181: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2182: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
2183: l_overall_status := l_return_status;
2184: END IF;
2185: END IF;
2186:
2196: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
2197: END IF;
2198:
2199: -- store SQL error message on message stack for caller
2200: OKL_API.SET_MESSAGE (
2201: p_app_name => G_APP_NAME
2202: ,p_msg_name => G_UNEXPECTED_ERROR
2203: ,p_token1 => G_SQLCODE_TOKEN
2204: ,p_token1_value => sqlcode
2205: ,p_token2 => G_SQLERRM_TOKEN
2206: ,p_token2_value => sqlerrm);
2207:
2208: -- notify caller of an UNEXPECTED error
2209: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2210:
2211: END check_warning_constraints;
2212:
2213: