[Home] [Help]
1: PACKAGE BODY AML_INTERACTION_LEADS_PKG AS
2: /* #$Header: amltitlb.pls 115.1 2003/09/18 17:25:33 solin ship $ */
3:
4: AS_DEBUG_HIGH_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
5: AS_DEBUG_LOW_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
22: p_PROGRAM_UPDATE_DATE IN DATE,
23: p_OBJECT_VERSION_NUMBER IN NUMBER,
24: p_SCORE IN NUMBER
25: ) IS
26: CURSOR C2 IS SELECT AML_INTERACTION_LEADS_S.nextval FROM sys.dual;
27: BEGIN
28: IF (px_INTERACTION_LEAD_ID IS NULL) OR
29: (px_INTERACTION_LEAD_ID = FND_API.G_MISS_NUM)
30: THEN
32: FETCH C2 INTO px_INTERACTION_LEAD_ID;
33: CLOSE C2;
34: END IF;
35:
36: INSERT INTO AML_INTERACTION_LEADS (
37: INTERACTION_LEAD_ID,
38: INTERACTION_ID,
39: IMPORT_INTERFACE_ID,
40: SALES_LEAD_ID,
86: p_OBJECT_VERSION_NUMBER IN NUMBER,
87: p_SCORE IN NUMBER
88: ) is
89: BEGIN
90: update AML_INTERACTION_LEADS set
91: INTERACTION_ID = decode( p_INTERACTION_ID, FND_API.G_MISS_NUM, INTERACTION_ID, p_INTERACTION_ID)
92: ,IMPORT_INTERFACE_ID = decode( p_IMPORT_INTERFACE_ID, FND_API.G_MISS_NUM, IMPORT_INTERFACE_ID, p_IMPORT_INTERFACE_ID)
93: ,SALES_LEAD_ID = decode( p_SALES_LEAD_ID, FND_API.G_MISS_NUM, SALES_LEAD_ID, p_SALES_LEAD_ID)
94: ,LAST_UPDATE_DATE = decode( p_LAST_UPDATE_DATE, FND_API.G_MISS_DATE, LAST_UPDATE_DATE, p_LAST_UPDATE_DATE)
111: PROCEDURE DELETE_ROW (
112: p_INTERACTION_LEAD_ID IN NUMBER
113: ) is
114: BEGIN
115: delete from AML_INTERACTION_LEADS
116: where INTERACTION_LEAD_ID = p_INTERACTION_LEAD_ID;
117:
118: if (sql%notfound) then
119: raise no_data_found;
130: ) IS
131: cursor c is
132: select INTERACTION_LEAD_ID, INTERACTION_ID, IMPORT_INTERFACE_ID,
133: SALES_LEAD_ID, SCORE
134: from AML_INTERACTION_LEADS
135: where INTERACTION_LEAD_ID = p_INTERACTION_LEAD_ID
136: for update of INTERACTION_LEAD_ID nowait;
137: recinfo c%rowtype;
138:
167: end if;
168:
169: END LOCK_ROW;
170:
171: END AML_INTERACTION_LEADS_PKG;