1: PACKAGE BODY AP_Acctg_Data_Fix_PKG AS
2: /* $Header: apgdfalb.pls 120.1 2008/03/10 09:49:15 serabell noship $ */
3:
4: /* Procedure to open the log files on the instance where the datafix
5: script is being run. The log file contains the log messages
';
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;
51: END Open_Log_Out_Files;
52:
69: l_calling_sequence VARCHAR2(2000);
70: l_message VARCHAR2(500);
71: Begin
72: l_calling_sequence :=
73: 'AP_Acctg_Data_Fix_PKG.Create_Temp_Acctg_Tables';
74:
75: Execute Immediate
76: 'create table '||'Events_'||P_Bug_Number||
77: ' as select * from XLA_EVENTS where rownum<1 ';
139:
140: begin
141:
142: l_calling_sequence :=
143: 'AP_Acctg_Data_Fix_PKG.Get_Cols<-' ;
144: stmt_str := 'select column_name from '|| l_all_tab_columns ||
145: ' where table_name=:1 and column_name<>''DATAFIX_UPDATE_DATE''';
146: OPEN cur FOR stmt_str USING TAB_NAME;
147: LOOP
181: l_calling_sequence VARCHAR2(2000);
182: BEGIN
183:
184: l_calling_sequence :=
185: 'AP_Acctg_Data_Fix_PKG.Back_Up_Acctg<-' ;
186:
187: sql_liab_stat := 'select count(*) from '|| l_tables ||
188: ' where table_name='||''''||'HEADERS_'||P_Bug_number||'''';
189: OPEN cur FOR sql_liab_stat;
189: OPEN cur FOR sql_liab_stat;
190: fetch cur into bkp_tables_exists;
191: CLOSE cur;
192:
193: AP_Acctg_Data_Fix_PKG.Print('_______________________________________'||
194: '_______________________________________');
195:
196: if (bkp_tables_exists=0) then
197: l_message := 'Before creating accounting backup tables
';
195:
196: if (bkp_tables_exists=0) then
197: l_message := 'Before creating accounting backup tables
';
198:
199: AP_Acctg_Data_Fix_PKG.Create_Temp_Acctg_Tables(p_bug_number);
200:
201: l_message := 'After creating accounting backup tables
';
202:
203: end if;
201: l_message := 'After creating accounting backup tables
';
202:
203: end if;
204:
205: AP_Acctg_Data_Fix_PKG.get_cols('EVENTS_'||P_Bug_Number,col_str5);
206:
207: AP_Acctg_Data_Fix_PKG.get_cols('HEADERS_'||P_Bug_Number,col_str1);
208:
209: AP_Acctg_Data_Fix_PKG.get_cols('LINES_'||P_Bug_Number,col_str2);
203: end if;
204:
205: AP_Acctg_Data_Fix_PKG.get_cols('EVENTS_'||P_Bug_Number,col_str5);
206:
207: AP_Acctg_Data_Fix_PKG.get_cols('HEADERS_'||P_Bug_Number,col_str1);
208:
209: AP_Acctg_Data_Fix_PKG.get_cols('LINES_'||P_Bug_Number,col_str2);
210:
211: AP_Acctg_Data_Fix_PKG.get_cols('DISTRIB_LINKS_'||P_Bug_Number,col_str3);
205: AP_Acctg_Data_Fix_PKG.get_cols('EVENTS_'||P_Bug_Number,col_str5);
206:
207: AP_Acctg_Data_Fix_PKG.get_cols('HEADERS_'||P_Bug_Number,col_str1);
208:
209: AP_Acctg_Data_Fix_PKG.get_cols('LINES_'||P_Bug_Number,col_str2);
210:
211: AP_Acctg_Data_Fix_PKG.get_cols('DISTRIB_LINKS_'||P_Bug_Number,col_str3);
212:
213: /* AP_Acctg_Data_Fix_PKG.get_cols('TRANS_ENTITIES_'||P_Bug_Number,col_str4); */
207: AP_Acctg_Data_Fix_PKG.get_cols('HEADERS_'||P_Bug_Number,col_str1);
208:
209: AP_Acctg_Data_Fix_PKG.get_cols('LINES_'||P_Bug_Number,col_str2);
210:
211: AP_Acctg_Data_Fix_PKG.get_cols('DISTRIB_LINKS_'||P_Bug_Number,col_str3);
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
';
209: AP_Acctg_Data_Fix_PKG.get_cols('LINES_'||P_Bug_Number,col_str2);
210:
211: AP_Acctg_Data_Fix_PKG.get_cols('DISTRIB_LINKS_'||P_Bug_Number,col_str3);
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:
272: P_calling_sequence IN VARCHAR2) IS
273: l_message varchar2(500);
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
328: col_list VARCHAR2(2000);
329: l_message VARCHAR2(2000):='