[Home] [Help]
1: PACKAGE BODY AML_PURGE_IMPORT_INTERFACE as
2: /* $Header: amlsprgb.pls 115.7 2004/03/04 13:02:03 bmuthukr noship $ */
3: -- Start of Comments
4: -- Package name : AML_PURGE_IMPORT_INTERFACE
5: -- Purpose : Sales Leads Management
1: PACKAGE BODY AML_PURGE_IMPORT_INTERFACE as
2: /* $Header: amlsprgb.pls 115.7 2004/03/04 13:02:03 bmuthukr noship $ */
3: -- Start of Comments
4: -- Package name : AML_PURGE_IMPORT_INTERFACE
5: -- Purpose : Sales Leads Management
6: -- NOTE :
7: -- History :
8: -- 08/19/2003 BMUTHUKR Created
13: -- 04/04/2004 BMUTHUKR Commented out the statement for deleting the PV_ENTITY_RULES_APPLIED table
14: -- As per bug 3481717.
15: -- END of Comments
16:
17: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AML_PURGE_IMPORT_INTERFACE';
18: G_FILE_NAME CONSTANT VARCHAR2(12) := 'amlsprgb.pls';
19: G_DEBUG_MODE VARCHAR2(1) := 'Y';
20: TYPE del_count IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
21: RECS_DELETED del_count;
56: -- write_log(1,Recs_deleted(7)||l_no_of_rows_deleted||'PV_ENTITY_RULES_APPLIED');
57: write_log(1,Recs_deleted(8)||l_no_of_rows_deleted||'AS_IMPORT_INTERFACE');
58: END write_count;
59:
60: PROCEDURE Delete_Identified_Leads(P_Id_Tab IN AML_PURGE_IMPORT_INTERFACE.Import_Interface_Id_Tab) IS
61: BEGIN
62:
63: -- Lead Import Error table
64: FORALL I IN P_Id_Tab.FIRST..P_Id_Tab.LAST
131: IS
132: l_wrong_days CONSTANT varchar2(100) := 'ERROR: Could not purge. Number of days entered is not greater than zero';
133: l_no_of_rows_deleted CONSTANT varchar2(100) := ' rows deleted from the table ';
134: l_status boolean;
135: Id_Tab AML_PURGE_IMPORT_INTERFACE.Import_Interface_Id_Tab;
136: l_start_date date;
137: l_end_date date;
138:
139: CURSOR Collect_Imp_Interface_Ids(l_start_date in date,l_end_date in date,p_status in varchar2) IS
203: retcode := FND_API.G_RET_STS_UNEXP_ERROR;
204: l_status := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR', SQLERRM);
205: END Purge_Import_Interface;
206:
207: END AML_PURGE_IMPORT_INTERFACE;