203: AND lookup_code = 'TOTAL_COST';
204:
205:
206: --Print Report Title
207: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,TO_CHAR(sysdate,'DD-MON-YYYY')||
208: ' '||v_report_title);
209: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_global.local_chr(10));
210:
211:
205:
206: --Print Report Title
207: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,TO_CHAR(sysdate,'DD-MON-YYYY')||
208: ' '||v_report_title);
209: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_global.local_chr(10));
210:
211:
212:
213: FOR report_rec IN report_cur(v_request_id) LOOP
215: IF NVL(curr_project_id,-1) <> report_rec.project_id THEN
216:
217: --Print Project Header
218:
219: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_global.local_chr(10));
220: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_global.local_chr(10));
221: -- Replaced with translated lookup values for headings
222: -- FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('Project Number',25,' ')||RPAD('Project Name',30,' '));
223: -- FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('==============',25,' ')||RPAD('============',30,' '));
216:
217: --Print Project Header
218:
219: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_global.local_chr(10));
220: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_global.local_chr(10));
221: -- Replaced with translated lookup values for headings
222: -- FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('Project Number',25,' ')||RPAD('Project Name',30,' '));
223: -- FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('==============',25,' ')||RPAD('============',30,' '));
224: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,v_proj_heading1);
218:
219: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_global.local_chr(10));
220: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_global.local_chr(10));
221: -- Replaced with translated lookup values for headings
222: -- FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('Project Number',25,' ')||RPAD('Project Name',30,' '));
223: -- FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('==============',25,' ')||RPAD('============',30,' '));
224: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,v_proj_heading1);
225: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,v_proj_heading2);
226: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD(report_rec.project_number,25,' ')||RPAD(report_rec.project_name,30,' '));
219: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_global.local_chr(10));
220: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_global.local_chr(10));
221: -- Replaced with translated lookup values for headings
222: -- FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('Project Number',25,' ')||RPAD('Project Name',30,' '));
223: -- FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('==============',25,' ')||RPAD('============',30,' '));
224: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,v_proj_heading1);
225: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,v_proj_heading2);
226: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD(report_rec.project_number,25,' ')||RPAD(report_rec.project_name,30,' '));
227:
220: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_global.local_chr(10));
221: -- Replaced with translated lookup values for headings
222: -- FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('Project Number',25,' ')||RPAD('Project Name',30,' '));
223: -- FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('==============',25,' ')||RPAD('============',30,' '));
224: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,v_proj_heading1);
225: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,v_proj_heading2);
226: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD(report_rec.project_number,25,' ')||RPAD(report_rec.project_name,30,' '));
227:
228: curr_project_id := report_rec.project_id;
221: -- Replaced with translated lookup values for headings
222: -- FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('Project Number',25,' ')||RPAD('Project Name',30,' '));
223: -- FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('==============',25,' ')||RPAD('============',30,' '));
224: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,v_proj_heading1);
225: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,v_proj_heading2);
226: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD(report_rec.project_number,25,' ')||RPAD(report_rec.project_name,30,' '));
227:
228: curr_project_id := report_rec.project_id;
229: curr_capital_type := 'X';
222: -- FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('Project Number',25,' ')||RPAD('Project Name',30,' '));
223: -- FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('==============',25,' ')||RPAD('============',30,' '));
224: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,v_proj_heading1);
225: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,v_proj_heading2);
226: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD(report_rec.project_number,25,' ')||RPAD(report_rec.project_name,30,' '));
227:
228: curr_project_id := report_rec.project_id;
229: curr_capital_type := 'X';
230: curr_context := report_rec.context;
243:
244: IF NVL(curr_capital_type,'X') <> report_rec.capital_type THEN
245:
246: --Print Project Header
247: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_global.local_chr(10));
248: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,report_rec.capital_type_desc||' '||v_event_information);
249: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'----------------------------------------');
250:
251: curr_capital_type := report_rec.capital_type;
244: IF NVL(curr_capital_type,'X') <> report_rec.capital_type THEN
245:
246: --Print Project Header
247: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_global.local_chr(10));
248: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,report_rec.capital_type_desc||' '||v_event_information);
249: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'----------------------------------------');
250:
251: curr_capital_type := report_rec.capital_type;
252: curr_context := report_rec.context;
245:
246: --Print Project Header
247: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_global.local_chr(10));
248: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,report_rec.capital_type_desc||' '||v_event_information);
249: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'----------------------------------------');
250:
251: curr_capital_type := report_rec.capital_type;
252: curr_context := report_rec.context;
253: END IF;
256: --Print blank line for report formatting during control break
257: IF report_rec.context = '3' THEN
258:
259: --Print Blank Line
260: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_global.local_chr(10));
261:
262: END IF;
263:
264:
266: IF NVL(curr_context,report_rec.context) <> report_rec.context
267: AND NVL(curr_context,'X') = '1' THEN
268:
269: --Print Blank Line
270: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_global.local_chr(10));
271:
272: curr_context := report_rec.context;
273: END IF;
274:
273: END IF;
274:
275:
276: --Print message line
277: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,report_rec.formatted_message);
278:
279:
280: --Print listing of Assets Added to New Events along with Event Cost Total
281: IF report_rec.sub_context = 'E' THEN
279:
280: --Print listing of Assets Added to New Events along with Event Cost Total
281: IF report_rec.sub_context = 'E' THEN
282:
283: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' '||v_assets_included);
284:
285: FOR assets_added_rec IN assets_added_cur(report_rec.project_id, report_rec.capital_event_id) LOOP
286: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' '||assets_added_rec.asset_name||' - '||assets_added_rec.asset_description);
287: END LOOP;
282:
283: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' '||v_assets_included);
284:
285: FOR assets_added_rec IN assets_added_cur(report_rec.project_id, report_rec.capital_event_id) LOOP
286: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' '||assets_added_rec.asset_name||' - '||assets_added_rec.asset_description);
287: END LOOP;
288:
289: FOR costs_added_rec IN costs_added_cur(report_rec.project_id, report_rec.capital_event_id, v_cost_type) LOOP
290: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_global.local_chr(10));
286: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' '||assets_added_rec.asset_name||' - '||assets_added_rec.asset_description);
287: END LOOP;
288:
289: FOR costs_added_rec IN costs_added_cur(report_rec.project_id, report_rec.capital_event_id, v_cost_type) LOOP
290: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_global.local_chr(10));
291: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' '||v_cost_included||' '||TO_CHAR(costs_added_rec.total_cost,pa_currency.currency_fmt_mask(15)));
292: END LOOP;
293:
294: END IF;
287: END LOOP;
288:
289: FOR costs_added_rec IN costs_added_cur(report_rec.project_id, report_rec.capital_event_id, v_cost_type) LOOP
290: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_global.local_chr(10));
291: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' '||v_cost_included||' '||TO_CHAR(costs_added_rec.total_cost,pa_currency.currency_fmt_mask(15)));
292: END LOOP;
293:
294: END IF;
295:
296:
297: --Print listing of Assets Added to Existing Event
298: IF report_rec.sub_context = 'AE' THEN
299:
300: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' '||v_assets_added);
301:
302: FOR assets_added_rec IN assets_added_cur(report_rec.project_id, report_rec.capital_event_id) LOOP
303: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' '||assets_added_rec.asset_name||' - '||assets_added_rec.asset_description);
304: END LOOP;
299:
300: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' '||v_assets_added);
301:
302: FOR assets_added_rec IN assets_added_cur(report_rec.project_id, report_rec.capital_event_id) LOOP
303: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' '||assets_added_rec.asset_name||' - '||assets_added_rec.asset_description);
304: END LOOP;
305:
306: END IF;
307:
309: --Print Total of Costs Added to Existing Event
310: IF report_rec.sub_context = 'CE' THEN
311:
312: FOR costs_added_rec IN costs_added_cur(report_rec.project_id, report_rec.capital_event_id, v_cost_type) LOOP
313: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' '||v_cost_added||' '||TO_CHAR(costs_added_rec.total_cost,pa_currency.currency_fmt_mask(15)));
314: END LOOP;
315:
316:
317: --Print current Cost Total for Existing Event
316:
317: --Print current Cost Total for Existing Event
318:
319: FOR current_costs_rec IN current_costs_cur(report_rec.project_id, report_rec.capital_event_id, v_cost_type) LOOP
320: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_global.local_chr(10));
321: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' '||v_total_cost||' '||TO_CHAR(current_costs_rec.total_cost,pa_currency.currency_fmt_mask(15)));
322: END LOOP;
323:
324: END IF;
317: --Print current Cost Total for Existing Event
318:
319: FOR current_costs_rec IN current_costs_cur(report_rec.project_id, report_rec.capital_event_id, v_cost_type) LOOP
320: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_global.local_chr(10));
321: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' '||v_total_cost||' '||TO_CHAR(current_costs_rec.total_cost,pa_currency.currency_fmt_mask(15)));
322: END LOOP;
323:
324: END IF;
325:
551: EXCEPTION
552: WHEN p_event_period_name_missing THEN
553: retcode := -10;
554: errbuf := 'Parameter p_event_period_name is required.';
555: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,errbuf);
556: FND_FILE.PUT_LINE(FND_FILE.LOG,errbuf);
557: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_CAPITAL_EVENTS_PVT',
558: p_procedure_name => 'CREATE_PERIODIC_EVENT',
559: p_error_text => SUBSTRB(errbuf,1,240));
552: WHEN p_event_period_name_missing THEN
553: retcode := -10;
554: errbuf := 'Parameter p_event_period_name is required.';
555: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,errbuf);
556: FND_FILE.PUT_LINE(FND_FILE.LOG,errbuf);
557: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_CAPITAL_EVENTS_PVT',
558: p_procedure_name => 'CREATE_PERIODIC_EVENT',
559: p_error_text => SUBSTRB(errbuf,1,240));
560: ROLLBACK;
563:
564: WHEN p_asset_date_through_missing THEN
565: retcode := -20;
566: errbuf := 'Parameter p_asset_through_date is required.';
567: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,errbuf);
568: FND_FILE.PUT_LINE(FND_FILE.LOG,errbuf);
569: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_CAPITAL_EVENTS_PVT',
570: p_procedure_name => 'CREATE_PERIODIC_EVENT',
571: p_error_text => SUBSTRB(errbuf,1,240));
564: WHEN p_asset_date_through_missing THEN
565: retcode := -20;
566: errbuf := 'Parameter p_asset_through_date is required.';
567: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,errbuf);
568: FND_FILE.PUT_LINE(FND_FILE.LOG,errbuf);
569: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_CAPITAL_EVENTS_PVT',
570: p_procedure_name => 'CREATE_PERIODIC_EVENT',
571: p_error_text => SUBSTRB(errbuf,1,240));
572: ROLLBACK;
575:
576: WHEN error_in_client_extn THEN
577: retcode := -40;
578: errbuf := 'Error in PRE_CAPITAL_EVENT client extension for project id '||ac_projects_rec.project_id||' '||v_msg_data;
579: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,errbuf);
580: FND_FILE.PUT_LINE(FND_FILE.LOG,errbuf);
581: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_CLIENT_EXTN_PRE_CAP_EVENT',
582: p_procedure_name => 'PRE_CAPITAL_EVENT',
583: p_error_text => SUBSTRB(v_msg_data,1,240));
576: WHEN error_in_client_extn THEN
577: retcode := -40;
578: errbuf := 'Error in PRE_CAPITAL_EVENT client extension for project id '||ac_projects_rec.project_id||' '||v_msg_data;
579: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,errbuf);
580: FND_FILE.PUT_LINE(FND_FILE.LOG,errbuf);
581: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_CLIENT_EXTN_PRE_CAP_EVENT',
582: p_procedure_name => 'PRE_CAPITAL_EVENT',
583: p_error_text => SUBSTRB(v_msg_data,1,240));
584: ROLLBACK;
587:
588: WHEN unexp_error_in_client_extn THEN
589: retcode := -50;
590: errbuf := 'Unexpected error in PRE_CAPITAL_EVENT client extn for project id '||ac_projects_rec.project_id||' '||v_msg_data;
591: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,errbuf);
592: FND_FILE.PUT_LINE(FND_FILE.LOG,errbuf);
593: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_CLIENT_EXTN_PRE_CAP_EVENT',
594: p_procedure_name => 'PRE_CAPITAL_EVENT',
595: p_error_text => SUBSTRB(v_msg_data,1,240));
588: WHEN unexp_error_in_client_extn THEN
589: retcode := -50;
590: errbuf := 'Unexpected error in PRE_CAPITAL_EVENT client extn for project id '||ac_projects_rec.project_id||' '||v_msg_data;
591: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,errbuf);
592: FND_FILE.PUT_LINE(FND_FILE.LOG,errbuf);
593: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_CLIENT_EXTN_PRE_CAP_EVENT',
594: p_procedure_name => 'PRE_CAPITAL_EVENT',
595: p_error_text => SUBSTRB(v_msg_data,1,240));
596: ROLLBACK;
599: WHEN OTHERS THEN
600: retcode := SQLCODE;
601: errbuf := 'Unexpected error for project id '||
602: ac_projects_rec.project_id||': '||SQLCODE||' '||SQLERRM;
603: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,errbuf);
604: FND_FILE.PUT_LINE(FND_FILE.LOG,errbuf);
605: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_CAPITAL_EVENTS_PVT',
606: p_procedure_name => 'CREATE_PERIODIC_EVENT',
607: p_error_text => SUBSTRB(errbuf,1,240));
600: retcode := SQLCODE;
601: errbuf := 'Unexpected error for project id '||
602: ac_projects_rec.project_id||': '||SQLCODE||' '||SQLERRM;
603: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,errbuf);
604: FND_FILE.PUT_LINE(FND_FILE.LOG,errbuf);
605: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_CAPITAL_EVENTS_PVT',
606: p_procedure_name => 'CREATE_PERIODIC_EVENT',
607: p_error_text => SUBSTRB(errbuf,1,240));
608: ROLLBACK;
2351:
2352: WHEN empty_cursor_error THEN
2353: retcode := -30;
2354: errbuf := 'Cannot find newly created Capital Event for project id '||p_project_id;
2355: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,errbuf);
2356: FND_FILE.PUT_LINE(FND_FILE.LOG,errbuf);
2357: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_CAPITAL_EVENTS_PVT',
2358: p_procedure_name => 'CREATE_EVENT_FOR_PROJECT',
2359: p_error_text => SUBSTRB(errbuf,1,240));
2352: WHEN empty_cursor_error THEN
2353: retcode := -30;
2354: errbuf := 'Cannot find newly created Capital Event for project id '||p_project_id;
2355: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,errbuf);
2356: FND_FILE.PUT_LINE(FND_FILE.LOG,errbuf);
2357: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_CAPITAL_EVENTS_PVT',
2358: p_procedure_name => 'CREATE_EVENT_FOR_PROJECT',
2359: p_error_text => SUBSTRB(errbuf,1,240));
2360: ROLLBACK;
2365: WHEN OTHERS THEN
2366: retcode := SQLCODE;
2367: errbuf := 'Unexpected error for project id '||
2368: p_project_id||': '||SQLCODE||' '||SQLERRM;
2369: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,errbuf);
2370: FND_FILE.PUT_LINE(FND_FILE.LOG,errbuf);
2371: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_CAPITAL_EVENTS_PVT',
2372: p_procedure_name => 'CREATE_EVENT_FOR_PROJECT',
2373: p_error_text => SUBSTRB(errbuf,1,240));
2366: retcode := SQLCODE;
2367: errbuf := 'Unexpected error for project id '||
2368: p_project_id||': '||SQLCODE||' '||SQLERRM;
2369: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,errbuf);
2370: FND_FILE.PUT_LINE(FND_FILE.LOG,errbuf);
2371: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_CAPITAL_EVENTS_PVT',
2372: p_procedure_name => 'CREATE_EVENT_FOR_PROJECT',
2373: p_error_text => SUBSTRB(errbuf,1,240));
2374: ROLLBACK;