249: -- Valid Vendor Prg Chosen
250: IF G_ERROR <> 'Y' THEN
251:
252: --log
253: FND_FILE.put_line(FND_FILE.log, RPAD('=',77,'=' ));
254: FND_FILE.put_line(FND_FILE.log, l_type ||
255: RPAD(' ',40-LENGTH(l_type),' ') ||
256: l_processed);
257:
250: IF G_ERROR <> 'Y' THEN
251:
252: --log
253: FND_FILE.put_line(FND_FILE.log, RPAD('=',77,'=' ));
254: FND_FILE.put_line(FND_FILE.log, l_type ||
255: RPAD(' ',40-LENGTH(l_type),' ') ||
256: l_processed);
257:
258: FND_FILE.put_line(FND_FILE.log, RPAD('-',77 ,'-'));
254: FND_FILE.put_line(FND_FILE.log, l_type ||
255: RPAD(' ',40-LENGTH(l_type),' ') ||
256: l_processed);
257:
258: FND_FILE.put_line(FND_FILE.log, RPAD('-',77 ,'-'));
259:
260: FND_FILE.put_line(FND_FILE.log, l_term_k ||
261: RPAD(' ',40-LENGTH(l_term_k),' ') ||
262: l_success);
256: l_processed);
257:
258: FND_FILE.put_line(FND_FILE.log, RPAD('-',77 ,'-'));
259:
260: FND_FILE.put_line(FND_FILE.log, l_term_k ||
261: RPAD(' ',40-LENGTH(l_term_k),' ') ||
262: l_success);
263:
264: FND_FILE.put_line(FND_FILE.log, l_error_k ||
260: FND_FILE.put_line(FND_FILE.log, l_term_k ||
261: RPAD(' ',40-LENGTH(l_term_k),' ') ||
262: l_success);
263:
264: FND_FILE.put_line(FND_FILE.log, l_error_k ||
265: RPAD(' ',40-LENGTH(l_error_k),' ') ||
266: l_error);
267: FND_FILE.put_line(FND_FILE.log,'');
268: FND_FILE.put_line(FND_FILE.log, RPAD('=',77,'=' ));
263:
264: FND_FILE.put_line(FND_FILE.log, l_error_k ||
265: RPAD(' ',40-LENGTH(l_error_k),' ') ||
266: l_error);
267: FND_FILE.put_line(FND_FILE.log,'');
268: FND_FILE.put_line(FND_FILE.log, RPAD('=',77,'=' ));
269:
270: -- output
271: FND_FILE.PUT_LINE(FND_FILE.output, RPAD(' ', 128/2-LENGTH(l_orcl_logo)/2, ' ' ) ||
264: FND_FILE.put_line(FND_FILE.log, l_error_k ||
265: RPAD(' ',40-LENGTH(l_error_k),' ') ||
266: l_error);
267: FND_FILE.put_line(FND_FILE.log,'');
268: FND_FILE.put_line(FND_FILE.log, RPAD('=',77,'=' ));
269:
270: -- output
271: FND_FILE.PUT_LINE(FND_FILE.output, RPAD(' ', 128/2-LENGTH(l_orcl_logo)/2, ' ' ) ||
272: l_orcl_logo);
267: FND_FILE.put_line(FND_FILE.log,'');
268: FND_FILE.put_line(FND_FILE.log, RPAD('=',77,'=' ));
269:
270: -- output
271: FND_FILE.PUT_LINE(FND_FILE.output, RPAD(' ', 128/2-LENGTH(l_orcl_logo)/2, ' ' ) ||
272: l_orcl_logo);
273:
274: FND_FILE.PUT_LINE(FND_FILE.output, RPAD(' ', 128/2-LENGTH(l_term_heading)/2, ' ' ) ||
275: l_term_heading);
270: -- output
271: FND_FILE.PUT_LINE(FND_FILE.output, RPAD(' ', 128/2-LENGTH(l_orcl_logo)/2, ' ' ) ||
272: l_orcl_logo);
273:
274: FND_FILE.PUT_LINE(FND_FILE.output, RPAD(' ', 128/2-LENGTH(l_term_heading)/2, ' ' ) ||
275: l_term_heading);
276:
277: FND_FILE.put_line(FND_FILE.output, RPAD(' ',128/2-LENGTH(l_term_heading)/2 , ' ' ) ||
278: RPAD('-',LENGTH(l_term_heading),'-'));
273:
274: FND_FILE.PUT_LINE(FND_FILE.output, RPAD(' ', 128/2-LENGTH(l_term_heading)/2, ' ' ) ||
275: l_term_heading);
276:
277: FND_FILE.put_line(FND_FILE.output, RPAD(' ',128/2-LENGTH(l_term_heading)/2 , ' ' ) ||
278: RPAD('-',LENGTH(l_term_heading),'-'));
279:
280: FND_FILE.put_line(FND_FILE.output, '');
281:
276:
277: FND_FILE.put_line(FND_FILE.output, RPAD(' ',128/2-LENGTH(l_term_heading)/2 , ' ' ) ||
278: RPAD('-',LENGTH(l_term_heading),'-'));
279:
280: FND_FILE.put_line(FND_FILE.output, '');
281:
282: FND_FILE.put_line(FND_FILE.output, l_set_of_books ||' : '||
283: l_set_of_books_name ||
284: RPAD(' ', 128-LENGTH(l_set_of_books)-LENGTH(l_set_of_books_name)-LENGTH(l_run_date)-25, ' ' ) ||
278: RPAD('-',LENGTH(l_term_heading),'-'));
279:
280: FND_FILE.put_line(FND_FILE.output, '');
281:
282: FND_FILE.put_line(FND_FILE.output, l_set_of_books ||' : '||
283: l_set_of_books_name ||
284: RPAD(' ', 128-LENGTH(l_set_of_books)-LENGTH(l_set_of_books_name)-LENGTH(l_run_date)-25, ' ' ) ||
285: l_run_date ||' : ' ||
286: TO_CHAR(SYSDATE, 'DD-MON-YYYY HH24:MI'));
284: RPAD(' ', 128-LENGTH(l_set_of_books)-LENGTH(l_set_of_books_name)-LENGTH(l_run_date)-25, ' ' ) ||
285: l_run_date ||' : ' ||
286: TO_CHAR(SYSDATE, 'DD-MON-YYYY HH24:MI'));
287:
288: FND_FILE.put_line(FND_FILE.output, l_oper_unit || ' : ' ||
289: l_org_name ||
290: RPAD(' ', 128-LENGTH(l_oper_unit)-LENGTH(l_org_name)-LENGTH(l_vpa_ended_by)-25, ' ' ) ||
291: l_vpa_ended_by ||' : ' ||
292: TO_CHAR(G_VPA_ENDED_BY_DATE, 'DD-MON-YYYY HH24:MI'));
290: RPAD(' ', 128-LENGTH(l_oper_unit)-LENGTH(l_org_name)-LENGTH(l_vpa_ended_by)-25, ' ' ) ||
291: l_vpa_ended_by ||' : ' ||
292: TO_CHAR(G_VPA_ENDED_BY_DATE, 'DD-MON-YYYY HH24:MI'));
293:
294: FND_FILE.put_line(FND_FILE.output,'');
295: FND_FILE.put_line(FND_FILE.output,'');
296:
297: FND_FILE.put_line(FND_FILE.output, l_type ||
298: RPAD(' ',40-LENGTH(l_type),' ') ||
291: l_vpa_ended_by ||' : ' ||
292: TO_CHAR(G_VPA_ENDED_BY_DATE, 'DD-MON-YYYY HH24:MI'));
293:
294: FND_FILE.put_line(FND_FILE.output,'');
295: FND_FILE.put_line(FND_FILE.output,'');
296:
297: FND_FILE.put_line(FND_FILE.output, l_type ||
298: RPAD(' ',40-LENGTH(l_type),' ') ||
299: l_processed);
293:
294: FND_FILE.put_line(FND_FILE.output,'');
295: FND_FILE.put_line(FND_FILE.output,'');
296:
297: FND_FILE.put_line(FND_FILE.output, l_type ||
298: RPAD(' ',40-LENGTH(l_type),' ') ||
299: l_processed);
300:
301: FND_FILE.put_line(FND_FILE.output, RPAD('-',128 ,'-'));
297: FND_FILE.put_line(FND_FILE.output, l_type ||
298: RPAD(' ',40-LENGTH(l_type),' ') ||
299: l_processed);
300:
301: FND_FILE.put_line(FND_FILE.output, RPAD('-',128 ,'-'));
302:
303: FND_FILE.put_line(FND_FILE.output, l_term_k ||
304: RPAD(' ',40-LENGTH(l_term_k),' ') ||
305: l_success);
299: l_processed);
300:
301: FND_FILE.put_line(FND_FILE.output, RPAD('-',128 ,'-'));
302:
303: FND_FILE.put_line(FND_FILE.output, l_term_k ||
304: RPAD(' ',40-LENGTH(l_term_k),' ') ||
305: l_success);
306:
307: FND_FILE.put_line(FND_FILE.output, l_error_k ||
303: FND_FILE.put_line(FND_FILE.output, l_term_k ||
304: RPAD(' ',40-LENGTH(l_term_k),' ') ||
305: l_success);
306:
307: FND_FILE.put_line(FND_FILE.output, l_error_k ||
308: RPAD(' ',40-LENGTH(l_error_k),' ') ||
309: l_error);
310:
311: FND_FILE.put_line(FND_FILE.output,'');
307: FND_FILE.put_line(FND_FILE.output, l_error_k ||
308: RPAD(' ',40-LENGTH(l_error_k),' ') ||
309: l_error);
310:
311: FND_FILE.put_line(FND_FILE.output,'');
312: FND_FILE.put_line(FND_FILE.output, RPAD('=',128,'=' ));
313: FND_FILE.put_line(FND_FILE.output,'');
314:
315: -- Print VPAs Terminated Successfully
308: RPAD(' ',40-LENGTH(l_error_k),' ') ||
309: l_error);
310:
311: FND_FILE.put_line(FND_FILE.output,'');
312: FND_FILE.put_line(FND_FILE.output, RPAD('=',128,'=' ));
313: FND_FILE.put_line(FND_FILE.output,'');
314:
315: -- Print VPAs Terminated Successfully
316: IF l_success > 0 THEN
309: l_error);
310:
311: FND_FILE.put_line(FND_FILE.output,'');
312: FND_FILE.put_line(FND_FILE.output, RPAD('=',128,'=' ));
313: FND_FILE.put_line(FND_FILE.output,'');
314:
315: -- Print VPAs Terminated Successfully
316: IF l_success > 0 THEN
317:
314:
315: -- Print VPAs Terminated Successfully
316: IF l_success > 0 THEN
317:
318: FND_FILE.put_line(FND_FILE.output, l_term_k);
319: FND_FILE.put_line(FND_FILE.output, RPAD('-',LENGTH(l_term_k), '-' ));
320: FND_FILE.put_line(FND_FILE.output,'');
321:
322: l_print := 'N';
315: -- Print VPAs Terminated Successfully
316: IF l_success > 0 THEN
317:
318: FND_FILE.put_line(FND_FILE.output, l_term_k);
319: FND_FILE.put_line(FND_FILE.output, RPAD('-',LENGTH(l_term_k), '-' ));
320: FND_FILE.put_line(FND_FILE.output,'');
321:
322: l_print := 'N';
323:
316: IF l_success > 0 THEN
317:
318: FND_FILE.put_line(FND_FILE.output, l_term_k);
319: FND_FILE.put_line(FND_FILE.output, RPAD('-',LENGTH(l_term_k), '-' ));
320: FND_FILE.put_line(FND_FILE.output,'');
321:
322: l_print := 'N';
323:
324: FOR i IN success_message_table.FIRST..success_message_table.LAST LOOP
324: FOR i IN success_message_table.FIRST..success_message_table.LAST LOOP
325:
326: IF l_print = 'N' THEN
327:
328: FND_FILE.put_line(FND_FILE.output, l_serial || RPAD(' ',15-LENGTH(l_serial),' ')||
329: l_k_num || RPAD(' ',35-LENGTH(l_k_num),' ')||
330: l_start_date||RPAD(' ',15-LENGTH(l_start_date),' ') ||
331: l_end_date||RPAD(' ',15-LENGTH(l_end_date),' ') ||
332: l_status||RPAD(' ',15-LENGTH(l_status),' '));
330: l_start_date||RPAD(' ',15-LENGTH(l_start_date),' ') ||
331: l_end_date||RPAD(' ',15-LENGTH(l_end_date),' ') ||
332: l_status||RPAD(' ',15-LENGTH(l_status),' '));
333:
334: FND_FILE.put_line(FND_FILE.output, RPAD('-',LENGTH(l_serial),'-') || RPAD('-',15-LENGTH(l_serial),'-')||
335: RPAD('-',LENGTH(l_k_num),'-') || RPAD('-',35-LENGTH(l_k_num),'-')||
336: RPAD('-',LENGTH(l_start_date),'-')||RPAD('-',15-LENGTH(l_start_date),'-') ||
337: RPAD('-',LENGTH(l_end_date),'-')||RPAD('-',15-LENGTH(l_end_date),'-') ||
338: RPAD('-',LENGTH(l_status),'-')||RPAD('-',15-LENGTH(l_status),'-'));
339:
340: l_print := 'Y';
341: END IF;
342:
343: FND_FILE.put_line(FND_FILE.output, i || RPAD(' ',15-LENGTH(i),' ')||
344: success_message_table(i).va_number ||
345: RPAD(' ',35-LENGTH(success_message_table(i).va_number),' ')||
346: success_message_table(i).start_date||
347: RPAD(' ',15-LENGTH(success_message_table(i).start_date),' ') ||
352:
353: END LOOP;
354: END IF;
355:
356: FND_FILE.put_line(FND_FILE.output,'');
357:
358: -- Print VPAs errored
359: IF l_error > 0 THEN
360:
357:
358: -- Print VPAs errored
359: IF l_error > 0 THEN
360:
361: FND_FILE.put_line(FND_FILE.output, l_error_k);
362: FND_FILE.put_line(FND_FILE.output, RPAD('-',LENGTH(l_error_k), '-' ));
363: FND_FILE.put_line(FND_FILE.output,'');
364:
365: -- Initialize the table index
358: -- Print VPAs errored
359: IF l_error > 0 THEN
360:
361: FND_FILE.put_line(FND_FILE.output, l_error_k);
362: FND_FILE.put_line(FND_FILE.output, RPAD('-',LENGTH(l_error_k), '-' ));
363: FND_FILE.put_line(FND_FILE.output,'');
364:
365: -- Initialize the table index
366: msg_lines_table_index := 1;
359: IF l_error > 0 THEN
360:
361: FND_FILE.put_line(FND_FILE.output, l_error_k);
362: FND_FILE.put_line(FND_FILE.output, RPAD('-',LENGTH(l_error_k), '-' ));
363: FND_FILE.put_line(FND_FILE.output,'');
364:
365: -- Initialize the table index
366: msg_lines_table_index := 1;
367:
366: msg_lines_table_index := 1;
367:
368: FOR i IN error_message_table.FIRST..error_message_table.LAST LOOP
369:
370: FND_FILE.put_line(FND_FILE.output, l_serial || RPAD(' ',15-LENGTH(l_serial),' ')||
371: l_k_num || RPAD(' ',35-LENGTH(l_k_num),' ')||
372: l_start_date||RPAD(' ',15-LENGTH(l_start_date),' ') ||
373: l_end_date||RPAD(' ',15-LENGTH(l_end_date),' ') ||
374: l_status||RPAD(' ',15-LENGTH(l_status),' '));
372: l_start_date||RPAD(' ',15-LENGTH(l_start_date),' ') ||
373: l_end_date||RPAD(' ',15-LENGTH(l_end_date),' ') ||
374: l_status||RPAD(' ',15-LENGTH(l_status),' '));
375:
376: FND_FILE.put_line(FND_FILE.output, RPAD('-',LENGTH(l_serial),'-') || RPAD('-',15-LENGTH(l_serial),'-')||
377: RPAD('-',LENGTH(l_k_num),'-') || RPAD('-',35-LENGTH(l_k_num),'-')||
378: RPAD('-',LENGTH(l_start_date),'-')||RPAD('-',15-LENGTH(l_start_date),'-') ||
379: RPAD('-',LENGTH(l_end_date),'-')||RPAD('-',15-LENGTH(l_end_date),'-') ||
380: RPAD('-',LENGTH(l_status),'-')||RPAD('-',15-LENGTH(l_status),'-'));
378: RPAD('-',LENGTH(l_start_date),'-')||RPAD('-',15-LENGTH(l_start_date),'-') ||
379: RPAD('-',LENGTH(l_end_date),'-')||RPAD('-',15-LENGTH(l_end_date),'-') ||
380: RPAD('-',LENGTH(l_status),'-')||RPAD('-',15-LENGTH(l_status),'-'));
381:
382: FND_FILE.put_line(FND_FILE.output, i || RPAD(' ',15-LENGTH(i),' ')||
383: error_message_table(i).va_number ||
384: RPAD(' ',35-LENGTH(error_message_table(i).va_number),' ')||
385: error_message_table(i).start_date||
386: RPAD(' ',15-LENGTH(error_message_table(i).start_date),' ') ||
388: RPAD(' ',15-LENGTH(error_message_table(i).end_date),' ') ||
389: error_message_table(i).status||
390: RPAD(' ',15-LENGTH(error_message_table(i).status),' '));
391:
392: FND_FILE.put_line(FND_FILE.output,'');
393:
394: FND_FILE.put_line(FND_FILE.output, RPAD(' ',5,' ') || l_messages || ' :');
395:
396: k := 1;
390: RPAD(' ',15-LENGTH(error_message_table(i).status),' '));
391:
392: FND_FILE.put_line(FND_FILE.output,'');
393:
394: FND_FILE.put_line(FND_FILE.output, RPAD(' ',5,' ') || l_messages || ' :');
395:
396: k := 1;
397: FOR j IN msg_lines_table_index .. msg_lines_table.LAST LOOP
398: IF msg_lines_table(j).id = error_message_table(i).id THEN
395:
396: k := 1;
397: FOR j IN msg_lines_table_index .. msg_lines_table.LAST LOOP
398: IF msg_lines_table(j).id = error_message_table(i).id THEN
399: FND_FILE.put(FND_FILE.output, RPAD(' ',5,' ') || k || ': ' || msg_lines_table(j).msg);
400: FND_FILE.put_line(FND_FILE.output,'');
401: k := k + 1;
402: ELSE
403: msg_lines_table_index := j ;
396: k := 1;
397: FOR j IN msg_lines_table_index .. msg_lines_table.LAST LOOP
398: IF msg_lines_table(j).id = error_message_table(i).id THEN
399: FND_FILE.put(FND_FILE.output, RPAD(' ',5,' ') || k || ': ' || msg_lines_table(j).msg);
400: FND_FILE.put_line(FND_FILE.output,'');
401: k := k + 1;
402: ELSE
403: msg_lines_table_index := j ;
404: EXIT;
405: END IF;
406:
407: END LOOP;
408:
409: FND_FILE.put_line(FND_FILE.output,'');
410:
411: END LOOP;
412:
413: END IF;
411: END LOOP;
412:
413: END IF;
414:
415: FND_FILE.put_line(FND_FILE.output,'');
416: FND_FILE.put_line(FND_FILE.output,'');
417: FND_FILE.put_line(FND_FILE.output, RPAD(' ', 53 , ' ' ) || l_eop);
418:
419: ELSE
412:
413: END IF;
414:
415: FND_FILE.put_line(FND_FILE.output,'');
416: FND_FILE.put_line(FND_FILE.output,'');
417: FND_FILE.put_line(FND_FILE.output, RPAD(' ', 53 , ' ' ) || l_eop);
418:
419: ELSE
420:
413: END IF;
414:
415: FND_FILE.put_line(FND_FILE.output,'');
416: FND_FILE.put_line(FND_FILE.output,'');
417: FND_FILE.put_line(FND_FILE.output, RPAD(' ', 53 , ' ' ) || l_eop);
418:
419: ELSE
420:
421: FND_FILE.put_line(FND_FILE.log,l_processed || ' = 0');
417: FND_FILE.put_line(FND_FILE.output, RPAD(' ', 53 , ' ' ) || l_eop);
418:
419: ELSE
420:
421: FND_FILE.put_line(FND_FILE.log,l_processed || ' = 0');
422: FND_FILE.put_line(FND_FILE.log,l_vpa);
423:
424: END IF;
425: EXCEPTION
418:
419: ELSE
420:
421: FND_FILE.put_line(FND_FILE.log,l_processed || ' = 0');
422: FND_FILE.put_line(FND_FILE.log,l_vpa);
423:
424: END IF;
425: EXCEPTION
426: