1: package body fnd_log_admin as
2: /* $Header: AFUTLGAB.pls 120.2.12010000.2 2009/07/17 15:48:13 tshort 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.2.12010000.2 2009/07/17 15:48:13 tshort 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 ***********************************/
861: l_start NUMBER;
862: l_end NUMBER :=0;
863:
864: BEGIN
865: fdebug('In:FND_LOG_ADMIN.DELETE_MESSAGES_INFO rec=' || p_logSeqList.count);
866: pRetCode := C_SUCCESS;
867:
868: --Check input parameters
869: if (p_logSeqList is null) or (p_logSeqList.count < 1) then
897:
898: end loop;
899:
900:
901: fdebug('OUT:FND_LOG_ADMIN.DELETE_MESSAGES_INFO');
902:
903: END DELETE_MESSAGES_INFO;
904:
905: --------------------------------------------------------------------------------
914: l_start NUMBER;
915: l_end NUMBER :=0;
916:
917: BEGIN
918: fdebug('In:FND_LOG_ADMIN.DELETE_MESSAGES_INVALID_TRID');
919:
920: pRetCode := C_SUCCESS;
921:
922: --Check input parameters
1621: ('fnd.src.dict.afdict.afdwarn.tom_test_module', 5,
1622: 'This is a test log message', 62202999, 62202999,
1623: to_date(test_date, test_mask), 62202999);
1624:
1625: rows := fnd_log_admin.delete_by_user(62202999);
1626: result := result || rows ;
1627:
1628:
1629:
1636: ('fnd.src.dict.afdict.afdwarn.tom_test_module', 5,
1637: 'This is a test log message', 62202999, 62202999,
1638: to_date(test_date, test_mask), 62202999);
1639:
1640: rows := fnd_log_admin.delete_by_session(62202999);
1641: result := result || rows ;
1642:
1643:
1644:
1653: 'This is a test log message', 62202999, 62202999,
1654: to_date(SYSDATE+500, test_mask), 62202999);
1655:
1656: /* Dangerous so not doing this test */
1657: -- rows := fnd_log_admin.delete_by_date_range(SYSDATE+499,NULL);
1658: -- result := result || rows ;
1659:
1660:
1661:
1669: ('fnd.src.dict.afdict.afdwarn.tom_test_module', 5,
1670: 'This is a test log message', 62202999, 62202999,
1671: to_date(SYSDATE+500, test_mask), 62202999);
1672:
1673: rows := fnd_log_admin.delete_by_date_range(SYSDATE+499, SYSDATE+501);
1674: result := result || rows ;
1675:
1676:
1677:
1686: 'This is a test log message', 62202999, 62202999,
1687: to_date(SYSDATE+500, test_mask), 62202999);
1688:
1689: /* Not doing this test because it's destructive */
1690: -- rows := fnd_log_admin.delete_by_date_range(NULL,SYSDATE+501);
1691: -- result := result || rows ;
1692:
1693:
1694:
1703: 'This is a test log message', 62202999, 62202999,
1704: to_date(test_date, test_mask), 62202999);
1705:
1706: /* Not doing this test because it's destructive */
1707: -- rows := fnd_log_admin.delete_by_max_level(1);
1708: -- result := result || rows ;
1709:
1710:
1711:
1719: ('fnd.src.dict.afdict.afdwarn.tom_test_module', 5,
1720: 'This is a test log message', 62202999, 62202999,
1721: to_date(test_date, test_mask), 62202999);
1722:
1723: rows := fnd_log_admin.delete_by_user_session(62202999, 62202999);
1724: result := result || rows ;
1725:
1726:
1727:
1733: ('fnd.src.dict.afdict.afdwarn.tom_test_module', 5,
1734: 'This is a test log message', 62202999, 62202999,
1735: to_date(test_date, test_mask), 62202999);
1736:
1737: rows := fnd_log_admin.delete_by_module(
1738: 'fnd.src.dict.afdict.afdwarn.tom_test_module');
1739: result := result || rows;
1740:
1741:
1742:
1743: return result;
1744: end SELF_TEST;
1745:
1746: end FND_LOG_ADMIN;