129: l_round_amount NUMBER ;
130: l_amount NUMBER ;
131: l_api_name CONSTANT VARCHAR2(30) DEFAULT 'CURRENCY_CONVERSION';
132: l_conv_date DATE ;
133: l_module CONSTANT fnd_log_messages.module%TYPE := 'okl.plsql.OKL_SUBSIDY_POOL_RPT_PVT.CURRENCY_CONVERSION';
134: l_debug_enabled VARCHAR2(10);
135: is_debug_procedure_on BOOLEAN;
136: is_debug_statement_on BOOLEAN;
137:
136: is_debug_statement_on BOOLEAN;
137:
138: BEGIN
139: l_debug_enabled := okl_debug_pub.check_log_enabled;
140: is_debug_procedure_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_PROCEDURE);
141:
142: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
143: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRSIOB.pls call currency_conversion');
144: END IF;
139: l_debug_enabled := okl_debug_pub.check_log_enabled;
140: is_debug_procedure_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_PROCEDURE);
141:
142: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
143: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRSIOB.pls call currency_conversion');
144: END IF;
145: -- check for logging on STATEMENT level
146: is_debug_statement_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_STATEMENT);
147:
142: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
143: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRSIOB.pls call currency_conversion');
144: END IF;
145: -- check for logging on STATEMENT level
146: is_debug_statement_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_STATEMENT);
147:
148: l_api_version := 1.0;
149: l_init_msg_list := Okl_Api.g_false;
150: l_msg_count := 0;
190: ,p_con_type => p_conv_type
191: ,x_conv_rate => l_conv_rate
192: );
193: IF(NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on) THEN
194: okl_debug_pub.log_debug(FND_LOG.LEVEL_STATEMENT,
195: l_module,
196: 'p_from_currency_code '||p_from_currency_code||' p_to_currency_code '
197: ||p_to_currency_code||' l_conv_date '||l_conv_date||'p_conv_type'||p_conv_type
198: ||'l_conv_rate'||l_conv_rate
220: ,p_currency_code => p_to_currency_code
221: ,x_rounded_amount => l_round_amount
222: );
223: IF(NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on) THEN
224: okl_debug_pub.log_debug(FND_LOG.LEVEL_STATEMENT,
225: l_module,
226: 'l_amount '||l_amount||' l_round_amount '||l_round_amount
227: );
228: END IF; -- end of NVL(l_debug_enabled,'N')='Y'
238: END IF;
239: okl_api.END_ACTIVITY(l_msg_count, l_msg_data);
240: RETURN l_round_amount;
241: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
242: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRSIOB.pls call currency_conversion');
243: END IF;
244:
245: EXCEPTION
246: WHEN OKL_API.G_EXCEPTION_ERROR THEN
315: l_msg_data VARCHAR2(2000);
316: l_return_status VARCHAR2(1);
317: l_api_version NUMBER ;
318: l_init_msg_list VARCHAR2(1) ;
319: l_module CONSTANT fnd_log_messages.module%TYPE := 'okl.plsql.OKL_SUBSIDY_POOL_RPT_PVT.TOTAL_BUDGETS';
320: l_debug_enabled VARCHAR2(10);
321: is_debug_procedure_on BOOLEAN;
322: is_debug_statement_on BOOLEAN;
323: BEGIN
321: is_debug_procedure_on BOOLEAN;
322: is_debug_statement_on BOOLEAN;
323: BEGIN
324: l_debug_enabled := okl_debug_pub.check_log_enabled;
325: is_debug_procedure_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_PROCEDURE);
326:
327: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
328: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRSIOB.pls call total_budgets');
329: END IF;
324: l_debug_enabled := okl_debug_pub.check_log_enabled;
325: is_debug_procedure_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_PROCEDURE);
326:
327: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
328: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRSIOB.pls call total_budgets');
329: END IF;
330: -- check for logging on STATEMENT level
331: is_debug_statement_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_STATEMENT);
332:
327: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
328: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRSIOB.pls call total_budgets');
329: END IF;
330: -- check for logging on STATEMENT level
331: is_debug_statement_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_STATEMENT);
332:
333: l_api_version := 1.0;
334: l_init_msg_list := Okl_Api.g_false;
335: l_msg_count := 0;
382: l_total_budget := l_total_budget - l_amount;
383: END IF;
384:
385: IF(NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on) THEN
386: okl_debug_pub.log_debug(FND_LOG.LEVEL_STATEMENT,
387: l_module,
388: 'l_amount '||l_amount||' l_total_budget '||l_total_budget
389: );
390: END IF; -- end of NVL(l_debug_enabled,'N')='Y'
396: x_msg_count := l_msg_count;
397: RETURN l_total_budget;
398:
399: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
400: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRSIOB.pls call total_budgets');
401: END IF;
402:
403: EXCEPTION
404: WHEN G_EXCEPTION_HALT_VALIDATION THEN
490: l_msg_data VARCHAR2(2000);
491: l_return_status VARCHAR2(1);
492: l_api_version NUMBER ;
493: l_init_msg_list VARCHAR2(1);
494: l_module CONSTANT fnd_log_messages.module%TYPE := 'okl.plsql.OKL_SUBSIDY_POOL_RPT_PVT.TRANSACTION_AMOUNT';
495: l_debug_enabled VARCHAR2(10);
496: is_debug_procedure_on BOOLEAN;
497: is_debug_statement_on BOOLEAN;
498:
497: is_debug_statement_on BOOLEAN;
498:
499: BEGIN
500: l_debug_enabled := okl_debug_pub.check_log_enabled;
501: is_debug_procedure_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_PROCEDURE);
502: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
503: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRSIOB.pls call transaction_amount');
504: END IF;
505: -- check for logging on STATEMENT level
499: BEGIN
500: l_debug_enabled := okl_debug_pub.check_log_enabled;
501: is_debug_procedure_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_PROCEDURE);
502: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
503: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRSIOB.pls call transaction_amount');
504: END IF;
505: -- check for logging on STATEMENT level
506: is_debug_statement_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_STATEMENT);
507:
502: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
503: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRSIOB.pls call transaction_amount');
504: END IF;
505: -- check for logging on STATEMENT level
506: is_debug_statement_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_STATEMENT);
507:
508: l_api_version := 1.0;
509: l_init_msg_list := Okl_Api.g_false;
510: l_msg_count := 0;
563: ELSIF(each_row.trx_type_code = 'REDUCTION') THEN
564: l_trx_amount := l_trx_amount + l_amount;
565: END IF;
566: IF(NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on) THEN
567: okl_debug_pub.log_debug(FND_LOG.LEVEL_STATEMENT,
568: l_module,
569: 'l_amount '||l_amount||' l_trx_amount '||l_trx_amount
570: );
571: END IF; -- end of NVL(l_debug_enabled,'N')='Y'
576: x_msg_data := l_msg_data;
577: x_msg_count := l_msg_count;
578: RETURN l_trx_amount;
579: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
580: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRSIOB.pls call transaction_amount');
581: END IF;
582: EXCEPTION
583: WHEN G_EXCEPTION_HALT_VALIDATION THEN
584: x_return_status := OKL_API.HANDLE_EXCEPTIONS
725: l_msg_data VARCHAR2(2000);
726: l_return_status VARCHAR2(1);
727: l_api_version NUMBER ;
728: l_init_msg_list VARCHAR2(1);
729: l_module CONSTANT fnd_log_messages.module%TYPE := 'okl.plsql.OKL_SUBSIDY_POOL_RPT_PVT.PRINT_PARENT_RECORD';
730: l_debug_enabled VARCHAR2(10);
731: is_debug_procedure_on BOOLEAN;
732: is_debug_statement_on BOOLEAN;
733:
732: is_debug_statement_on BOOLEAN;
733:
734: BEGIN
735: l_debug_enabled := okl_debug_pub.check_log_enabled;
736: is_debug_procedure_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_PROCEDURE);
737: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
738: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRSIOB.pls call print_parent_record');
739: END IF;
740: -- check for logging on STATEMENT level
734: BEGIN
735: l_debug_enabled := okl_debug_pub.check_log_enabled;
736: is_debug_procedure_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_PROCEDURE);
737: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
738: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRSIOB.pls call print_parent_record');
739: END IF;
740: -- check for logging on STATEMENT level
741: is_debug_statement_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_STATEMENT);
742:
737: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
738: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRSIOB.pls call print_parent_record');
739: END IF;
740: -- check for logging on STATEMENT level
741: is_debug_statement_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_STATEMENT);
742:
743: l_api_version := 1.0;
744: l_init_msg_list := Okl_Api.g_false;
745: l_msg_count := 0;
868: END IF;
869: l_remaining_balance := l_total_budget - l_trx_amount;
870:
871: IF(NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on) THEN
872: okl_debug_pub.log_debug(FND_LOG.LEVEL_STATEMENT,
873: l_module,
874: 'l_reporting_limit '||l_reporting_limit||' l_total_budget '
875: ||l_total_budget||' l_trx_amount '||l_trx_amount
876: ||'l_remaining_balance'||l_remaining_balance
892: x_msg_data := l_msg_data;
893: x_msg_count := l_msg_count;
894:
895: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
896: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRSIOB.pls call print_parent_record');
897: END IF;
898:
899: EXCEPTION
900: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1046: l_msg_data VARCHAR2(2000);
1047: l_return_status VARCHAR2(1);
1048: l_api_version NUMBER;
1049: l_init_msg_list VARCHAR2(1);
1050: l_module CONSTANT fnd_log_messages.module%TYPE := 'okl.plsql.OKL_SUBSIDY_POOL_RPT_PVT.PRINT_CHILD_RECORD';
1051: l_debug_enabled VARCHAR2(10);
1052: is_debug_procedure_on BOOLEAN;
1053: is_debug_statement_on BOOLEAN;
1054:
1053: is_debug_statement_on BOOLEAN;
1054:
1055: BEGIN
1056: l_debug_enabled := okl_debug_pub.check_log_enabled;
1057: is_debug_procedure_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_PROCEDURE);
1058: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
1059: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRSIOB.pls call print_child_record');
1060: END IF;
1061: -- check for logging on STATEMENT level
1055: BEGIN
1056: l_debug_enabled := okl_debug_pub.check_log_enabled;
1057: is_debug_procedure_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_PROCEDURE);
1058: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
1059: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRSIOB.pls call print_child_record');
1060: END IF;
1061: -- check for logging on STATEMENT level
1062: is_debug_statement_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_STATEMENT);
1063:
1058: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
1059: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRSIOB.pls call print_child_record');
1060: END IF;
1061: -- check for logging on STATEMENT level
1062: is_debug_statement_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_STATEMENT);
1063:
1064: l_api_version := 1.0;
1065: l_init_msg_list := Okl_Api.g_false;
1066: l_msg_count := 0;
1192: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get);
1193: END IF;
1194:
1195: IF(NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on) THEN
1196: okl_debug_pub.log_debug(FND_LOG.LEVEL_STATEMENT,
1197: l_module,
1198: 'l_reporting_limit '||l_reporting_limit||' l_total_budget '
1199: ||l_total_budget||' l_trx_amount '||l_trx_amount
1200: ||'l_remaining_balance'||l_remaining_balance
1218: x_msg_data := l_msg_data;
1219: x_msg_count := l_msg_count;
1220:
1221: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
1222: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRSIOB.pls call print_child_record');
1223: END IF;
1224:
1225: EXCEPTION
1226: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1303: l_init_msg_list VARCHAR2(1);
1304: --length
1305: l_total_length CONSTANT NUMBER DEFAULT 152;
1306: l_sysdate DATE ;
1307: l_module CONSTANT fnd_log_messages.module%TYPE := 'okl.plsql.OKL_SUBSIDY_POOL_RPT_PVT.POOL_ASSOC_REPORT';
1308: l_debug_enabled VARCHAR2(10);
1309: is_debug_procedure_on BOOLEAN;
1310: is_debug_statement_on BOOLEAN;
1311:
1310: is_debug_statement_on BOOLEAN;
1311:
1312: BEGIN
1313: l_debug_enabled := okl_debug_pub.check_log_enabled;
1314: is_debug_procedure_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_PROCEDURE);
1315: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
1316: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRSIOB.pls call pool_assoc_report');
1317: END IF;
1318: -- check for logging on STATEMENT level
1312: BEGIN
1313: l_debug_enabled := okl_debug_pub.check_log_enabled;
1314: is_debug_procedure_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_PROCEDURE);
1315: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
1316: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRSIOB.pls call pool_assoc_report');
1317: END IF;
1318: -- check for logging on STATEMENT level
1319: is_debug_statement_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_STATEMENT);
1320:
1315: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
1316: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRSIOB.pls call pool_assoc_report');
1317: END IF;
1318: -- check for logging on STATEMENT level
1319: is_debug_statement_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_STATEMENT);
1320:
1321: l_api_version := 1.0;
1322: l_init_msg_list := Okl_Api.g_false;
1323: l_msg_count := 0;
1361: l_pool_rec := get_parent_record(p_pool_id);
1362: -- if that record is found then print the parent header and record.
1363:
1364: IF(NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on) THEN
1365: okl_debug_pub.log_debug(FND_LOG.LEVEL_STATEMENT,
1366: l_module,
1367: 'l_pool_rec.id '||l_pool_rec.id
1368: );
1369: END IF; -- end of NVL(l_debug_enabled,'N')='Y'
1388: -- If the child record exists then print the child header and all the
1389: -- child records of the parent pool.
1390:
1391: IF(NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on) THEN
1392: okl_debug_pub.log_debug(FND_LOG.LEVEL_STATEMENT,
1393: l_module,
1394: 'l_subsidy_pool_tbl.count '||l_subsidy_pool_tbl.count
1395: );
1396: END IF; -- end of NVL(l_debug_enabled,'N')='Y'
1424: l_tbl := get_child_record(l_subsidy_pool_tbl(i).id);
1425: -- If child record is found then print this record as a parent and then print all the
1426: -- child records of this pool.
1427: IF(NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on) THEN
1428: okl_debug_pub.log_debug(FND_LOG.LEVEL_STATEMENT,
1429: l_module,
1430: 'l_tbl.count '||l_tbl.count
1431: );
1432: END IF; -- end of NVL(l_debug_enabled,'N')='Y'
1471: END IF;
1472: okl_api.END_ACTIVITY(l_msg_count, l_msg_data);
1473:
1474: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
1475: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRSIOB.pls call pool_assoc_report');
1476: END IF;
1477:
1478: EXCEPTION
1479: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1561: l_msg_data VARCHAR2(2000);
1562: l_return_status VARCHAR2(1);
1563: l_api_version NUMBER;
1564: l_init_msg_list VARCHAR2(1);
1565: l_module CONSTANT fnd_log_messages.module%TYPE := 'okl.plsql.OKL_SUBSIDY_POOL_RPT_PVT.PRINT_POOL_SUMMARY';
1566: l_debug_enabled VARCHAR2(10);
1567: is_debug_procedure_on BOOLEAN;
1568: is_debug_statement_on BOOLEAN;
1569:
1568: is_debug_statement_on BOOLEAN;
1569:
1570: BEGIN
1571: l_debug_enabled := okl_debug_pub.check_log_enabled;
1572: is_debug_procedure_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_PROCEDURE);
1573: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
1574: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRSIOB.pls call print_pool_summary');
1575: END IF;
1576: -- check for logging on STATEMENT level
1570: BEGIN
1571: l_debug_enabled := okl_debug_pub.check_log_enabled;
1572: is_debug_procedure_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_PROCEDURE);
1573: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
1574: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRSIOB.pls call print_pool_summary');
1575: END IF;
1576: -- check for logging on STATEMENT level
1577: is_debug_statement_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_STATEMENT);
1578:
1573: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
1574: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRSIOB.pls call print_pool_summary');
1575: END IF;
1576: -- check for logging on STATEMENT level
1577: is_debug_statement_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_STATEMENT);
1578:
1579: l_api_version := 1.0;
1580: l_init_msg_list := Okl_Api.g_false;
1581: l_msg_count := 0;
1648: -- remaining balance for subsidy pool is total budgets minus the total transaction amount.
1649: l_remaining_balance := l_budget - l_trx_amt;
1650:
1651: IF(NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on) THEN
1652: okl_debug_pub.log_debug(FND_LOG.LEVEL_STATEMENT,
1653: l_module,
1654: ' l_budget '||l_budget||' l_trx_amt '||l_trx_amt
1655: ||'l_remaining_balance'||l_remaining_balance
1656: );
1717: x_msg_data := l_msg_data;
1718: x_msg_count := l_msg_count;
1719:
1720: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
1721: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRSIOB.pls call print_pool_summary');
1722: END IF;
1723:
1724: EXCEPTION
1725: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1890: l_msg_data VARCHAR2(2000);
1891: l_return_status VARCHAR2(1);
1892: l_api_version NUMBER;
1893: l_init_msg_list VARCHAR2(1);
1894: l_module CONSTANT fnd_log_messages.module%TYPE := 'okl.plsql.OKL_SUBSIDY_POOL_RPT_PVT.PRINT_TRANSACTION_SUMMARY';
1895: l_debug_enabled VARCHAR2(10);
1896: is_debug_procedure_on BOOLEAN;
1897: is_debug_statement_on BOOLEAN;
1898:
1898:
1899: BEGIN
1900:
1901: l_debug_enabled := okl_debug_pub.check_log_enabled;
1902: is_debug_procedure_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_PROCEDURE);
1903:
1904: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
1905: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRSIOB.pls call print_transaction_summary');
1906: END IF;
1901: l_debug_enabled := okl_debug_pub.check_log_enabled;
1902: is_debug_procedure_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_PROCEDURE);
1903:
1904: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
1905: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRSIOB.pls call print_transaction_summary');
1906: END IF;
1907: -- check for logging on STATEMENT level
1908: is_debug_statement_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_STATEMENT);
1909:
1904: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
1905: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRSIOB.pls call print_transaction_summary');
1906: END IF;
1907: -- check for logging on STATEMENT level
1908: is_debug_statement_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_STATEMENT);
1909:
1910: l_api_version := 1.0;
1911: l_init_msg_list := Okl_Api.g_false;
1912: l_msg_count := 0;
2067: x_msg_data := l_msg_data;
2068: x_msg_count := l_msg_count;
2069:
2070: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
2071: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRSIOB.pls call print_transaction_summary');
2072: END IF;
2073:
2074: EXCEPTION
2075: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2146: l_count NUMBER;
2147: --length
2148: l_total_length CONSTANT NUMBER DEFAULT 152;
2149: l_sysdate DATE;
2150: l_module CONSTANT fnd_log_messages.module%TYPE := 'okl.plsql.OKL_SUBSIDY_POOL_RPT_PVT.POOL_RECONC_REPORT';
2151: l_debug_enabled VARCHAR2(10);
2152: is_debug_procedure_on BOOLEAN;
2153: is_debug_statement_on BOOLEAN;
2154:
2153: is_debug_statement_on BOOLEAN;
2154:
2155: BEGIN
2156: l_debug_enabled := okl_debug_pub.check_log_enabled;
2157: is_debug_procedure_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_PROCEDURE);
2158: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
2159: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRSIOB.pls call pool_reconc_report');
2160: END IF;
2161: -- check for logging on STATEMENT level
2155: BEGIN
2156: l_debug_enabled := okl_debug_pub.check_log_enabled;
2157: is_debug_procedure_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_PROCEDURE);
2158: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
2159: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRSIOB.pls call pool_reconc_report');
2160: END IF;
2161: -- check for logging on STATEMENT level
2162: is_debug_statement_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_STATEMENT);
2163:
2158: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
2159: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRSIOB.pls call pool_reconc_report');
2160: END IF;
2161: -- check for logging on STATEMENT level
2162: is_debug_statement_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_STATEMENT);
2163:
2164: l_api_version := 1.0;
2165: l_init_msg_list := Okl_Api.g_false;
2166: l_msg_count := 0;
2204: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_TO_DATE') || ' : ' || l_to_date);
2205: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('-', 100 , '-' ));
2206:
2207: IF(NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on) THEN
2208: okl_debug_pub.log_debug(FND_LOG.LEVEL_STATEMENT,
2209: l_module,
2210: 'l_pool_rec.id '||l_pool_rec.id
2211: );
2212: END IF; -- end of NVL(l_debug_enabled,'N')='Y'
2247:
2248: okl_api.END_ACTIVITY(l_msg_count, l_msg_data);
2249:
2250: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
2251: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRSIOB.pls call pool_reconc_report');
2252: END IF;
2253:
2254: EXCEPTION
2255: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2421: l_percent_len CONSTANT NUMBER DEFAULT 30;
2422: l_effective_to_len CONSTANT NUMBER DEFAULT 20;
2423: l_remaining_days_len CONSTANT NUMBER DEFAULT 20;
2424: l_total_length CONSTANT NUMBER DEFAULT 152;
2425: l_module CONSTANT fnd_log_messages.module%TYPE := 'okl.plsql.OKL_SUBSIDY_POOL_RPT_PVT.PRINT_ATLIMIT_DETAIL';
2426: l_debug_enabled VARCHAR2(10);
2427: is_debug_procedure_on BOOLEAN;
2428: is_debug_statement_on BOOLEAN;
2429: l_parameter_list WF_PARAMETER_LIST_T;
2438:
2439: BEGIN
2440:
2441: l_debug_enabled := okl_debug_pub.check_log_enabled;
2442: is_debug_procedure_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_PROCEDURE);
2443: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
2444: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRSIOB.pls call print_atlimit_detail');
2445: END IF;
2446: -- check for logging on STATEMENT level
2440:
2441: l_debug_enabled := okl_debug_pub.check_log_enabled;
2442: is_debug_procedure_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_PROCEDURE);
2443: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
2444: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRSIOB.pls call print_atlimit_detail');
2445: END IF;
2446: -- check for logging on STATEMENT level
2447: is_debug_statement_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_STATEMENT);
2448:
2443: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
2444: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRSIOB.pls call print_atlimit_detail');
2445: END IF;
2446: -- check for logging on STATEMENT level
2447: is_debug_statement_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_STATEMENT);
2448:
2449: l_api_version := 1.0;
2450: l_init_msg_list := Okl_Api.g_false;
2451: l_msg_count := 0;
2632: x_msg_data := l_msg_data;
2633: x_msg_count := l_msg_count;
2634:
2635: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
2636: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRSIOB.pls call print_atlimit_detail');
2637: END IF;
2638:
2639: EXCEPTION
2640: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2696: l_return_status VARCHAR2(1);
2697: l_api_version NUMBER;
2698: l_init_msg_list VARCHAR2(1);
2699: l_total_length CONSTANT NUMBER DEFAULT 152;
2700: l_module CONSTANT fnd_log_messages.module%TYPE := 'okl.plsql.OKL_SUBSIDY_POOL_RPT_PVT.POOL_ATLIMIT_REPORT';
2701: l_debug_enabled VARCHAR2(10);
2702: is_debug_procedure_on BOOLEAN;
2703: is_debug_statement_on BOOLEAN;
2704:
2703: is_debug_statement_on BOOLEAN;
2704:
2705: BEGIN
2706: l_debug_enabled := okl_debug_pub.check_log_enabled;
2707: is_debug_procedure_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_PROCEDURE);
2708: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
2709: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRSIOB.pls call pool_atlimit_report');
2710: END IF;
2711: -- check for logging on STATEMENT level
2705: BEGIN
2706: l_debug_enabled := okl_debug_pub.check_log_enabled;
2707: is_debug_procedure_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_PROCEDURE);
2708: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
2709: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRSIOB.pls call pool_atlimit_report');
2710: END IF;
2711: -- check for logging on STATEMENT level
2712: is_debug_statement_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_STATEMENT);
2713:
2708: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
2709: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRSIOB.pls call pool_atlimit_report');
2710: END IF;
2711: -- check for logging on STATEMENT level
2712: is_debug_statement_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_STATEMENT);
2713:
2714: l_api_version := 1.0;
2715: l_init_msg_list := Okl_Api.g_false;
2716: l_msg_count := 0;
2789:
2790: okl_api.END_ACTIVITY(l_msg_count, l_msg_data);
2791:
2792: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
2793: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRSIOB.pls call pool_atlimit_report');
2794: END IF;
2795:
2796: EXCEPTION
2797: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2891: l_msg_data VARCHAR2(2000);
2892: l_return_status VARCHAR2(1);
2893: l_api_version NUMBER ;
2894: l_init_msg_list VARCHAR2(1);
2895: l_module CONSTANT fnd_log_messages.module%TYPE := 'okl.plsql.OKL_SUBSIDY_POOL_RPT_PVT.GET_POOL_AMOUNTS';
2896: l_debug_enabled VARCHAR2(10);
2897: is_debug_procedure_on BOOLEAN;
2898: is_debug_statement_on BOOLEAN;
2899:
2898: is_debug_statement_on BOOLEAN;
2899:
2900: BEGIN
2901: l_debug_enabled := okl_debug_pub.check_log_enabled;
2902: is_debug_procedure_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_PROCEDURE);
2903: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
2904: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRSIOB.pls call GET_POOL_AMOUNTS');
2905: END IF;
2906: -- check for logging on STATEMENT level
2900: BEGIN
2901: l_debug_enabled := okl_debug_pub.check_log_enabled;
2902: is_debug_procedure_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_PROCEDURE);
2903: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
2904: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRSIOB.pls call GET_POOL_AMOUNTS');
2905: END IF;
2906: -- check for logging on STATEMENT level
2907: is_debug_statement_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_STATEMENT);
2908:
2903: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
2904: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRSIOB.pls call GET_POOL_AMOUNTS');
2905: END IF;
2906: -- check for logging on STATEMENT level
2907: is_debug_statement_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_STATEMENT);
2908:
2909: l_api_version := 1.0;
2910: l_init_msg_list := Okl_Api.g_false;
2911: l_msg_count := 0;
3022: END IF;
3023: l_remaining_balance := l_total_budget - l_trx_amount;
3024:
3025: IF(NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on) THEN
3026: okl_debug_pub.log_debug(FND_LOG.LEVEL_STATEMENT,
3027: l_module,
3028: 'l_reporting_limit '||l_reporting_limit||' l_total_budget '
3029: ||l_total_budget||' l_trx_amount '||l_trx_amount
3030: ||'l_remaining_balance'||l_remaining_balance
3042:
3043: RETURN x_pool_dtl_rec;
3044:
3045: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
3046: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRSIOB.pls call GET_POOL_AMOUNTS');
3047: END IF;
3048:
3049: EXCEPTION
3050: WHEN OTHERS THEN
3128: l_return_status VARCHAR2(1);
3129: l_api_version NUMBER;
3130: l_init_msg_list VARCHAR2(1);
3131: l_sysdate DATE ;
3132: l_module CONSTANT fnd_log_messages.module%TYPE := 'okl.plsql.OKL_SUBSIDY_POOL_RPT_PVT.XML_POOL_ASSOC_REPORT';
3133: l_debug_enabled VARCHAR2(10);
3134: is_debug_procedure_on BOOLEAN;
3135: is_debug_statement_on BOOLEAN;
3136:
3135: is_debug_statement_on BOOLEAN;
3136:
3137: BEGIN
3138: l_debug_enabled := okl_debug_pub.check_log_enabled;
3139: is_debug_procedure_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_PROCEDURE);
3140: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
3141: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRSIOB.pls call XML_POOL_ASSOC_REPORT');
3142: END IF;
3143: -- check for logging on STATEMENT level
3137: BEGIN
3138: l_debug_enabled := okl_debug_pub.check_log_enabled;
3139: is_debug_procedure_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_PROCEDURE);
3140: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
3141: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRSIOB.pls call XML_POOL_ASSOC_REPORT');
3142: END IF;
3143: -- check for logging on STATEMENT level
3144: is_debug_statement_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_STATEMENT);
3145:
3140: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
3141: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRSIOB.pls call XML_POOL_ASSOC_REPORT');
3142: END IF;
3143: -- check for logging on STATEMENT level
3144: is_debug_statement_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_STATEMENT);
3145:
3146: l_api_version := 1.0;
3147: l_init_msg_list := Okl_Api.g_false;
3148: l_msg_count := 0;
3179: CLOSE get_pool_dtls;
3180:
3181:
3182: IF(NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on) THEN
3183: okl_debug_pub.log_debug(FND_LOG.LEVEL_STATEMENT,
3184: l_module,
3185: 'l_pool_rec.id '||l_pool_rec.id
3186: );
3187: END IF; -- end of NVL(l_debug_enabled,'N')='Y'
3212: FETCH get_pool_dtls INTO l_chld_pool_rec;
3213: CLOSE get_pool_dtls;
3214:
3215: IF(NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on) THEN
3216: okl_debug_pub.log_debug(FND_LOG.LEVEL_STATEMENT,
3217: l_module,
3218: 'l_chld_pool_rec.id '||l_chld_pool_rec.id
3219: );
3220: END IF; -- end of NVL(l_debug_enabled,'N')='Y'
3275: END LOOP;
3276: okl_api.END_ACTIVITY(l_msg_count, l_msg_data);
3277:
3278: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
3279: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRSIOB.pls call XML_POOL_ASSOC_REPORT');
3280: END IF;
3281: RETURN TRUE;
3282: EXCEPTION
3283: WHEN OTHERS THEN
3421: x_return_status VARCHAR2(1);
3422: x_msg_count NUMBER;
3423: x_msg_data VARCHAR2(2000);
3424: l_date DATE;
3425: l_module CONSTANT fnd_log_messages.module%TYPE := 'okl.plsql.OKL_SUBSIDY_POOL_RPT_PVT.XML_PRINT_ATLIMIT_DETAIL';
3426: l_debug_enabled VARCHAR2(10);
3427: is_debug_procedure_on BOOLEAN;
3428: is_debug_statement_on BOOLEAN;
3429: l_parameter_list WF_PARAMETER_LIST_T;
3438:
3439: BEGIN
3440:
3441: l_debug_enabled := okl_debug_pub.check_log_enabled;
3442: is_debug_procedure_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_PROCEDURE);
3443: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
3444: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRSIOB.pls call xml_print_atlimit_detail');
3445: END IF;
3446: -- check for logging on STATEMENT level
3440:
3441: l_debug_enabled := okl_debug_pub.check_log_enabled;
3442: is_debug_procedure_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_PROCEDURE);
3443: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
3444: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRSIOB.pls call xml_print_atlimit_detail');
3445: END IF;
3446: -- check for logging on STATEMENT level
3447: is_debug_statement_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_STATEMENT);
3448:
3443: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
3444: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRSIOB.pls call xml_print_atlimit_detail');
3445: END IF;
3446: -- check for logging on STATEMENT level
3447: is_debug_statement_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_STATEMENT);
3448:
3449: l_api_version := 1.0;
3450: l_init_msg_list := Okl_Api.g_false;
3451: l_msg_count := 0;
3716: x_msg_data := l_msg_data;
3717: x_msg_count := l_msg_count;
3718:
3719: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
3720: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRSIOB.pls call xml_print_atlimit_detail');
3721: END IF;
3722: RETURN TRUE;
3723: EXCEPTION
3724: WHEN OTHERS THEN
3779: l_msg_data VARCHAR2(2000);
3780: l_return_status VARCHAR2(1);
3781: l_api_version NUMBER;
3782: l_init_msg_list VARCHAR2(1);
3783: l_module CONSTANT fnd_log_messages.module%TYPE := 'okl.plsql.OKL_SUBSIDY_POOL_RPT_PVT.xml_print_pool_summary';
3784: l_debug_enabled VARCHAR2(10);
3785: is_debug_procedure_on BOOLEAN;
3786: is_debug_statement_on BOOLEAN;
3787:
3786: is_debug_statement_on BOOLEAN;
3787:
3788: BEGIN
3789: l_debug_enabled := okl_debug_pub.check_log_enabled;
3790: is_debug_procedure_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_PROCEDURE);
3791: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
3792: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRSIOB.pls call xml_print_pool_summary');
3793: END IF;
3794: -- check for logging on STATEMENT level
3788: BEGIN
3789: l_debug_enabled := okl_debug_pub.check_log_enabled;
3790: is_debug_procedure_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_PROCEDURE);
3791: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
3792: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRSIOB.pls call xml_print_pool_summary');
3793: END IF;
3794: -- check for logging on STATEMENT level
3795: is_debug_statement_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_STATEMENT);
3796:
3791: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
3792: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRSIOB.pls call xml_print_pool_summary');
3793: END IF;
3794: -- check for logging on STATEMENT level
3795: is_debug_statement_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_STATEMENT);
3796:
3797: l_api_version := 1.0;
3798: l_init_msg_list := Okl_Api.g_false;
3799: l_msg_count := 0;
3854: -- remaining balance for subsidy pool is total budgets minus the total transaction amount.
3855: l_remaining_balance := l_budget - l_trx_amt;
3856:
3857: IF(NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on) THEN
3858: okl_debug_pub.log_debug(FND_LOG.LEVEL_STATEMENT,
3859: l_module,
3860: ' l_budget '||l_budget||' l_trx_amt '||l_trx_amt
3861: ||'l_remaining_balance'||l_remaining_balance
3862: );
3934: x_msg_data := l_msg_data;
3935: x_msg_count := l_msg_count;
3936:
3937: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
3938: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRSIOB.pls call xml_print_pool_summary');
3939: END IF;
3940:
3941: EXCEPTION
3942: WHEN OTHERS THEN
4042: l_msg_data VARCHAR2(2000);
4043: l_return_status VARCHAR2(1);
4044: l_api_version NUMBER;
4045: l_init_msg_list VARCHAR2(1);
4046: l_module CONSTANT fnd_log_messages.module%TYPE := 'okl.plsql.OKL_SUBSIDY_POOL_RPT_PVT.xml_print_transaction_summary';
4047: l_debug_enabled VARCHAR2(10);
4048: is_debug_procedure_on BOOLEAN;
4049: is_debug_statement_on BOOLEAN;
4050:
4050:
4051: BEGIN
4052:
4053: l_debug_enabled := okl_debug_pub.check_log_enabled;
4054: is_debug_procedure_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_PROCEDURE);
4055:
4056: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
4057: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRSIOB.pls call xml_print_transaction_summary');
4058: END IF;
4053: l_debug_enabled := okl_debug_pub.check_log_enabled;
4054: is_debug_procedure_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_PROCEDURE);
4055:
4056: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
4057: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRSIOB.pls call xml_print_transaction_summary');
4058: END IF;
4059: -- check for logging on STATEMENT level
4060: is_debug_statement_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_STATEMENT);
4061:
4056: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
4057: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRSIOB.pls call xml_print_transaction_summary');
4058: END IF;
4059: -- check for logging on STATEMENT level
4060: is_debug_statement_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_STATEMENT);
4061:
4062: l_api_version := 1.0;
4063: l_init_msg_list := Okl_Api.g_false;
4064: l_msg_count := 0;
4216: x_msg_data := l_msg_data;
4217: x_msg_count := l_msg_count;
4218:
4219: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
4220: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRSIOB.pls call xml_print_transaction_summary');
4221: END IF;
4222:
4223: EXCEPTION
4224: WHEN OTHERS THEN
4266: l_api_version NUMBER;
4267: l_init_msg_list VARCHAR2(1);
4268: l_count NUMBER;
4269: l_sysdate DATE;
4270: l_module CONSTANT fnd_log_messages.module%TYPE := 'okl.plsql.OKL_SUBSIDY_POOL_RPT_PVT.XML_POOL_RECONC_REPORT';
4271: l_debug_enabled VARCHAR2(10);
4272: is_debug_procedure_on BOOLEAN;
4273: is_debug_statement_on BOOLEAN;
4274:
4273: is_debug_statement_on BOOLEAN;
4274:
4275: BEGIN
4276: l_debug_enabled := okl_debug_pub.check_log_enabled;
4277: is_debug_procedure_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_PROCEDURE);
4278: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
4279: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRSIOB.pls call XML_POOL_RECONC_REPORT');
4280: END IF;
4281: -- check for logging on STATEMENT level
4275: BEGIN
4276: l_debug_enabled := okl_debug_pub.check_log_enabled;
4277: is_debug_procedure_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_PROCEDURE);
4278: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
4279: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRSIOB.pls call XML_POOL_RECONC_REPORT');
4280: END IF;
4281: -- check for logging on STATEMENT level
4282: is_debug_statement_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_STATEMENT);
4283:
4278: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
4279: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRSIOB.pls call XML_POOL_RECONC_REPORT');
4280: END IF;
4281: -- check for logging on STATEMENT level
4282: is_debug_statement_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_STATEMENT);
4283:
4284: l_api_version := 1.0;
4285: l_init_msg_list := Okl_Api.g_false;
4286: l_msg_count := 0;
4305: -- Get the record for user entered pool name.
4306: l_pool_rec := get_parent_record(P_POOL_ID);
4307:
4308: IF(NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on) THEN
4309: okl_debug_pub.log_debug(FND_LOG.LEVEL_STATEMENT,
4310: l_module,
4311: 'l_pool_rec.id '||l_pool_rec.id
4312: );
4313: END IF; -- end of NVL(l_debug_enabled,'N')='Y'
4348:
4349: okl_api.END_ACTIVITY(l_msg_count, l_msg_data);
4350:
4351: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
4352: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRSIOB.pls call XML_POOL_RECONC_REPORT');
4353: END IF;
4354: RETURN TRUE;
4355: EXCEPTION
4356: WHEN OTHERS THEN