44: l_params okl_execute_formula_pub.ctxt_val_tbl_type;
45:
46: -- for debug logging
47: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'add_element';
48: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
49: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
50: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
51:
52: BEGIN
45:
46: -- for debug logging
47: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'add_element';
48: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
49: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
50: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
51:
52: BEGIN
53:
46: -- for debug logging
47: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'add_element';
48: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
49: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
50: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
51:
52: BEGIN
53:
54: IF (is_debug_procedure_on) THEN
51:
52: BEGIN
53:
54: IF (is_debug_procedure_on) THEN
55: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
56: END IF;
57:
58: IF p_formula_name IS NOT NULL
59: AND p_formula_name <> G_MISS_CHAR THEN
86: x_formula_value => l_rule_value,
87: x_return_status => l_return_status);
88:
89: IF (is_debug_statement_on) THEN
90: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
91: 'after call to okl_am_util_pvt.get_formula_value :'||l_return_status);
92: END IF;
93:
94: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
117:
118: x_return_status := l_overall_status;
119:
120: IF (is_debug_procedure_on) THEN
121: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
122: END IF;
123:
124: EXCEPTION
125:
125:
126: WHEN OTHERS THEN
127:
128: IF (is_debug_exception_on) THEN
129: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
130: || sqlcode || ' , SQLERRM : ' || sqlerrm);
131: END IF;
132: -- store SQL error message on message stack for caller
133: OKL_API.SET_MESSAGE (
265: l_total_payment NUMBER;
266: l_prorate_ratio NUMBER;
267:
268: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'process_specific_line_style';
269: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
270: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
271: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
272:
273:
266: l_prorate_ratio NUMBER;
267:
268: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'process_specific_line_style';
269: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
270: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
271: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
272:
273:
274: BEGIN
267:
268: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'process_specific_line_style';
269: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
270: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
271: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
272:
273:
274: BEGIN
275:
273:
274: BEGIN
275:
276: IF (is_debug_procedure_on) THEN
277: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
278: END IF;
279:
280:
281: IF NVL (p_qtev_rec.partial_yn, 'N') <> 'Y'
307: px_tqlv_tbl => px_tqlv_tbl,
308: x_return_status => l_return_status);
309:
310: IF (is_debug_statement_on) THEN
311: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
312: 'after call to add_element :'||l_return_status);
313: END IF;
314:
315:
358: px_tqlv_tbl => px_tqlv_tbl,
359: x_return_status => l_return_status);
360:
361: IF (is_debug_statement_on) THEN
362: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
363: 'after call to add_element :'||l_return_status);
364: END IF;
365:
366: END LOOP;
370: x_operand_total := l_total;
371: x_return_status := l_overall_status;
372:
373: IF (is_debug_procedure_on) THEN
374: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
375: END IF;
376:
377: EXCEPTION
378:
378:
379: WHEN OTHERS THEN
380:
381: IF (is_debug_exception_on) THEN
382: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
383: || sqlcode || ' , SQLERRM : ' || sqlerrm);
384: END IF;
385:
386:
577: -- rmunjulu bug 5005225
578: l_sts_code OKC_K_HEADERS_B.sts_code%TYPE;
579:
580: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'process_unbilled_receivables';
581: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
582: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
583: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
584:
585: BEGIN
578: l_sts_code OKC_K_HEADERS_B.sts_code%TYPE;
579:
580: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'process_unbilled_receivables';
581: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
582: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
583: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
584:
585: BEGIN
586:
579:
580: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'process_unbilled_receivables';
581: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
582: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
583: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
584:
585: BEGIN
586:
587: IF (is_debug_procedure_on) THEN
584:
585: BEGIN
586:
587: IF (is_debug_procedure_on) THEN
588: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
589: END IF;
590:
591: -- rmunjulu bug 5005225
592: OPEN get_k_sts_csr (p_qtev_rec.khr_id);
680: x_operand_total := l_total;
681: x_return_status := l_overall_status;
682:
683: IF (is_debug_procedure_on) THEN
684: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
685: END IF;
686:
687: EXCEPTION
688:
688:
689: WHEN OTHERS THEN
690:
691: IF (is_debug_exception_on) THEN
692: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
693: || sqlcode || ' , SQLERRM : ' || sqlerrm);
694: END IF;
695:
696:
877: l_total NUMBER := 0;
878: l_seq NUMBER := NVL (px_tqlv_tbl.LAST, 0);
879:
880: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'process_outstanding_balances';
881: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
882: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
883: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
884:
885: BEGIN
878: l_seq NUMBER := NVL (px_tqlv_tbl.LAST, 0);
879:
880: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'process_outstanding_balances';
881: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
882: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
883: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
884:
885: BEGIN
886:
879:
880: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'process_outstanding_balances';
881: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
882: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
883: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
884:
885: BEGIN
886:
887: IF (is_debug_procedure_on) THEN
884:
885: BEGIN
886:
887: IF (is_debug_procedure_on) THEN
888: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
889: END IF;
890:
891: IF NVL (p_qtev_rec.partial_yn, 'N') <> 'Y'
892: AND p_cle_id IS NULL
952: x_operand_total := l_total;
953: x_return_status := l_overall_status;
954:
955: IF (is_debug_procedure_on) THEN
956: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
957: END IF;
958:
959: EXCEPTION
960:
960:
961: WHEN OTHERS THEN
962:
963: IF (is_debug_exception_on) THEN
964: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
965: || sqlcode || ' , SQLERRM : ' || sqlerrm);
966: END IF;
967:
968: -- store SQL error message on message stack for caller
1008: l_processed_all_styles VARCHAR2(1000);
1009: l_processed_link_styles VARCHAR2(1000);
1010:
1011: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'calc_stream_type_operand';
1012: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1013: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1014: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1015:
1016: BEGIN
1009: l_processed_link_styles VARCHAR2(1000);
1010:
1011: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'calc_stream_type_operand';
1012: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1013: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1014: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1015:
1016: BEGIN
1017:
1010:
1011: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'calc_stream_type_operand';
1012: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1013: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1014: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1015:
1016: BEGIN
1017:
1018: IF (is_debug_procedure_on) THEN
1015:
1016: BEGIN
1017:
1018: IF (is_debug_procedure_on) THEN
1019: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
1020: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'p_operand : '||p_operand);
1021: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'p_formula_name : '||p_formula_name);
1022: END IF;
1023:
1016: BEGIN
1017:
1018: IF (is_debug_procedure_on) THEN
1019: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
1020: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'p_operand : '||p_operand);
1021: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'p_formula_name : '||p_formula_name);
1022: END IF;
1023:
1024: IF p_operand = 'AMYSAM' THEN
1017:
1018: IF (is_debug_procedure_on) THEN
1019: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
1020: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'p_operand : '||p_operand);
1021: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'p_formula_name : '||p_formula_name);
1022: END IF;
1023:
1024: IF p_operand = 'AMYSAM' THEN
1025:
1090: x_operand_total := l_operand_total;
1091: x_return_status := l_overall_status;
1092:
1093: IF (is_debug_procedure_on) THEN
1094: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
1095: END IF;
1096:
1097: EXCEPTION
1098:
1098:
1099: WHEN OTHERS THEN
1100:
1101: IF (is_debug_exception_on) THEN
1102: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
1103: || sqlcode || ' , SQLERRM : ' || sqlerrm);
1104: END IF;
1105: -- store SQL error message on message stack for caller
1106: OKL_API.SET_MESSAGE (