1: PACKAGE BODY AP_Acctg_Data_Fix_PKG AS
2: /* $Header: apgdfalb.pls 120.45.12020000.5 2012/10/16 11:45:48 vinerao ship $ */
3:
4: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
7: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
8: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
9: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
10: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
11: G_MODULE_NAME CONSTANT VARCHAR2(50) :='AP.PLSQL.AP_ACCTG_DATA_FIX_PKG.';
12:
13:
14:
15: /* Procedure to open the log files on the instance where the datafix
';
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;
62: END Open_Log_Out_Files;
63:
80: l_calling_sequence VARCHAR2(2000);
81: l_message VARCHAR2(500);
82: Begin
83: l_calling_sequence :=
84: 'AP_Acctg_Data_Fix_PKG.Create_Temp_Acctg_Tables';
85:
86: Execute Immediate
87: 'create table '||'Events_'||P_Bug_Number||
88: ' as select * from XLA_EVENTS where rownum<1 ';
150:
151: begin
152:
153: l_calling_sequence :=
154: 'AP_Acctg_Data_Fix_PKG.Get_Cols<-' ;
155: stmt_str := 'select column_name from '|| l_all_tab_columns ||
156: ' where table_name=:1 and column_name<>''DATAFIX_UPDATE_DATE''';
157: OPEN cur FOR stmt_str USING TAB_NAME;
158: LOOP
190:
191: begin
192:
193: l_calling_sequence :=
194: 'AP_Acctg_Data_Fix_PKG.Get_Cols<-' ;
195: stmt_str := 'select column_name from '|| l_all_tab_columns ||
196: ' where table_name=:1 and owner =:2 and column_name<>''DATAFIX_UPDATE_DATE''';
197: OPEN cur FOR stmt_str USING TAB_NAME, SCHEMA_NAME;
198: LOOP
237: l_calling_sequence VARCHAR2(2000);
238: BEGIN
239:
240: l_calling_sequence :=
241: 'AP_Acctg_Data_Fix_PKG.Back_Up_Acctg<-'||P_calling_Sequence ;
242:
243: l_debug_info := 'Setting the driver table name';
244: IF P_Driver_Table IS NULL THEN
245: l_driver_table := 'AP_TEMP_DATA_DRIVER_'||P_Bug_number;
253: OPEN cur FOR sql_liab_stat;
254: fetch cur into bkp_tables_exists;
255: CLOSE cur;
256:
257: AP_Acctg_Data_Fix_PKG.Print('_______________________________________'||
258: '_______________________________________');
259:
260: if (bkp_tables_exists=0) then
261: l_message := 'Backup tables do not Exist: Before creating accounting backup tables
';
260: if (bkp_tables_exists=0) then
261: l_message := 'Backup tables do not Exist: Before creating accounting backup tables
';
262: Print(l_message);
263:
264: AP_Acctg_Data_Fix_PKG.Create_Temp_Acctg_Tables(p_bug_number);
265:
266: l_message := 'After creating accounting backup tables
';
267: Print(l_message);
268:
269: end if;
270:
271: l_debug_info := 'Before getting the cols for the Backup Tables';
272:
273: AP_Acctg_Data_Fix_PKG.get_cols('EVENTS_'||P_Bug_Number,col_str5);
274:
275: AP_Acctg_Data_Fix_PKG.get_cols('HEADERS_'||P_Bug_Number,col_str1);
276:
277: AP_Acctg_Data_Fix_PKG.get_cols('LINES_'||P_Bug_Number,col_str2);
271: l_debug_info := 'Before getting the cols for the Backup Tables';
272:
273: AP_Acctg_Data_Fix_PKG.get_cols('EVENTS_'||P_Bug_Number,col_str5);
274:
275: AP_Acctg_Data_Fix_PKG.get_cols('HEADERS_'||P_Bug_Number,col_str1);
276:
277: AP_Acctg_Data_Fix_PKG.get_cols('LINES_'||P_Bug_Number,col_str2);
278:
279: AP_Acctg_Data_Fix_PKG.get_cols('DISTRIB_LINKS_'||P_Bug_Number,col_str3);
273: AP_Acctg_Data_Fix_PKG.get_cols('EVENTS_'||P_Bug_Number,col_str5);
274:
275: AP_Acctg_Data_Fix_PKG.get_cols('HEADERS_'||P_Bug_Number,col_str1);
276:
277: AP_Acctg_Data_Fix_PKG.get_cols('LINES_'||P_Bug_Number,col_str2);
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
';
275: AP_Acctg_Data_Fix_PKG.get_cols('HEADERS_'||P_Bug_Number,col_str1);
276:
277: AP_Acctg_Data_Fix_PKG.get_cols('LINES_'||P_Bug_Number,col_str2);
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:
345: P_calling_sequence IN VARCHAR2) IS
346: l_message varchar2(500);
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
405: col_list VARCHAR2(2000);
406: l_message VARCHAR2(2000):='