287: -- Valid Vendor Prg Chosen
288: IF G_ERROR <> 'Y' THEN
289:
290: --log
291: FND_FILE.put_line(FND_FILE.log, RPAD('=',77,'=' ));
292: FND_FILE.put_line(FND_FILE.log, l_type ||
293: RPAD(' ',40-LENGTH(l_type),' ') ||
294: l_processed);
295:
288: IF G_ERROR <> 'Y' THEN
289:
290: --log
291: FND_FILE.put_line(FND_FILE.log, RPAD('=',77,'=' ));
292: FND_FILE.put_line(FND_FILE.log, l_type ||
293: RPAD(' ',40-LENGTH(l_type),' ') ||
294: l_processed);
295:
296: FND_FILE.put_line(FND_FILE.log, RPAD('-',77 ,'-'));
292: FND_FILE.put_line(FND_FILE.log, l_type ||
293: RPAD(' ',40-LENGTH(l_type),' ') ||
294: l_processed);
295:
296: FND_FILE.put_line(FND_FILE.log, RPAD('-',77 ,'-'));
297:
298: FND_FILE.put_line(FND_FILE.log, l_residual_shr_success ||
299: RPAD(' ',40-LENGTH(l_residual_shr_success),' ') ||
300: l_success);
294: l_processed);
295:
296: FND_FILE.put_line(FND_FILE.log, RPAD('-',77 ,'-'));
297:
298: FND_FILE.put_line(FND_FILE.log, l_residual_shr_success ||
299: RPAD(' ',40-LENGTH(l_residual_shr_success),' ') ||
300: l_success);
301:
302: FND_FILE.put_line(FND_FILE.log, l_residual_shr_error ||
298: FND_FILE.put_line(FND_FILE.log, l_residual_shr_success ||
299: RPAD(' ',40-LENGTH(l_residual_shr_success),' ') ||
300: l_success);
301:
302: FND_FILE.put_line(FND_FILE.log, l_residual_shr_error ||
303: RPAD(' ',40-LENGTH(l_residual_shr_error),' ') ||
304: l_error);
305: FND_FILE.put_line(FND_FILE.log,'');
306: FND_FILE.put_line(FND_FILE.log, RPAD('=',77,'=' ));
301:
302: FND_FILE.put_line(FND_FILE.log, l_residual_shr_error ||
303: RPAD(' ',40-LENGTH(l_residual_shr_error),' ') ||
304: l_error);
305: FND_FILE.put_line(FND_FILE.log,'');
306: FND_FILE.put_line(FND_FILE.log, RPAD('=',77,'=' ));
307:
308: -- output
309: FND_FILE.PUT_LINE(FND_FILE.output, RPAD(' ', 128/2-LENGTH(l_orcl_logo)/2, ' ' ) ||
302: FND_FILE.put_line(FND_FILE.log, l_residual_shr_error ||
303: RPAD(' ',40-LENGTH(l_residual_shr_error),' ') ||
304: l_error);
305: FND_FILE.put_line(FND_FILE.log,'');
306: FND_FILE.put_line(FND_FILE.log, RPAD('=',77,'=' ));
307:
308: -- output
309: FND_FILE.PUT_LINE(FND_FILE.output, RPAD(' ', 128/2-LENGTH(l_orcl_logo)/2, ' ' ) ||
310: l_orcl_logo);
305: FND_FILE.put_line(FND_FILE.log,'');
306: FND_FILE.put_line(FND_FILE.log, RPAD('=',77,'=' ));
307:
308: -- output
309: FND_FILE.PUT_LINE(FND_FILE.output, RPAD(' ', 128/2-LENGTH(l_orcl_logo)/2, ' ' ) ||
310: l_orcl_logo);
311:
312: FND_FILE.PUT_LINE(FND_FILE.output, RPAD(' ', 128/2-LENGTH(l_term_heading)/2, ' ' ) ||
313: l_term_heading);
308: -- output
309: FND_FILE.PUT_LINE(FND_FILE.output, RPAD(' ', 128/2-LENGTH(l_orcl_logo)/2, ' ' ) ||
310: l_orcl_logo);
311:
312: FND_FILE.PUT_LINE(FND_FILE.output, RPAD(' ', 128/2-LENGTH(l_term_heading)/2, ' ' ) ||
313: l_term_heading);
314:
315: FND_FILE.put_line(FND_FILE.output, RPAD(' ',128/2-LENGTH(l_term_heading)/2 , ' ' ) ||
316: RPAD('-',LENGTH(l_term_heading),'-'));
311:
312: FND_FILE.PUT_LINE(FND_FILE.output, RPAD(' ', 128/2-LENGTH(l_term_heading)/2, ' ' ) ||
313: l_term_heading);
314:
315: FND_FILE.put_line(FND_FILE.output, RPAD(' ',128/2-LENGTH(l_term_heading)/2 , ' ' ) ||
316: RPAD('-',LENGTH(l_term_heading),'-'));
317:
318: FND_FILE.put_line(FND_FILE.output, '');
319:
314:
315: FND_FILE.put_line(FND_FILE.output, RPAD(' ',128/2-LENGTH(l_term_heading)/2 , ' ' ) ||
316: RPAD('-',LENGTH(l_term_heading),'-'));
317:
318: FND_FILE.put_line(FND_FILE.output, '');
319:
320: FND_FILE.put_line(FND_FILE.output, l_set_of_books ||' : '||
321: l_set_of_books_name ||
322: RPAD(' ', 128-LENGTH(l_set_of_books)-LENGTH(l_set_of_books_name)-LENGTH(l_run_date)-25, ' ' ) ||
316: RPAD('-',LENGTH(l_term_heading),'-'));
317:
318: FND_FILE.put_line(FND_FILE.output, '');
319:
320: FND_FILE.put_line(FND_FILE.output, l_set_of_books ||' : '||
321: l_set_of_books_name ||
322: RPAD(' ', 128-LENGTH(l_set_of_books)-LENGTH(l_set_of_books_name)-LENGTH(l_run_date)-25, ' ' ) ||
323: l_run_date ||' : ' ||
324: TO_CHAR(SYSDATE, 'DD-MON-YYYY HH24:MI'));
322: RPAD(' ', 128-LENGTH(l_set_of_books)-LENGTH(l_set_of_books_name)-LENGTH(l_run_date)-25, ' ' ) ||
323: l_run_date ||' : ' ||
324: TO_CHAR(SYSDATE, 'DD-MON-YYYY HH24:MI'));
325:
326: FND_FILE.put_line(FND_FILE.output, l_oper_unit || ' : ' ||
327: l_org_name);
328:
329: FND_FILE.put_line(FND_FILE.output,'');
330: FND_FILE.put_line(FND_FILE.output,'');
325:
326: FND_FILE.put_line(FND_FILE.output, l_oper_unit || ' : ' ||
327: l_org_name);
328:
329: FND_FILE.put_line(FND_FILE.output,'');
330: FND_FILE.put_line(FND_FILE.output,'');
331:
332: FND_FILE.put_line(FND_FILE.output, l_type ||
333: RPAD(' ',40-LENGTH(l_type),' ') ||
326: FND_FILE.put_line(FND_FILE.output, l_oper_unit || ' : ' ||
327: l_org_name);
328:
329: FND_FILE.put_line(FND_FILE.output,'');
330: FND_FILE.put_line(FND_FILE.output,'');
331:
332: FND_FILE.put_line(FND_FILE.output, l_type ||
333: RPAD(' ',40-LENGTH(l_type),' ') ||
334: l_processed);
328:
329: FND_FILE.put_line(FND_FILE.output,'');
330: FND_FILE.put_line(FND_FILE.output,'');
331:
332: FND_FILE.put_line(FND_FILE.output, l_type ||
333: RPAD(' ',40-LENGTH(l_type),' ') ||
334: l_processed);
335:
336: FND_FILE.put_line(FND_FILE.output, RPAD('-',128 ,'-'));
332: FND_FILE.put_line(FND_FILE.output, l_type ||
333: RPAD(' ',40-LENGTH(l_type),' ') ||
334: l_processed);
335:
336: FND_FILE.put_line(FND_FILE.output, RPAD('-',128 ,'-'));
337:
338: FND_FILE.put_line(FND_FILE.output, l_residual_shr_success ||
339: RPAD(' ',40-LENGTH(l_residual_shr_success),' ') ||
340: l_success);
334: l_processed);
335:
336: FND_FILE.put_line(FND_FILE.output, RPAD('-',128 ,'-'));
337:
338: FND_FILE.put_line(FND_FILE.output, l_residual_shr_success ||
339: RPAD(' ',40-LENGTH(l_residual_shr_success),' ') ||
340: l_success);
341:
342: FND_FILE.put_line(FND_FILE.output, l_residual_shr_error ||
338: FND_FILE.put_line(FND_FILE.output, l_residual_shr_success ||
339: RPAD(' ',40-LENGTH(l_residual_shr_success),' ') ||
340: l_success);
341:
342: FND_FILE.put_line(FND_FILE.output, l_residual_shr_error ||
343: RPAD(' ',40-LENGTH(l_residual_shr_error),' ') ||
344: l_error);
345:
346: FND_FILE.put_line(FND_FILE.output,'');
342: FND_FILE.put_line(FND_FILE.output, l_residual_shr_error ||
343: RPAD(' ',40-LENGTH(l_residual_shr_error),' ') ||
344: l_error);
345:
346: FND_FILE.put_line(FND_FILE.output,'');
347: FND_FILE.put_line(FND_FILE.output, RPAD('=',128,'=' ));
348: FND_FILE.put_line(FND_FILE.output,'');
349:
350: -- Print VPAs Terminated Successfully
343: RPAD(' ',40-LENGTH(l_residual_shr_error),' ') ||
344: l_error);
345:
346: FND_FILE.put_line(FND_FILE.output,'');
347: FND_FILE.put_line(FND_FILE.output, RPAD('=',128,'=' ));
348: FND_FILE.put_line(FND_FILE.output,'');
349:
350: -- Print VPAs Terminated Successfully
351: IF l_success > 0 THEN
344: l_error);
345:
346: FND_FILE.put_line(FND_FILE.output,'');
347: FND_FILE.put_line(FND_FILE.output, RPAD('=',128,'=' ));
348: FND_FILE.put_line(FND_FILE.output,'');
349:
350: -- Print VPAs Terminated Successfully
351: IF l_success > 0 THEN
352:
349:
350: -- Print VPAs Terminated Successfully
351: IF l_success > 0 THEN
352:
353: FND_FILE.put_line(FND_FILE.output, l_residual_shr_success);
354: FND_FILE.put_line(FND_FILE.output, RPAD('-',LENGTH(l_residual_shr_success), '-' ));
355: FND_FILE.put_line(FND_FILE.output,'');
356:
357: l_print := 'N';
350: -- Print VPAs Terminated Successfully
351: IF l_success > 0 THEN
352:
353: FND_FILE.put_line(FND_FILE.output, l_residual_shr_success);
354: FND_FILE.put_line(FND_FILE.output, RPAD('-',LENGTH(l_residual_shr_success), '-' ));
355: FND_FILE.put_line(FND_FILE.output,'');
356:
357: l_print := 'N';
358:
351: IF l_success > 0 THEN
352:
353: FND_FILE.put_line(FND_FILE.output, l_residual_shr_success);
354: FND_FILE.put_line(FND_FILE.output, RPAD('-',LENGTH(l_residual_shr_success), '-' ));
355: FND_FILE.put_line(FND_FILE.output,'');
356:
357: l_print := 'N';
358:
359: FOR i IN success_message_table.FIRST..success_message_table.LAST LOOP
359: FOR i IN success_message_table.FIRST..success_message_table.LAST LOOP
360:
361: IF l_print = 'N' THEN
362:
363: FND_FILE.put_line(FND_FILE.output, l_serial || RPAD(' ',15-LENGTH(l_serial),' ')||
364: l_kle_num || RPAD(' ',35-LENGTH(l_kle_num),' ')||
365: l_k_num || RPAD(' ',35-LENGTH(l_k_num),' ')||
366: l_vpa_num || RPAD(' ',35-LENGTH(l_vpa_num),' ')||
367: l_start_date||RPAD(' ',20-LENGTH(l_start_date),' ') ||
366: l_vpa_num || RPAD(' ',35-LENGTH(l_vpa_num),' ')||
367: l_start_date||RPAD(' ',20-LENGTH(l_start_date),' ') ||
368: l_end_date||RPAD(' ',15-LENGTH(l_end_date),' '));
369:
370: FND_FILE.put_line(FND_FILE.output, RPAD('-',LENGTH(l_serial),'-') || RPAD('-',15-LENGTH(l_serial),'-')||
371: RPAD('-',LENGTH(l_kle_num),'-') || RPAD('-',35-LENGTH(l_kle_num),'-')||
372: RPAD('-',LENGTH(l_k_num),'-') || RPAD('-',35-LENGTH(l_k_num),'-')||
373: RPAD('-',LENGTH(l_vpa_num),'-') || RPAD('-',35-LENGTH(l_vpa_num),'-')||
374: RPAD('-',LENGTH(l_start_date),'-')||RPAD('-',20-LENGTH(l_start_date),'-') ||
376:
377: l_print := 'Y';
378: END IF;
379:
380: FND_FILE.put_line(FND_FILE.output, i || RPAD(' ',15-LENGTH(i),' ')||
381: success_message_table(i).asset_number ||
382: RPAD(' ',35-LENGTH(success_message_table(i).asset_number),' ')||
383: success_message_table(i).contract_number ||
384: RPAD(' ',35-LENGTH(success_message_table(i).contract_number),' ')||
391:
392: END LOOP;
393: END IF;
394:
395: FND_FILE.put_line(FND_FILE.output,'');
396:
397: -- Print VPAs errored
398: IF l_error > 0 THEN
399:
396:
397: -- Print VPAs errored
398: IF l_error > 0 THEN
399:
400: FND_FILE.put_line(FND_FILE.output, l_residual_shr_error);
401: FND_FILE.put_line(FND_FILE.output, RPAD('-',LENGTH(l_residual_shr_error), '-' ));
402: FND_FILE.put_line(FND_FILE.output,'');
403:
404: -- Initialize the table index
397: -- Print VPAs errored
398: IF l_error > 0 THEN
399:
400: FND_FILE.put_line(FND_FILE.output, l_residual_shr_error);
401: FND_FILE.put_line(FND_FILE.output, RPAD('-',LENGTH(l_residual_shr_error), '-' ));
402: FND_FILE.put_line(FND_FILE.output,'');
403:
404: -- Initialize the table index
405: msg_lines_table_index := 1;
398: IF l_error > 0 THEN
399:
400: FND_FILE.put_line(FND_FILE.output, l_residual_shr_error);
401: FND_FILE.put_line(FND_FILE.output, RPAD('-',LENGTH(l_residual_shr_error), '-' ));
402: FND_FILE.put_line(FND_FILE.output,'');
403:
404: -- Initialize the table index
405: msg_lines_table_index := 1;
406:
405: msg_lines_table_index := 1;
406:
407: FOR i IN error_message_table.FIRST..error_message_table.LAST LOOP
408:
409: FND_FILE.put_line(FND_FILE.output, l_serial || RPAD(' ',15-LENGTH(l_serial),' ')||
410: l_kle_num || RPAD(' ',35-LENGTH(l_kle_num),' ')||
411: l_k_num || RPAD(' ',35-LENGTH(l_k_num),' ')||
412: l_vpa_num || RPAD(' ',35-LENGTH(l_vpa_num),' ')||
413: l_start_date||RPAD(' ',20-LENGTH(l_start_date),' ') ||
412: l_vpa_num || RPAD(' ',35-LENGTH(l_vpa_num),' ')||
413: l_start_date||RPAD(' ',20-LENGTH(l_start_date),' ') ||
414: l_end_date||RPAD(' ',15-LENGTH(l_end_date),' '));
415:
416: FND_FILE.put_line(FND_FILE.output, RPAD('-',LENGTH(l_serial),'-') || RPAD('-',15-LENGTH(l_serial),'-')||
417: RPAD('-',LENGTH(l_kle_num),'-') || RPAD('-',35-LENGTH(l_kle_num),'-')||
418: RPAD('-',LENGTH(l_k_num),'-') || RPAD('-',35-LENGTH(l_k_num),'-')||
419: RPAD('-',LENGTH(l_vpa_num),'-') || RPAD('-',35-LENGTH(l_vpa_num),'-')||
420: RPAD('-',LENGTH(l_start_date),'-')||RPAD('-',20-LENGTH(l_start_date),'-') ||
419: RPAD('-',LENGTH(l_vpa_num),'-') || RPAD('-',35-LENGTH(l_vpa_num),'-')||
420: RPAD('-',LENGTH(l_start_date),'-')||RPAD('-',20-LENGTH(l_start_date),'-') ||
421: RPAD('-',LENGTH(l_end_date),'-')||RPAD('-',15-LENGTH(l_end_date),'-'));
422:
423: FND_FILE.put_line(FND_FILE.output, i || RPAD(' ',15-LENGTH(i),' ')||
424: error_message_table(i).asset_number ||
425: RPAD(' ',35-LENGTH(error_message_table(i).asset_number),' ')||
426: error_message_table(i).contract_number ||
427: RPAD(' ',35-LENGTH(error_message_table(i).contract_number),' ')||
431: RPAD(' ',20-LENGTH(error_message_table(i).start_date),' ') ||
432: error_message_table(i).end_date||
433: RPAD(' ',15-LENGTH(error_message_table(i).end_date),' '));
434:
435: FND_FILE.put_line(FND_FILE.output,'');
436:
437: FND_FILE.put_line(FND_FILE.output, RPAD(' ',5,' ') || l_messages || ' :');
438:
439: k := 1;
433: RPAD(' ',15-LENGTH(error_message_table(i).end_date),' '));
434:
435: FND_FILE.put_line(FND_FILE.output,'');
436:
437: FND_FILE.put_line(FND_FILE.output, RPAD(' ',5,' ') || l_messages || ' :');
438:
439: k := 1;
440: FOR j IN msg_lines_table_index .. msg_lines_table.LAST LOOP
441: IF msg_lines_table(j).id = error_message_table(i).id THEN
438:
439: k := 1;
440: FOR j IN msg_lines_table_index .. msg_lines_table.LAST LOOP
441: IF msg_lines_table(j).id = error_message_table(i).id THEN
442: FND_FILE.put(FND_FILE.output, RPAD(' ',5,' ') || k || ': ' || msg_lines_table(j).msg);
443: FND_FILE.put_line(FND_FILE.output,'');
444: k := k + 1;
445: ELSE
446: msg_lines_table_index := j ;
439: k := 1;
440: FOR j IN msg_lines_table_index .. msg_lines_table.LAST LOOP
441: IF msg_lines_table(j).id = error_message_table(i).id THEN
442: FND_FILE.put(FND_FILE.output, RPAD(' ',5,' ') || k || ': ' || msg_lines_table(j).msg);
443: FND_FILE.put_line(FND_FILE.output,'');
444: k := k + 1;
445: ELSE
446: msg_lines_table_index := j ;
447: EXIT;
448: END IF;
449:
450: END LOOP;
451:
452: FND_FILE.put_line(FND_FILE.output,'');
453:
454: END LOOP;
455:
456: END IF;
454: END LOOP;
455:
456: END IF;
457:
458: FND_FILE.put_line(FND_FILE.output,'');
459: FND_FILE.put_line(FND_FILE.output,'');
460: FND_FILE.put_line(FND_FILE.output, RPAD(' ', 53 , ' ' ) || l_eop);
461:
462: ELSE
455:
456: END IF;
457:
458: FND_FILE.put_line(FND_FILE.output,'');
459: FND_FILE.put_line(FND_FILE.output,'');
460: FND_FILE.put_line(FND_FILE.output, RPAD(' ', 53 , ' ' ) || l_eop);
461:
462: ELSE
463:
456: END IF;
457:
458: FND_FILE.put_line(FND_FILE.output,'');
459: FND_FILE.put_line(FND_FILE.output,'');
460: FND_FILE.put_line(FND_FILE.output, RPAD(' ', 53 , ' ' ) || l_eop);
461:
462: ELSE
463:
464: FND_FILE.put_line(FND_FILE.log,l_processed || ' = 0');
460: FND_FILE.put_line(FND_FILE.output, RPAD(' ', 53 , ' ' ) || l_eop);
461:
462: ELSE
463:
464: FND_FILE.put_line(FND_FILE.log,l_processed || ' = 0');
465: FND_FILE.put_line(FND_FILE.log,l_inv);
466:
467: END IF;
468: EXCEPTION
461:
462: ELSE
463:
464: FND_FILE.put_line(FND_FILE.log,l_processed || ' = 0');
465: FND_FILE.put_line(FND_FILE.log,l_inv);
466:
467: END IF;
468: EXCEPTION
469:
1457: END IF;
1458:
1459: IF l_assets_found = 'N' THEN
1460:
1461: FND_FILE.put_line(FND_FILE.output, ' No Assets Found for Vendor Residual Sharing');
1462: FND_FILE.put_line(FND_FILE.log, ' No Assets Found for Vendor Residual Sharing');
1463:
1464: END IF;
1465:
1458:
1459: IF l_assets_found = 'N' THEN
1460:
1461: FND_FILE.put_line(FND_FILE.output, ' No Assets Found for Vendor Residual Sharing');
1462: FND_FILE.put_line(FND_FILE.log, ' No Assets Found for Vendor Residual Sharing');
1463:
1464: END IF;
1465:
1466: -- set return status
1649: l_org_name := org_rec.name;
1650: END LOOP;
1651:
1652: --log
1653: FND_FILE.put_line(FND_FILE.log, RPAD('=',77,'=' ));
1654: -- FND_FILE.put_line(FND_FILE.log, l_num_rows);-- ||
1655: -- --count(p_values));
1656:
1657: FND_FILE.put_line(FND_FILE.log, RPAD('-',77 ,'-'));
1650: END LOOP;
1651:
1652: --log
1653: FND_FILE.put_line(FND_FILE.log, RPAD('=',77,'=' ));
1654: -- FND_FILE.put_line(FND_FILE.log, l_num_rows);-- ||
1655: -- --count(p_values));
1656:
1657: FND_FILE.put_line(FND_FILE.log, RPAD('-',77 ,'-'));
1658:
1653: FND_FILE.put_line(FND_FILE.log, RPAD('=',77,'=' ));
1654: -- FND_FILE.put_line(FND_FILE.log, l_num_rows);-- ||
1655: -- --count(p_values));
1656:
1657: FND_FILE.put_line(FND_FILE.log, RPAD('-',77 ,'-'));
1658:
1659:
1660: -- output
1661: FND_FILE.PUT_LINE(FND_FILE.output, RPAD(' ', 128/2-LENGTH(l_orcl_logo)/2, ' ' ) ||
1657: FND_FILE.put_line(FND_FILE.log, RPAD('-',77 ,'-'));
1658:
1659:
1660: -- output
1661: FND_FILE.PUT_LINE(FND_FILE.output, RPAD(' ', 128/2-LENGTH(l_orcl_logo)/2, ' ' ) ||
1662: l_orcl_logo);
1663:
1664: FND_FILE.PUT_LINE(FND_FILE.output, RPAD(' ', 128/2-LENGTH(l_term_heading)/2, ' ' ) ||
1665: l_term_heading);
1660: -- output
1661: FND_FILE.PUT_LINE(FND_FILE.output, RPAD(' ', 128/2-LENGTH(l_orcl_logo)/2, ' ' ) ||
1662: l_orcl_logo);
1663:
1664: FND_FILE.PUT_LINE(FND_FILE.output, RPAD(' ', 128/2-LENGTH(l_term_heading)/2, ' ' ) ||
1665: l_term_heading);
1666:
1667: FND_FILE.put_line(FND_FILE.output, RPAD(' ',128/2-LENGTH(l_term_heading)/2 , ' ' ) ||
1668: RPAD('-',LENGTH(l_term_heading),'-'));
1663:
1664: FND_FILE.PUT_LINE(FND_FILE.output, RPAD(' ', 128/2-LENGTH(l_term_heading)/2, ' ' ) ||
1665: l_term_heading);
1666:
1667: FND_FILE.put_line(FND_FILE.output, RPAD(' ',128/2-LENGTH(l_term_heading)/2 , ' ' ) ||
1668: RPAD('-',LENGTH(l_term_heading),'-'));
1669:
1670: FND_FILE.put_line(FND_FILE.output, '');
1671:
1666:
1667: FND_FILE.put_line(FND_FILE.output, RPAD(' ',128/2-LENGTH(l_term_heading)/2 , ' ' ) ||
1668: RPAD('-',LENGTH(l_term_heading),'-'));
1669:
1670: FND_FILE.put_line(FND_FILE.output, '');
1671:
1672: FND_FILE.put_line(FND_FILE.output, l_set_of_books ||' : '||
1673: l_set_of_books_name ||
1674: RPAD(' ', 128-LENGTH(l_set_of_books)-LENGTH(l_set_of_books_name)-LENGTH(l_run_date)-25, ' ' ) ||
1668: RPAD('-',LENGTH(l_term_heading),'-'));
1669:
1670: FND_FILE.put_line(FND_FILE.output, '');
1671:
1672: FND_FILE.put_line(FND_FILE.output, l_set_of_books ||' : '||
1673: l_set_of_books_name ||
1674: RPAD(' ', 128-LENGTH(l_set_of_books)-LENGTH(l_set_of_books_name)-LENGTH(l_run_date)-25, ' ' ) ||
1675: l_run_date ||' : ' ||
1676: TO_CHAR(SYSDATE, 'DD-MON-YYYY HH24:MI'));
1674: RPAD(' ', 128-LENGTH(l_set_of_books)-LENGTH(l_set_of_books_name)-LENGTH(l_run_date)-25, ' ' ) ||
1675: l_run_date ||' : ' ||
1676: TO_CHAR(SYSDATE, 'DD-MON-YYYY HH24:MI'));
1677:
1678: FND_FILE.put_line(FND_FILE.output, l_oper_unit || ' : ' ||
1679: l_org_name ||
1680: RPAD(' ', 128-LENGTH(l_oper_unit)-LENGTH(l_org_name), ' ' ));
1681:
1682: FND_FILE.put_line(FND_FILE.output,'');
1678: FND_FILE.put_line(FND_FILE.output, l_oper_unit || ' : ' ||
1679: l_org_name ||
1680: RPAD(' ', 128-LENGTH(l_oper_unit)-LENGTH(l_org_name), ' ' ));
1681:
1682: FND_FILE.put_line(FND_FILE.output,'');
1683: FND_FILE.put_line(FND_FILE.output,'');
1684:
1685: FND_FILE.put_line(FND_FILE.output,'');
1686: FND_FILE.put_line(FND_FILE.output, RPAD('=',250,'=' ));
1679: l_org_name ||
1680: RPAD(' ', 128-LENGTH(l_oper_unit)-LENGTH(l_org_name), ' ' ));
1681:
1682: FND_FILE.put_line(FND_FILE.output,'');
1683: FND_FILE.put_line(FND_FILE.output,'');
1684:
1685: FND_FILE.put_line(FND_FILE.output,'');
1686: FND_FILE.put_line(FND_FILE.output, RPAD('=',250,'=' ));
1687: FND_FILE.put_line(FND_FILE.output,'');
1681:
1682: FND_FILE.put_line(FND_FILE.output,'');
1683: FND_FILE.put_line(FND_FILE.output,'');
1684:
1685: FND_FILE.put_line(FND_FILE.output,'');
1686: FND_FILE.put_line(FND_FILE.output, RPAD('=',250,'=' ));
1687: FND_FILE.put_line(FND_FILE.output,'');
1688:
1689:
1682: FND_FILE.put_line(FND_FILE.output,'');
1683: FND_FILE.put_line(FND_FILE.output,'');
1684:
1685: FND_FILE.put_line(FND_FILE.output,'');
1686: FND_FILE.put_line(FND_FILE.output, RPAD('=',250,'=' ));
1687: FND_FILE.put_line(FND_FILE.output,'');
1688:
1689:
1690: FND_FILE.put_line(FND_FILE.output, l_serial || RPAD(' ',15-LENGTH(l_serial),' ')||
1683: FND_FILE.put_line(FND_FILE.output,'');
1684:
1685: FND_FILE.put_line(FND_FILE.output,'');
1686: FND_FILE.put_line(FND_FILE.output, RPAD('=',250,'=' ));
1687: FND_FILE.put_line(FND_FILE.output,'');
1688:
1689:
1690: FND_FILE.put_line(FND_FILE.output, l_serial || RPAD(' ',15-LENGTH(l_serial),' ')||
1691:
1686: FND_FILE.put_line(FND_FILE.output, RPAD('=',250,'=' ));
1687: FND_FILE.put_line(FND_FILE.output,'');
1688:
1689:
1690: FND_FILE.put_line(FND_FILE.output, l_serial || RPAD(' ',15-LENGTH(l_serial),' ')||
1691:
1692: l_vpa_num || RPAD(' ',35-LENGTH(l_vpa_num),' ')||
1693:
1694: l_kle_num || RPAD(' ',35-LENGTH(l_kle_num),' ')||
1704: l_disp_dt||RPAD(' ',20-LENGTH(l_disp_dt),' ') ||
1705:
1706: l_vend_share||RPAD(' ',15-LENGTH(l_vend_share),' '));
1707:
1708: FND_FILE.put_line(FND_FILE.output, RPAD('-',250,'-' ));
1709:
1710: FOR i IN p_values.FIRST..p_values.LAST LOOP
1711:
1712: FND_FILE.put_line(FND_FILE.output, i || RPAD(' ',15-LENGTH(i),' ')||
1708: FND_FILE.put_line(FND_FILE.output, RPAD('-',250,'-' ));
1709:
1710: FOR i IN p_values.FIRST..p_values.LAST LOOP
1711:
1712: FND_FILE.put_line(FND_FILE.output, i || RPAD(' ',15-LENGTH(i),' ')||
1713:
1714: p_values(i).PROGRAM_AGREEMENT ||
1715: RPAD(' ',35-LENGTH(p_values(i).PROGRAM_AGREEMENT),' ')||
1716:
1736: RPAD(' ',15-LENGTH(p_values(i).VENDOR_SHARE),' '));
1737:
1738: END LOOP;
1739:
1740: FND_FILE.put_line(FND_FILE.output,'');
1741: FND_FILE.put_line(FND_FILE.output,'');
1742: FND_FILE.put_line(FND_FILE.output, RPAD(' ', 53 , ' ' ) || l_eop);
1743:
1744:
1737:
1738: END LOOP;
1739:
1740: FND_FILE.put_line(FND_FILE.output,'');
1741: FND_FILE.put_line(FND_FILE.output,'');
1742: FND_FILE.put_line(FND_FILE.output, RPAD(' ', 53 , ' ' ) || l_eop);
1743:
1744:
1745: EXCEPTION
1738: END LOOP;
1739:
1740: FND_FILE.put_line(FND_FILE.output,'');
1741: FND_FILE.put_line(FND_FILE.output,'');
1742: FND_FILE.put_line(FND_FILE.output, RPAD(' ', 53 , ' ' ) || l_eop);
1743:
1744:
1745: EXCEPTION
1746:
1914: l_condition_7 := ' AND TAL.currency_code like '''||p_currency||'%''';
1915: l_total_sql := l_total_sql || l_condition_7;
1916: END IF;
1917:
1918: FND_FILE.put_line(FND_FILE.log, 'l_total_sql - '||l_total_sql);
1919:
1920: i := 1;
1921: OPEN dynamic_cursor FOR l_total_sql;
1922: FETCH dynamic_cursor INTO l_result_sql;
1923: LOOP
1924:
1925: EXIT WHEN dynamic_cursor%NOTFOUND;
1926:
1927: FND_FILE.put_line(FND_FILE.log, 'DYNAMIC SQL EXECUTING -- ROWS FOUND '||i);
1928:
1929: l_rpt_tbl(i).PROGRAM_AGREEMENT := l_result_sql.PROGRAM_AGREEMENT;
1930: l_rpt_tbl(i).ASSET_NUMBER := l_result_sql.ASSET_NUMBER;
1931: l_rpt_tbl(i).ASSET_DESCRIPTION := l_result_sql.ASSET_DESCRIPTION;
1954: p_token1_value => SQLCODE,
1955: p_token2 => G_SQLERRM_TOKEN,
1956: p_token2_value => SQLERRM);
1957:
1958: FND_FILE.put_line(FND_FILE.log, 'Error - '||SQLERRM);
1959:
1960: END concurrent_vend_res_share_rpt;
1961:
1962: -----------------------------------------------------------------------------------