36: END IF;
37:
38: p_file_location:=l_file_location||'/'||l_log_file;
39:
40: FND_FILE.PUT_NAMES(l_log_file,
41: l_out_file,
42: l_file_location);
43: EXCEPTION
44: WHEN OTHERS THEN
42: l_file_location);
43: EXCEPTION
44: WHEN OTHERS THEN
45: l_message := 'Exception :: '||SQLERRM||'
';
46: FND_File.Put_Line(fnd_file.log,l_message);
47:
48: l_message := 'in side AP_ACCTG_DATA_FIX_PKG.Open_Log_Out_Files '||'
';
49: FND_File.Put_Line(fnd_file.log,l_message);
50: APP_EXCEPTION.RAISE_EXCEPTION;
45: l_message := 'Exception :: '||SQLERRM||'
';
46: FND_File.Put_Line(fnd_file.log,l_message);
47:
48: l_message := 'in side AP_ACCTG_DATA_FIX_PKG.Open_Log_Out_Files '||'
';
49: FND_File.Put_Line(fnd_file.log,l_message);
50: APP_EXCEPTION.RAISE_EXCEPTION;
51: END Open_Log_Out_Files;
52:
53:
56: messages are written to it. */
57:
58: PROCEDURE Close_Log_Out_Files IS
59: BEGIN
60: FND_File.Close;
61: END Close_Log_Out_Files;
62:
63:
64: /* Procedure to create temproary backup tables for the accounting */
115: EXCEPTION
116:
117: WHEN OTHERS THEN
118: l_message := 'Exception :: '||SQLERRM||'
';
119: FND_File.Put_Line(fnd_file.log,l_message);
120:
121: l_message := 'in side '||l_calling_sequence||'
';
122: FND_File.Put_Line(fnd_file.log,l_message);
123:
118: l_message := 'Exception :: '||SQLERRM||'
';
119: FND_File.Put_Line(fnd_file.log,l_message);
120:
121: l_message := 'in side '||l_calling_sequence||'
';
122: FND_File.Put_Line(fnd_file.log,l_message);
123:
124: APP_EXCEPTION.RAISE_EXCEPTION;
125: End Create_Temp_Acctg_Tables;
126:
155: EXCEPTION
156:
157: WHEN OTHERS THEN
158: l_message := 'Exception :: '||SQLERRM||'
';
159: FND_File.Put_Line(fnd_file.log,l_message);
160:
161: l_message := 'in side '||l_calling_sequence||'
';
162: FND_File.Put_Line(fnd_file.log,l_message);
163: APP_EXCEPTION.RAISE_EXCEPTION;
158: l_message := 'Exception :: '||SQLERRM||'
';
159: FND_File.Put_Line(fnd_file.log,l_message);
160:
161: l_message := 'in side '||l_calling_sequence||'
';
162: FND_File.Put_Line(fnd_file.log,l_message);
163: APP_EXCEPTION.RAISE_EXCEPTION;
164: end Get_Cols;
165:
166:
212:
213: /* AP_Acctg_Data_Fix_PKG.get_cols('TRANS_ENTITIES_'||P_Bug_Number,col_str4); */
214:
215: l_message := 'Before creating backup for Accounting tables
';
216: FND_File.Put_Line(fnd_file.log,l_message);
217:
218: sql_liab_stat := 'insert into events_'||P_Bug_Number||'('||col_str5||') '||
219: ' select '||col_str5||' from xla_events '||
220: ' where event_id in '||
252:
253: EXECUTE IMMEDIATE sql_liab_stat; */
254:
255: l_message := 'After creating backup for Accounting tables
';
256: FND_File.Put_Line(fnd_file.log,l_message);
257:
258: EXCEPTION
259:
260: WHEN OTHERS THEN
259:
260: WHEN OTHERS THEN
261: APP_EXCEPTION.RAISE_EXCEPTION;
262: l_message := 'Exception :: '||SQLERRM||'
';
263: FND_File.Put_Line(fnd_file.log,l_message);
264:
265: l_message := 'in side '||l_calling_sequence||'
';
266: FND_File.Put_Line(fnd_file.log,l_message);
267: END Back_Up_Acctg;
262: l_message := 'Exception :: '||SQLERRM||'
';
263: FND_File.Put_Line(fnd_file.log,l_message);
264:
265: l_message := 'in side '||l_calling_sequence||'
';
266: FND_File.Put_Line(fnd_file.log,l_message);
267: END Back_Up_Acctg;
268:
269: /* Procedure to print messages in the Log file */
270: PROCEDURE Print
');
274: l_calling_sequence varchar2(500);
275: Begin
276: l_calling_sequence:='AP_Acctg_Data_Fix_PKG.print <- '||p_calling_sequence;
277:
278: FND_File.Put_Line(fnd_file.log,p_message||'
');
279: Exception
280: WHEN OTHERS THEN
281: l_message := 'Exception :: '||SQLERRM||'
';
282: FND_File.Put_Line(fnd_file.log,l_message);
278: FND_File.Put_Line(fnd_file.log,p_message||'
');
279: Exception
280: WHEN OTHERS THEN
281: l_message := 'Exception :: '||SQLERRM||'
';
282: FND_File.Put_Line(fnd_file.log,l_message);
283:
284: l_message := 'in side '||l_calling_sequence||'
';
285: FND_File.Put_Line(fnd_file.log,l_message);
286: APP_EXCEPTION.RAISE_EXCEPTION;
281: l_message := 'Exception :: '||SQLERRM||'
';
282: FND_File.Put_Line(fnd_file.log,l_message);
283:
284: l_message := 'in side '||l_calling_sequence||'
';
285: FND_File.Put_Line(fnd_file.log,l_message);
286: APP_EXCEPTION.RAISE_EXCEPTION;
287: End Print;
288:
289:
456: Exception
457: WHEN OTHERS THEN
458: l_message := 'SELECT ' || col_list ||
459: ' FROM ' || p_table_in || ' ' || where_clause||'
';
460: FND_File.Put_Line(fnd_file.log,l_message);
461:
462: l_message := 'Exception :: '||SQLERRM||'
';
463: FND_File.Put_Line(fnd_file.log,l_message);
464:
459: ' FROM ' || p_table_in || ' ' || where_clause||'
';
460: FND_File.Put_Line(fnd_file.log,l_message);
461:
462: l_message := 'Exception :: '||SQLERRM||'
';
463: FND_File.Put_Line(fnd_file.log,l_message);
464:
465: l_message := 'in side '||l_calling_sequence||'
';
466: FND_File.Put_Line(fnd_file.log,l_message);
467: APP_EXCEPTION.RAISE_EXCEPTION;
462: l_message := 'Exception :: '||SQLERRM||'
';
463: FND_File.Put_Line(fnd_file.log,l_message);
464:
465: l_message := 'in side '||l_calling_sequence||'
';
466: FND_File.Put_Line(fnd_file.log,l_message);
467: APP_EXCEPTION.RAISE_EXCEPTION;
468: END Print_Html_Table;
469:
470:
521:
522: Exception
523: WHEN OTHERS THEN
524: l_message := 'Exception :: '||SQLERRM;
525: print(fnd_file.log,l_message);
526:
527: l_message := 'in side '||l_calling_sequence;
528: print(fnd_file.log,l_message);
529: APP_EXCEPTION.RAISE_EXCEPTION;
524: l_message := 'Exception :: '||SQLERRM;
525: print(fnd_file.log,l_message);
526:
527: l_message := 'in side '||l_calling_sequence;
528: print(fnd_file.log,l_message);
529: APP_EXCEPTION.RAISE_EXCEPTION;
530: End Backup_data;
531:
532: END AP_Acctg_Data_Fix_PKG;