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