2083: g_conc_pr_user
2084: FROM fnd_concurrent_programs_vl
2085: WHERE concurrent_program_id = l_conc_id;
2086:
2087: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_conc_pr_name ||(rpad(' ',40,' '))||g_conc_pr_user );
2088: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
2089: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
2090: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Process Run Id :'||fnd_global.CONC_REQUEST_ID);
2091:
2084: FROM fnd_concurrent_programs_vl
2085: WHERE concurrent_program_id = l_conc_id;
2086:
2087: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_conc_pr_name ||(rpad(' ',40,' '))||g_conc_pr_user );
2088: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
2089: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
2090: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Process Run Id :'||fnd_global.CONC_REQUEST_ID);
2091:
2092: --l_param_out := FND_REQUEST_INFO.get_param_info(1,l_balance_type_param);
2085: WHERE concurrent_program_id = l_conc_id;
2086:
2087: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_conc_pr_name ||(rpad(' ',40,' '))||g_conc_pr_user );
2088: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
2089: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
2090: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Process Run Id :'||fnd_global.CONC_REQUEST_ID);
2091:
2092: --l_param_out := FND_REQUEST_INFO.get_param_info(1,l_balance_type_param);
2093: --l_param_out := FND_REQUEST_INFO.get_param_info(10,l_mode_param);
2086:
2087: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_conc_pr_name ||(rpad(' ',40,' '))||g_conc_pr_user );
2088: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
2089: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
2090: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Process Run Id :'||fnd_global.CONC_REQUEST_ID);
2091:
2092: --l_param_out := FND_REQUEST_INFO.get_param_info(1,l_balance_type_param);
2093: --l_param_out := FND_REQUEST_INFO.get_param_info(10,l_mode_param);
2094: --l_param_out := FND_REQUEST_INFO.get_param_info(20,l_fiscal_year_param);
2091:
2092: --l_param_out := FND_REQUEST_INFO.get_param_info(1,l_balance_type_param);
2093: --l_param_out := FND_REQUEST_INFO.get_param_info(10,l_mode_param);
2094: --l_param_out := FND_REQUEST_INFO.get_param_info(20,l_fiscal_year_param);
2095: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Balance Type'||' : '||p_balance_type);
2096: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Mode'||' : '||p_mode);
2097: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Fiscal Year'||' : '||p_fiscal_year);
2098: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
2099: commit;
2092: --l_param_out := FND_REQUEST_INFO.get_param_info(1,l_balance_type_param);
2093: --l_param_out := FND_REQUEST_INFO.get_param_info(10,l_mode_param);
2094: --l_param_out := FND_REQUEST_INFO.get_param_info(20,l_fiscal_year_param);
2095: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Balance Type'||' : '||p_balance_type);
2096: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Mode'||' : '||p_mode);
2097: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Fiscal Year'||' : '||p_fiscal_year);
2098: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
2099: commit;
2100: EXCEPTION
2093: --l_param_out := FND_REQUEST_INFO.get_param_info(10,l_mode_param);
2094: --l_param_out := FND_REQUEST_INFO.get_param_info(20,l_fiscal_year_param);
2095: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Balance Type'||' : '||p_balance_type);
2096: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Mode'||' : '||p_mode);
2097: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Fiscal Year'||' : '||p_fiscal_year);
2098: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
2099: commit;
2100: EXCEPTION
2101: WHEN OTHERS THEN
2094: --l_param_out := FND_REQUEST_INFO.get_param_info(20,l_fiscal_year_param);
2095: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Balance Type'||' : '||p_balance_type);
2096: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Mode'||' : '||p_mode);
2097: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Fiscal Year'||' : '||p_fiscal_year);
2098: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
2099: commit;
2100: EXCEPTION
2101: WHEN OTHERS THEN
2102: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
2098: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
2099: commit;
2100: EXCEPTION
2101: WHEN OTHERS THEN
2102: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
2103: END;
2104:
2105: PROCEDURE print_enc_stat(p_fiscal_year IN NUMBER) IS
2106: CURSOR c_result IS
2116: AND actual_flag = 'E'
2117: AND DETAIL_SUMMARY_CODE = 'D'
2118: group by period_name;
2119: BEGIN
2120: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
2121: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('=',40,'=')||'CBC Encumbrance Migration Result========================'||rpad('=',40,'='));
2122: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
2123: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('Period Name',30,' ')||' '||rpad('Migrated Lines',25,' ')||' '||rpad('Pending Lines',25,' ')||' '||rpad('Total Lines',25,' '));
2124: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad(' ',30,' ')||' '||rpad('In Request Id '||fnd_global.CONC_REQUEST_ID,25,' '));
2117: AND DETAIL_SUMMARY_CODE = 'D'
2118: group by period_name;
2119: BEGIN
2120: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
2121: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('=',40,'=')||'CBC Encumbrance Migration Result========================'||rpad('=',40,'='));
2122: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
2123: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('Period Name',30,' ')||' '||rpad('Migrated Lines',25,' ')||' '||rpad('Pending Lines',25,' ')||' '||rpad('Total Lines',25,' '));
2124: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad(' ',30,' ')||' '||rpad('In Request Id '||fnd_global.CONC_REQUEST_ID,25,' '));
2125: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('-',30,'-')||' '||rpad('-',25,'-')||' '||rpad('-',25,'-')||' '||rpad('-',25,'-'));
2118: group by period_name;
2119: BEGIN
2120: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
2121: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('=',40,'=')||'CBC Encumbrance Migration Result========================'||rpad('=',40,'='));
2122: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
2123: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('Period Name',30,' ')||' '||rpad('Migrated Lines',25,' ')||' '||rpad('Pending Lines',25,' ')||' '||rpad('Total Lines',25,' '));
2124: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad(' ',30,' ')||' '||rpad('In Request Id '||fnd_global.CONC_REQUEST_ID,25,' '));
2125: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('-',30,'-')||' '||rpad('-',25,'-')||' '||rpad('-',25,'-')||' '||rpad('-',25,'-'));
2126: FOR l_result IN c_result
2119: BEGIN
2120: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
2121: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('=',40,'=')||'CBC Encumbrance Migration Result========================'||rpad('=',40,'='));
2122: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
2123: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('Period Name',30,' ')||' '||rpad('Migrated Lines',25,' ')||' '||rpad('Pending Lines',25,' ')||' '||rpad('Total Lines',25,' '));
2124: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad(' ',30,' ')||' '||rpad('In Request Id '||fnd_global.CONC_REQUEST_ID,25,' '));
2125: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('-',30,'-')||' '||rpad('-',25,'-')||' '||rpad('-',25,'-')||' '||rpad('-',25,'-'));
2126: FOR l_result IN c_result
2127: LOOP
2120: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
2121: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('=',40,'=')||'CBC Encumbrance Migration Result========================'||rpad('=',40,'='));
2122: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
2123: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('Period Name',30,' ')||' '||rpad('Migrated Lines',25,' ')||' '||rpad('Pending Lines',25,' ')||' '||rpad('Total Lines',25,' '));
2124: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad(' ',30,' ')||' '||rpad('In Request Id '||fnd_global.CONC_REQUEST_ID,25,' '));
2125: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('-',30,'-')||' '||rpad('-',25,'-')||' '||rpad('-',25,'-')||' '||rpad('-',25,'-'));
2126: FOR l_result IN c_result
2127: LOOP
2128: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad(l_result.period_name,30,' ')||' '||rpad(l_result.migrated_count,25,' ')||' '||rpad(l_result.pending_count,25,' ')||' '||rpad(l_result.total_count,25,' '));
2121: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('=',40,'=')||'CBC Encumbrance Migration Result========================'||rpad('=',40,'='));
2122: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
2123: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('Period Name',30,' ')||' '||rpad('Migrated Lines',25,' ')||' '||rpad('Pending Lines',25,' ')||' '||rpad('Total Lines',25,' '));
2124: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad(' ',30,' ')||' '||rpad('In Request Id '||fnd_global.CONC_REQUEST_ID,25,' '));
2125: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('-',30,'-')||' '||rpad('-',25,'-')||' '||rpad('-',25,'-')||' '||rpad('-',25,'-'));
2126: FOR l_result IN c_result
2127: LOOP
2128: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad(l_result.period_name,30,' ')||' '||rpad(l_result.migrated_count,25,' ')||' '||rpad(l_result.pending_count,25,' ')||' '||rpad(l_result.total_count,25,' '));
2129: END LOOP;
2124: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad(' ',30,' ')||' '||rpad('In Request Id '||fnd_global.CONC_REQUEST_ID,25,' '));
2125: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('-',30,'-')||' '||rpad('-',25,'-')||' '||rpad('-',25,'-')||' '||rpad('-',25,'-'));
2126: FOR l_result IN c_result
2127: LOOP
2128: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad(l_result.period_name,30,' ')||' '||rpad(l_result.migrated_count,25,' ')||' '||rpad(l_result.pending_count,25,' ')||' '||rpad(l_result.total_count,25,' '));
2129: END LOOP;
2130:
2131: END;
2132:
2143: AND l.period_year = p_fiscal_year
2144: AND l.actual_flag = 'E';
2145: bln_error_found BOOLEAN := FALSE;
2146: BEGIN
2147: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
2148: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('=',40,'=')||'CBC Encumbrance details - Failed to Migrate to R12========================'||rpad('=',40,'='));
2149: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
2150: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('Batch Name',50,' ')||' '||rpad('Line Num',10,' ')||' '||rpad('Failed Reason',60,' '));
2151: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('-',50,'-')||' '||rpad('-',10,'-')||' '||rpad('-',60,'-'));
2144: AND l.actual_flag = 'E';
2145: bln_error_found BOOLEAN := FALSE;
2146: BEGIN
2147: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
2148: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('=',40,'=')||'CBC Encumbrance details - Failed to Migrate to R12========================'||rpad('=',40,'='));
2149: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
2150: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('Batch Name',50,' ')||' '||rpad('Line Num',10,' ')||' '||rpad('Failed Reason',60,' '));
2151: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('-',50,'-')||' '||rpad('-',10,'-')||' '||rpad('-',60,'-'));
2152: FOR l_fail in c_fail
2145: bln_error_found BOOLEAN := FALSE;
2146: BEGIN
2147: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
2148: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('=',40,'=')||'CBC Encumbrance details - Failed to Migrate to R12========================'||rpad('=',40,'='));
2149: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
2150: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('Batch Name',50,' ')||' '||rpad('Line Num',10,' ')||' '||rpad('Failed Reason',60,' '));
2151: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('-',50,'-')||' '||rpad('-',10,'-')||' '||rpad('-',60,'-'));
2152: FOR l_fail in c_fail
2153: LOOP
2146: BEGIN
2147: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
2148: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('=',40,'=')||'CBC Encumbrance details - Failed to Migrate to R12========================'||rpad('=',40,'='));
2149: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
2150: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('Batch Name',50,' ')||' '||rpad('Line Num',10,' ')||' '||rpad('Failed Reason',60,' '));
2151: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('-',50,'-')||' '||rpad('-',10,'-')||' '||rpad('-',60,'-'));
2152: FOR l_fail in c_fail
2153: LOOP
2154: IF (NOT bln_error_found) THEN
2147: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
2148: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('=',40,'=')||'CBC Encumbrance details - Failed to Migrate to R12========================'||rpad('=',40,'='));
2149: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
2150: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('Batch Name',50,' ')||' '||rpad('Line Num',10,' ')||' '||rpad('Failed Reason',60,' '));
2151: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('-',50,'-')||' '||rpad('-',10,'-')||' '||rpad('-',60,'-'));
2152: FOR l_fail in c_fail
2153: LOOP
2154: IF (NOT bln_error_found) THEN
2155: bln_error_found := TRUE;
2153: LOOP
2154: IF (NOT bln_error_found) THEN
2155: bln_error_found := TRUE;
2156: END IF;
2157: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad(substr(l_fail.name,1,50),50,' ')||' '||rpad(l_fail.cbc_je_line_num,10,' ')||' '||rpad(substr(l_fail.meaning,1,60),60,' '));
2158: END LOOP;
2159: IF NOT bln_error_found THEN
2160: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'NO DATA FOUND');
2161: END IF;
2156: END IF;
2157: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad(substr(l_fail.name,1,50),50,' ')||' '||rpad(l_fail.cbc_je_line_num,10,' ')||' '||rpad(substr(l_fail.meaning,1,60),60,' '));
2158: END LOOP;
2159: IF NOT bln_error_found THEN
2160: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'NO DATA FOUND');
2161: END IF;
2162: END;
2163:
2164:
2164:
2165: PROCEDURE print_errors IS
2166: BEGIN
2167: /* Print Header */
2168: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
2169: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('=',40,'=')||'Following Validation error(s) occured'||rpad('=',40,'='));
2170: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('SL NO.',10,' ')||' '||rpad('Error Description',60,' '));
2171: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('-',10,'-')||' '||rpad('-',100,'-'));
2172: IF g_tbl_basic_errors.COUNT <= 0 THEN
2165: PROCEDURE print_errors IS
2166: BEGIN
2167: /* Print Header */
2168: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
2169: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('=',40,'=')||'Following Validation error(s) occured'||rpad('=',40,'='));
2170: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('SL NO.',10,' ')||' '||rpad('Error Description',60,' '));
2171: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('-',10,'-')||' '||rpad('-',100,'-'));
2172: IF g_tbl_basic_errors.COUNT <= 0 THEN
2173: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'NO DATA FOUND');
2166: BEGIN
2167: /* Print Header */
2168: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
2169: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('=',40,'=')||'Following Validation error(s) occured'||rpad('=',40,'='));
2170: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('SL NO.',10,' ')||' '||rpad('Error Description',60,' '));
2171: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('-',10,'-')||' '||rpad('-',100,'-'));
2172: IF g_tbl_basic_errors.COUNT <= 0 THEN
2173: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'NO DATA FOUND');
2174: return;
2167: /* Print Header */
2168: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
2169: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('=',40,'=')||'Following Validation error(s) occured'||rpad('=',40,'='));
2170: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('SL NO.',10,' ')||' '||rpad('Error Description',60,' '));
2171: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('-',10,'-')||' '||rpad('-',100,'-'));
2172: IF g_tbl_basic_errors.COUNT <= 0 THEN
2173: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'NO DATA FOUND');
2174: return;
2175: END IF;
2169: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('=',40,'=')||'Following Validation error(s) occured'||rpad('=',40,'='));
2170: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('SL NO.',10,' ')||' '||rpad('Error Description',60,' '));
2171: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('-',10,'-')||' '||rpad('-',100,'-'));
2172: IF g_tbl_basic_errors.COUNT <= 0 THEN
2173: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'NO DATA FOUND');
2174: return;
2175: END IF;
2176: FOR i in 1..g_tbl_basic_errors.COUNT
2177: LOOP
2174: return;
2175: END IF;
2176: FOR i in 1..g_tbl_basic_errors.COUNT
2177: LOOP
2178: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,lpad(to_char(i),10,' ')||' '||substr(g_tbl_basic_errors(i).error_mesg,1,100));
2179: END LOOP;
2180:
2181:
2182: END print_errors;
2183:
2184: PROCEDURE print_end_report IS
2185: BEGIN
2186:
2187: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('=',63,'=')||'End of Report'||rpad('=',62,'='));
2188:
2189: END print_end_report;
2190:
2191: PROCEDURE print_budget_stats IS
2190:
2191: PROCEDURE print_budget_stats IS
2192: BEGIN
2193: /* Print Header */
2194: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
2195: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'================Following Budget Data created in CBC ledger========================');
2196: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
2197: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('Primary Ledger Budget Name',30,' ')||' '||rpad('CBC Ledger Budget Name',30,' '));
2198: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('-',30,'-')||' '||rpad('-',30,'-'));
2191: PROCEDURE print_budget_stats IS
2192: BEGIN
2193: /* Print Header */
2194: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
2195: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'================Following Budget Data created in CBC ledger========================');
2196: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
2197: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('Primary Ledger Budget Name',30,' ')||' '||rpad('CBC Ledger Budget Name',30,' '));
2198: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('-',30,'-')||' '||rpad('-',30,'-'));
2199: IF g_tbl_bud_map.COUNT < 1 THEN
2192: BEGIN
2193: /* Print Header */
2194: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
2195: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'================Following Budget Data created in CBC ledger========================');
2196: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
2197: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('Primary Ledger Budget Name',30,' ')||' '||rpad('CBC Ledger Budget Name',30,' '));
2198: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('-',30,'-')||' '||rpad('-',30,'-'));
2199: IF g_tbl_bud_map.COUNT < 1 THEN
2200: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'NO DATA FOUND');
2193: /* Print Header */
2194: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
2195: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'================Following Budget Data created in CBC ledger========================');
2196: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
2197: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('Primary Ledger Budget Name',30,' ')||' '||rpad('CBC Ledger Budget Name',30,' '));
2198: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('-',30,'-')||' '||rpad('-',30,'-'));
2199: IF g_tbl_bud_map.COUNT < 1 THEN
2200: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'NO DATA FOUND');
2201: END IF;
2194: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
2195: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'================Following Budget Data created in CBC ledger========================');
2196: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
2197: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('Primary Ledger Budget Name',30,' ')||' '||rpad('CBC Ledger Budget Name',30,' '));
2198: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('-',30,'-')||' '||rpad('-',30,'-'));
2199: IF g_tbl_bud_map.COUNT < 1 THEN
2200: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'NO DATA FOUND');
2201: END IF;
2202:
2196: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
2197: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('Primary Ledger Budget Name',30,' ')||' '||rpad('CBC Ledger Budget Name',30,' '));
2198: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('-',30,'-')||' '||rpad('-',30,'-'));
2199: IF g_tbl_bud_map.COUNT < 1 THEN
2200: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'NO DATA FOUND');
2201: END IF;
2202:
2203: FOR i in 1..g_tbl_bud_map.COUNT
2204: LOOP
2201: END IF;
2202:
2203: FOR i in 1..g_tbl_bud_map.COUNT
2204: LOOP
2205: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad(g_tbl_bud_map(i).old_budget_name,30,' ')||' '||rpad(g_tbl_bud_map(i).new_budget_name,30,' '));
2206: END LOOP;
2207:
2208: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
2209: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
2204: LOOP
2205: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad(g_tbl_bud_map(i).old_budget_name,30,' ')||' '||rpad(g_tbl_bud_map(i).new_budget_name,30,' '));
2206: END LOOP;
2207:
2208: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
2209: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
2210: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('Primary Ledger Budget Organization',40,' ')||' '||rpad('CBC Ledger Budget Organization',40,' '));
2211: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('-',40,'-')||' '||rpad('-',40,'-'));
2212: IF g_tbl_bud_entity_map.COUNT < 1 THEN
2205: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad(g_tbl_bud_map(i).old_budget_name,30,' ')||' '||rpad(g_tbl_bud_map(i).new_budget_name,30,' '));
2206: END LOOP;
2207:
2208: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
2209: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
2210: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('Primary Ledger Budget Organization',40,' ')||' '||rpad('CBC Ledger Budget Organization',40,' '));
2211: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('-',40,'-')||' '||rpad('-',40,'-'));
2212: IF g_tbl_bud_entity_map.COUNT < 1 THEN
2213: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'NO DATA FOUND');
2206: END LOOP;
2207:
2208: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
2209: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
2210: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('Primary Ledger Budget Organization',40,' ')||' '||rpad('CBC Ledger Budget Organization',40,' '));
2211: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('-',40,'-')||' '||rpad('-',40,'-'));
2212: IF g_tbl_bud_entity_map.COUNT < 1 THEN
2213: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'NO DATA FOUND');
2214: END IF;
2207:
2208: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
2209: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
2210: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('Primary Ledger Budget Organization',40,' ')||' '||rpad('CBC Ledger Budget Organization',40,' '));
2211: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('-',40,'-')||' '||rpad('-',40,'-'));
2212: IF g_tbl_bud_entity_map.COUNT < 1 THEN
2213: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'NO DATA FOUND');
2214: END IF;
2215:
2209: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
2210: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('Primary Ledger Budget Organization',40,' ')||' '||rpad('CBC Ledger Budget Organization',40,' '));
2211: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad('-',40,'-')||' '||rpad('-',40,'-'));
2212: IF g_tbl_bud_entity_map.COUNT < 1 THEN
2213: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'NO DATA FOUND');
2214: END IF;
2215:
2216: FOR i in 1..g_tbl_bud_entity_map.COUNT
2217: LOOP
2214: END IF;
2215:
2216: FOR i in 1..g_tbl_bud_entity_map.COUNT
2217: LOOP
2218: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad(g_tbl_bud_entity_map(i).old_bud_entity,40,' ')||' '||rpad(g_tbl_bud_entity_map(i).new_bud_entity,40,' '));
2219: END LOOP;
2220:
2221:
2222: END print_budget_stats;