372: fnd_message.set_token('FROM_CURR',
373: p_from_currency_code);
374: fnd_message.set_token('TO_CURR',
375: p_to_currency_code);
376: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get);
377: END IF;
378:
379: IF (each_row.budget_type_code = 'ADDITION' AND each_row.decision_status_code = 'ACTIVE') THEN
380: l_total_budget := l_total_budget + l_amount;
555: fnd_message.set_token('FROM_CURR',
556: p_from_currency_code);
557: fnd_message.set_token('TO_CURR',
558: p_to_currency_code);
559: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get);
560: END IF;
561: IF (each_row.trx_type_code = 'ADDITION') THEN
562: l_trx_amount := l_trx_amount - l_amount;
563: ELSIF(each_row.trx_type_code = 'REDUCTION') THEN
765: RAISE OKL_API.G_EXCEPTION_ERROR;
766: END IF;
767:
768: -- Parent pool header with the parent pool name.
769: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
770: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
771: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_PARENT_POOL') || ' : '
772: || fnd_message.get_string('OKL',p_pool_rec.subsidy_pool_name));
773: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('-', 30 , '-' ));
766: END IF;
767:
768: -- Parent pool header with the parent pool name.
769: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
770: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
771: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_PARENT_POOL') || ' : '
772: || fnd_message.get_string('OKL',p_pool_rec.subsidy_pool_name));
773: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('-', 30 , '-' ));
774: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('-', l_total_length+8 , '-' ));
767:
768: -- Parent pool header with the parent pool name.
769: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
770: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
771: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_PARENT_POOL') || ' : '
772: || fnd_message.get_string('OKL',p_pool_rec.subsidy_pool_name));
773: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('-', 30 , '-' ));
774: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('-', l_total_length+8 , '-' ));
775: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,
769: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
770: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
771: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_PARENT_POOL') || ' : '
772: || fnd_message.get_string('OKL',p_pool_rec.subsidy_pool_name));
773: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('-', 30 , '-' ));
774: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('-', l_total_length+8 , '-' ));
775: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,
776: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_SUBSIDY_POOL_NAME'),l_Pool_Name_len,'TITLE')||' '||
777: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_POOL_TYPE_TXT'),l_Pool_Type_len,'TITLE')||' '||
770: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
771: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_PARENT_POOL') || ' : '
772: || fnd_message.get_string('OKL',p_pool_rec.subsidy_pool_name));
773: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('-', 30 , '-' ));
774: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('-', l_total_length+8 , '-' ));
775: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,
776: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_SUBSIDY_POOL_NAME'),l_Pool_Name_len,'TITLE')||' '||
777: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_POOL_TYPE_TXT'),l_Pool_Type_len,'TITLE')||' '||
778: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_AGN_RPT_CURRENCY'),l_Currency_Code_len,'TITLE')||' '||
771: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_PARENT_POOL') || ' : '
772: || fnd_message.get_string('OKL',p_pool_rec.subsidy_pool_name));
773: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('-', 30 , '-' ));
774: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('-', l_total_length+8 , '-' ));
775: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,
776: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_SUBSIDY_POOL_NAME'),l_Pool_Name_len,'TITLE')||' '||
777: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_POOL_TYPE_TXT'),l_Pool_Type_len,'TITLE')||' '||
778: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_AGN_RPT_CURRENCY'),l_Currency_Code_len,'TITLE')||' '||
779: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_SUBSIDY_POOL_LIMIT'),l_Pool_Limit_len,'TITLE')||' '||
778: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_AGN_RPT_CURRENCY'),l_Currency_Code_len,'TITLE')||' '||
779: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_SUBSIDY_POOL_LIMIT'),l_Pool_Limit_len,'TITLE')||' '||
780: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_POOL_BUDGET'),l_Budget_len,'TITLE')||' '||
781: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_POOL_BALANCE'),l_Remaining_Balance_len,'TITLE'));
782: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('=', l_total_length+8 , '=' ));
783: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
784: -- Convert the reporting pool limit amount from pool currency to the parent pool(user entered) currency.
785: l_reporting_limit := currency_conversion(p_pool_rec.reporting_pool_limit,
786: p_pool_rec.currency_code,
779: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_SUBSIDY_POOL_LIMIT'),l_Pool_Limit_len,'TITLE')||' '||
780: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_POOL_BUDGET'),l_Budget_len,'TITLE')||' '||
781: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_POOL_BALANCE'),l_Remaining_Balance_len,'TITLE'));
782: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('=', l_total_length+8 , '=' ));
783: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
784: -- Convert the reporting pool limit amount from pool currency to the parent pool(user entered) currency.
785: l_reporting_limit := currency_conversion(p_pool_rec.reporting_pool_limit,
786: p_pool_rec.currency_code,
787: p_to_currency_code,
795: fnd_message.set_token('FROM_CURR',
796: p_pool_rec.currency_code);
797: fnd_message.set_token('TO_CURR',
798: p_to_currency_code);
799: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get);
800: END IF;
801: -- If subsidy pool is of type reporting then, calculate the total budgets and remaining balance for that pool,
802: -- from all its children which are of type budget.
803: IF(p_pool_rec.pool_type_code = 'REPORTING') THEN
877: );
878: END IF; -- end of NVL(l_debug_enabled,'N')='Y'
879:
880: -- Print the parent pool record
881: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,
882: GET_PROPER_LENGTH(p_pool_rec.subsidy_pool_name,l_Pool_Name_len,'DATA')||' '||
883: GET_PROPER_LENGTH(p_pool_rec.pool_type_code,l_Pool_Type_len,'DATA')||' '||
884: GET_PROPER_LENGTH(p_to_currency_code,l_Currency_Code_len,'DATA')||' '||
885: GET_PROPER_LENGTH(okl_accounting_util.format_amount(l_reporting_limit,p_to_currency_code),l_Pool_Limit_len,'DATA')||' '||
884: GET_PROPER_LENGTH(p_to_currency_code,l_Currency_Code_len,'DATA')||' '||
885: GET_PROPER_LENGTH(okl_accounting_util.format_amount(l_reporting_limit,p_to_currency_code),l_Pool_Limit_len,'DATA')||' '||
886: GET_PROPER_LENGTH(okl_accounting_util.format_amount(l_total_budget,p_to_currency_code),l_Budget_len,'DATA')||' '||
887: GET_PROPER_LENGTH(okl_accounting_util.format_amount(l_remaining_balance,p_to_currency_code),l_Remaining_Balance_len,'DATA'));
888: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('-', l_total_length+8 , '-' ));
889:
890: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
891: x_return_status := l_return_status;
892: x_msg_data := l_msg_data;
1086: RAISE OKL_API.G_EXCEPTION_ERROR;
1087: END IF;
1088:
1089: -- Print child header.
1090: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
1091: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CHILDREN_POOL'));
1092: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('-', 30 , '-' ));
1093: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('-', l_total_length+8 , '-' ));
1094: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,
1087: END IF;
1088:
1089: -- Print child header.
1090: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
1091: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CHILDREN_POOL'));
1092: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('-', 30 , '-' ));
1093: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('-', l_total_length+8 , '-' ));
1094: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,
1095: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_SUBSIDY_POOL_NAME'),l_Pool_Name_len,'TITLE')||' '||
1088:
1089: -- Print child header.
1090: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
1091: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CHILDREN_POOL'));
1092: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('-', 30 , '-' ));
1093: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('-', l_total_length+8 , '-' ));
1094: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,
1095: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_SUBSIDY_POOL_NAME'),l_Pool_Name_len,'TITLE')||' '||
1096: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_POOL_TYPE_TXT'),l_Pool_Type_len,'TITLE')||' '||
1089: -- Print child header.
1090: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
1091: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CHILDREN_POOL'));
1092: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('-', 30 , '-' ));
1093: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('-', l_total_length+8 , '-' ));
1094: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,
1095: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_SUBSIDY_POOL_NAME'),l_Pool_Name_len,'TITLE')||' '||
1096: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_POOL_TYPE_TXT'),l_Pool_Type_len,'TITLE')||' '||
1097: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_AGN_RPT_CURRENCY'),l_Currency_Code_len,'TITLE')||' '||
1090: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
1091: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CHILDREN_POOL'));
1092: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('-', 30 , '-' ));
1093: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('-', l_total_length+8 , '-' ));
1094: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,
1095: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_SUBSIDY_POOL_NAME'),l_Pool_Name_len,'TITLE')||' '||
1096: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_POOL_TYPE_TXT'),l_Pool_Type_len,'TITLE')||' '||
1097: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_AGN_RPT_CURRENCY'),l_Currency_Code_len,'TITLE')||' '||
1098: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_SUBSIDY_POOL_LIMIT'),l_Pool_Limit_len,'TITLE')||' '||
1097: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_AGN_RPT_CURRENCY'),l_Currency_Code_len,'TITLE')||' '||
1098: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_SUBSIDY_POOL_LIMIT'),l_Pool_Limit_len,'TITLE')||' '||
1099: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_POOL_BUDGET'),l_Budget_len,'TITLE')||' '||
1100: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_POOL_BALANCE'),l_Remaining_Balance_len,'TITLE'));
1101: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('=', l_total_length+8 , '=' ));
1102: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
1103:
1104: -- For all the records in a table, print the records.
1105: FOR i IN p_pool_tbl.first..p_pool_tbl.last LOOP
1098: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_SUBSIDY_POOL_LIMIT'),l_Pool_Limit_len,'TITLE')||' '||
1099: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_POOL_BUDGET'),l_Budget_len,'TITLE')||' '||
1100: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_POOL_BALANCE'),l_Remaining_Balance_len,'TITLE'));
1101: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('=', l_total_length+8 , '=' ));
1102: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
1103:
1104: -- For all the records in a table, print the records.
1105: FOR i IN p_pool_tbl.first..p_pool_tbl.last LOOP
1106: l_total_budget := 0;
1188: fnd_message.set_token('FROM_CURR',
1189: p_pool_tbl(i).currency_code);
1190: fnd_message.set_token('TO_CURR',
1191: p_to_currency_code);
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,
1201: );
1202: END IF; -- end of NVL(l_debug_enabled,'N')='Y'
1203:
1204: -- Print the child records
1205: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,
1206: GET_PROPER_LENGTH(p_pool_tbl(i).subsidy_pool_name,l_Pool_Name_len,'DATA')||' '||
1207: GET_PROPER_LENGTH(p_pool_tbl(i).pool_type_code,l_Pool_Type_len,'DATA')||' '||
1208: GET_PROPER_LENGTH(p_to_currency_code,l_Currency_Code_len,'DATA')||' '||
1209: GET_PROPER_LENGTH(okl_accounting_util.format_amount(l_reporting_limit,p_to_currency_code)
1210: ,l_Pool_Limit_len,'DATA')||' '||
1211: GET_PROPER_LENGTH(okl_accounting_util.format_amount(l_total_budget,p_to_currency_code),l_Budget_len,'DATA')||' '||
1212: GET_PROPER_LENGTH(okl_accounting_util.format_amount(l_remaining_balance,p_to_currency_code),l_Remaining_Balance_len,'DATA'));
1213: END LOOP;
1214: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('-', l_total_length+8 , '-' ));
1215:
1216: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
1217: x_return_status := l_return_status;
1218: x_msg_data := l_msg_data;
1345:
1346: l_from_date:= FND_DATE.CANONICAL_TO_DATE(p_date);
1347:
1348: -- Printing Subsidy pools report header.
1349: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', 52 , ' ' ) || fnd_message.get_string('OKL','OKLHOMENAVTITLE') ||
1350: RPAD(' ', 53 , ' ' ));
1351: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
1352: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
1353: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', 52 , ' ' ) || fnd_message.get_string('OKL','OKL_SUBSIDY_POOL_REPORT') ||
1347:
1348: -- Printing Subsidy pools report header.
1349: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', 52 , ' ' ) || fnd_message.get_string('OKL','OKLHOMENAVTITLE') ||
1350: RPAD(' ', 53 , ' ' ));
1351: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
1352: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
1353: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', 52 , ' ' ) || fnd_message.get_string('OKL','OKL_SUBSIDY_POOL_REPORT') ||
1354: RPAD(' ', 53 , ' ' ));
1355: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ',50, ' ' ) || '-------------------------------' || RPAD(' ', 51, ' ' ));
1348: -- Printing Subsidy pools report header.
1349: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', 52 , ' ' ) || fnd_message.get_string('OKL','OKLHOMENAVTITLE') ||
1350: RPAD(' ', 53 , ' ' ));
1351: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
1352: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
1353: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', 52 , ' ' ) || fnd_message.get_string('OKL','OKL_SUBSIDY_POOL_REPORT') ||
1354: RPAD(' ', 53 , ' ' ));
1355: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ',50, ' ' ) || '-------------------------------' || RPAD(' ', 51, ' ' ));
1356: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
1349: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', 52 , ' ' ) || fnd_message.get_string('OKL','OKLHOMENAVTITLE') ||
1350: RPAD(' ', 53 , ' ' ));
1351: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
1352: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
1353: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', 52 , ' ' ) || fnd_message.get_string('OKL','OKL_SUBSIDY_POOL_REPORT') ||
1354: RPAD(' ', 53 , ' ' ));
1355: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ',50, ' ' ) || '-------------------------------' || RPAD(' ', 51, ' ' ));
1356: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
1357: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
1351: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
1352: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
1353: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', 52 , ' ' ) || fnd_message.get_string('OKL','OKL_SUBSIDY_POOL_REPORT') ||
1354: RPAD(' ', 53 , ' ' ));
1355: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ',50, ' ' ) || '-------------------------------' || RPAD(' ', 51, ' ' ));
1356: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
1357: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
1358: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
1359:
1352: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
1353: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', 52 , ' ' ) || fnd_message.get_string('OKL','OKL_SUBSIDY_POOL_REPORT') ||
1354: RPAD(' ', 53 , ' ' ));
1355: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ',50, ' ' ) || '-------------------------------' || RPAD(' ', 51, ' ' ));
1356: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
1357: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
1358: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
1359:
1360: -- Get the parent record, the record for the pool which user has entered.
1353: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', 52 , ' ' ) || fnd_message.get_string('OKL','OKL_SUBSIDY_POOL_REPORT') ||
1354: RPAD(' ', 53 , ' ' ));
1355: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ',50, ' ' ) || '-------------------------------' || RPAD(' ', 51, ' ' ));
1356: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
1357: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
1358: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
1359:
1360: -- Get the parent record, the record for the pool which user has entered.
1361: l_pool_rec := get_parent_record(p_pool_id);
1354: RPAD(' ', 53 , ' ' ));
1355: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ',50, ' ' ) || '-------------------------------' || RPAD(' ', 51, ' ' ));
1356: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
1357: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
1358: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
1359:
1360: -- Get the parent record, the record for the pool which user has entered.
1361: l_pool_rec := get_parent_record(p_pool_id);
1362: -- if that record is found then print the parent header and record.
1497: WHEN OTHERS THEN
1498: x_errbuf := SQLERRM;
1499: x_retcode := 2;
1500:
1501: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLERRM);
1502:
1503: IF (SQLCODE <> -20001) THEN
1504: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLCODE||SQLERRM);
1505: --APP_EXCEPTION.RAISE_EXCEPTION;
1500:
1501: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLERRM);
1502:
1503: IF (SQLCODE <> -20001) THEN
1504: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLCODE||SQLERRM);
1505: --APP_EXCEPTION.RAISE_EXCEPTION;
1506: RAISE;
1507: ELSE
1508: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLCODE||SQLERRM);
1504: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLCODE||SQLERRM);
1505: --APP_EXCEPTION.RAISE_EXCEPTION;
1506: RAISE;
1507: ELSE
1508: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLCODE||SQLERRM);
1509: --g_error_message := Sqlerrm;
1510: APP_EXCEPTION.RAISE_EXCEPTION;
1511: END IF;
1512:
1602: -- from the okl_subsidy_pools_b table and calculate the total transaction amount
1603: -- from the okl_trx_subsidy_pools table.
1604: IF (p_pool_rec.pool_type_code = 'BUDGET') THEN
1605: -- Parent pool header with the parent pool name.
1606: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
1607: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
1608: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('-', l_total_length+8 , '-' ));
1609: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,
1610: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_SUBSIDY_POOL_NAME'),l_Pool_Name_len,'TITLE')||' '||
1603: -- from the okl_trx_subsidy_pools table.
1604: IF (p_pool_rec.pool_type_code = 'BUDGET') THEN
1605: -- Parent pool header with the parent pool name.
1606: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
1607: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
1608: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('-', l_total_length+8 , '-' ));
1609: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,
1610: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_SUBSIDY_POOL_NAME'),l_Pool_Name_len,'TITLE')||' '||
1611: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_POOL_TYPE_TXT'),l_Pool_Type_len,'TITLE')||' '||
1604: IF (p_pool_rec.pool_type_code = 'BUDGET') THEN
1605: -- Parent pool header with the parent pool name.
1606: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
1607: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
1608: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('-', l_total_length+8 , '-' ));
1609: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,
1610: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_SUBSIDY_POOL_NAME'),l_Pool_Name_len,'TITLE')||' '||
1611: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_POOL_TYPE_TXT'),l_Pool_Type_len,'TITLE')||' '||
1612: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_AGN_RPT_CURRENCY'),l_Currency_Code_len,'TITLE')||' '||
1605: -- Parent pool header with the parent pool name.
1606: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
1607: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
1608: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('-', l_total_length+8 , '-' ));
1609: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,
1610: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_SUBSIDY_POOL_NAME'),l_Pool_Name_len,'TITLE')||' '||
1611: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_POOL_TYPE_TXT'),l_Pool_Type_len,'TITLE')||' '||
1612: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_AGN_RPT_CURRENCY'),l_Currency_Code_len,'TITLE')||' '||
1613: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_POOL_BUDGET'),l_Budget_len,'TITLE')||' '||
1612: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_AGN_RPT_CURRENCY'),l_Currency_Code_len,'TITLE')||' '||
1613: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_POOL_BUDGET'),l_Budget_len,'TITLE')||' '||
1614: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_TRX_AMOUNT'),l_trx_amt_len,'TITLE')||' '||
1615: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_POOL_BALANCE'),l_Remaining_Balance_len,'TITLE'));
1616: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('=', l_total_length+8 , '=' ));
1617: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
1618: -- Calculate the total budgets for subsidy pool till the date specified.
1619: l_budget := total_budgets( p_pool_rec.id,
1620: p_to_date,
1613: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_POOL_BUDGET'),l_Budget_len,'TITLE')||' '||
1614: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_TRX_AMOUNT'),l_trx_amt_len,'TITLE')||' '||
1615: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_POOL_BALANCE'),l_Remaining_Balance_len,'TITLE'));
1616: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('=', l_total_length+8 , '=' ));
1617: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
1618: -- Calculate the total budgets for subsidy pool till the date specified.
1619: l_budget := total_budgets( p_pool_rec.id,
1620: p_to_date,
1621: p_pool_rec.currency_code,
1656: );
1657: END IF; -- end of NVL(l_debug_enabled,'N')='Y'
1658:
1659: -- Print the parent pool record
1660: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,
1661: GET_PROPER_LENGTH(p_pool_rec.subsidy_pool_name,l_Pool_Name_len,'DATA')||' '||
1662: GET_PROPER_LENGTH(p_pool_rec.pool_type_code,l_Pool_Type_len,'DATA')||' '||
1663: GET_PROPER_LENGTH(p_pool_rec.currency_code,l_Currency_Code_len,'DATA')||' '||
1664: GET_PROPER_LENGTH(okl_accounting_util.format_amount(l_budget,p_pool_rec.currency_code),l_Budget_len,'DATA')||' '||
1663: GET_PROPER_LENGTH(p_pool_rec.currency_code,l_Currency_Code_len,'DATA')||' '||
1664: GET_PROPER_LENGTH(okl_accounting_util.format_amount(l_budget,p_pool_rec.currency_code),l_Budget_len,'DATA')||' '||
1665: GET_PROPER_LENGTH(okl_accounting_util.format_amount(l_trx_amt,p_pool_rec.currency_code),l_trx_amt_len,'DATA')||' '||
1666: GET_PROPER_LENGTH(okl_accounting_util.format_amount(l_remaining_balance,p_pool_rec.currency_code),l_Remaining_Balance_len,'DATA'));
1667: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('-', l_total_length+8 , '-' ));
1668:
1669: -- if subsidy pool type is "Reporting" then the total budgets and total transaction amount
1670: -- is calculated from its children as there is no transaction and budgets for pool type "Reporting"
1671: ELSIF (p_pool_rec.pool_type_code = 'REPORTING') THEN
1669: -- if subsidy pool type is "Reporting" then the total budgets and total transaction amount
1670: -- is calculated from its children as there is no transaction and budgets for pool type "Reporting"
1671: ELSIF (p_pool_rec.pool_type_code = 'REPORTING') THEN
1672: -- Parent pool header with the parent pool name.
1673: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
1674: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
1675: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('-', l_total_length+8 , '-' ));
1676: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,
1677: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_SUBSIDY_POOL_NAME'),l_Pool_Name_len,'TITLE')||' '||
1670: -- is calculated from its children as there is no transaction and budgets for pool type "Reporting"
1671: ELSIF (p_pool_rec.pool_type_code = 'REPORTING') THEN
1672: -- Parent pool header with the parent pool name.
1673: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
1674: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
1675: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('-', l_total_length+8 , '-' ));
1676: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,
1677: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_SUBSIDY_POOL_NAME'),l_Pool_Name_len,'TITLE')||' '||
1678: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_POOL_TYPE_TXT'),l_Pool_Type_len,'TITLE')||' '||
1671: ELSIF (p_pool_rec.pool_type_code = 'REPORTING') THEN
1672: -- Parent pool header with the parent pool name.
1673: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
1674: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
1675: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('-', l_total_length+8 , '-' ));
1676: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,
1677: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_SUBSIDY_POOL_NAME'),l_Pool_Name_len,'TITLE')||' '||
1678: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_POOL_TYPE_TXT'),l_Pool_Type_len,'TITLE')||' '||
1679: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_AGN_RPT_CURRENCY'),l_Currency_Code_len,'TITLE')||' '||
1672: -- Parent pool header with the parent pool name.
1673: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
1674: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
1675: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('-', l_total_length+8 , '-' ));
1676: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,
1677: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_SUBSIDY_POOL_NAME'),l_Pool_Name_len,'TITLE')||' '||
1678: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_POOL_TYPE_TXT'),l_Pool_Type_len,'TITLE')||' '||
1679: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_AGN_RPT_CURRENCY'),l_Currency_Code_len,'TITLE')||' '||
1680: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_SUBSIDY_POOL_LIMIT'),l_Pool_Limit_len,'TITLE')||' '||
1678: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_POOL_TYPE_TXT'),l_Pool_Type_len,'TITLE')||' '||
1679: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_AGN_RPT_CURRENCY'),l_Currency_Code_len,'TITLE')||' '||
1680: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_SUBSIDY_POOL_LIMIT'),l_Pool_Limit_len,'TITLE')||' '||
1681: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_TRX_AMOUNT'),l_trx_amt_len,'TITLE'));
1682: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('=', l_total_length+8 , '=' ));
1683: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
1684:
1685: -- For each of the children found for "Reporting" pool type
1686: FOR each_row IN get_amounts(p_pool_rec.id) LOOP
1679: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_AGN_RPT_CURRENCY'),l_Currency_Code_len,'TITLE')||' '||
1680: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_SUBSIDY_POOL_LIMIT'),l_Pool_Limit_len,'TITLE')||' '||
1681: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_TRX_AMOUNT'),l_trx_amt_len,'TITLE'));
1682: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('=', l_total_length+8 , '=' ));
1683: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
1684:
1685: -- For each of the children found for "Reporting" pool type
1686: FOR each_row IN get_amounts(p_pool_rec.id) LOOP
1687: -- calculate the transaction amount and convert the children pool currency
1702: END IF;
1703: l_trx_amt := l_trx_amt + l_amount;
1704: END LOOP;
1705: -- Print the subsidy pool sumaary.
1706: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,
1707: GET_PROPER_LENGTH(p_pool_rec.subsidy_pool_name,l_Pool_Name_len,'DATA')||' '||
1708: GET_PROPER_LENGTH(p_pool_rec.pool_type_code,l_Pool_Type_len,'DATA')||' '||
1709: GET_PROPER_LENGTH(p_pool_rec.currency_code,l_Currency_Code_len,'DATA')||' '||
1710: GET_PROPER_LENGTH(okl_accounting_util.format_amount(p_pool_rec.reporting_pool_limit,p_pool_rec.currency_code),l_Pool_Limit_len,'DATA')||' '||
1708: GET_PROPER_LENGTH(p_pool_rec.pool_type_code,l_Pool_Type_len,'DATA')||' '||
1709: GET_PROPER_LENGTH(p_pool_rec.currency_code,l_Currency_Code_len,'DATA')||' '||
1710: GET_PROPER_LENGTH(okl_accounting_util.format_amount(p_pool_rec.reporting_pool_limit,p_pool_rec.currency_code),l_Pool_Limit_len,'DATA')||' '||
1711: GET_PROPER_LENGTH(okl_accounting_util.format_amount(l_trx_amt,p_pool_rec.currency_code),l_trx_amt_len,'DATA'));
1712: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('-', l_total_length+8 , '-' ));
1713: END IF;
1714:
1715: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
1716: x_return_status := l_return_status;
1928: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1929: RAISE OKL_API.G_EXCEPTION_ERROR;
1930: END IF;
1931: -- Print the transaction header.
1932: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
1933: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_TRANSACTION'));
1934: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('-', 30 , '-' ));
1935: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('-', l_total_length , '-' ));
1936: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,
1929: RAISE OKL_API.G_EXCEPTION_ERROR;
1930: END IF;
1931: -- Print the transaction header.
1932: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
1933: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_TRANSACTION'));
1934: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('-', 30 , '-' ));
1935: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('-', l_total_length , '-' ));
1936: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,
1937: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_SOURCE'),l_trx_reason_len,'TITLE')||' '||
1930: END IF;
1931: -- Print the transaction header.
1932: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
1933: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_TRANSACTION'));
1934: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('-', 30 , '-' ));
1935: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('-', l_total_length , '-' ));
1936: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,
1937: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_SOURCE'),l_trx_reason_len,'TITLE')||' '||
1938: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_NUMBER'),l_source_len,'TITLE')||' '||
1931: -- Print the transaction header.
1932: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
1933: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_TRANSACTION'));
1934: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('-', 30 , '-' ));
1935: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('-', l_total_length , '-' ));
1936: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,
1937: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_SOURCE'),l_trx_reason_len,'TITLE')||' '||
1938: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_NUMBER'),l_source_len,'TITLE')||' '||
1939: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_ASSET_NUMBER'),l_asset_len,'TITLE')||' '||
1932: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
1933: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_TRANSACTION'));
1934: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('-', 30 , '-' ));
1935: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('-', l_total_length , '-' ));
1936: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,
1937: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_SOURCE'),l_trx_reason_len,'TITLE')||' '||
1938: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_NUMBER'),l_source_len,'TITLE')||' '||
1939: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_ASSET_NUMBER'),l_asset_len,'TITLE')||' '||
1940: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_VENDOR'),l_vendor_len,'TITLE')||' '||
1945: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_RPT_AMOUNT'),l_pool_amt_len + l_curr_len,'TITLE')||' '||
1946: -- abindal start bug# 4873705 --
1947: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_OPERATING_UNIT'),l_oper_unit_len,'TITLE'));
1948: -- abindal end bug# 4873705 --
1949: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('=', l_total_length , '=' ));
1950: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
1951:
1952: IF(p_pool_type = 'BUDGET') THEN
1953: FOR each_row IN c_transaction_detail(p_pool_id,p_from_date,p_to_date) LOOP
1946: -- abindal start bug# 4873705 --
1947: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_OPERATING_UNIT'),l_oper_unit_len,'TITLE'));
1948: -- abindal end bug# 4873705 --
1949: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('=', l_total_length , '=' ));
1950: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
1951:
1952: IF(p_pool_type = 'BUDGET') THEN
1953: FOR each_row IN c_transaction_detail(p_pool_id,p_from_date,p_to_date) LOOP
1954: -- If transaction line type is "Reduction" display the transaction amount as
1960: l_trx_amount := each_row.trx_amount * -1;
1961: l_sub_pool_amount := each_row.subsidy_pool_amount * -1;
1962: END IF;
1963: -- Display the transactions record for the subsidy pool type "Budget".
1964: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,
1965: GET_PROPER_LENGTH(each_row.trx_reason,l_trx_reason_len,'DATA')||' '||
1966: GET_PROPER_LENGTH(each_row.contract_number,l_source_len,'DATA')||' '||
1967: GET_PROPER_LENGTH(each_row.dnz_asset_number,l_asset_len,'DATA')||' '||
1968: GET_PROPER_LENGTH(each_row.Vendor,l_vendor_len,'DATA')||' '||
1986: END IF;
1987: END LOOP;
1988: -- Print the total transaction amount, calculated above, after all transactions data
1989: -- is displayed.
1990: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('-', l_total_length , '-' ));
1991: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,
1992: RPAD(' ', l_tot_bdgt_len , ' ' )||
1993: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_TOTAL_AMOUNT'),l_total_amt_len,'TITLE')||' : '||
1994: LPAD(okl_accounting_util.format_amount(l_pool_amount,p_pool_currency),l_pool_amt_len,' ')||' '||
1987: END LOOP;
1988: -- Print the total transaction amount, calculated above, after all transactions data
1989: -- is displayed.
1990: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('-', l_total_length , '-' ));
1991: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,
1992: RPAD(' ', l_tot_bdgt_len , ' ' )||
1993: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_TOTAL_AMOUNT'),l_total_amt_len,'TITLE')||' : '||
1994: LPAD(okl_accounting_util.format_amount(l_pool_amount,p_pool_currency),l_pool_amt_len,' ')||' '||
1995: GET_PROPER_LENGTH(p_pool_currency,l_curr_len,'DATA'));
1992: RPAD(' ', l_tot_bdgt_len , ' ' )||
1993: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_TOTAL_AMOUNT'),l_total_amt_len,'TITLE')||' : '||
1994: LPAD(okl_accounting_util.format_amount(l_pool_amount,p_pool_currency),l_pool_amt_len,' ')||' '||
1995: GET_PROPER_LENGTH(p_pool_currency,l_curr_len,'DATA'));
1996: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('-', l_total_length , '-' ));
1997:
1998: ELSIF(p_pool_type = 'REPORTING') THEN
1999: FOR each_row IN c_transaction_detail(p_pool_id,p_from_date,p_to_date) LOOP
2000: -- If pool type is "Reporting", the transaction amount for all children "Budget"
2015: fnd_message.set_token('FROM_CURR',
2016: each_row.subsidy_pool_currency_code);
2017: fnd_message.set_token('TO_CURR',
2018: p_pool_currency);
2019: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get);
2020: END IF;
2021: -- If transaction line type is "Reduction" display the transaction amount as
2022: --
2023: IF(each_row.trx_type_code = 'ADDITION') THEN
2027: l_trx_amount := each_row.trx_amount * -1;
2028: l_sub_pool_amount := l_amount * -1;
2029: END IF;
2030: -- Print the transactions record for the subsidy pool.
2031: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,
2032: GET_PROPER_LENGTH(each_row.trx_reason,l_trx_reason_len,'DATA')||' '||
2033: GET_PROPER_LENGTH(each_row.contract_number,l_source_len,'DATA')||' '||
2034: GET_PROPER_LENGTH(each_row.dnz_asset_number,l_asset_len,'DATA')||' '||
2035: GET_PROPER_LENGTH(each_row.Vendor,l_vendor_len,'DATA')||' '||
2052: l_pool_amount := l_pool_amount - l_amount;
2053: END IF;
2054: END LOOP;
2055: -- Print the total subsidy amount at the end of all the transactions record.
2056: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('-', l_total_length , '-' ));
2057: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,
2058: RPAD(' ', l_tot_bdgt_len , ' ' )||
2059: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_TOTAL_AMOUNT'),l_total_amt_len,'TITLE')||' : '||
2060: LPAD(okl_accounting_util.format_amount(l_pool_amount,p_pool_currency),l_pool_amt_len,' ')||' '||
2053: END IF;
2054: END LOOP;
2055: -- Print the total subsidy amount at the end of all the transactions record.
2056: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('-', l_total_length , '-' ));
2057: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,
2058: RPAD(' ', l_tot_bdgt_len , ' ' )||
2059: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_TOTAL_AMOUNT'),l_total_amt_len,'TITLE')||' : '||
2060: LPAD(okl_accounting_util.format_amount(l_pool_amount,p_pool_currency),l_pool_amt_len,' ')||' '||
2061: GET_PROPER_LENGTH(p_pool_currency,l_curr_len,'DATA'));
2058: RPAD(' ', l_tot_bdgt_len , ' ' )||
2059: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_TOTAL_AMOUNT'),l_total_amt_len,'TITLE')||' : '||
2060: LPAD(okl_accounting_util.format_amount(l_pool_amount,p_pool_currency),l_pool_amt_len,' ')||' '||
2061: GET_PROPER_LENGTH(p_pool_currency,l_curr_len,'DATA'));
2062: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('-', l_total_length , '-' ));
2063: END IF;
2064:
2065: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
2066: x_return_status := l_return_status;
2182: l_from_date:= FND_DATE.CANONICAL_TO_DATE(p_from_date);
2183: l_to_date:= FND_DATE.CANONICAL_TO_DATE(p_to_date);
2184:
2185: -- Printing Subsidy pools report header.
2186: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', 52 , ' ' ) || fnd_message.get_string('OKL','OKLHOMENAVTITLE') ||
2187: RPAD(' ', 53 , ' ' ));
2188: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
2189: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
2190: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', 52 , ' ' ) || fnd_message.get_string('OKL','OKL_SUBSIDY_POOL_REPORT') ||
2184:
2185: -- Printing Subsidy pools report header.
2186: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', 52 , ' ' ) || fnd_message.get_string('OKL','OKLHOMENAVTITLE') ||
2187: RPAD(' ', 53 , ' ' ));
2188: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
2189: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
2190: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', 52 , ' ' ) || fnd_message.get_string('OKL','OKL_SUBSIDY_POOL_REPORT') ||
2191: RPAD(' ', 53 , ' ' ));
2192: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ',50, ' ' ) || '-------------------------------' || RPAD(' ', 51, ' ' ));
2185: -- Printing Subsidy pools report header.
2186: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', 52 , ' ' ) || fnd_message.get_string('OKL','OKLHOMENAVTITLE') ||
2187: RPAD(' ', 53 , ' ' ));
2188: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
2189: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
2190: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', 52 , ' ' ) || fnd_message.get_string('OKL','OKL_SUBSIDY_POOL_REPORT') ||
2191: RPAD(' ', 53 , ' ' ));
2192: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ',50, ' ' ) || '-------------------------------' || RPAD(' ', 51, ' ' ));
2193: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
2186: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', 52 , ' ' ) || fnd_message.get_string('OKL','OKLHOMENAVTITLE') ||
2187: RPAD(' ', 53 , ' ' ));
2188: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
2189: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
2190: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', 52 , ' ' ) || fnd_message.get_string('OKL','OKL_SUBSIDY_POOL_REPORT') ||
2191: RPAD(' ', 53 , ' ' ));
2192: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ',50, ' ' ) || '-------------------------------' || RPAD(' ', 51, ' ' ));
2193: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
2194: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
2188: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
2189: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
2190: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', 52 , ' ' ) || fnd_message.get_string('OKL','OKL_SUBSIDY_POOL_REPORT') ||
2191: RPAD(' ', 53 , ' ' ));
2192: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ',50, ' ' ) || '-------------------------------' || RPAD(' ', 51, ' ' ));
2193: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
2194: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
2195: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
2196:
2189: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
2190: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', 52 , ' ' ) || fnd_message.get_string('OKL','OKL_SUBSIDY_POOL_REPORT') ||
2191: RPAD(' ', 53 , ' ' ));
2192: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ',50, ' ' ) || '-------------------------------' || RPAD(' ', 51, ' ' ));
2193: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
2194: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
2195: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
2196:
2197: -- Get the record for user entered pool name.
2190: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', 52 , ' ' ) || fnd_message.get_string('OKL','OKL_SUBSIDY_POOL_REPORT') ||
2191: RPAD(' ', 53 , ' ' ));
2192: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ',50, ' ' ) || '-------------------------------' || RPAD(' ', 51, ' ' ));
2193: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
2194: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
2195: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
2196:
2197: -- Get the record for user entered pool name.
2198: l_pool_rec := get_parent_record(p_pool_id);
2191: RPAD(' ', 53 , ' ' ));
2192: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ',50, ' ' ) || '-------------------------------' || RPAD(' ', 51, ' ' ));
2193: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
2194: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
2195: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
2196:
2197: -- Get the record for user entered pool name.
2198: l_pool_rec := get_parent_record(p_pool_id);
2199: -- Prints the user entered parameters.
2196:
2197: -- Get the record for user entered pool name.
2198: l_pool_rec := get_parent_record(p_pool_id);
2199: -- Prints the user entered parameters.
2200: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('-', 100 , '-' ));
2201: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_SUBSIDY_POOL_NAME') || ' : '
2202: || l_pool_rec.subsidy_pool_name);
2203: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_FROM_DATE') || ' : ' || l_from_date);
2204: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_TO_DATE') || ' : ' || l_to_date);
2197: -- Get the record for user entered pool name.
2198: l_pool_rec := get_parent_record(p_pool_id);
2199: -- Prints the user entered parameters.
2200: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('-', 100 , '-' ));
2201: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_SUBSIDY_POOL_NAME') || ' : '
2202: || l_pool_rec.subsidy_pool_name);
2203: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_FROM_DATE') || ' : ' || l_from_date);
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 , '-' ));
2199: -- Prints the user entered parameters.
2200: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('-', 100 , '-' ));
2201: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_SUBSIDY_POOL_NAME') || ' : '
2202: || l_pool_rec.subsidy_pool_name);
2203: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_FROM_DATE') || ' : ' || l_from_date);
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
2200: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('-', 100 , '-' ));
2201: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_SUBSIDY_POOL_NAME') || ' : '
2202: || l_pool_rec.subsidy_pool_name);
2203: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_FROM_DATE') || ' : ' || l_from_date);
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,
2201: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_SUBSIDY_POOL_NAME') || ' : '
2202: || l_pool_rec.subsidy_pool_name);
2203: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_FROM_DATE') || ' : ' || l_from_date);
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,
2273: WHEN OTHERS THEN
2274: x_errbuf := SQLERRM;
2275: x_retcode := 2;
2276:
2277: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLERRM);
2278:
2279: IF (SQLCODE <> -20001) THEN
2280: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLCODE||SQLERRM);
2281: --APP_EXCEPTION.RAISE_EXCEPTION;
2276:
2277: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLERRM);
2278:
2279: IF (SQLCODE <> -20001) THEN
2280: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLCODE||SQLERRM);
2281: --APP_EXCEPTION.RAISE_EXCEPTION;
2282: RAISE;
2283: ELSE
2284: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLCODE||SQLERRM);
2280: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLCODE||SQLERRM);
2281: --APP_EXCEPTION.RAISE_EXCEPTION;
2282: RAISE;
2283: ELSE
2284: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLCODE||SQLERRM);
2285: --g_error_message := Sqlerrm;
2286: APP_EXCEPTION.RAISE_EXCEPTION;
2287: END IF;
2288:
2462: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2463: RAISE OKL_API.G_EXCEPTION_ERROR;
2464: END IF;
2465: -- Print the subsidy pool summary header.
2466: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
2467: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
2468: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('-', l_total_length+8 , '-' ));
2469: FND_FILE.PUT(FND_FILE.OUTPUT,
2470: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_SUBSIDY_POOL_NAME'),l_Pool_Name_len,'TITLE')||' '||
2463: RAISE OKL_API.G_EXCEPTION_ERROR;
2464: END IF;
2465: -- Print the subsidy pool summary header.
2466: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
2467: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
2468: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('-', l_total_length+8 , '-' ));
2469: FND_FILE.PUT(FND_FILE.OUTPUT,
2470: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_SUBSIDY_POOL_NAME'),l_Pool_Name_len,'TITLE')||' '||
2471: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_AGN_RPT_CURRENCY'),l_Currency_Code_len,'TITLE')||' '||
2464: END IF;
2465: -- Print the subsidy pool summary header.
2466: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
2467: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
2468: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('-', l_total_length+8 , '-' ));
2469: FND_FILE.PUT(FND_FILE.OUTPUT,
2470: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_SUBSIDY_POOL_NAME'),l_Pool_Name_len,'TITLE')||' '||
2471: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_AGN_RPT_CURRENCY'),l_Currency_Code_len,'TITLE')||' '||
2472: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_POOL_BUDGET'),l_Budget_len,'TITLE')||' '||
2465: -- Print the subsidy pool summary header.
2466: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
2467: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
2468: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('-', l_total_length+8 , '-' ));
2469: FND_FILE.PUT(FND_FILE.OUTPUT,
2470: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_SUBSIDY_POOL_NAME'),l_Pool_Name_len,'TITLE')||' '||
2471: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_AGN_RPT_CURRENCY'),l_Currency_Code_len,'TITLE')||' '||
2472: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_POOL_BUDGET'),l_Budget_len,'TITLE')||' '||
2473: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_POOL_BALANCE'),l_Remaining_len,'TITLE')||' '||
2473: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_POOL_BALANCE'),l_Remaining_len,'TITLE')||' '||
2474: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_PERCENT_BUDGET'),l_percent_len,'TITLE')||' '||
2475: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_END_TERM'),l_effective_to_len,'TITLE'));
2476: IF(p_days is not null) THEN
2477: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,
2478: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_REMAINING_DAYS'),l_remaining_days_len,'TITLE'));
2479: END IF;
2480: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('=', l_total_length+8 , '=' ));
2481: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
2476: IF(p_days is not null) THEN
2477: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,
2478: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_REMAINING_DAYS'),l_remaining_days_len,'TITLE'));
2479: END IF;
2480: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('=', l_total_length+8 , '=' ));
2481: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
2482:
2483: -- If p_percent parameter value is entered by user and other parameters value is nul.
2484: IF(p_percent is not null) THEN
2477: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,
2478: GET_PROPER_LENGTH(fnd_message.get_string('OKL','OKL_REMAINING_DAYS'),l_remaining_days_len,'TITLE'));
2479: END IF;
2480: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('=', l_total_length+8 , '=' ));
2481: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
2482:
2483: -- If p_percent parameter value is entered by user and other parameters value is nul.
2484: IF(p_percent is not null) THEN
2485: FOR each_row IN c_get_percent(p_percent) LOOP
2484: IF(p_percent is not null) THEN
2485: FOR each_row IN c_get_percent(p_percent) LOOP
2486: wf_event.AddParameterToList(G_WF_ITM_SUB_POOL_ID, each_row.id, l_parameter_list);
2487: l_event_name := G_WF_EVT_POOL_NEAR_BUDGLMT;
2488: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,
2489: GET_PROPER_LENGTH(each_row.subsidy_pool_name,l_Pool_Name_len,'DATA')||' '||
2490: GET_PROPER_LENGTH(each_row.currency_code,l_Currency_Code_len,'DATA')||' '||
2491: GET_PROPER_LENGTH(okl_accounting_util.format_amount(each_row.total_budgets,each_row.currency_code),l_Budget_len,'DATA')||' '||
2492: GET_PROPER_LENGTH(okl_accounting_util.format_amount(each_row.remaining_balance,each_row.currency_code),l_Remaining_len,'DATA')||' '||
2523: RAISE OKL_API.G_EXCEPTION_ERROR;
2524: END IF;
2525: END IF;
2526: END LOOP;
2527: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('-', l_total_length+8 , '-' ));
2528: ELSIF(p_remaining is not null) THEN
2529: FOR each_row IN c_get_budget(p_remaining,p_currency) LOOP
2530: wf_event.AddParameterToList(G_WF_ITM_SUB_POOL_ID, each_row.id, l_parameter_list);
2531: l_event_name := G_WF_EVT_POOL_NEAR_BUDGLMT;
2528: ELSIF(p_remaining is not null) THEN
2529: FOR each_row IN c_get_budget(p_remaining,p_currency) LOOP
2530: wf_event.AddParameterToList(G_WF_ITM_SUB_POOL_ID, each_row.id, l_parameter_list);
2531: l_event_name := G_WF_EVT_POOL_NEAR_BUDGLMT;
2532: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,
2533: GET_PROPER_LENGTH(each_row.subsidy_pool_name,l_Pool_Name_len,'DATA')||' '||
2534: GET_PROPER_LENGTH(each_row.currency_code,l_Currency_Code_len,'DATA')||' '||
2535: GET_PROPER_LENGTH(okl_accounting_util.format_amount(each_row.total_budgets,each_row.currency_code),l_Budget_len,'DATA')||' '||
2536: GET_PROPER_LENGTH(okl_accounting_util.format_amount(each_row.remaining_balance,each_row.currency_code),l_Remaining_len,'DATA')||' '||
2567: RAISE OKL_API.G_EXCEPTION_ERROR;
2568: END IF;
2569: END IF;
2570: END LOOP;
2571: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('-', l_total_length+8 , '-' ));
2572: ELSIF(p_date is not null) THEN
2573: FOR each_row IN c_get_dates(p_date) LOOP
2574: wf_event.AddParameterToList(G_WF_ITM_SUB_POOL_ID, each_row.id, l_parameter_list);
2575: l_event_name := G_WF_EVT_POOL_NEAR_EXPIR;
2572: ELSIF(p_date is not null) THEN
2573: FOR each_row IN c_get_dates(p_date) LOOP
2574: wf_event.AddParameterToList(G_WF_ITM_SUB_POOL_ID, each_row.id, l_parameter_list);
2575: l_event_name := G_WF_EVT_POOL_NEAR_EXPIR;
2576: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,
2577: GET_PROPER_LENGTH(each_row.subsidy_pool_name,l_Pool_Name_len,'DATA')||' '||
2578: GET_PROPER_LENGTH(each_row.currency_code,l_Currency_Code_len,'DATA')||' '||
2579: GET_PROPER_LENGTH(okl_accounting_util.format_amount(each_row.total_budgets,each_row.currency_code),l_Budget_len,'DATA')||' '||
2580: GET_PROPER_LENGTH(okl_accounting_util.format_amount(each_row.remaining_balance,each_row.currency_code),l_Remaining_len,'DATA')||' '||
2594: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2595: RAISE OKL_API.G_EXCEPTION_ERROR;
2596: END IF;
2597: END LOOP;
2598: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('-', l_total_length+8 , '-' ));
2599: ELSIF(p_days is not null) THEN
2600: FOR each_row IN c_get_days(p_days) LOOP
2601: wf_event.AddParameterToList(G_WF_ITM_SUB_POOL_ID, each_row.id, l_parameter_list);
2602: l_event_name := G_WF_EVT_POOL_NEAR_EXPIR;
2599: ELSIF(p_days is not null) THEN
2600: FOR each_row IN c_get_days(p_days) LOOP
2601: wf_event.AddParameterToList(G_WF_ITM_SUB_POOL_ID, each_row.id, l_parameter_list);
2602: l_event_name := G_WF_EVT_POOL_NEAR_EXPIR;
2603: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,
2604: GET_PROPER_LENGTH(each_row.subsidy_pool_name,l_Pool_Name_len,'DATA')||' '||
2605: GET_PROPER_LENGTH(each_row.currency_code,l_Currency_Code_len,'DATA')||' '||
2606: GET_PROPER_LENGTH(okl_accounting_util.format_amount(each_row.total_budgets,each_row.currency_code),l_Budget_len,'DATA')||' '||
2607: GET_PROPER_LENGTH(okl_accounting_util.format_amount(each_row.remaining_balance,each_row.currency_code),l_Remaining_len,'DATA')||' '||
2622: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2623: RAISE OKL_API.G_EXCEPTION_ERROR;
2624: END IF;
2625: END LOOP;
2626: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('-', l_total_length+8 , '-' ));
2627: END IF;
2628: COMMIT;
2629:
2630: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
2730:
2731: l_date:= FND_DATE.CANONICAL_TO_DATE(p_end_date);
2732:
2733: -- Printing Subsidy pools report header.
2734: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', 52 , ' ' ) || fnd_message.get_string('OKL','OKLHOMENAVTITLE') ||
2735: RPAD(' ', 53 , ' ' ));
2736: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
2737: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
2738: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', 52 , ' ' ) || fnd_message.get_string('OKL','OKL_SUBSIDY_POOL_REPORT') ||
2732:
2733: -- Printing Subsidy pools report header.
2734: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', 52 , ' ' ) || fnd_message.get_string('OKL','OKLHOMENAVTITLE') ||
2735: RPAD(' ', 53 , ' ' ));
2736: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
2737: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
2738: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', 52 , ' ' ) || fnd_message.get_string('OKL','OKL_SUBSIDY_POOL_REPORT') ||
2739: RPAD(' ', 53 , ' ' ));
2740: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ',50, ' ' ) || '-------------------------------' || RPAD(' ', 51, ' ' ));
2733: -- Printing Subsidy pools report header.
2734: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', 52 , ' ' ) || fnd_message.get_string('OKL','OKLHOMENAVTITLE') ||
2735: RPAD(' ', 53 , ' ' ));
2736: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
2737: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
2738: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', 52 , ' ' ) || fnd_message.get_string('OKL','OKL_SUBSIDY_POOL_REPORT') ||
2739: RPAD(' ', 53 , ' ' ));
2740: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ',50, ' ' ) || '-------------------------------' || RPAD(' ', 51, ' ' ));
2741: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
2734: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', 52 , ' ' ) || fnd_message.get_string('OKL','OKLHOMENAVTITLE') ||
2735: RPAD(' ', 53 , ' ' ));
2736: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
2737: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
2738: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', 52 , ' ' ) || fnd_message.get_string('OKL','OKL_SUBSIDY_POOL_REPORT') ||
2739: RPAD(' ', 53 , ' ' ));
2740: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ',50, ' ' ) || '-------------------------------' || RPAD(' ', 51, ' ' ));
2741: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
2742: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
2736: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
2737: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
2738: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', 52 , ' ' ) || fnd_message.get_string('OKL','OKL_SUBSIDY_POOL_REPORT') ||
2739: RPAD(' ', 53 , ' ' ));
2740: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ',50, ' ' ) || '-------------------------------' || RPAD(' ', 51, ' ' ));
2741: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
2742: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
2743: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
2744:
2737: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
2738: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', 52 , ' ' ) || fnd_message.get_string('OKL','OKL_SUBSIDY_POOL_REPORT') ||
2739: RPAD(' ', 53 , ' ' ));
2740: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ',50, ' ' ) || '-------------------------------' || RPAD(' ', 51, ' ' ));
2741: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
2742: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
2743: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
2744:
2745: -- If p_remaining is entered and p_currency is not entered or vice versa
2738: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', 52 , ' ' ) || fnd_message.get_string('OKL','OKL_SUBSIDY_POOL_REPORT') ||
2739: RPAD(' ', 53 , ' ' ));
2740: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ',50, ' ' ) || '-------------------------------' || RPAD(' ', 51, ' ' ));
2741: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
2742: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
2743: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
2744:
2745: -- If p_remaining is entered and p_currency is not entered or vice versa
2746: -- then throw an error, if any one of these parameter is entered then other
2739: RPAD(' ', 53 , ' ' ));
2740: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ',50, ' ' ) || '-------------------------------' || RPAD(' ', 51, ' ' ));
2741: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
2742: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
2743: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, RPAD(' ', l_total_length, ' ' ));
2744:
2745: -- If p_remaining is entered and p_currency is not entered or vice versa
2746: -- then throw an error, if any one of these parameter is entered then other
2747: -- one is mandatory parameter.
2747: -- one is mandatory parameter.
2748: IF ( p_remaining is not null AND p_currency is null) THEN
2749: fnd_message.set_name( G_APP_NAME,
2750: 'OKL_SUBPOOL_CURR_REQ');
2751: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get);
2752: ELSIF ( p_remaining is null AND p_currency is not null) THEN
2753: fnd_message.set_name( G_APP_NAME,
2754: 'OKL_SUBPOOL_REM_BDGT');
2755: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get);
2751: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get);
2752: ELSIF ( p_remaining is null AND p_currency is not null) THEN
2753: fnd_message.set_name( G_APP_NAME,
2754: 'OKL_SUBPOOL_REM_BDGT');
2755: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get);
2756: ELSIF (p_percent is not null AND p_percent > 100)THEN
2757: fnd_message.set_name( G_APP_NAME,
2758: 'OKL_LLA_PERCENT');
2759: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get);
2755: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get);
2756: ELSIF (p_percent is not null AND p_percent > 100)THEN
2757: fnd_message.set_name( G_APP_NAME,
2758: 'OKL_LLA_PERCENT');
2759: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get);
2760: -- if more than one parameters is entered, considering p_remaining and p_currency
2761: -- as a single parameter, or no parameter is entered then throw an error.
2762: -- At least one of the parameter is mandatory.
2763: ELSIF( (p_percent is not null AND p_remaining is not null) OR
2768: ( l_date is not null AND p_days is not null) OR
2769: (p_percent is null AND p_remaining is null AND l_date is null AND p_days is null AND p_currency is null)) THEN
2770: fnd_message.set_name( G_APP_NAME,
2771: 'OKL_SUBPOOL_ATLIMIT_PARAMS');
2772: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get);
2773: -- if user has entered one of the parameters then print the report.
2774: ELSE
2775: print_atlimit_detail (p_percent,
2776: p_remaining,
2826: WHEN OTHERS THEN
2827: x_errbuf := SQLERRM;
2828: x_retcode := 2;
2829:
2830: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLERRM);
2831:
2832: IF (SQLCODE <> -20001) THEN
2833: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLCODE||SQLERRM);
2834: --APP_EXCEPTION.RAISE_EXCEPTION;
2829:
2830: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLERRM);
2831:
2832: IF (SQLCODE <> -20001) THEN
2833: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLCODE||SQLERRM);
2834: --APP_EXCEPTION.RAISE_EXCEPTION;
2835: RAISE;
2836: ELSE
2837: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLCODE||SQLERRM);
2833: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLCODE||SQLERRM);
2834: --APP_EXCEPTION.RAISE_EXCEPTION;
2835: RAISE;
2836: ELSE
2837: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLCODE||SQLERRM);
2838: --g_error_message := Sqlerrm;
2839: APP_EXCEPTION.RAISE_EXCEPTION;
2840: END IF;
2841:
3050: WHEN OTHERS THEN
3051: x_errbuf := SQLERRM;
3052: x_retcode := 2;
3053:
3054: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLERRM);
3055:
3056: IF (SQLCODE <> -20001) THEN
3057: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLCODE||SQLERRM);
3058: ELSE
3053:
3054: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLERRM);
3055:
3056: IF (SQLCODE <> -20001) THEN
3057: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLCODE||SQLERRM);
3058: ELSE
3059: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLCODE||SQLERRM);
3060: END IF;
3061:
3055:
3056: IF (SQLCODE <> -20001) THEN
3057: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLCODE||SQLERRM);
3058: ELSE
3059: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLCODE||SQLERRM);
3060: END IF;
3061:
3062: END GET_POOL_AMOUNTS;
3063: -------------------------------------------------------------------------------
3283: WHEN OTHERS THEN
3284: x_errbuf := SQLERRM;
3285: x_retcode := 2;
3286:
3287: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLERRM);
3288:
3289: IF (SQLCODE <> -20001) THEN
3290: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLCODE||SQLERRM);
3291: ELSE
3286:
3287: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLERRM);
3288:
3289: IF (SQLCODE <> -20001) THEN
3290: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLCODE||SQLERRM);
3291: ELSE
3292: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLCODE||SQLERRM);
3293: END IF;
3294:
3288:
3289: IF (SQLCODE <> -20001) THEN
3290: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLCODE||SQLERRM);
3291: ELSE
3292: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLCODE||SQLERRM);
3293: END IF;
3294:
3295: END XML_POOL_ASSOC_REPORT;
3296:
3724: WHEN OTHERS THEN
3725: x_errbuf := SQLERRM;
3726: x_retcode := 2;
3727:
3728: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLERRM);
3729:
3730: IF (SQLCODE <> -20001) THEN
3731: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLCODE||SQLERRM);
3732: ELSE
3727:
3728: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLERRM);
3729:
3730: IF (SQLCODE <> -20001) THEN
3731: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLCODE||SQLERRM);
3732: ELSE
3733: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLCODE||SQLERRM);
3734: END IF;
3735:
3729:
3730: IF (SQLCODE <> -20001) THEN
3731: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLCODE||SQLERRM);
3732: ELSE
3733: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLCODE||SQLERRM);
3734: END IF;
3735:
3736: END xml_print_atlimit_detail;
3737:
3942: WHEN OTHERS THEN
3943: x_errbuf := SQLERRM;
3944: x_retcode := 2;
3945:
3946: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLERRM);
3947:
3948: IF (SQLCODE <> -20001) THEN
3949: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLCODE||SQLERRM);
3950: ELSE
3945:
3946: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLERRM);
3947:
3948: IF (SQLCODE <> -20001) THEN
3949: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLCODE||SQLERRM);
3950: ELSE
3951: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLCODE||SQLERRM);
3952: END IF;
3953:
3947:
3948: IF (SQLCODE <> -20001) THEN
3949: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLCODE||SQLERRM);
3950: ELSE
3951: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLCODE||SQLERRM);
3952: END IF;
3953:
3954: END xml_print_pool_summary;
3955:
4155: fnd_message.set_token('FROM_CURR',
4156: each_row.subsidy_pool_currency_code);
4157: fnd_message.set_token('TO_CURR',
4158: p_pool_currency);
4159: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get);
4160: END IF;
4161: -- If transaction line type is "Reduction" display the transaction amount as
4162: --
4163: IF(each_row.trx_type_code = 'ADDITION') THEN
4224: WHEN OTHERS THEN
4225: x_errbuf := SQLERRM;
4226: x_retcode := 2;
4227:
4228: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLERRM);
4229:
4230: IF (SQLCODE <> -20001) THEN
4231: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLCODE||SQLERRM);
4232: ELSE
4227:
4228: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLERRM);
4229:
4230: IF (SQLCODE <> -20001) THEN
4231: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLCODE||SQLERRM);
4232: ELSE
4233: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLCODE||SQLERRM);
4234: END IF;
4235:
4229:
4230: IF (SQLCODE <> -20001) THEN
4231: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLCODE||SQLERRM);
4232: ELSE
4233: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLCODE||SQLERRM);
4234: END IF;
4235:
4236: END xml_print_transaction_summary;
4237:
4356: WHEN OTHERS THEN
4357: x_errbuf := SQLERRM;
4358: x_retcode := 2;
4359:
4360: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLERRM);
4361:
4362: IF (SQLCODE <> -20001) THEN
4363: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLCODE||SQLERRM);
4364: ELSE
4359:
4360: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLERRM);
4361:
4362: IF (SQLCODE <> -20001) THEN
4363: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLCODE||SQLERRM);
4364: ELSE
4365: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLCODE||SQLERRM);
4366: END IF;
4367:
4361:
4362: IF (SQLCODE <> -20001) THEN
4363: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLCODE||SQLERRM);
4364: ELSE
4365: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error: '||SQLCODE||SQLERRM);
4366: END IF;
4367:
4368: END XML_POOL_RECONC_REPORT;
4369: