[Home] [Help]
PACKAGE BODY: APPS.AS_LEAD_CONTACTS_PKG
Source
1 PACKAGE BODY AS_LEAD_CONTACTS_PKG as
2 /* $Header: asxtlcnb.pls 115.5 2002/12/13 11:20:38 nkamble ship $ */
3 -- Start of Comments
4 -- Package name : AS_LEAD_CONTACTS_PKG
5 -- Purpose :
6 -- History :
7 -- NOTE :
8 -- End of Comments
9
10
11 G_PKG_NAME CONSTANT VARCHAR2(30):= 'AS_LEAD_CONTACTS_PKG';
12 G_FILE_NAME CONSTANT VARCHAR2(12) := 'asxtlcnb.pls';
13
14 PROCEDURE Insert_Row(
15 px_LEAD_CONTACT_ID IN OUT NOCOPY NUMBER,
16 p_LEAD_ID NUMBER,
17 p_CONTACT_ID NUMBER,
18 p_LAST_UPDATE_DATE DATE,
19 p_LAST_UPDATED_BY NUMBER,
20 p_CREATION_DATE DATE,
21 p_CREATED_BY NUMBER,
22 p_LAST_UPDATE_LOGIN NUMBER,
23 p_REQUEST_ID NUMBER,
24 p_PROGRAM_APPLICATION_ID NUMBER,
25 p_PROGRAM_ID NUMBER,
26 p_PROGRAM_UPDATE_DATE DATE,
27 p_ENABLED_FLAG VARCHAR2,
28 p_CUSTOMER_ID NUMBER,
29 p_ADDRESS_ID NUMBER,
30 p_RANK VARCHAR2,
31 p_PHONE_ID NUMBER,
32 p_ATTRIBUTE_CATEGORY VARCHAR2,
33 p_ATTRIBUTE1 VARCHAR2,
34 p_ATTRIBUTE2 VARCHAR2,
35 p_ATTRIBUTE3 VARCHAR2,
36 p_ATTRIBUTE4 VARCHAR2,
37 p_ATTRIBUTE5 VARCHAR2,
38 p_ATTRIBUTE6 VARCHAR2,
39 p_ATTRIBUTE7 VARCHAR2,
40 p_ATTRIBUTE8 VARCHAR2,
41 p_ATTRIBUTE9 VARCHAR2,
42 p_ATTRIBUTE10 VARCHAR2,
43 p_ATTRIBUTE11 VARCHAR2,
44 p_ATTRIBUTE12 VARCHAR2,
45 p_ATTRIBUTE13 VARCHAR2,
46 p_ATTRIBUTE14 VARCHAR2,
47 p_ATTRIBUTE15 VARCHAR2,
48 p_ORG_ID NUMBER,
49 p_PRIMARY_CONTACT_FLAG VARCHAR2,
50 p_ROLE VARCHAR2,
51 p_CONTACT_PARTY_ID NUMBER)
52
53 IS
54 CURSOR C2 IS SELECT AS_LEAD_CONTACTS_S.nextval FROM sys.dual;
55 BEGIN
56 If (px_LEAD_CONTACT_ID IS NULL) OR (px_LEAD_CONTACT_ID = FND_API.G_MISS_NUM) then
57 OPEN C2;
58 FETCH C2 INTO px_LEAD_CONTACT_ID;
59 CLOSE C2;
60 End If;
61 INSERT INTO AS_LEAD_CONTACTS(
62 LEAD_CONTACT_ID,
63 LEAD_ID,
64 CONTACT_ID,
65 LAST_UPDATE_DATE,
66 LAST_UPDATED_BY,
67 CREATION_DATE,
68 CREATED_BY,
69 LAST_UPDATE_LOGIN,
70 REQUEST_ID,
71 PROGRAM_APPLICATION_ID,
72 PROGRAM_ID,
73 PROGRAM_UPDATE_DATE,
74 ENABLED_FLAG,
75 CUSTOMER_ID,
76 ADDRESS_ID,
77 RANK,
78 PHONE_ID,
79 ATTRIBUTE_CATEGORY,
80 ATTRIBUTE1,
81 ATTRIBUTE2,
82 ATTRIBUTE3,
83 ATTRIBUTE4,
84 ATTRIBUTE5,
85 ATTRIBUTE6,
86 ATTRIBUTE7,
87 ATTRIBUTE8,
88 ATTRIBUTE9,
89 ATTRIBUTE10,
90 ATTRIBUTE11,
91 ATTRIBUTE12,
92 ATTRIBUTE13,
93 ATTRIBUTE14,
94 ATTRIBUTE15,
95 --ORG_ID,
96 PRIMARY_CONTACT_FLAG,
97 ROLE,
98 CONTACT_PARTY_ID
99 ) VALUES (
100 px_LEAD_CONTACT_ID,
101 decode( p_LEAD_ID, FND_API.G_MISS_NUM, NULL, p_LEAD_ID),
102 decode( p_CONTACT_ID, FND_API.G_MISS_NUM, NULL, p_CONTACT_ID),
103 decode( p_LAST_UPDATE_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL), p_LAST_UPDATE_DATE),
104 decode( p_LAST_UPDATED_BY, FND_API.G_MISS_NUM, NULL, p_LAST_UPDATED_BY),
105 decode( p_CREATION_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL), p_CREATION_DATE),
106 decode( p_CREATED_BY, FND_API.G_MISS_NUM, NULL, p_CREATED_BY),
107 decode( p_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM, NULL, p_LAST_UPDATE_LOGIN),
108 decode( p_REQUEST_ID, FND_API.G_MISS_NUM, NULL, p_REQUEST_ID),
109 decode( p_PROGRAM_APPLICATION_ID, FND_API.G_MISS_NUM, NULL, p_PROGRAM_APPLICATION_ID),
110 decode( p_PROGRAM_ID, FND_API.G_MISS_NUM, NULL, p_PROGRAM_ID),
111 decode( p_PROGRAM_UPDATE_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL), p_PROGRAM_UPDATE_DATE),
112 decode( p_ENABLED_FLAG, FND_API.G_MISS_CHAR, NULL, p_ENABLED_FLAG),
113 decode( p_CUSTOMER_ID, FND_API.G_MISS_NUM, NULL, p_CUSTOMER_ID),
114 decode( p_ADDRESS_ID, FND_API.G_MISS_NUM, NULL, p_ADDRESS_ID),
115 decode( p_RANK, FND_API.G_MISS_CHAR, NULL, p_RANK),
116 decode( p_PHONE_ID, FND_API.G_MISS_NUM, NULL, p_PHONE_ID),
117 decode( p_ATTRIBUTE_CATEGORY, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE_CATEGORY),
118 decode( p_ATTRIBUTE1, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE1),
119 decode( p_ATTRIBUTE2, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE2),
120 decode( p_ATTRIBUTE3, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE3),
121 decode( p_ATTRIBUTE4, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE4),
122 decode( p_ATTRIBUTE5, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE5),
123 decode( p_ATTRIBUTE6, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE6),
124 decode( p_ATTRIBUTE7, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE7),
125 decode( p_ATTRIBUTE8, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE8),
126 decode( p_ATTRIBUTE9, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE9),
127 decode( p_ATTRIBUTE10, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE10),
128 decode( p_ATTRIBUTE11, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE11),
129 decode( p_ATTRIBUTE12, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE12),
130 decode( p_ATTRIBUTE13, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE13),
131 decode( p_ATTRIBUTE14, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE14),
132 decode( p_ATTRIBUTE15, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE15),
133 --decode( p_ORG_ID, FND_API.G_MISS_NUM, NULL, p_ORG_ID),
134 decode( p_PRIMARY_CONTACT_FLAG, FND_API.G_MISS_CHAR, NULL, p_PRIMARY_CONTACT_FLAG),
135 decode( p_ROLE, FND_API.G_MISS_CHAR, NULL, p_ROLE),
136 decode( p_CONTACT_PARTY_ID, FND_API.G_MISS_NUM, NULL, p_CONTACT_PARTY_ID));
137 End Insert_Row;
138
139 PROCEDURE Update_Row(
140 p_LEAD_CONTACT_ID NUMBER,
141 p_LEAD_ID NUMBER,
142 p_CONTACT_ID NUMBER,
143 p_LAST_UPDATE_DATE DATE,
144 p_LAST_UPDATED_BY NUMBER,
145 p_CREATION_DATE DATE,
146 p_CREATED_BY NUMBER,
147 p_LAST_UPDATE_LOGIN NUMBER,
148 p_REQUEST_ID NUMBER,
149 p_PROGRAM_APPLICATION_ID NUMBER,
150 p_PROGRAM_ID NUMBER,
151 p_PROGRAM_UPDATE_DATE DATE,
152 p_ENABLED_FLAG VARCHAR2,
153 p_CUSTOMER_ID NUMBER,
154 p_ADDRESS_ID NUMBER,
155 p_RANK VARCHAR2,
156 p_PHONE_ID NUMBER,
157 p_ATTRIBUTE_CATEGORY VARCHAR2,
158 p_ATTRIBUTE1 VARCHAR2,
159 p_ATTRIBUTE2 VARCHAR2,
160 p_ATTRIBUTE3 VARCHAR2,
161 p_ATTRIBUTE4 VARCHAR2,
162 p_ATTRIBUTE5 VARCHAR2,
163 p_ATTRIBUTE6 VARCHAR2,
164 p_ATTRIBUTE7 VARCHAR2,
165 p_ATTRIBUTE8 VARCHAR2,
166 p_ATTRIBUTE9 VARCHAR2,
167 p_ATTRIBUTE10 VARCHAR2,
168 p_ATTRIBUTE11 VARCHAR2,
169 p_ATTRIBUTE12 VARCHAR2,
170 p_ATTRIBUTE13 VARCHAR2,
171 p_ATTRIBUTE14 VARCHAR2,
172 p_ATTRIBUTE15 VARCHAR2,
173 p_ORG_ID NUMBER,
174 p_PRIMARY_CONTACT_FLAG VARCHAR2,
175 p_ROLE VARCHAR2,
176 p_CONTACT_PARTY_ID NUMBER)
177
178 IS
179 BEGIN
180 Update AS_LEAD_CONTACTS
181 SET
182 LEAD_ID = decode( p_LEAD_ID, FND_API.G_MISS_NUM, LEAD_ID, p_LEAD_ID),
183 CONTACT_ID = decode( p_CONTACT_ID, FND_API.G_MISS_NUM, CONTACT_ID, p_CONTACT_ID),
184 LAST_UPDATE_DATE = decode( p_LAST_UPDATE_DATE, FND_API.G_MISS_DATE, LAST_UPDATE_DATE, p_LAST_UPDATE_DATE),
185 LAST_UPDATED_BY = decode( p_LAST_UPDATED_BY, FND_API.G_MISS_NUM, LAST_UPDATED_BY, p_LAST_UPDATED_BY),
186 CREATION_DATE = decode( p_CREATION_DATE, FND_API.G_MISS_DATE, CREATION_DATE, p_CREATION_DATE),
187 CREATED_BY = decode( p_CREATED_BY, FND_API.G_MISS_NUM, CREATED_BY, p_CREATED_BY),
188 LAST_UPDATE_LOGIN = decode( p_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM, LAST_UPDATE_LOGIN, p_LAST_UPDATE_LOGIN),
189 REQUEST_ID = decode( p_REQUEST_ID, FND_API.G_MISS_NUM, REQUEST_ID, p_REQUEST_ID),
190 PROGRAM_APPLICATION_ID = decode( p_PROGRAM_APPLICATION_ID, FND_API.G_MISS_NUM, PROGRAM_APPLICATION_ID, p_PROGRAM_APPLICATION_ID),
191 PROGRAM_ID = decode( p_PROGRAM_ID, FND_API.G_MISS_NUM, PROGRAM_ID, p_PROGRAM_ID),
192 PROGRAM_UPDATE_DATE = decode( p_PROGRAM_UPDATE_DATE, FND_API.G_MISS_DATE, PROGRAM_UPDATE_DATE, p_PROGRAM_UPDATE_DATE),
193 ENABLED_FLAG = decode( p_ENABLED_FLAG, FND_API.G_MISS_CHAR, ENABLED_FLAG, p_ENABLED_FLAG),
194 CUSTOMER_ID = decode( p_CUSTOMER_ID, FND_API.G_MISS_NUM, CUSTOMER_ID, p_CUSTOMER_ID),
195 ADDRESS_ID = decode( p_ADDRESS_ID, FND_API.G_MISS_NUM, ADDRESS_ID, p_ADDRESS_ID),
196 RANK = decode( p_RANK, FND_API.G_MISS_CHAR, RANK, p_RANK),
197 PHONE_ID = decode( p_PHONE_ID, FND_API.G_MISS_NUM, PHONE_ID, p_PHONE_ID),
198 ATTRIBUTE_CATEGORY = decode( p_ATTRIBUTE_CATEGORY, FND_API.G_MISS_CHAR, ATTRIBUTE_CATEGORY, p_ATTRIBUTE_CATEGORY),
199 ATTRIBUTE1 = decode( p_ATTRIBUTE1, FND_API.G_MISS_CHAR, ATTRIBUTE1, p_ATTRIBUTE1),
200 ATTRIBUTE2 = decode( p_ATTRIBUTE2, FND_API.G_MISS_CHAR, ATTRIBUTE2, p_ATTRIBUTE2),
201 ATTRIBUTE3 = decode( p_ATTRIBUTE3, FND_API.G_MISS_CHAR, ATTRIBUTE3, p_ATTRIBUTE3),
202 ATTRIBUTE4 = decode( p_ATTRIBUTE4, FND_API.G_MISS_CHAR, ATTRIBUTE4, p_ATTRIBUTE4),
203 ATTRIBUTE5 = decode( p_ATTRIBUTE5, FND_API.G_MISS_CHAR, ATTRIBUTE5, p_ATTRIBUTE5),
204 ATTRIBUTE6 = decode( p_ATTRIBUTE6, FND_API.G_MISS_CHAR, ATTRIBUTE6, p_ATTRIBUTE6),
205 ATTRIBUTE7 = decode( p_ATTRIBUTE7, FND_API.G_MISS_CHAR, ATTRIBUTE7, p_ATTRIBUTE7),
206 ATTRIBUTE8 = decode( p_ATTRIBUTE8, FND_API.G_MISS_CHAR, ATTRIBUTE8, p_ATTRIBUTE8),
207 ATTRIBUTE9 = decode( p_ATTRIBUTE9, FND_API.G_MISS_CHAR, ATTRIBUTE9, p_ATTRIBUTE9),
208 ATTRIBUTE10 = decode( p_ATTRIBUTE10, FND_API.G_MISS_CHAR, ATTRIBUTE10, p_ATTRIBUTE10),
209 ATTRIBUTE11 = decode( p_ATTRIBUTE11, FND_API.G_MISS_CHAR, ATTRIBUTE11, p_ATTRIBUTE11),
210 ATTRIBUTE12 = decode( p_ATTRIBUTE12, FND_API.G_MISS_CHAR, ATTRIBUTE12, p_ATTRIBUTE12),
211 ATTRIBUTE13 = decode( p_ATTRIBUTE13, FND_API.G_MISS_CHAR, ATTRIBUTE13, p_ATTRIBUTE13),
212 ATTRIBUTE14 = decode( p_ATTRIBUTE14, FND_API.G_MISS_CHAR, ATTRIBUTE14, p_ATTRIBUTE14),
213 ATTRIBUTE15 = decode( p_ATTRIBUTE15, FND_API.G_MISS_CHAR, ATTRIBUTE15, p_ATTRIBUTE15),
214 --ORG_ID = decode( p_ORG_ID, FND_API.G_MISS_NUM, ORG_ID, p_ORG_ID),
215 PRIMARY_CONTACT_FLAG = decode( p_PRIMARY_CONTACT_FLAG, FND_API.G_MISS_CHAR, PRIMARY_CONTACT_FLAG, p_PRIMARY_CONTACT_FLAG),
216 ROLE = decode( p_ROLE, FND_API.G_MISS_CHAR, ROLE, p_ROLE),
217 CONTACT_PARTY_ID = decode( p_CONTACT_PARTY_ID, FND_API.G_MISS_NUM, CONTACT_PARTY_ID, p_CONTACT_PARTY_ID)
218 where LEAD_CONTACT_ID = p_LEAD_CONTACT_ID;
219
220 If (SQL%NOTFOUND) then
221 RAISE NO_DATA_FOUND;
222 End If;
223 END Update_Row;
224
225 PROCEDURE Delete_Row(
226 p_LEAD_CONTACT_ID NUMBER)
227 IS
228 BEGIN
229 DELETE FROM AS_LEAD_CONTACTS
230 WHERE LEAD_CONTACT_ID = p_LEAD_CONTACT_ID;
231 If (SQL%NOTFOUND) then
232 RAISE NO_DATA_FOUND;
233 End If;
234 END Delete_Row;
235
236 PROCEDURE Lock_Row(
237 p_LEAD_CONTACT_ID NUMBER,
238 p_LEAD_ID NUMBER,
239 p_CONTACT_ID NUMBER,
240 p_LAST_UPDATE_DATE DATE,
241 p_LAST_UPDATED_BY NUMBER,
242 p_CREATION_DATE DATE,
243 p_CREATED_BY NUMBER,
244 p_LAST_UPDATE_LOGIN NUMBER,
245 p_REQUEST_ID NUMBER,
246 p_PROGRAM_APPLICATION_ID NUMBER,
247 p_PROGRAM_ID NUMBER,
248 p_PROGRAM_UPDATE_DATE DATE,
249 p_ENABLED_FLAG VARCHAR2,
250 p_CUSTOMER_ID NUMBER,
251 p_ADDRESS_ID NUMBER,
252 p_RANK VARCHAR2,
253 p_PHONE_ID NUMBER,
254 p_ATTRIBUTE_CATEGORY VARCHAR2,
255 p_ATTRIBUTE1 VARCHAR2,
256 p_ATTRIBUTE2 VARCHAR2,
257 p_ATTRIBUTE3 VARCHAR2,
258 p_ATTRIBUTE4 VARCHAR2,
259 p_ATTRIBUTE5 VARCHAR2,
260 p_ATTRIBUTE6 VARCHAR2,
261 p_ATTRIBUTE7 VARCHAR2,
262 p_ATTRIBUTE8 VARCHAR2,
263 p_ATTRIBUTE9 VARCHAR2,
264 p_ATTRIBUTE10 VARCHAR2,
265 p_ATTRIBUTE11 VARCHAR2,
266 p_ATTRIBUTE12 VARCHAR2,
267 p_ATTRIBUTE13 VARCHAR2,
268 p_ATTRIBUTE14 VARCHAR2,
269 p_ATTRIBUTE15 VARCHAR2,
270 p_ORG_ID NUMBER,
271 p_PRIMARY_CONTACT_FLAG VARCHAR2,
272 p_ROLE VARCHAR2,
273 p_CONTACT_PARTY_ID NUMBER)
274
275 IS
276 CURSOR C IS
277 SELECT *
278 FROM AS_LEAD_CONTACTS
279 WHERE LEAD_CONTACT_ID = p_LEAD_CONTACT_ID
280 FOR UPDATE of LEAD_CONTACT_ID NOWAIT;
281 Recinfo C%ROWTYPE;
282 BEGIN
283 OPEN C;
284 FETCH C INTO Recinfo;
285 If (C%NOTFOUND) then
286 CLOSE C;
287 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
288 APP_EXCEPTION.RAISE_EXCEPTION;
289 End If;
290 CLOSE C;
291 if (
292 ( Recinfo.LEAD_CONTACT_ID = p_LEAD_CONTACT_ID)
293 AND ( ( Recinfo.LEAD_ID = p_LEAD_ID)
294 OR ( ( Recinfo.LEAD_ID IS NULL )
295 AND ( p_LEAD_ID IS NULL )))
296 AND ( ( Recinfo.CONTACT_ID = p_CONTACT_ID)
297 OR ( ( Recinfo.CONTACT_ID IS NULL )
298 AND ( p_CONTACT_ID IS NULL )))
299 AND ( ( Recinfo.LAST_UPDATE_DATE = p_LAST_UPDATE_DATE)
300 OR ( ( Recinfo.LAST_UPDATE_DATE IS NULL )
301 AND ( p_LAST_UPDATE_DATE IS NULL )))
302 AND ( ( Recinfo.LAST_UPDATED_BY = p_LAST_UPDATED_BY)
303 OR ( ( Recinfo.LAST_UPDATED_BY IS NULL )
304 AND ( p_LAST_UPDATED_BY IS NULL )))
305 AND ( ( Recinfo.CREATION_DATE = p_CREATION_DATE)
306 OR ( ( Recinfo.CREATION_DATE IS NULL )
307 AND ( p_CREATION_DATE IS NULL )))
308 AND ( ( Recinfo.CREATED_BY = p_CREATED_BY)
309 OR ( ( Recinfo.CREATED_BY IS NULL )
310 AND ( p_CREATED_BY IS NULL )))
311 AND ( ( Recinfo.LAST_UPDATE_LOGIN = p_LAST_UPDATE_LOGIN)
312 OR ( ( Recinfo.LAST_UPDATE_LOGIN IS NULL )
313 AND ( p_LAST_UPDATE_LOGIN IS NULL )))
314 AND ( ( Recinfo.REQUEST_ID = p_REQUEST_ID)
315 OR ( ( Recinfo.REQUEST_ID IS NULL )
316 AND ( p_REQUEST_ID IS NULL )))
317 AND ( ( Recinfo.PROGRAM_APPLICATION_ID = p_PROGRAM_APPLICATION_ID)
318 OR ( ( Recinfo.PROGRAM_APPLICATION_ID IS NULL )
319 AND ( p_PROGRAM_APPLICATION_ID IS NULL )))
320 AND ( ( Recinfo.PROGRAM_ID = p_PROGRAM_ID)
321 OR ( ( Recinfo.PROGRAM_ID IS NULL )
322 AND ( p_PROGRAM_ID IS NULL )))
323 AND ( ( Recinfo.PROGRAM_UPDATE_DATE = p_PROGRAM_UPDATE_DATE)
324 OR ( ( Recinfo.PROGRAM_UPDATE_DATE IS NULL )
325 AND ( p_PROGRAM_UPDATE_DATE IS NULL )))
326 AND ( ( Recinfo.ENABLED_FLAG = p_ENABLED_FLAG)
327 OR ( ( Recinfo.ENABLED_FLAG IS NULL )
328 AND ( p_ENABLED_FLAG IS NULL )))
329 AND ( ( Recinfo.CUSTOMER_ID = p_CUSTOMER_ID)
330 OR ( ( Recinfo.CUSTOMER_ID IS NULL )
331 AND ( p_CUSTOMER_ID IS NULL )))
332 AND ( ( Recinfo.ADDRESS_ID = p_ADDRESS_ID)
333 OR ( ( Recinfo.ADDRESS_ID IS NULL )
334 AND ( p_ADDRESS_ID IS NULL )))
335 AND ( ( Recinfo.RANK = p_RANK)
336 OR ( ( Recinfo.RANK IS NULL )
337 AND ( p_RANK IS NULL )))
341 AND ( ( Recinfo.ATTRIBUTE_CATEGORY = p_ATTRIBUTE_CATEGORY)
338 AND ( ( Recinfo.PHONE_ID = p_PHONE_ID)
339 OR ( ( Recinfo.PHONE_ID IS NULL )
340 AND ( p_PHONE_ID IS NULL )))
342 OR ( ( Recinfo.ATTRIBUTE_CATEGORY IS NULL )
343 AND ( p_ATTRIBUTE_CATEGORY IS NULL )))
344 AND ( ( Recinfo.ATTRIBUTE1 = p_ATTRIBUTE1)
345 OR ( ( Recinfo.ATTRIBUTE1 IS NULL )
346 AND ( p_ATTRIBUTE1 IS NULL )))
347 AND ( ( Recinfo.ATTRIBUTE2 = p_ATTRIBUTE2)
348 OR ( ( Recinfo.ATTRIBUTE2 IS NULL )
349 AND ( p_ATTRIBUTE2 IS NULL )))
350 AND ( ( Recinfo.ATTRIBUTE3 = p_ATTRIBUTE3)
351 OR ( ( Recinfo.ATTRIBUTE3 IS NULL )
352 AND ( p_ATTRIBUTE3 IS NULL )))
353 AND ( ( Recinfo.ATTRIBUTE4 = p_ATTRIBUTE4)
354 OR ( ( Recinfo.ATTRIBUTE4 IS NULL )
355 AND ( p_ATTRIBUTE4 IS NULL )))
356 AND ( ( Recinfo.ATTRIBUTE5 = p_ATTRIBUTE5)
357 OR ( ( Recinfo.ATTRIBUTE5 IS NULL )
358 AND ( p_ATTRIBUTE5 IS NULL )))
359 AND ( ( Recinfo.ATTRIBUTE6 = p_ATTRIBUTE6)
360 OR ( ( Recinfo.ATTRIBUTE6 IS NULL )
361 AND ( p_ATTRIBUTE6 IS NULL )))
362 AND ( ( Recinfo.ATTRIBUTE7 = p_ATTRIBUTE7)
363 OR ( ( Recinfo.ATTRIBUTE7 IS NULL )
364 AND ( p_ATTRIBUTE7 IS NULL )))
365 AND ( ( Recinfo.ATTRIBUTE8 = p_ATTRIBUTE8)
366 OR ( ( Recinfo.ATTRIBUTE8 IS NULL )
367 AND ( p_ATTRIBUTE8 IS NULL )))
368 AND ( ( Recinfo.ATTRIBUTE9 = p_ATTRIBUTE9)
369 OR ( ( Recinfo.ATTRIBUTE9 IS NULL )
370 AND ( p_ATTRIBUTE9 IS NULL )))
371 AND ( ( Recinfo.ATTRIBUTE10 = p_ATTRIBUTE10)
372 OR ( ( Recinfo.ATTRIBUTE10 IS NULL )
373 AND ( p_ATTRIBUTE10 IS NULL )))
374 AND ( ( Recinfo.ATTRIBUTE11 = p_ATTRIBUTE11)
375 OR ( ( Recinfo.ATTRIBUTE11 IS NULL )
376 AND ( p_ATTRIBUTE11 IS NULL )))
377 AND ( ( Recinfo.ATTRIBUTE12 = p_ATTRIBUTE12)
378 OR ( ( Recinfo.ATTRIBUTE12 IS NULL )
379 AND ( p_ATTRIBUTE12 IS NULL )))
380 AND ( ( Recinfo.ATTRIBUTE13 = p_ATTRIBUTE13)
381 OR ( ( Recinfo.ATTRIBUTE13 IS NULL )
382 AND ( p_ATTRIBUTE13 IS NULL )))
383 AND ( ( Recinfo.ATTRIBUTE14 = p_ATTRIBUTE14)
384 OR ( ( Recinfo.ATTRIBUTE14 IS NULL )
385 AND ( p_ATTRIBUTE14 IS NULL )))
386 AND ( ( Recinfo.ATTRIBUTE15 = p_ATTRIBUTE15)
387 OR ( ( Recinfo.ATTRIBUTE15 IS NULL )
388 AND ( p_ATTRIBUTE15 IS NULL )))
389 --AND ( ( Recinfo.ORG_ID = p_ORG_ID)
390 --OR ( ( Recinfo.ORG_ID IS NULL )
391 --AND ( p_ORG_ID IS NULL )))
392 AND ( ( Recinfo.PRIMARY_CONTACT_FLAG = p_PRIMARY_CONTACT_FLAG)
393 OR ( ( Recinfo.PRIMARY_CONTACT_FLAG IS NULL )
394 AND ( p_PRIMARY_CONTACT_FLAG IS NULL )))
395 AND ( ( Recinfo.ROLE = p_ROLE)
396 OR ( ( Recinfo.ROLE IS NULL )
397 AND ( p_ROLE IS NULL )))
398 AND ( ( Recinfo.CONTACT_PARTY_ID = p_CONTACT_PARTY_ID)
399 OR ( ( Recinfo.CONTACT_PARTY_ID IS NULL )
400 AND ( p_CONTACT_PARTY_ID IS NULL )))
401 ) then
402 return;
403 else
404 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_CHANGED');
405 APP_EXCEPTION.RAISE_EXCEPTION;
406 End If;
407 END Lock_Row;
408
409 End AS_LEAD_CONTACTS_PKG;