1: package body fnd_log_admin as
2: /* $Header: AFUTLGAB.pls 120.1.12000000.2 2007/07/27 13:42:23 rlandows ship $ */
3:
4: C_PKG_NAME CONSTANT VARCHAR2(30) := 'FND_FUNCTION';
5: C_LOG_HEAD CONSTANT VARCHAR2(30) := 'fnd.plsql.FND_LOG_ADMIN.';
1: package body fnd_log_admin as
2: /* $Header: AFUTLGAB.pls 120.1.12000000.2 2007/07/27 13:42:23 rlandows ship $ */
3:
4: C_PKG_NAME CONSTANT VARCHAR2(30) := 'FND_FUNCTION';
5: C_LOG_HEAD CONSTANT VARCHAR2(30) := 'fnd.plsql.FND_LOG_ADMIN.';
6:
7:
8: /******************************************************************************/
9: /***Constants for Changes due to system Log ***********************************/
7:
8: /******************************************************************************/
9: /***Constants for Changes due to system Log ***********************************/
10: TYPE GenCursor IS REF CURSOR;
11: TYPE TransxCurTyp IS REF CURSOR RETURN FND_LOG_TRANSACTION_CONTEXT%ROWTYPE;
12: TYPE UExcIdListTyp IS TABLE OF FND_LOG_UNIQUE_EXCEPTIONS.UNIQUE_EXCEPTION_ID%TYPE INDEX BY BINARY_INTEGER;
13: TYPE LogSeqListTyp IS TABLE OF FND_LOG_EXCEPTIONS.LOG_SEQUENCE%TYPE INDEX BY BINARY_INTEGER;
14: TYPE TrnCtxIdListTyp IS TABLE OF FND_LOG_TRANSACTION_CONTEXT.TRANSACTION_CONTEXT_ID%TYPE INDEX BY BINARY_INTEGER;
15: TYPE VARCAHRListTyp IS TABLE OF VARCHAR2(2000) INDEX BY BINARY_INTEGER;
8: /******************************************************************************/
9: /***Constants for Changes due to system Log ***********************************/
10: TYPE GenCursor IS REF CURSOR;
11: TYPE TransxCurTyp IS REF CURSOR RETURN FND_LOG_TRANSACTION_CONTEXT%ROWTYPE;
12: TYPE UExcIdListTyp IS TABLE OF FND_LOG_UNIQUE_EXCEPTIONS.UNIQUE_EXCEPTION_ID%TYPE INDEX BY BINARY_INTEGER;
13: TYPE LogSeqListTyp IS TABLE OF FND_LOG_EXCEPTIONS.LOG_SEQUENCE%TYPE INDEX BY BINARY_INTEGER;
14: TYPE TrnCtxIdListTyp IS TABLE OF FND_LOG_TRANSACTION_CONTEXT.TRANSACTION_CONTEXT_ID%TYPE INDEX BY BINARY_INTEGER;
15: TYPE VARCAHRListTyp IS TABLE OF VARCHAR2(2000) INDEX BY BINARY_INTEGER;
16: TYPE VARCAHRSmallListTyp IS TABLE OF VARCHAR2(50) INDEX BY BINARY_INTEGER;
9: /***Constants for Changes due to system Log ***********************************/
10: TYPE GenCursor IS REF CURSOR;
11: TYPE TransxCurTyp IS REF CURSOR RETURN FND_LOG_TRANSACTION_CONTEXT%ROWTYPE;
12: TYPE UExcIdListTyp IS TABLE OF FND_LOG_UNIQUE_EXCEPTIONS.UNIQUE_EXCEPTION_ID%TYPE INDEX BY BINARY_INTEGER;
13: TYPE LogSeqListTyp IS TABLE OF FND_LOG_EXCEPTIONS.LOG_SEQUENCE%TYPE INDEX BY BINARY_INTEGER;
14: TYPE TrnCtxIdListTyp IS TABLE OF FND_LOG_TRANSACTION_CONTEXT.TRANSACTION_CONTEXT_ID%TYPE INDEX BY BINARY_INTEGER;
15: TYPE VARCAHRListTyp IS TABLE OF VARCHAR2(2000) INDEX BY BINARY_INTEGER;
16: TYPE VARCAHRSmallListTyp IS TABLE OF VARCHAR2(50) INDEX BY BINARY_INTEGER;
17:
10: TYPE GenCursor IS REF CURSOR;
11: TYPE TransxCurTyp IS REF CURSOR RETURN FND_LOG_TRANSACTION_CONTEXT%ROWTYPE;
12: TYPE UExcIdListTyp IS TABLE OF FND_LOG_UNIQUE_EXCEPTIONS.UNIQUE_EXCEPTION_ID%TYPE INDEX BY BINARY_INTEGER;
13: TYPE LogSeqListTyp IS TABLE OF FND_LOG_EXCEPTIONS.LOG_SEQUENCE%TYPE INDEX BY BINARY_INTEGER;
14: TYPE TrnCtxIdListTyp IS TABLE OF FND_LOG_TRANSACTION_CONTEXT.TRANSACTION_CONTEXT_ID%TYPE INDEX BY BINARY_INTEGER;
15: TYPE VARCAHRListTyp IS TABLE OF VARCHAR2(2000) INDEX BY BINARY_INTEGER;
16: TYPE VARCAHRSmallListTyp IS TABLE OF VARCHAR2(50) INDEX BY BINARY_INTEGER;
17:
18:
24: COUNT_COMMIT CONSTANT NUMBER := 500;
25: DELETE_BLOCK CONSTANT NUMBER := 1000;
26: MAX_LIST_COUNT CONSTANT NUMBER := 1000;
27:
28: s_rows_deleted_flm NUMBER := 0; --FND_LOG_MESSAGES;
29: s_rows_deleted_fen NUMBER := 0; --FND_EXCEPTION_NOTES
30: s_rows_deleted_fle NUMBER := 0; --FND_LOG_EXCEPTIONS
31: s_rows_deleted_flmt NUMBER := 0; --FND_LOG_METRICS
32: s_rows_deleted_flue NUMBER := 0; --FND_LOG_UNIQUE_EXCEPTIONS
26: MAX_LIST_COUNT CONSTANT NUMBER := 1000;
27:
28: s_rows_deleted_flm NUMBER := 0; --FND_LOG_MESSAGES;
29: s_rows_deleted_fen NUMBER := 0; --FND_EXCEPTION_NOTES
30: s_rows_deleted_fle NUMBER := 0; --FND_LOG_EXCEPTIONS
31: s_rows_deleted_flmt NUMBER := 0; --FND_LOG_METRICS
32: s_rows_deleted_flue NUMBER := 0; --FND_LOG_UNIQUE_EXCEPTIONS
33: s_rows_deleted_fobsn NUMBER := 0; --FND_OAM_BIZEX_SENT_NOTIF
34: s_rows_deleted_fltc NUMBER := 0; --FND_LOG_TRANSACTION_CONTEXT
27:
28: s_rows_deleted_flm NUMBER := 0; --FND_LOG_MESSAGES;
29: s_rows_deleted_fen NUMBER := 0; --FND_EXCEPTION_NOTES
30: s_rows_deleted_fle NUMBER := 0; --FND_LOG_EXCEPTIONS
31: s_rows_deleted_flmt NUMBER := 0; --FND_LOG_METRICS
32: s_rows_deleted_flue NUMBER := 0; --FND_LOG_UNIQUE_EXCEPTIONS
33: s_rows_deleted_fobsn NUMBER := 0; --FND_OAM_BIZEX_SENT_NOTIF
34: s_rows_deleted_fltc NUMBER := 0; --FND_LOG_TRANSACTION_CONTEXT
35:
28: s_rows_deleted_flm NUMBER := 0; --FND_LOG_MESSAGES;
29: s_rows_deleted_fen NUMBER := 0; --FND_EXCEPTION_NOTES
30: s_rows_deleted_fle NUMBER := 0; --FND_LOG_EXCEPTIONS
31: s_rows_deleted_flmt NUMBER := 0; --FND_LOG_METRICS
32: s_rows_deleted_flue NUMBER := 0; --FND_LOG_UNIQUE_EXCEPTIONS
33: s_rows_deleted_fobsn NUMBER := 0; --FND_OAM_BIZEX_SENT_NOTIF
34: s_rows_deleted_fltc NUMBER := 0; --FND_LOG_TRANSACTION_CONTEXT
35:
36:
30: s_rows_deleted_fle NUMBER := 0; --FND_LOG_EXCEPTIONS
31: s_rows_deleted_flmt NUMBER := 0; --FND_LOG_METRICS
32: s_rows_deleted_flue NUMBER := 0; --FND_LOG_UNIQUE_EXCEPTIONS
33: s_rows_deleted_fobsn NUMBER := 0; --FND_OAM_BIZEX_SENT_NOTIF
34: s_rows_deleted_fltc NUMBER := 0; --FND_LOG_TRANSACTION_CONTEXT
35:
36:
37: ---Constants used for dynamic SQL
38: --List
76: temp_rowcount number := 0;
77: begin
78: loop
79: begin
80: delete from fnd_log_messages
81: where rownum <= 1000
82: and USER_ID = X_USER_ID
83: and TRANSACTION_CONTEXT_ID is null;
84: temp_rowcount := sql%rowcount;
108: temp_rowcount number := 0;
109: begin
110: loop
111: begin
112: delete from fnd_log_messages
113: where rownum <= 1000
114: and SESSION_ID = X_SESSION_ID
115: and TRANSACTION_CONTEXT_ID is null;
116: temp_rowcount := sql%rowcount;
140: temp_rowcount number := 0;
141: begin
142: loop
143: begin
144: delete from fnd_log_messages
145: where rownum <= 1000
146: and USER_ID = X_USER_ID
147: and SESSION_ID = X_SESSION_ID
148: and TRANSACTION_CONTEXT_ID is null;
173: temp_rowcount number := 0;
174: begin
175: loop
176: begin
177: delete from fnd_log_messages
178: where rownum <= 1000
179: and module like X_MODULE
180: and TRANSACTION_CONTEXT_ID is null;
181: temp_rowcount := sql%rowcount;
210: end if;
211: loop
212: begin
213: if (X_START_DATE is NULL) then
214: delete from fnd_log_messages
215: where rownum <= 1000
216: and timestamp <= X_END_DATE
217: and TRANSACTION_CONTEXT_ID is null;
218: elsif (X_END_DATE is NULL) then
215: where rownum <= 1000
216: and timestamp <= X_END_DATE
217: and TRANSACTION_CONTEXT_ID is null;
218: elsif (X_END_DATE is NULL) then
219: delete from fnd_log_messages
220: where rownum <= 1000
221: and timestamp >= X_START_DATE
222: and TRANSACTION_CONTEXT_ID is null;
223: elsif ((X_START_DATE is NOT NULL) and (X_END_DATE is NOT NULL)) then
220: where rownum <= 1000
221: and timestamp >= X_START_DATE
222: and TRANSACTION_CONTEXT_ID is null;
223: elsif ((X_START_DATE is NOT NULL) and (X_END_DATE is NOT NULL)) then
224: delete from fnd_log_messages
225: where rownum <= 1000
226: and timestamp >= X_START_DATE
227: and timestamp <= X_END_DATE
228: and TRANSACTION_CONTEXT_ID is null;
245: end if;
246: end;
247: end loop;
248: fnd_file.put_line(fnd_file.log, dbms_utility.get_time || ' delete_by_date_range_pre1159: ' ||
249: 'Deleted rows from fnd_log_messages ' || rowcount);
250: return rowcount;
251: end;
252:
253:
263: return delete_all;
264: end if;
265: loop
266: begin
267: delete from fnd_log_messages
268: where rownum <= 1000
269: and level <= X_LEVEL
270: and TRANSACTION_CONTEXT_ID is null;
271: temp_rowcount := sql%rowcount;
294: temp_rowcount number := 0;
295: begin
296: loop
297: begin
298: delete from fnd_log_messages
299: where rownum <= 1000
300: and TRANSACTION_CONTEXT_ID is null;
301: temp_rowcount := sql%rowcount;
302: commit;
345:
346: procedure init
347: IS
348: BEGIN
349: s_rows_deleted_flm := 0; --FND_LOG_MESSAGES;
350: s_rows_deleted_fen := 0; --FND_EXCEPTION_NOTES
351: s_rows_deleted_fle := 0; --FND_LOG_EXCEPTIONS
352: s_rows_deleted_flmt := 0; --FND_LOG_METRICS
353: s_rows_deleted_flue := 0; --FND_LOG_UNIQUE_EXCEPTIONS
347: IS
348: BEGIN
349: s_rows_deleted_flm := 0; --FND_LOG_MESSAGES;
350: s_rows_deleted_fen := 0; --FND_EXCEPTION_NOTES
351: s_rows_deleted_fle := 0; --FND_LOG_EXCEPTIONS
352: s_rows_deleted_flmt := 0; --FND_LOG_METRICS
353: s_rows_deleted_flue := 0; --FND_LOG_UNIQUE_EXCEPTIONS
354: s_rows_deleted_fobsn := 0; --FND_OAM_BIZEX_SENT_NOTIF
355: s_rows_deleted_fltc := 0; --FND_LOG_TRANSACTION_CONTEXT
348: BEGIN
349: s_rows_deleted_flm := 0; --FND_LOG_MESSAGES;
350: s_rows_deleted_fen := 0; --FND_EXCEPTION_NOTES
351: s_rows_deleted_fle := 0; --FND_LOG_EXCEPTIONS
352: s_rows_deleted_flmt := 0; --FND_LOG_METRICS
353: s_rows_deleted_flue := 0; --FND_LOG_UNIQUE_EXCEPTIONS
354: s_rows_deleted_fobsn := 0; --FND_OAM_BIZEX_SENT_NOTIF
355: s_rows_deleted_fltc := 0; --FND_LOG_TRANSACTION_CONTEXT
356: END init;
349: s_rows_deleted_flm := 0; --FND_LOG_MESSAGES;
350: s_rows_deleted_fen := 0; --FND_EXCEPTION_NOTES
351: s_rows_deleted_fle := 0; --FND_LOG_EXCEPTIONS
352: s_rows_deleted_flmt := 0; --FND_LOG_METRICS
353: s_rows_deleted_flue := 0; --FND_LOG_UNIQUE_EXCEPTIONS
354: s_rows_deleted_fobsn := 0; --FND_OAM_BIZEX_SENT_NOTIF
355: s_rows_deleted_fltc := 0; --FND_LOG_TRANSACTION_CONTEXT
356: END init;
357:
351: s_rows_deleted_fle := 0; --FND_LOG_EXCEPTIONS
352: s_rows_deleted_flmt := 0; --FND_LOG_METRICS
353: s_rows_deleted_flue := 0; --FND_LOG_UNIQUE_EXCEPTIONS
354: s_rows_deleted_fobsn := 0; --FND_OAM_BIZEX_SENT_NOTIF
355: s_rows_deleted_fltc := 0; --FND_LOG_TRANSACTION_CONTEXT
356: END init;
357:
358: procedure printCount
359: is
361: begin
362: l_count := 0;
363:
364: /*
365: select count(*) into l_count from FND_LOG_MESSAGES;
366: fnd_file.put_line( fnd_file.log,'Rows in FND_LOG_MESSAGES=' || l_count);
367: select count(*) into l_count from FND_EXCEPTION_NOTES;
368: fnd_file.put_line( fnd_file.log,'Rows in FND_EXCEPTION_NOTES=' || l_count);
369: select count(*) into l_count from FND_LOG_EXCEPTIONS;
362: l_count := 0;
363:
364: /*
365: select count(*) into l_count from FND_LOG_MESSAGES;
366: fnd_file.put_line( fnd_file.log,'Rows in FND_LOG_MESSAGES=' || l_count);
367: select count(*) into l_count from FND_EXCEPTION_NOTES;
368: fnd_file.put_line( fnd_file.log,'Rows in FND_EXCEPTION_NOTES=' || l_count);
369: select count(*) into l_count from FND_LOG_EXCEPTIONS;
370: fnd_file.put_line( fnd_file.log,'Rows in FND_LOG_EXCEPTIONS=' || l_count);
365: select count(*) into l_count from FND_LOG_MESSAGES;
366: fnd_file.put_line( fnd_file.log,'Rows in FND_LOG_MESSAGES=' || l_count);
367: select count(*) into l_count from FND_EXCEPTION_NOTES;
368: fnd_file.put_line( fnd_file.log,'Rows in FND_EXCEPTION_NOTES=' || l_count);
369: select count(*) into l_count from FND_LOG_EXCEPTIONS;
370: fnd_file.put_line( fnd_file.log,'Rows in FND_LOG_EXCEPTIONS=' || l_count);
371: select count(*) into l_count from FND_LOG_METRICS;
372: fnd_file.put_line( fnd_file.log,'Rows in FND_LOG_METRICS=' || l_count);
373: select count(*) into l_count from FND_LOG_UNIQUE_EXCEPTIONS;
366: fnd_file.put_line( fnd_file.log,'Rows in FND_LOG_MESSAGES=' || l_count);
367: select count(*) into l_count from FND_EXCEPTION_NOTES;
368: fnd_file.put_line( fnd_file.log,'Rows in FND_EXCEPTION_NOTES=' || l_count);
369: select count(*) into l_count from FND_LOG_EXCEPTIONS;
370: fnd_file.put_line( fnd_file.log,'Rows in FND_LOG_EXCEPTIONS=' || l_count);
371: select count(*) into l_count from FND_LOG_METRICS;
372: fnd_file.put_line( fnd_file.log,'Rows in FND_LOG_METRICS=' || l_count);
373: select count(*) into l_count from FND_LOG_UNIQUE_EXCEPTIONS;
374: fnd_file.put_line( fnd_file.log,'Rows in FND_LOG_UNIQUE_EXCEPTIONS=' || l_count);
367: select count(*) into l_count from FND_EXCEPTION_NOTES;
368: fnd_file.put_line( fnd_file.log,'Rows in FND_EXCEPTION_NOTES=' || l_count);
369: select count(*) into l_count from FND_LOG_EXCEPTIONS;
370: fnd_file.put_line( fnd_file.log,'Rows in FND_LOG_EXCEPTIONS=' || l_count);
371: select count(*) into l_count from FND_LOG_METRICS;
372: fnd_file.put_line( fnd_file.log,'Rows in FND_LOG_METRICS=' || l_count);
373: select count(*) into l_count from FND_LOG_UNIQUE_EXCEPTIONS;
374: fnd_file.put_line( fnd_file.log,'Rows in FND_LOG_UNIQUE_EXCEPTIONS=' || l_count);
375: select count(*) into l_count from FND_OAM_BIZEX_SENT_NOTIF;
368: fnd_file.put_line( fnd_file.log,'Rows in FND_EXCEPTION_NOTES=' || l_count);
369: select count(*) into l_count from FND_LOG_EXCEPTIONS;
370: fnd_file.put_line( fnd_file.log,'Rows in FND_LOG_EXCEPTIONS=' || l_count);
371: select count(*) into l_count from FND_LOG_METRICS;
372: fnd_file.put_line( fnd_file.log,'Rows in FND_LOG_METRICS=' || l_count);
373: select count(*) into l_count from FND_LOG_UNIQUE_EXCEPTIONS;
374: fnd_file.put_line( fnd_file.log,'Rows in FND_LOG_UNIQUE_EXCEPTIONS=' || l_count);
375: select count(*) into l_count from FND_OAM_BIZEX_SENT_NOTIF;
376: fnd_file.put_line( fnd_file.log,'Rows in FND_OAM_BIZEX_SENT_NOTIF=' || l_count);
369: select count(*) into l_count from FND_LOG_EXCEPTIONS;
370: fnd_file.put_line( fnd_file.log,'Rows in FND_LOG_EXCEPTIONS=' || l_count);
371: select count(*) into l_count from FND_LOG_METRICS;
372: fnd_file.put_line( fnd_file.log,'Rows in FND_LOG_METRICS=' || l_count);
373: select count(*) into l_count from FND_LOG_UNIQUE_EXCEPTIONS;
374: fnd_file.put_line( fnd_file.log,'Rows in FND_LOG_UNIQUE_EXCEPTIONS=' || l_count);
375: select count(*) into l_count from FND_OAM_BIZEX_SENT_NOTIF;
376: fnd_file.put_line( fnd_file.log,'Rows in FND_OAM_BIZEX_SENT_NOTIF=' || l_count);
377: select count(*) into l_count from FND_LOG_TRANSACTION_CONTEXT;
370: fnd_file.put_line( fnd_file.log,'Rows in FND_LOG_EXCEPTIONS=' || l_count);
371: select count(*) into l_count from FND_LOG_METRICS;
372: fnd_file.put_line( fnd_file.log,'Rows in FND_LOG_METRICS=' || l_count);
373: select count(*) into l_count from FND_LOG_UNIQUE_EXCEPTIONS;
374: fnd_file.put_line( fnd_file.log,'Rows in FND_LOG_UNIQUE_EXCEPTIONS=' || l_count);
375: select count(*) into l_count from FND_OAM_BIZEX_SENT_NOTIF;
376: fnd_file.put_line( fnd_file.log,'Rows in FND_OAM_BIZEX_SENT_NOTIF=' || l_count);
377: select count(*) into l_count from FND_LOG_TRANSACTION_CONTEXT;
378: fnd_file.put_line( fnd_file.log,'Rows in FND_LOG_TRANSACTION_CONTEXT=' || l_count);
373: select count(*) into l_count from FND_LOG_UNIQUE_EXCEPTIONS;
374: fnd_file.put_line( fnd_file.log,'Rows in FND_LOG_UNIQUE_EXCEPTIONS=' || l_count);
375: select count(*) into l_count from FND_OAM_BIZEX_SENT_NOTIF;
376: fnd_file.put_line( fnd_file.log,'Rows in FND_OAM_BIZEX_SENT_NOTIF=' || l_count);
377: select count(*) into l_count from FND_LOG_TRANSACTION_CONTEXT;
378: fnd_file.put_line( fnd_file.log,'Rows in FND_LOG_TRANSACTION_CONTEXT=' || l_count);
379: select count(*) into l_count from FND_LOG_ATTACHMENTS;
380: fnd_file.put_line( fnd_file.log,'Rows in FND_LOG_ATTACHMENTS=' || l_count);
381: */
374: fnd_file.put_line( fnd_file.log,'Rows in FND_LOG_UNIQUE_EXCEPTIONS=' || l_count);
375: select count(*) into l_count from FND_OAM_BIZEX_SENT_NOTIF;
376: fnd_file.put_line( fnd_file.log,'Rows in FND_OAM_BIZEX_SENT_NOTIF=' || l_count);
377: select count(*) into l_count from FND_LOG_TRANSACTION_CONTEXT;
378: fnd_file.put_line( fnd_file.log,'Rows in FND_LOG_TRANSACTION_CONTEXT=' || l_count);
379: select count(*) into l_count from FND_LOG_ATTACHMENTS;
380: fnd_file.put_line( fnd_file.log,'Rows in FND_LOG_ATTACHMENTS=' || l_count);
381: */
382: end printCount;
375: select count(*) into l_count from FND_OAM_BIZEX_SENT_NOTIF;
376: fnd_file.put_line( fnd_file.log,'Rows in FND_OAM_BIZEX_SENT_NOTIF=' || l_count);
377: select count(*) into l_count from FND_LOG_TRANSACTION_CONTEXT;
378: fnd_file.put_line( fnd_file.log,'Rows in FND_LOG_TRANSACTION_CONTEXT=' || l_count);
379: select count(*) into l_count from FND_LOG_ATTACHMENTS;
380: fnd_file.put_line( fnd_file.log,'Rows in FND_LOG_ATTACHMENTS=' || l_count);
381: */
382: end printCount;
383:
376: fnd_file.put_line( fnd_file.log,'Rows in FND_OAM_BIZEX_SENT_NOTIF=' || l_count);
377: select count(*) into l_count from FND_LOG_TRANSACTION_CONTEXT;
378: fnd_file.put_line( fnd_file.log,'Rows in FND_LOG_TRANSACTION_CONTEXT=' || l_count);
379: select count(*) into l_count from FND_LOG_ATTACHMENTS;
380: fnd_file.put_line( fnd_file.log,'Rows in FND_LOG_ATTACHMENTS=' || l_count);
381: */
382: end printCount;
383:
384:
548: l_part3 :='';
549: l_part4 :='';
550:
551: l_retu := 'select distinct fltc.TRANSACTION_CONTEXT_ID '
552: || ' from FND_LOG_TRANSACTION_CONTEXT fltc ';
553:
554:
555: if (pTrType = C_TR_REQUEST_TYPE) then
556: l_part1 := ' where fltc.TRANSACTION_TYPE = ''REQUEST'' ';
660: exit when l_start > p_logSeqList.count;
661:
662: begin
663:
664: fdebug('Start Del FND_LOG_EXCEPTIONS');
665: fdebug('l_start = ' || l_start || ' l_end = ' || l_end);
666:
667: l_table := 'FND_LOG_EXCEPTIONS';
668: FORALL ii IN l_start..l_end
663:
664: fdebug('Start Del FND_LOG_EXCEPTIONS');
665: fdebug('l_start = ' || l_start || ' l_end = ' || l_end);
666:
667: l_table := 'FND_LOG_EXCEPTIONS';
668: FORALL ii IN l_start..l_end
669: delete from FND_LOG_EXCEPTIONS flem where flem.LOG_SEQUENCE=p_logSeqList(ii)
670: and NOT EXISTS
671: (select null from FND_LOG_EXCEPTIONS fle, FND_LOG_UNIQUE_EXCEPTIONS flue where
665: fdebug('l_start = ' || l_start || ' l_end = ' || l_end);
666:
667: l_table := 'FND_LOG_EXCEPTIONS';
668: FORALL ii IN l_start..l_end
669: delete from FND_LOG_EXCEPTIONS flem where flem.LOG_SEQUENCE=p_logSeqList(ii)
670: and NOT EXISTS
671: (select null from FND_LOG_EXCEPTIONS fle, FND_LOG_UNIQUE_EXCEPTIONS flue where
672: fle.LOG_SEQUENCE = flem.LOG_SEQUENCE
673: and flue.UNIQUE_EXCEPTION_ID = fle.UNIQUE_EXCEPTION_ID
667: l_table := 'FND_LOG_EXCEPTIONS';
668: FORALL ii IN l_start..l_end
669: delete from FND_LOG_EXCEPTIONS flem where flem.LOG_SEQUENCE=p_logSeqList(ii)
670: and NOT EXISTS
671: (select null from FND_LOG_EXCEPTIONS fle, FND_LOG_UNIQUE_EXCEPTIONS flue where
672: fle.LOG_SEQUENCE = flem.LOG_SEQUENCE
673: and flue.UNIQUE_EXCEPTION_ID = fle.UNIQUE_EXCEPTION_ID
674: and flue.STATUS <> 'C');
675:
672: fle.LOG_SEQUENCE = flem.LOG_SEQUENCE
673: and flue.UNIQUE_EXCEPTION_ID = fle.UNIQUE_EXCEPTION_ID
674: and flue.STATUS <> 'C');
675:
676: s_rows_deleted_fle := s_rows_deleted_fle + sql%rowcount; --FND_LOG_EXCEPTIONS
677: doCommit;
678:
679: fdebug('Start Del FND_LOG_MESSAGES');
680: l_table := 'FND_LOG_MESSAGES';
675:
676: s_rows_deleted_fle := s_rows_deleted_fle + sql%rowcount; --FND_LOG_EXCEPTIONS
677: doCommit;
678:
679: fdebug('Start Del FND_LOG_MESSAGES');
680: l_table := 'FND_LOG_MESSAGES';
681:
682: FORALL ii IN l_start..l_end
683: delete from FND_LOG_MESSAGES flm where flm.LOG_SEQUENCE=p_logSeqList(ii)
676: s_rows_deleted_fle := s_rows_deleted_fle + sql%rowcount; --FND_LOG_EXCEPTIONS
677: doCommit;
678:
679: fdebug('Start Del FND_LOG_MESSAGES');
680: l_table := 'FND_LOG_MESSAGES';
681:
682: FORALL ii IN l_start..l_end
683: delete from FND_LOG_MESSAGES flm where flm.LOG_SEQUENCE=p_logSeqList(ii)
684: and NOT EXISTS
679: fdebug('Start Del FND_LOG_MESSAGES');
680: l_table := 'FND_LOG_MESSAGES';
681:
682: FORALL ii IN l_start..l_end
683: delete from FND_LOG_MESSAGES flm where flm.LOG_SEQUENCE=p_logSeqList(ii)
684: and NOT EXISTS
685: (select null from FND_LOG_EXCEPTIONS fle where
686: fle.LOG_SEQUENCE = flm.LOG_SEQUENCE
687: );
681:
682: FORALL ii IN l_start..l_end
683: delete from FND_LOG_MESSAGES flm where flm.LOG_SEQUENCE=p_logSeqList(ii)
684: and NOT EXISTS
685: (select null from FND_LOG_EXCEPTIONS fle where
686: fle.LOG_SEQUENCE = flm.LOG_SEQUENCE
687: );
688:
689: s_rows_deleted_flm := s_rows_deleted_flm + sql%rowcount; --FND_LOG_MESSAGES;
685: (select null from FND_LOG_EXCEPTIONS fle where
686: fle.LOG_SEQUENCE = flm.LOG_SEQUENCE
687: );
688:
689: s_rows_deleted_flm := s_rows_deleted_flm + sql%rowcount; --FND_LOG_MESSAGES;
690: doCommit;
691:
692:
693: l_table := 'FND_LOG_ATTACHMENTS';
689: s_rows_deleted_flm := s_rows_deleted_flm + sql%rowcount; --FND_LOG_MESSAGES;
690: doCommit;
691:
692:
693: l_table := 'FND_LOG_ATTACHMENTS';
694: FORALL ii IN l_start..l_end
695: delete from FND_LOG_ATTACHMENTS fla where fla.LOG_SEQUENCE=p_logSeqList(ii)
696: and NOT EXISTS
697: (select null from FND_LOG_EXCEPTIONS fle where fle.LOG_SEQUENCE = p_logSeqList(ii))
691:
692:
693: l_table := 'FND_LOG_ATTACHMENTS';
694: FORALL ii IN l_start..l_end
695: delete from FND_LOG_ATTACHMENTS fla where fla.LOG_SEQUENCE=p_logSeqList(ii)
696: and NOT EXISTS
697: (select null from FND_LOG_EXCEPTIONS fle where fle.LOG_SEQUENCE = p_logSeqList(ii))
698: and NOT EXISTS
699: (select null from FND_LOG_MESSAGES flm where flm.LOG_SEQUENCE = p_logSeqList(ii));
693: l_table := 'FND_LOG_ATTACHMENTS';
694: FORALL ii IN l_start..l_end
695: delete from FND_LOG_ATTACHMENTS fla where fla.LOG_SEQUENCE=p_logSeqList(ii)
696: and NOT EXISTS
697: (select null from FND_LOG_EXCEPTIONS fle where fle.LOG_SEQUENCE = p_logSeqList(ii))
698: and NOT EXISTS
699: (select null from FND_LOG_MESSAGES flm where flm.LOG_SEQUENCE = p_logSeqList(ii));
700:
701:
695: delete from FND_LOG_ATTACHMENTS fla where fla.LOG_SEQUENCE=p_logSeqList(ii)
696: and NOT EXISTS
697: (select null from FND_LOG_EXCEPTIONS fle where fle.LOG_SEQUENCE = p_logSeqList(ii))
698: and NOT EXISTS
699: (select null from FND_LOG_MESSAGES flm where flm.LOG_SEQUENCE = p_logSeqList(ii));
700:
701:
702:
703: EXCEPTION
741: exit when l_start > p_UEXList.count;
742:
743: begin
744: fdebug('Start Del FND_EXCEPTION_NOTES');
745: l_table := 'FND_LOG_MESSAGES';
746:
747: FORALL ii IN l_start..l_end
748: DELETE FROM FND_EXCEPTION_NOTES fen
749: WHERE fen.UNIQUE_EXCEPTION_ID = p_UEXList(ii)
747: FORALL ii IN l_start..l_end
748: DELETE FROM FND_EXCEPTION_NOTES fen
749: WHERE fen.UNIQUE_EXCEPTION_ID = p_UEXList(ii)
750: and NOT EXISTS
751: (SELECT null from FND_LOG_EXCEPTIONS fle
752: where fle.UNIQUE_EXCEPTION_ID = fen.UNIQUE_EXCEPTION_ID
753: );
754: s_rows_deleted_fen := s_rows_deleted_fen + sql%rowcount; --FND_EXCEPTION_NOTES
755: doCommit;
759: FORALL ii IN l_start..l_end
760: DELETE FROM FND_OAM_BIZEX_SENT_NOTIF fobsf
761: WHERE fobsf.UNIQUE_EXCEPTION_ID = p_UEXList(ii)
762: and NOT EXISTS
763: (SELECT null from FND_LOG_EXCEPTIONS fle
764: where fle.UNIQUE_EXCEPTION_ID = fobsf.UNIQUE_EXCEPTION_ID
765: );
766: s_rows_deleted_fobsn := s_rows_deleted_fobsn + sql%rowcount; --FND_OAM_BIZEX_SENT_NOTIF
767: doCommit;
765: );
766: s_rows_deleted_fobsn := s_rows_deleted_fobsn + sql%rowcount; --FND_OAM_BIZEX_SENT_NOTIF
767: doCommit;
768:
769: fdebug('Start Del FND_LOG_UNIQUE_EXCEPTIONS');
770: l_table := 'FND_LOG_UNIQUE_EXCEPTIONS';
771: FORALL ii IN l_start..l_end
772: DELETE FROM FND_LOG_UNIQUE_EXCEPTIONS flue
773: WHERE flue.UNIQUE_EXCEPTION_ID = p_UEXList(ii)
766: s_rows_deleted_fobsn := s_rows_deleted_fobsn + sql%rowcount; --FND_OAM_BIZEX_SENT_NOTIF
767: doCommit;
768:
769: fdebug('Start Del FND_LOG_UNIQUE_EXCEPTIONS');
770: l_table := 'FND_LOG_UNIQUE_EXCEPTIONS';
771: FORALL ii IN l_start..l_end
772: DELETE FROM FND_LOG_UNIQUE_EXCEPTIONS flue
773: WHERE flue.UNIQUE_EXCEPTION_ID = p_UEXList(ii)
774: and NOT EXISTS
768:
769: fdebug('Start Del FND_LOG_UNIQUE_EXCEPTIONS');
770: l_table := 'FND_LOG_UNIQUE_EXCEPTIONS';
771: FORALL ii IN l_start..l_end
772: DELETE FROM FND_LOG_UNIQUE_EXCEPTIONS flue
773: WHERE flue.UNIQUE_EXCEPTION_ID = p_UEXList(ii)
774: and NOT EXISTS
775: (SELECT null from FND_LOG_EXCEPTIONS fle
776: where fle.UNIQUE_EXCEPTION_ID = flue.UNIQUE_EXCEPTION_ID
771: FORALL ii IN l_start..l_end
772: DELETE FROM FND_LOG_UNIQUE_EXCEPTIONS flue
773: WHERE flue.UNIQUE_EXCEPTION_ID = p_UEXList(ii)
774: and NOT EXISTS
775: (SELECT null from FND_LOG_EXCEPTIONS fle
776: where fle.UNIQUE_EXCEPTION_ID = flue.UNIQUE_EXCEPTION_ID
777: );
778: s_rows_deleted_flue := s_rows_deleted_flue + sql%rowcount; --FND_LOG_UNIQUE_EXCEPTIONS
779: doCommit;
774: and NOT EXISTS
775: (SELECT null from FND_LOG_EXCEPTIONS fle
776: where fle.UNIQUE_EXCEPTION_ID = flue.UNIQUE_EXCEPTION_ID
777: );
778: s_rows_deleted_flue := s_rows_deleted_flue + sql%rowcount; --FND_LOG_UNIQUE_EXCEPTIONS
779: doCommit;
780:
781: EXCEPTION
782: when others then
794: END DELETE_UNIQUE_EXCEPTIONS_INFO;
795:
796: --------------------------------------------------------------------------------
797: --This function deletes those unique exceptions for which there is no infor
798: -- in fnd_log_exceptions
799:
800: procedure DELETE_UNIQUEA_EXCEPTIONS_INFO(pRetCode out NOCOPY number)
801: IS
802: l_table VARCHAR2(25);
809:
810: --Check input parameters
811: select flue.UNIQUE_EXCEPTION_ID BULK COLLECT into l_UEXList
812: from
813: FND_LOG_UNIQUE_EXCEPTIONS flue
814: where
815: NOT EXISTS
816: (SELECT null from FND_LOG_EXCEPTIONS fle
817: where fle.UNIQUE_EXCEPTION_ID = flue.UNIQUE_EXCEPTION_ID
812: from
813: FND_LOG_UNIQUE_EXCEPTIONS flue
814: where
815: NOT EXISTS
816: (SELECT null from FND_LOG_EXCEPTIONS fle
817: where fle.UNIQUE_EXCEPTION_ID = flue.UNIQUE_EXCEPTION_ID
818: );
819:
820: DELETE_UNIQUE_EXCEPTIONS_INFO(l_UEXList,pRetCode);
837:
838: --Check input parameters
839: select fle.LOG_SEQUENCE BULK COLLECT into l_EXList
840: from
841: FND_LOG_EXCEPTIONS fle
842: ,FND_LOG_UNIQUE_EXCEPTIONS flue
843: where
844: fle.UNIQUE_EXCEPTION_ID = flue.UNIQUE_EXCEPTION_ID
845: and fle.TRANSACTION_CONTEXT_ID is null
838: --Check input parameters
839: select fle.LOG_SEQUENCE BULK COLLECT into l_EXList
840: from
841: FND_LOG_EXCEPTIONS fle
842: ,FND_LOG_UNIQUE_EXCEPTIONS flue
843: where
844: fle.UNIQUE_EXCEPTION_ID = flue.UNIQUE_EXCEPTION_ID
845: and fle.TRANSACTION_CONTEXT_ID is null
846: and flue.STATUS = 'C'
879: l_end := getDeleteBlock(l_end, p_TrList.count);
880: exit when l_start > p_TrList.count;
881:
882: begin
883: fdebug('Start Del FND_LOG_METRICS');
884: l_table := 'FND_LOG_METRICS';
885:
886: FORALL ii IN l_start..l_end
887: delete from FND_LOG_METRICS flm where flm.TRANSACTION_CONTEXT_ID=p_TrList(ii)
880: exit when l_start > p_TrList.count;
881:
882: begin
883: fdebug('Start Del FND_LOG_METRICS');
884: l_table := 'FND_LOG_METRICS';
885:
886: FORALL ii IN l_start..l_end
887: delete from FND_LOG_METRICS flm where flm.TRANSACTION_CONTEXT_ID=p_TrList(ii)
888: and NOT EXISTS
883: fdebug('Start Del FND_LOG_METRICS');
884: l_table := 'FND_LOG_METRICS';
885:
886: FORALL ii IN l_start..l_end
887: delete from FND_LOG_METRICS flm where flm.TRANSACTION_CONTEXT_ID=p_TrList(ii)
888: and NOT EXISTS
889: (select null from FND_LOG_EXCEPTIONS fle WHERE fle.TRANSACTION_CONTEXT_ID=flm.TRANSACTION_CONTEXT_ID);
890: s_rows_deleted_flmt := s_rows_deleted_flmt + sql%rowcount; --FND_LOG_METRICS
891: doCommit;
885:
886: FORALL ii IN l_start..l_end
887: delete from FND_LOG_METRICS flm where flm.TRANSACTION_CONTEXT_ID=p_TrList(ii)
888: and NOT EXISTS
889: (select null from FND_LOG_EXCEPTIONS fle WHERE fle.TRANSACTION_CONTEXT_ID=flm.TRANSACTION_CONTEXT_ID);
890: s_rows_deleted_flmt := s_rows_deleted_flmt + sql%rowcount; --FND_LOG_METRICS
891: doCommit;
892:
893:
886: FORALL ii IN l_start..l_end
887: delete from FND_LOG_METRICS flm where flm.TRANSACTION_CONTEXT_ID=p_TrList(ii)
888: and NOT EXISTS
889: (select null from FND_LOG_EXCEPTIONS fle WHERE fle.TRANSACTION_CONTEXT_ID=flm.TRANSACTION_CONTEXT_ID);
890: s_rows_deleted_flmt := s_rows_deleted_flmt + sql%rowcount; --FND_LOG_METRICS
891: doCommit;
892:
893:
894: fdebug('Start Del FND_LOG_TRANSACTION_CONTEXT');
890: s_rows_deleted_flmt := s_rows_deleted_flmt + sql%rowcount; --FND_LOG_METRICS
891: doCommit;
892:
893:
894: fdebug('Start Del FND_LOG_TRANSACTION_CONTEXT');
895: l_table := 'FND_LOG_TRANSACTION_CONTEXT';
896: FORALL ii IN l_start..l_end
897: delete from FND_LOG_TRANSACTION_CONTEXT where TRANSACTION_CONTEXT_ID=p_TrList(ii)
898: and NOT EXISTS
891: doCommit;
892:
893:
894: fdebug('Start Del FND_LOG_TRANSACTION_CONTEXT');
895: l_table := 'FND_LOG_TRANSACTION_CONTEXT';
896: FORALL ii IN l_start..l_end
897: delete from FND_LOG_TRANSACTION_CONTEXT where TRANSACTION_CONTEXT_ID=p_TrList(ii)
898: and NOT EXISTS
899: (select null from FND_LOG_EXCEPTIONS fle WHERE fle.TRANSACTION_CONTEXT_ID=p_TrList(ii))
893:
894: fdebug('Start Del FND_LOG_TRANSACTION_CONTEXT');
895: l_table := 'FND_LOG_TRANSACTION_CONTEXT';
896: FORALL ii IN l_start..l_end
897: delete from FND_LOG_TRANSACTION_CONTEXT where TRANSACTION_CONTEXT_ID=p_TrList(ii)
898: and NOT EXISTS
899: (select null from FND_LOG_EXCEPTIONS fle WHERE fle.TRANSACTION_CONTEXT_ID=p_TrList(ii))
900: and NOT EXISTS
901: (select null from FND_LOG_MESSAGES flm WHERE flm.TRANSACTION_CONTEXT_ID=p_TrList(ii));
895: l_table := 'FND_LOG_TRANSACTION_CONTEXT';
896: FORALL ii IN l_start..l_end
897: delete from FND_LOG_TRANSACTION_CONTEXT where TRANSACTION_CONTEXT_ID=p_TrList(ii)
898: and NOT EXISTS
899: (select null from FND_LOG_EXCEPTIONS fle WHERE fle.TRANSACTION_CONTEXT_ID=p_TrList(ii))
900: and NOT EXISTS
901: (select null from FND_LOG_MESSAGES flm WHERE flm.TRANSACTION_CONTEXT_ID=p_TrList(ii));
902:
903: l_retu := sql%rowcount;
897: delete from FND_LOG_TRANSACTION_CONTEXT where TRANSACTION_CONTEXT_ID=p_TrList(ii)
898: and NOT EXISTS
899: (select null from FND_LOG_EXCEPTIONS fle WHERE fle.TRANSACTION_CONTEXT_ID=p_TrList(ii))
900: and NOT EXISTS
901: (select null from FND_LOG_MESSAGES flm WHERE flm.TRANSACTION_CONTEXT_ID=p_TrList(ii));
902:
903: l_retu := sql%rowcount;
904: s_rows_deleted_fltc := s_rows_deleted_fltc + sql%rowcount; --FND_LOG_TRANSACTION_CONTEXT
905: doCommit;
900: and NOT EXISTS
901: (select null from FND_LOG_MESSAGES flm WHERE flm.TRANSACTION_CONTEXT_ID=p_TrList(ii));
902:
903: l_retu := sql%rowcount;
904: s_rows_deleted_fltc := s_rows_deleted_fltc + sql%rowcount; --FND_LOG_TRANSACTION_CONTEXT
905: doCommit;
906: return l_retu;
907: fdebug('End Del FND_LOG_TRANSACTION_CONTEXT');
908:
903: l_retu := sql%rowcount;
904: s_rows_deleted_fltc := s_rows_deleted_fltc + sql%rowcount; --FND_LOG_TRANSACTION_CONTEXT
905: doCommit;
906: return l_retu;
907: fdebug('End Del FND_LOG_TRANSACTION_CONTEXT');
908:
909: EXCEPTION
910: when others then
911: fdebug('Failed in DEL_METR_TRANS_INFO');
983: --Collect l_UEXList
984: l_UEXList1 := l_UEXListNull;
985: select distinct flue.UNIQUE_EXCEPTION_ID BULK COLLECT into l_UEXList1
986: from
987: FND_LOG_EXCEPTIONS fle
988: , FND_LOG_UNIQUE_EXCEPTIONS flue
989: where
990: fle.TRANSACTION_CONTEXT_ID = l_TrnCtxIdList(ii)
991: and flue.UNIQUE_EXCEPTION_ID = fle.UNIQUE_EXCEPTION_ID ---
984: l_UEXList1 := l_UEXListNull;
985: select distinct flue.UNIQUE_EXCEPTION_ID BULK COLLECT into l_UEXList1
986: from
987: FND_LOG_EXCEPTIONS fle
988: , FND_LOG_UNIQUE_EXCEPTIONS flue
989: where
990: fle.TRANSACTION_CONTEXT_ID = l_TrnCtxIdList(ii)
991: and flue.UNIQUE_EXCEPTION_ID = fle.UNIQUE_EXCEPTION_ID ---
992: and flue.STATUS = 'C';
999: l_LogSeqList1 := l_LogSeqListNull;
1000: select LOG_SEQUENCE BULK COLLECT into l_LogSeqList1
1001: from
1002: (
1003: select LOG_SEQUENCE from FND_LOG_MESSAGES flm
1004: where flm.TRANSACTION_CONTEXT_ID = l_TrnCtxIdList(ii)
1005: union
1006: select LOG_SEQUENCE from FND_LOG_EXCEPTIONS fle
1007: where fle.TRANSACTION_CONTEXT_ID = l_TrnCtxIdList(ii)
1002: (
1003: select LOG_SEQUENCE from FND_LOG_MESSAGES flm
1004: where flm.TRANSACTION_CONTEXT_ID = l_TrnCtxIdList(ii)
1005: union
1006: select LOG_SEQUENCE from FND_LOG_EXCEPTIONS fle
1007: where fle.TRANSACTION_CONTEXT_ID = l_TrnCtxIdList(ii)
1008: and NOT EXISTS(select null from FND_LOG_MESSAGES flm1 where flm1.LOG_SEQUENCE=fle.LOG_SEQUENCE)
1009: );
1010: ---fdebug('l_LogSeqList1.count=' || l_LogSeqList1.count);
1004: where flm.TRANSACTION_CONTEXT_ID = l_TrnCtxIdList(ii)
1005: union
1006: select LOG_SEQUENCE from FND_LOG_EXCEPTIONS fle
1007: where fle.TRANSACTION_CONTEXT_ID = l_TrnCtxIdList(ii)
1008: and NOT EXISTS(select null from FND_LOG_MESSAGES flm1 where flm1.LOG_SEQUENCE=fle.LOG_SEQUENCE)
1009: );
1010: ---fdebug('l_LogSeqList1.count=' || l_LogSeqList1.count);
1011: mergelist(l_LogSeqList, l_LogSeqList1);
1012:
1109: DELETE_EXCEPTIONS_NULL_TRID(l_retCode, X_START_DATE, X_END_DATE);
1110: commit;
1111:
1112: --Delete abondoned attachements
1113: delete from FND_LOG_ATTACHMENTS fla where NOT EXISTS
1114: (select null from FND_LOG_EXCEPTIONS fle where fle.LOG_SEQUENCE = fla.LOG_SEQUENCE)
1115: and NOT EXISTS (select null from FND_LOG_MESSAGES flm where flm.LOG_SEQUENCE = fla.LOG_SEQUENCE );
1116: commit;
1117:
1110: commit;
1111:
1112: --Delete abondoned attachements
1113: delete from FND_LOG_ATTACHMENTS fla where NOT EXISTS
1114: (select null from FND_LOG_EXCEPTIONS fle where fle.LOG_SEQUENCE = fla.LOG_SEQUENCE)
1115: and NOT EXISTS (select null from FND_LOG_MESSAGES flm where flm.LOG_SEQUENCE = fla.LOG_SEQUENCE );
1116: commit;
1117:
1118: --delete the abondoned unque exceptions;
1111:
1112: --Delete abondoned attachements
1113: delete from FND_LOG_ATTACHMENTS fla where NOT EXISTS
1114: (select null from FND_LOG_EXCEPTIONS fle where fle.LOG_SEQUENCE = fla.LOG_SEQUENCE)
1115: and NOT EXISTS (select null from FND_LOG_MESSAGES flm where flm.LOG_SEQUENCE = fla.LOG_SEQUENCE );
1116: commit;
1117:
1118: --delete the abondoned unque exceptions;
1119: DELETE_UNIQUEA_EXCEPTIONS_INFO(l_retCode);
1333: msgbuf varchar2(2000);
1334: last_dt DATE;
1335: begin
1336:
1337: if ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1338: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,
1339: c_log_head || l_api_name || '.begin',
1340: c_pkg_name || '.' ||l_api_name ||'(' ||
1341: 'last_date=>'|| last_date||');');
1334: last_dt DATE;
1335: begin
1336:
1337: if ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1338: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,
1339: c_log_head || l_api_name || '.begin',
1340: c_pkg_name || '.' ||l_api_name ||'(' ||
1341: 'last_date=>'|| last_date||');');
1342: end if;
1350: errbuf := 'Unexpected error converting character string to date:'
1351: ||last_date;
1352: retcode := '2';
1353: FND_FILE.put_line(FND_FILE.log,errbuf);
1354: if ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1355: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,
1356: c_log_head || l_api_name || '.end_exception',
1357: 'returning from delete_by_date with date exception. last_date='
1358: ||last_date);
1351: ||last_date;
1352: retcode := '2';
1353: FND_FILE.put_line(FND_FILE.log,errbuf);
1354: if ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1355: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,
1356: c_log_head || l_api_name || '.end_exception',
1357: 'returning from delete_by_date with date exception. last_date='
1358: ||last_date);
1359: end if;
1361: end if;
1362: end if;
1363:
1364: fnd_message.set_name('FND', 'PURGING_UP_TO_DATE');
1365: fnd_message.set_token('ENTITY', 'FND_LOG_MESSAGES');
1366: if (last_date is NULL) then
1367: fnd_message.set_token('DATE', 'WF_ALL', TRUE);
1368: else
1369: fnd_message.set_token('DATE', last_date);
1378: fnd_message.set_token('ROWS', numrows);
1379: msgbuf := fnd_message.get;
1380: FND_FILE.put_line(FND_FILE.log, msgbuf);
1381:
1382: if ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1383: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,
1384: c_log_head || l_api_name || '.end',
1385: 'returning from delete_by_date_i. numrows='||numrows);
1386: end if;
1379: msgbuf := fnd_message.get;
1380: FND_FILE.put_line(FND_FILE.log, msgbuf);
1381:
1382: if ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1383: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,
1384: c_log_head || l_api_name || '.end',
1385: 'returning from delete_by_date_i. numrows='||numrows);
1386: end if;
1387: exception
1388: when others then
1389: errbuf := sqlerrm;
1390: retcode := '2';
1391: FND_FILE.put_line(FND_FILE.log,errbuf);
1392: if ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1393: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,
1394: c_log_head || l_api_name || '.end_exception',
1395: 'returning from delete_by_date with exception. numrows='||numrows);
1396: end if;
1389: errbuf := sqlerrm;
1390: retcode := '2';
1391: FND_FILE.put_line(FND_FILE.log,errbuf);
1392: if ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1393: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,
1394: c_log_head || l_api_name || '.end_exception',
1395: 'returning from delete_by_date with exception. numrows='||numrows);
1396: end if;
1397: raise;
1399:
1400:
1401:
1402:
1403: /* Delete data from fnd_log_messages only - Used by Java UI */
1404:
1405: function delete_by_sequence(
1406: pLogSeqList IN VARCHAR2) return NUMBER is
1407: begin
1410: if ( pLogSeqList is null ) then
1411: return 0;
1412: end if;
1413:
1414: delete from FND_LOG_MESSAGES flm
1415: where
1416: flm.LOG_SEQUENCE = pLogSeqList;
1417: fdebug ('Out - delete_by_Sequence');
1418: commit;
1419: return 1;
1420: end delete_by_sequence;
1421:
1422: ------------------------------------------------------------------------------------------------
1423: /* Delet data from fnd_log_messages only - Used by Java UI */
1424: function delete_by_seqarray(numArrayList IN FND_ARRAY_OF_NUMBER_25) return NUMBER is
1425: ii number := 0;
1426: begin
1427: fdebug ('In - delete_by_seqarray');
1426: begin
1427: fdebug ('In - delete_by_seqarray');
1428: for ii in numArrayList.FIRST..numArrayList.LAST loop
1429: delete from
1430: FND_LOG_MESSAGES flm where flm.LOG_SEQUENCE = numArrayList(ii);
1431: END LOOP;
1432: commit;
1433: fdebug ('Out - delete_by_seqarray, deleted ' || numArrayList.COUNT || ' rows');
1434: return numArrayList.COUNT;
1527: begin
1528: result := result
1529: || 'If successful, the following will be a string of all 1s:';
1530:
1531: delete from fnd_log_messages where user_id = 62202999;
1532:
1533: insert into fnd_log_messages
1534: (module, log_level, message_text, session_id, user_id,
1535: timestamp, log_sequence)
1529: || 'If successful, the following will be a string of all 1s:';
1530:
1531: delete from fnd_log_messages where user_id = 62202999;
1532:
1533: insert into fnd_log_messages
1534: (module, log_level, message_text, session_id, user_id,
1535: timestamp, log_sequence)
1536: values
1537: ('fnd.src.dict.afdict.afdwarn.tom_test_module', 5,
1537: ('fnd.src.dict.afdict.afdwarn.tom_test_module', 5,
1538: 'This is a test log message', 62202999, 62202999,
1539: to_date(test_date, test_mask), 62202999);
1540:
1541: rows := fnd_log_admin.delete_by_user(62202999);
1542: result := result || rows ;
1543:
1544:
1545:
1542: result := result || rows ;
1543:
1544:
1545:
1546: delete from fnd_log_messages where user_id = 62202999;
1547:
1548: insert into fnd_log_messages
1549: (module, log_level, message_text, session_id, user_id,
1550: timestamp, log_sequence)
1544:
1545:
1546: delete from fnd_log_messages where user_id = 62202999;
1547:
1548: insert into fnd_log_messages
1549: (module, log_level, message_text, session_id, user_id,
1550: timestamp, log_sequence)
1551: values
1552: ('fnd.src.dict.afdict.afdwarn.tom_test_module', 5,
1552: ('fnd.src.dict.afdict.afdwarn.tom_test_module', 5,
1553: 'This is a test log message', 62202999, 62202999,
1554: to_date(test_date, test_mask), 62202999);
1555:
1556: rows := fnd_log_admin.delete_by_session(62202999);
1557: result := result || rows ;
1558:
1559:
1560:
1558:
1559:
1560:
1561:
1562: delete from fnd_log_messages where user_id = 62202999;
1563:
1564: insert into fnd_log_messages
1565: (module, log_level, message_text, session_id, user_id,
1566: timestamp, log_sequence)
1560:
1561:
1562: delete from fnd_log_messages where user_id = 62202999;
1563:
1564: insert into fnd_log_messages
1565: (module, log_level, message_text, session_id, user_id,
1566: timestamp, log_sequence)
1567: values
1568: ('fnd.src.dict.afdict.afdwarn.tom_test_module', 5,
1569: 'This is a test log message', 62202999, 62202999,
1570: to_date(SYSDATE+500, test_mask), 62202999);
1571:
1572: /* Dangerous so not doing this test */
1573: -- rows := fnd_log_admin.delete_by_date_range(SYSDATE+499,NULL);
1574: -- result := result || rows ;
1575:
1576:
1577:
1575:
1576:
1577:
1578:
1579: delete from fnd_log_messages where user_id = 62202999;
1580:
1581: insert into fnd_log_messages
1582: (module, log_level, message_text, session_id, user_id,
1583: timestamp, log_sequence)
1577:
1578:
1579: delete from fnd_log_messages where user_id = 62202999;
1580:
1581: insert into fnd_log_messages
1582: (module, log_level, message_text, session_id, user_id,
1583: timestamp, log_sequence)
1584: values
1585: ('fnd.src.dict.afdict.afdwarn.tom_test_module', 5,
1585: ('fnd.src.dict.afdict.afdwarn.tom_test_module', 5,
1586: 'This is a test log message', 62202999, 62202999,
1587: to_date(SYSDATE+500, test_mask), 62202999);
1588:
1589: rows := fnd_log_admin.delete_by_date_range(SYSDATE+499, SYSDATE+501);
1590: result := result || rows ;
1591:
1592:
1593:
1591:
1592:
1593:
1594:
1595: delete from fnd_log_messages where user_id = 62202999;
1596:
1597: insert into fnd_log_messages
1598: (module, log_level, message_text, session_id, user_id,
1599: timestamp, log_sequence)
1593:
1594:
1595: delete from fnd_log_messages where user_id = 62202999;
1596:
1597: insert into fnd_log_messages
1598: (module, log_level, message_text, session_id, user_id,
1599: timestamp, log_sequence)
1600: values
1601: ('fnd.src.dict.afdict.afdwarn.tom_test_module', 5,
1602: 'This is a test log message', 62202999, 62202999,
1603: to_date(SYSDATE+500, test_mask), 62202999);
1604:
1605: /* Not doing this test because it's destructive */
1606: -- rows := fnd_log_admin.delete_by_date_range(NULL,SYSDATE+501);
1607: -- result := result || rows ;
1608:
1609:
1610:
1608:
1609:
1610:
1611:
1612: delete from fnd_log_messages where user_id = 62202999;
1613:
1614: insert into fnd_log_messages
1615: (module, log_level, message_text, session_id, user_id,
1616: timestamp, log_sequence)
1610:
1611:
1612: delete from fnd_log_messages where user_id = 62202999;
1613:
1614: insert into fnd_log_messages
1615: (module, log_level, message_text, session_id, user_id,
1616: timestamp, log_sequence)
1617: values
1618: ('fnd.src.dict.afdict.afdwarn.tom_test_module', 1,
1619: 'This is a test log message', 62202999, 62202999,
1620: to_date(test_date, test_mask), 62202999);
1621:
1622: /* Not doing this test because it's destructive */
1623: -- rows := fnd_log_admin.delete_by_max_level(1);
1624: -- result := result || rows ;
1625:
1626:
1627:
1625:
1626:
1627:
1628:
1629: delete from fnd_log_messages where user_id = 62202999;
1630:
1631: insert into fnd_log_messages
1632: (module, log_level, message_text, session_id, user_id,
1633: timestamp, log_sequence)
1627:
1628:
1629: delete from fnd_log_messages where user_id = 62202999;
1630:
1631: insert into fnd_log_messages
1632: (module, log_level, message_text, session_id, user_id,
1633: timestamp, log_sequence)
1634: values
1635: ('fnd.src.dict.afdict.afdwarn.tom_test_module', 5,
1635: ('fnd.src.dict.afdict.afdwarn.tom_test_module', 5,
1636: 'This is a test log message', 62202999, 62202999,
1637: to_date(test_date, test_mask), 62202999);
1638:
1639: rows := fnd_log_admin.delete_by_user_session(62202999, 62202999);
1640: result := result || rows ;
1641:
1642:
1643:
1641:
1642:
1643:
1644:
1645: insert into fnd_log_messages
1646: (module, log_level, message_text, session_id, user_id,
1647: timestamp, log_sequence)
1648: values
1649: ('fnd.src.dict.afdict.afdwarn.tom_test_module', 5,
1649: ('fnd.src.dict.afdict.afdwarn.tom_test_module', 5,
1650: 'This is a test log message', 62202999, 62202999,
1651: to_date(test_date, test_mask), 62202999);
1652:
1653: rows := fnd_log_admin.delete_by_module(
1654: 'fnd.src.dict.afdict.afdwarn.tom_test_module');
1655: result := result || rows;
1656:
1657:
1658:
1659: return result;
1660: end SELF_TEST;
1661:
1662: end FND_LOG_ADMIN;