[Home] [Help]
PACKAGE BODY: APPS.AML_INTERACTION_LEADS_PKG
Source
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);
6 AS_DEBUG_MEDIUM_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
7 AS_DEBUG_ERROR_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_ERROR);
8
9 PROCEDURE INSERT_ROW (
10 px_INTERACTION_LEAD_ID IN OUT NOCOPY NUMBER,
11 p_INTERACTION_ID IN NUMBER,
12 p_IMPORT_INTERFACE_ID IN NUMBER,
13 p_SALES_LEAD_ID IN NUMBER,
14 p_CREATION_DATE IN DATE,
15 p_CREATED_BY IN NUMBER,
16 p_LAST_UPDATE_DATE IN DATE,
17 p_LAST_UPDATED_BY IN NUMBER,
18 p_LAST_UPDATE_LOGIN IN NUMBER,
19 p_REQUEST_ID IN NUMBER,
20 p_PROGRAM_APPLICATION_ID IN NUMBER,
21 p_PROGRAM_ID IN NUMBER,
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
31 OPEN C2;
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,
41 CREATION_DATE,
42 CREATED_BY,
43 LAST_UPDATE_DATE,
44 LAST_UPDATED_BY,
45 LAST_UPDATE_LOGIN,
46 REQUEST_ID,
47 PROGRAM_APPLICATION_ID,
48 PROGRAM_ID,
49 PROGRAM_UPDATE_DATE,
50 OBJECT_VERSION_NUMBER,
51 SCORE
52 ) VALUES (
53 px_INTERACTION_LEAD_ID
54 ,decode( p_INTERACTION_ID, FND_API.G_MISS_NUM, NULL, p_INTERACTION_ID)
55 ,decode( p_IMPORT_INTERFACE_ID, FND_API.G_MISS_NUM, NULL, p_IMPORT_INTERFACE_ID)
56 ,decode( p_SALES_LEAD_ID, FND_API.G_MISS_NUM, NULL, p_SALES_LEAD_ID)
57 ,decode( p_CREATION_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL), p_CREATION_DATE)
58 ,decode( p_CREATED_BY, FND_API.G_MISS_NUM, NULL, p_CREATED_BY)
59 ,decode( p_LAST_UPDATE_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL), p_LAST_UPDATE_DATE)
60 ,decode( p_LAST_UPDATED_BY, FND_API.G_MISS_NUM, NULL, p_LAST_UPDATED_BY)
61 ,decode( p_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM, NULL, p_LAST_UPDATE_LOGIN)
62 ,decode( p_REQUEST_ID, FND_API.G_MISS_NUM, NULL, p_REQUEST_ID)
63 ,decode( p_PROGRAM_APPLICATION_ID, FND_API.G_MISS_NUM, NULL, p_PROGRAM_APPLICATION_ID)
64 ,decode( p_PROGRAM_ID, FND_API.G_MISS_NUM, NULL, p_PROGRAM_ID)
65 ,decode( p_PROGRAM_UPDATE_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL), p_PROGRAM_UPDATE_DATE)
66 ,1
67 ,decode( p_SCORE, FND_API.G_MISS_NUM, NULL, p_SCORE)
68 );
69
70 END INSERT_ROW;
71
72 PROCEDURE UPDATE_ROW (
73 p_INTERACTION_LEAD_ID IN NUMBER,
74 p_INTERACTION_ID IN NUMBER,
75 p_IMPORT_INTERFACE_ID IN NUMBER,
76 p_SALES_LEAD_ID IN NUMBER,
77 p_CREATION_DATE IN DATE,
78 p_CREATED_BY IN NUMBER,
79 p_LAST_UPDATE_DATE IN DATE,
80 p_LAST_UPDATED_BY IN NUMBER,
81 p_LAST_UPDATE_LOGIN IN NUMBER,
82 p_REQUEST_ID IN NUMBER,
83 p_PROGRAM_APPLICATION_ID IN NUMBER,
84 p_PROGRAM_ID IN NUMBER,
85 p_PROGRAM_UPDATE_DATE IN DATE,
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)
95 ,LAST_UPDATED_BY = decode( p_LAST_UPDATED_BY, FND_API.G_MISS_NUM, LAST_UPDATED_BY, p_LAST_UPDATED_BY)
96 ,LAST_UPDATE_LOGIN = decode( p_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM, LAST_UPDATE_LOGIN, p_LAST_UPDATE_LOGIN)
97 ,REQUEST_ID = decode( p_REQUEST_ID, FND_API.G_MISS_NUM, REQUEST_ID, p_REQUEST_ID)
98 ,PROGRAM_APPLICATION_ID = decode( p_PROGRAM_APPLICATION_ID, FND_API.G_MISS_NUM, PROGRAM_APPLICATION_ID, p_PROGRAM_APPLICATION_ID)
99 ,PROGRAM_ID = decode( p_PROGRAM_ID, FND_API.G_MISS_NUM, PROGRAM_ID, p_PROGRAM_ID)
100 ,PROGRAM_UPDATE_DATE = decode( p_PROGRAM_UPDATE_DATE, FND_API.G_MISS_DATE, PROGRAM_UPDATE_DATE, p_PROGRAM_UPDATE_DATE)
101 ,OBJECT_VERSION_NUMBER = decode( p_OBJECT_VERSION_NUMBER, FND_API.G_MISS_NUM, OBJECT_VERSION_NUMBER, p_OBJECT_VERSION_NUMBER+1)
102 ,SCORE = decode( p_SCORE, FND_API.G_MISS_NUM, SCORE, p_SCORE)
103 where INTERACTION_LEAD_ID = p_INTERACTION_LEAD_ID;
104
105 if (sql%notfound) then
106 raise no_data_found;
107 end if;
108
109 END UPDATE_ROW;
110
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;
120 end if;
121
122 END DELETE_ROW;
123
124 PROCEDURE LOCK_ROW (
125 p_INTERACTION_LEAD_ID IN NUMBER,
126 p_INTERACTION_ID IN NUMBER,
127 p_IMPORT_INTERFACE_ID IN NUMBER,
128 p_SALES_LEAD_ID IN NUMBER,
129 p_SCORE IN NUMBER
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
139 BEGIN
140 open c;
141 fetch c into recinfo;
142 if (c%notfound) then
143 close c;
144 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
145 app_exception.raise_exception;
146 end if;
147 close c;
148 if (
149 ( Recinfo.INTERACTION_LEAD_ID = p_INTERACTION_LEAD_ID)
150 AND ( ( Recinfo.INTERACTION_ID = p_INTERACTION_ID)
151 OR ( ( Recinfo.INTERACTION_ID IS NULL )
152 AND ( p_INTERACTION_ID IS NULL )))
153 AND ( ( Recinfo.IMPORT_INTERFACE_ID = p_IMPORT_INTERFACE_ID)
154 OR ( ( Recinfo.IMPORT_INTERFACE_ID IS NULL )
155 AND ( p_IMPORT_INTERFACE_ID IS NULL )))
156 AND ( ( Recinfo.SALES_LEAD_ID = p_SALES_LEAD_ID)
157 OR ( ( Recinfo.SALES_LEAD_ID IS NULL )
158 AND ( p_SALES_LEAD_ID IS NULL )))
159 AND ( ( Recinfo.SCORE = p_SCORE)
160 OR ( ( Recinfo.SCORE IS NULL )
161 AND ( p_SCORE IS NULL )))
162 ) then
163 null;
164 else
165 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
166 app_exception.raise_exception;
167 end if;
168
169 END LOCK_ROW;
170
171 END AML_INTERACTION_LEADS_PKG;