47: END IF;
48:
49: p_file_location:=l_file_location||'/'||l_log_file;
50:
51: FND_FILE.PUT_NAMES(l_log_file,
52: l_out_file,
53: l_file_location);
54: EXCEPTION
55: WHEN OTHERS THEN
53: l_file_location);
54: EXCEPTION
55: WHEN OTHERS THEN
56: l_message := 'Exception :: '||SQLERRM||'
';
57: FND_File.Put_Line(fnd_file.log,l_message);
58:
59: l_message := 'in side AP_ACCTG_DATA_FIX_PKG.Open_Log_Out_Files '||'
';
60: FND_File.Put_Line(fnd_file.log,l_message);
61: APP_EXCEPTION.RAISE_EXCEPTION;
56: l_message := 'Exception :: '||SQLERRM||'
';
57: FND_File.Put_Line(fnd_file.log,l_message);
58:
59: l_message := 'in side AP_ACCTG_DATA_FIX_PKG.Open_Log_Out_Files '||'
';
60: FND_File.Put_Line(fnd_file.log,l_message);
61: APP_EXCEPTION.RAISE_EXCEPTION;
62: END Open_Log_Out_Files;
63:
64:
67: messages are written to it. */
68:
69: PROCEDURE Close_Log_Out_Files IS
70: BEGIN
71: FND_File.Close;
72: END Close_Log_Out_Files;
73:
74:
75: /* Procedure to create temproary backup tables for the accounting */
126: EXCEPTION
127:
128: WHEN OTHERS THEN
129: l_message := 'Exception :: '||SQLERRM||'
';
130: FND_File.Put_Line(fnd_file.log,l_message);
131:
132: l_message := 'in side '||l_calling_sequence||'
';
133: FND_File.Put_Line(fnd_file.log,l_message);
134:
129: l_message := 'Exception :: '||SQLERRM||'
';
130: FND_File.Put_Line(fnd_file.log,l_message);
131:
132: l_message := 'in side '||l_calling_sequence||'
';
133: FND_File.Put_Line(fnd_file.log,l_message);
134:
135: APP_EXCEPTION.RAISE_EXCEPTION;
136: End Create_Temp_Acctg_Tables;
137:
166: EXCEPTION
167:
168: WHEN OTHERS THEN
169: l_message := 'Exception :: '||SQLERRM||'
';
170: FND_File.Put_Line(fnd_file.log,l_message);
171:
172: l_message := 'in side '||l_calling_sequence||'
';
173: FND_File.Put_Line(fnd_file.log,l_message);
174: APP_EXCEPTION.RAISE_EXCEPTION;
169: l_message := 'Exception :: '||SQLERRM||'
';
170: FND_File.Put_Line(fnd_file.log,l_message);
171:
172: l_message := 'in side '||l_calling_sequence||'
';
173: FND_File.Put_Line(fnd_file.log,l_message);
174: APP_EXCEPTION.RAISE_EXCEPTION;
175: end Get_Cols;
176:
177: /* Overload the Get_Cols procedure to handle the case where there are two tables with the same name
206: EXCEPTION
207:
208: WHEN OTHERS THEN
209: l_message := 'Exception :: '||SQLERRM||'
';
210: FND_File.Put_Line(fnd_file.log,l_message);
211:
212: l_message := 'in side '||l_calling_sequence||'
';
213: FND_File.Put_Line(fnd_file.log,l_message);
214: APP_EXCEPTION.RAISE_EXCEPTION;
209: l_message := 'Exception :: '||SQLERRM||'
';
210: FND_File.Put_Line(fnd_file.log,l_message);
211:
212: l_message := 'in side '||l_calling_sequence||'
';
213: FND_File.Put_Line(fnd_file.log,l_message);
214: APP_EXCEPTION.RAISE_EXCEPTION;
215: end Get_Cols;
216:
217:
278:
279: AP_Acctg_Data_Fix_PKG.get_cols('DISTRIB_LINKS_'||P_Bug_Number,col_str3);
280:
281: l_message := 'Before creating backup for Accounting tables
';
282: FND_File.Put_Line(fnd_file.log,l_message);
283:
284: l_debug_info := 'Before backing the events';
285: sql_liab_stat := 'insert into events_'||P_Bug_Number||'('||col_str5||') '||
286: ' select '||col_str5||' from xla_events '||
325:
326: EXECUTE IMMEDIATE sql_liab_stat;
327:
328: l_message := 'After creating backup for Accounting tables
';
329: FND_File.Put_Line(fnd_file.log,l_message);
330:
331: EXCEPTION
332: WHEN OTHERS THEN
333: l_message := 'Exception :: '||SQLERRM||'
';
330:
331: EXCEPTION
332: WHEN OTHERS THEN
333: l_message := 'Exception :: '||SQLERRM||'
';
334: FND_File.Put_Line(fnd_file.log,l_message);
335:
336: l_message := 'in side '||l_calling_sequence||
337: ' while performing '||l_debug_info||'
';
338: FND_File.Put_Line(fnd_file.log,l_message);
334: FND_File.Put_Line(fnd_file.log,l_message);
335:
336: l_message := 'in side '||l_calling_sequence||
337: ' while performing '||l_debug_info||'
';
338: FND_File.Put_Line(fnd_file.log,l_message);
339: APP_EXCEPTION.RAISE_EXCEPTION();
340: END Back_Up_Acctg;
341:
342: /* Procedure to print messages in the Log file */
');
347: l_calling_sequence varchar2(500);
348: Begin
349: l_calling_sequence:='AP_Acctg_Data_Fix_PKG.print <- '||p_calling_sequence;
350:
351: FND_File.Put_Line(fnd_file.log,p_message||'
');
352:
353: Exception
354: WHEN OTHERS THEN
355: l_message := 'Exception :: '||SQLERRM||'
';
352:
353: Exception
354: WHEN OTHERS THEN
355: l_message := 'Exception :: '||SQLERRM||'
';
356: FND_File.Put_Line(fnd_file.log,l_message);
357:
358: l_message := 'in side '||l_calling_sequence||'
';
359: FND_File.Put_Line(fnd_file.log,l_message);
360: APP_EXCEPTION.RAISE_EXCEPTION;
355: l_message := 'Exception :: '||SQLERRM||'
';
356: FND_File.Put_Line(fnd_file.log,l_message);
357:
358: l_message := 'in side '||l_calling_sequence||'
';
359: FND_File.Put_Line(fnd_file.log,l_message);
360: APP_EXCEPTION.RAISE_EXCEPTION;
361: End Print;
362:
363:
444: end loop;
445: col_list := RTRIM (LTRIM (col_list, ', '), ', ');
446:
447: IF p_print_in_output THEN -- Bug 9490277
448: FND_FILE.Put_Line( fnd_file.output, l_message);
449: ELSE
450: print(l_message);
451: END IF ;
452:
520: END LOOP;
521: l_message:=l_message||'';
522:
523: IF p_print_in_output THEN -- Bug 9490277
524: FND_FILE.Put_Line( fnd_file.output, l_message);
525: ELSE
526: Print(l_message);
527: END IF ;
528:
527: END IF ;
528:
529: END LOOP;
530: IF p_print_in_output THEN -- Bug 9490277
531: FND_FILE.Put_Line( fnd_file.output, '');
532: FND_FILE.Put_Line( fnd_file.output, '
');
533: ELSE
534: print('');
535: END IF ;
');
528:
529: END LOOP;
530: IF p_print_in_output THEN -- Bug 9490277
531: FND_FILE.Put_Line( fnd_file.output, '');
532: FND_FILE.Put_Line( fnd_file.output, '
');
533: ELSE
534: print('');
535: END IF ;
536:
537: Exception
538: WHEN OTHERS THEN
539: l_message := 'SELECT ' || col_list ||
540: ' FROM ' || p_table_in || ' ' || where_clause||'
';
541: FND_File.Put_Line(fnd_file.log,l_message);
542:
543: l_message := 'Exception :: '||SQLERRM||'
';
544: FND_File.Put_Line(fnd_file.log,l_message);
545:
540: ' FROM ' || p_table_in || ' ' || where_clause||'
';
541: FND_File.Put_Line(fnd_file.log,l_message);
542:
543: l_message := 'Exception :: '||SQLERRM||'
';
544: FND_File.Put_Line(fnd_file.log,l_message);
545:
546: l_message := 'in side '||l_calling_sequence||'
';
547: FND_File.Put_Line(fnd_file.log,l_message);
548: APP_EXCEPTION.RAISE_EXCEPTION;
543: l_message := 'Exception :: '||SQLERRM||'
';
544: FND_File.Put_Line(fnd_file.log,l_message);
545:
546: l_message := 'in side '||l_calling_sequence||'
';
547: FND_File.Put_Line(fnd_file.log,l_message);
548: APP_EXCEPTION.RAISE_EXCEPTION;
549: END Print_Html_Table;
550:
551: /* Procedure to backup the data from the source table to destination