[Home] [Help]
1: PACKAGE BODY AS_SALES_LEADS_LOG_PKG as
2: /* $Header: asxtslab.pls 115.9 2002/12/18 22:29:40 solin ship $ */
3:
4: -- Start of Comments
5: -- Package name : AS_SALES_LEADS_LOG_PVT
1: PACKAGE BODY AS_SALES_LEADS_LOG_PKG as
2: /* $Header: asxtslab.pls 115.9 2002/12/18 22:29:40 solin ship $ */
3:
4: -- Start of Comments
5: -- Package name : AS_SALES_LEADS_LOG_PVT
6: -- Purpose : Sales activity log management
7: -- NOTE :
8: -- History : 07/07/2000 CDESANTI Created.
9: -- 12/17/2002 SOLIN Add manual_rank_flag
41: p_category VARCHAR2,
42: -- SOLIN added
43: p_manual_rank_flag VARCHAR2
44: ) IS
45: CURSOR C2 IS SELECT as_sales_leads_log_s.nextval FROM sys.dual;
46:
47: p_User_Id NUMBER;
48: p_Login_Id NUMBER;
49: p_Date DATE;
58: FETCH C2 INTO px_log_id;
59: CLOSE C2;
60: end if;
61:
62: INSERT INTO AS_SALES_LEADS_LOG (
63: LOG_ID,
64: SALES_LEAD_ID,
65: CREATED_BY,
66: CREATION_DATE,
133: ) IS
134:
135: CURSOR C IS
136: SELECT *
137: FROM AS_SALES_LEADS_LOG
138: WHERE log_id = p_log_id
139: FOR UPDATE of log_Id NOWAIT;
140: Recinfo C%ROWTYPE;
141: BEGIN
224: p_category VARCHAR2,
225: p_manual_rank_flag VARCHAR2
226: ) IS
227: BEGIN
228: UPDATE AS_SALES_LEADS_LOG
229: SET
230: sales_lead_id = decode(p_sales_lead_id, FND_API.G_MISS_NUM, sales_lead_id, p_sales_lead_id),
231: last_update_date = decode(p_last_Update_Date, FND_API.G_MISS_DATE, last_update_date , p_last_update_date),
232: last_updated_by = decode(last_Updated_By, FND_API.G_MISS_NUM, last_updated_by, p_last_updated_by),
255:
256: PROCEDURE Delete_Row(p_log_id NUMBER) is
257: BEGIN
258:
259: DELETE FROM AS_SALES_LEADS_LOG
260: WHERE log_id = p_log_id;
261:
262: if (SQL%NOTFOUND) then
263: RAISE NO_DATA_FOUND;
265:
266: END Delete_Row;
267:
268:
269: END AS_SALES_LEADS_LOG_PKG;
270: