DBA Data[Home] [Help]

PACKAGE BODY: APPS.IEX_CASE_CONTACTS_PKG

Source


1 PACKAGE BODY IEX_CASE_CONTACTS_PKG as
2 /* $Header: iextconb.pls 120.0 2004/01/24 03:21:26 appldev noship $ */
3 -- Start of Comments
4 -- Package name     : IEX_CASE_CONTACTS_PKG
5 -- Purpose          :
6 -- History          :
7 -- NOTE             :
8 -- End of Comments
9 
10 
11 G_PKG_NAME CONSTANT VARCHAR2(30):= 'IEX_CASE_CONTACTS_PKG';
12 G_FILE_NAME CONSTANT VARCHAR2(12) := 'iextconb.pls';
13 
14 --PG_DEBUG NUMBER(2) := TO_NUMBER(NVL(FND_PROFILE.value('IEX_DEBUG_LEVEL'), '20'));
15 PG_DEBUG NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
16 
17 PROCEDURE Insert_Row(
18           X_ROWID                  in out NOCOPY VARCHAR2,
19           p_CAS_CONTACT_ID         IN  NUMBER,
20           p_CAS_ID                 IN NUMBER,
21           p_CONTACT_PARTY_ID       IN NUMBER,
22           p_OBJECT_VERSION_NUMBER  IN NUMBER,
23           p_address_id             IN NUMBER,
24           p_phone_id               IN NUMBER,
25           p_active_flag            IN VARCHAR2,
26           p_REQUEST_ID             IN NUMBER,
27           p_PROGRAM_APPLICATION_ID IN NUMBER,
28           p_PROGRAM_ID             IN NUMBER,
29           p_PROGRAM_UPDATE_DATE    IN DATE,
30           p_ATTRIBUTE_CATEGORY     IN VARCHAR2,
31           p_ATTRIBUTE1             IN VARCHAR2,
32           p_ATTRIBUTE2             IN VARCHAR2,
33           p_ATTRIBUTE3             IN VARCHAR2,
34           p_ATTRIBUTE4             IN VARCHAR2,
35           p_ATTRIBUTE5             IN VARCHAR2,
36           p_ATTRIBUTE6             IN VARCHAR2,
37           p_ATTRIBUTE7             IN VARCHAR2,
38           p_ATTRIBUTE8             IN VARCHAR2,
39           p_ATTRIBUTE9             IN VARCHAR2,
40           p_ATTRIBUTE10            IN VARCHAR2,
41           p_ATTRIBUTE11            IN VARCHAR2,
42           p_ATTRIBUTE12            IN VARCHAR2,
43           p_ATTRIBUTE13            IN VARCHAR2,
44           p_ATTRIBUTE14            IN VARCHAR2,
45           p_ATTRIBUTE15            IN VARCHAR2,
46           p_CREATED_BY             IN VARCHAR2,
47           p_CREATION_DATE          IN DATE,
48           p_LAST_UPDATED_BY        IN NUMBER,
49           p_LAST_UPDATE_DATE       IN DATE,
50           p_LAST_UPDATE_LOGIN      IN NUMBER,
51           P_PRIMARY_FLAG           IN VARCHAR2 )
52 
53  IS
54     cursor C is select ROWID from IEX_CASE_CONTACTS
55     where  cas_contact_id = p_cas_contact_id   ;
56 
57 BEGIN
58 --  IF PG_DEBUG < 10  THEN
59   IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
60      IEX_DEBUG_PUB.LogMessage ('********* Start of Procedure =>IEX_CASE_CONTACTS_PKG.INSERT_ROW ******** ');
61   END IF;
62    INSERT INTO IEX_CASE_CONTACTS(
63            CAS_CONTACT_ID,
64            CAS_ID,
65            CONTACT_PARTY_ID,
66            OBJECT_VERSION_NUMBER,
67            active_flag,
68            ADDRESS_ID,
69            PHONE_ID,
70            REQUEST_ID,
71            PROGRAM_APPLICATION_ID,
72            PROGRAM_ID,
73            PROGRAM_UPDATE_DATE,
74            ATTRIBUTE_CATEGORY,
75            ATTRIBUTE1,
76            ATTRIBUTE2,
77            ATTRIBUTE3,
78            ATTRIBUTE4,
79            ATTRIBUTE5,
80            ATTRIBUTE6,
81            ATTRIBUTE7,
82            ATTRIBUTE8,
83            ATTRIBUTE9,
84            ATTRIBUTE10,
85            ATTRIBUTE11,
86            ATTRIBUTE12,
87            ATTRIBUTE13,
88            ATTRIBUTE14,
89            ATTRIBUTE15,
90            CREATED_BY,
91            CREATION_DATE,
92            LAST_UPDATED_BY,
93            LAST_UPDATE_DATE,
94            LAST_UPDATE_LOGIN,
95            PRIMARY_FLAG
96           ) VALUES (
97            p_CAS_CONTACT_ID,
98            p_cas_id,
99            p_contact_party_id,
100            p_object_version_number,
101            p_active_flag,
102            decode( p_address_ID, FND_API.G_MISS_NUM, NULL, p_address_ID),
103            decode( p_PHONE_ID, FND_API.G_MISS_NUM, NULL, p_PHONE_ID),
104            decode( p_REQUEST_ID, FND_API.G_MISS_NUM, NULL, p_REQUEST_ID),
105            decode( p_PROGRAM_APPLICATION_ID, FND_API.G_MISS_NUM, NULL, p_PROGRAM_APPLICATION_ID),
106            decode( p_PROGRAM_ID, FND_API.G_MISS_NUM, NULL, p_PROGRAM_ID),
107            decode( p_PROGRAM_UPDATE_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL), p_PROGRAM_UPDATE_DATE),
108            decode( p_ATTRIBUTE_CATEGORY, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE_CATEGORY),
109            decode( p_ATTRIBUTE1, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE1),
110            decode( p_ATTRIBUTE2, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE2),
111            decode( p_ATTRIBUTE3, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE3),
112            decode( p_ATTRIBUTE4, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE4),
113            decode( p_ATTRIBUTE5, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE5),
114            decode( p_ATTRIBUTE6, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE6),
115            decode( p_ATTRIBUTE7, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE7),
116            decode( p_ATTRIBUTE8, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE8),
117            decode( p_ATTRIBUTE9, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE9),
118            decode( p_ATTRIBUTE10, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE10),
119            decode( p_ATTRIBUTE11, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE11),
120            decode( p_ATTRIBUTE12, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE12),
121            decode( p_ATTRIBUTE13, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE13),
122            decode( p_ATTRIBUTE14, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE14),
123            decode( p_ATTRIBUTE15, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE15),
124            decode( p_CREATED_BY, FND_API.G_MISS_NUM, NULL, p_CREATED_BY),
125            decode( p_CREATION_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL), p_CREATION_DATE),
126            decode( p_LAST_UPDATED_BY, FND_API.G_MISS_NUM, NULL, p_LAST_UPDATED_BY),
127            decode( p_LAST_UPDATE_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL), p_LAST_UPDATE_DATE),
128            decode( p_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM, NULL, p_LAST_UPDATE_LOGIN),
129            p_primary_flag);
130    open c;
131    fetch c into X_ROWID;
132 --   IF PG_DEBUG < 10  THEN
133    IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
134       IEX_DEBUG_PUB.LogMessage ('Insert_Row: ' || 'Value of ROWID = '||X_ROWID);
135    END IF;
136    if (c%notfound) then
137        close c;
138    raise no_data_found;
139    end if;
140    close c;
141 --  IF PG_DEBUG < 10  THEN
142   IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
143      IEX_DEBUG_PUB.LogMessage ('********* End of Procedure =>IEX_CASE_CONTACTS_PKG.INSERT_ROW ******** ');
144   END IF;
145 
146 End Insert_Row;
147 
148 PROCEDURE Update_Row(
149           p_CAS_CONTACT_ID         IN NUMBER,
150           p_CAS_ID                 IN NUMBER,
151           p_CONTACT_PARTY_ID       IN NUMBER,
152           p_OBJECT_VERSION_NUMBER  IN NUMBER,
153           p_address_id             IN NUMBER,
154           p_phone_id               IN NUMBER,
155           p_active_flag            IN VARCHAR2,
156           p_REQUEST_ID             IN NUMBER,
157           p_PROGRAM_APPLICATION_ID IN NUMBER,
158           p_PROGRAM_ID             IN NUMBER,
159           p_PROGRAM_UPDATE_DATE    IN DATE,
160           p_ATTRIBUTE_CATEGORY     IN VARCHAR2,
161           p_ATTRIBUTE1             IN VARCHAR2,
162           p_ATTRIBUTE2             IN VARCHAR2,
163           p_ATTRIBUTE3             IN VARCHAR2,
164           p_ATTRIBUTE4             IN VARCHAR2,
165           p_ATTRIBUTE5             IN VARCHAR2,
166           p_ATTRIBUTE6             IN VARCHAR2,
167           p_ATTRIBUTE7             IN VARCHAR2,
168           p_ATTRIBUTE8             IN VARCHAR2,
169           p_ATTRIBUTE9             IN VARCHAR2,
170           p_ATTRIBUTE10            IN VARCHAR2,
171           p_ATTRIBUTE11            IN VARCHAR2,
172           p_ATTRIBUTE12            IN VARCHAR2,
173           p_ATTRIBUTE13            IN VARCHAR2,
174           p_ATTRIBUTE14            IN VARCHAR2,
175           p_ATTRIBUTE15            IN VARCHAR2,
176           p_LAST_UPDATED_BY        IN NUMBER,
177           p_LAST_UPDATE_DATE       IN DATE,
178           p_LAST_UPDATE_LOGIN      IN NUMBER,
179           P_PRIMARY_FLAG           IN VARCHAR2 )
180 
181  IS
182  BEGIN
183 --   IF PG_DEBUG < 10  THEN
184    IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
185       IEX_DEBUG_PUB.LogMessage ('********* Start of Procedure =>IEX_CASE_CONTACTS_PKG.UPDATE_ROW ******** ');
186    END IF;
187     Update IEX_CASE_CONTACTS
188     SET
189               CAS_ID = decode( p_CAS_ID, FND_API.G_MISS_NUM, CAS_ID, p_CAS_ID),
190               CONTACT_PARTY_ID = decode( p_CONTACT_PARTY_ID, FND_API.G_MISS_NUM, CONTACT_PARTY_ID, p_CONTACT_PARTY_ID),
191               OBJECT_VERSION_NUMBER = decode( p_OBJECT_VERSION_NUMBER, FND_API.G_MISS_NUM, OBJECT_VERSION_NUMBER, p_OBJECT_VERSION_NUMBER),
192               active_flag = decode( p_active_flag, FND_API.G_MISS_CHAR, active_flag, p_active_flag),
193               ADDRESS_ID = decode( p_ADDRESS_ID, FND_API.G_MISS_NUM, ADDRESS_ID, p_ADDRESS_ID),
194               PHONE_ID = decode( p_PHONE_ID, FND_API.G_MISS_NUM, PHONE_ID, p_PHONE_ID),
195               REQUEST_ID = decode( p_REQUEST_ID, FND_API.G_MISS_NUM, REQUEST_ID, p_REQUEST_ID),
196               PROGRAM_APPLICATION_ID = decode( p_PROGRAM_APPLICATION_ID, FND_API.G_MISS_NUM, PROGRAM_APPLICATION_ID, p_PROGRAM_APPLICATION_ID),
197               PROGRAM_ID = decode( p_PROGRAM_ID, FND_API.G_MISS_NUM, PROGRAM_ID, p_PROGRAM_ID),
198               PROGRAM_UPDATE_DATE = decode( p_PROGRAM_UPDATE_DATE, FND_API.G_MISS_DATE, PROGRAM_UPDATE_DATE, p_PROGRAM_UPDATE_DATE),
199               ATTRIBUTE_CATEGORY = decode( p_ATTRIBUTE_CATEGORY, FND_API.G_MISS_CHAR, ATTRIBUTE_CATEGORY, p_ATTRIBUTE_CATEGORY),
200               ATTRIBUTE1 = decode( p_ATTRIBUTE1, FND_API.G_MISS_CHAR, ATTRIBUTE1, p_ATTRIBUTE1),
201               ATTRIBUTE2 = decode( p_ATTRIBUTE2, FND_API.G_MISS_CHAR, ATTRIBUTE2, p_ATTRIBUTE2),
202               ATTRIBUTE3 = decode( p_ATTRIBUTE3, FND_API.G_MISS_CHAR, ATTRIBUTE3, p_ATTRIBUTE3),
203               ATTRIBUTE4 = decode( p_ATTRIBUTE4, FND_API.G_MISS_CHAR, ATTRIBUTE4, p_ATTRIBUTE4),
204               ATTRIBUTE5 = decode( p_ATTRIBUTE5, FND_API.G_MISS_CHAR, ATTRIBUTE5, p_ATTRIBUTE5),
205               ATTRIBUTE6 = decode( p_ATTRIBUTE6, FND_API.G_MISS_CHAR, ATTRIBUTE6, p_ATTRIBUTE6),
206               ATTRIBUTE7 = decode( p_ATTRIBUTE7, FND_API.G_MISS_CHAR, ATTRIBUTE7, p_ATTRIBUTE7),
207               ATTRIBUTE8 = decode( p_ATTRIBUTE8, FND_API.G_MISS_CHAR, ATTRIBUTE8, p_ATTRIBUTE8),
208               ATTRIBUTE9 = decode( p_ATTRIBUTE9, FND_API.G_MISS_CHAR, ATTRIBUTE9, p_ATTRIBUTE9),
209               ATTRIBUTE10 = decode( p_ATTRIBUTE10, FND_API.G_MISS_CHAR, ATTRIBUTE10, p_ATTRIBUTE10),
210               ATTRIBUTE11 = decode( p_ATTRIBUTE11, FND_API.G_MISS_CHAR, ATTRIBUTE11, p_ATTRIBUTE11),
211               ATTRIBUTE12 = decode( p_ATTRIBUTE12, FND_API.G_MISS_CHAR, ATTRIBUTE12, p_ATTRIBUTE12),
212               ATTRIBUTE13 = decode( p_ATTRIBUTE13, FND_API.G_MISS_CHAR, ATTRIBUTE13, p_ATTRIBUTE13),
213               ATTRIBUTE14 = decode( p_ATTRIBUTE14, FND_API.G_MISS_CHAR, ATTRIBUTE14, p_ATTRIBUTE14),
214               ATTRIBUTE15 = decode( p_ATTRIBUTE15, FND_API.G_MISS_CHAR, ATTRIBUTE15, p_ATTRIBUTE15),
215               LAST_UPDATED_BY = decode( p_LAST_UPDATED_BY, FND_API.G_MISS_NUM, LAST_UPDATED_BY, p_LAST_UPDATED_BY),
216               LAST_UPDATE_DATE = decode( p_LAST_UPDATE_DATE, FND_API.G_MISS_DATE, LAST_UPDATE_DATE, p_LAST_UPDATE_DATE),
217               LAST_UPDATE_LOGIN = decode( p_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM, LAST_UPDATE_LOGIN, p_LAST_UPDATE_LOGIN),
218               primary_flag = decode( p_primary_flag, FND_API.G_MISS_CHAR, primary_flag, p_primary_flag)
219     where CAS_CONTACT_ID = p_CAS_CONTACT_ID;
220 
221     If (SQL%NOTFOUND) then
222         RAISE NO_DATA_FOUND;
223     End If;
224 --    IF PG_DEBUG < 10  THEN
225     IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
226        IEX_DEBUG_PUB.LogMessage ('********* End of Procedure =>IEX_CASE_CONTACTS_PKG.UPDATE_ROW ******** ');
227     END IF;
228 END Update_Row;
229 
230 PROCEDURE Delete_Row(
231     p_CAS_CONTACT_ID  IN NUMBER)
232  IS
233  BEGIN
234    DELETE FROM IEX_CASE_CONTACTS
235     WHERE CAS_CONTACT_ID = p_CAS_CONTACT_ID;
236    If (SQL%NOTFOUND) then
237        RAISE NO_DATA_FOUND;
238    End If;
239  END Delete_Row;
240 
241 procedure LOCK_ROW (
242   p_cas_contact_id in NUMBER,
243   p_OBJECT_VERSION_NUMBER in NUMBER
244 ) is
245   cursor c is select OBJECT_VERSION_NUMBER
246     from IEX_CASE_CONTACTS
247     where cas_contact_id = p_cas_contact_id
248     and OBJECT_VERSION_NUMBER = p_OBJECT_VERSION_NUMBER
249     for update of cas_contact_id nowait;
250   recinfo c%rowtype;
251 
252 
253 begin
254 -- IF PG_DEBUG < 10  THEN
255  IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
256     IEX_DEBUG_PUB.LogMessage ('********* Start of Procedure =>IEX_CASE_CONTACTS_PKG.LOCK_ROW ******** ');
257  END IF;
258   open c;
259   fetch c into recinfo;
260   if (c%notfound) then
261     close c;
262     fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
263     app_exception.raise_exception;
264   end if;
265 
266   close c;
267 
268   if recinfo.OBJECT_VERSION_NUMBER = p_OBJECT_VERSION_NUMBER then
269     null;
270   else
271     fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
272     app_exception.raise_exception;
273   end if;
274 --IF PG_DEBUG < 10  THEN
275 IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
276    IEX_DEBUG_PUB.LogMessage ('********* End of Procedure =>IEX_CASE_CONTACTS_PKG.LOCK_ROW ******** ');
277 END IF;
278 end LOCK_ROW;
279 
280 /*PROCEDURE Lock_Row(
281           p_CAS_CONTACT_ID    NUMBER,
282           p_CAS_ID    NUMBER,
283           p_CONTACT_PARTY_ID    NUMBER,
284           p_OBJECT_VERSION_NUMBER    NUMBER,
285           p_CONTACT_SEQUENCE    NUMBER,
286           p_REQUEST_ID    NUMBER,
287           p_PROGRAM_APPLICATION_ID    NUMBER,
288           p_PROGRAM_ID    NUMBER,
289           p_PROGRAM_UPDATE_DATE    DATE,
290           p_ATTRIBUTE_CATEGORY    VARCHAR2,
291           p_ATTRIBUTE1    VARCHAR2,
292           p_ATTRIBUTE2    VARCHAR2,
293           p_ATTRIBUTE3    VARCHAR2,
294           p_ATTRIBUTE4    VARCHAR2,
295           p_ATTRIBUTE5    VARCHAR2,
296           p_ATTRIBUTE6    VARCHAR2,
297           p_ATTRIBUTE7    VARCHAR2,
298           p_ATTRIBUTE8    VARCHAR2,
299           p_ATTRIBUTE9    VARCHAR2,
300           p_ATTRIBUTE10    VARCHAR2,
301           p_ATTRIBUTE11    VARCHAR2,
302           p_ATTRIBUTE12    VARCHAR2,
303           p_ATTRIBUTE13    VARCHAR2,
304           p_ATTRIBUTE14    VARCHAR2,
305           p_ATTRIBUTE15    VARCHAR2,
306           p_CREATED_BY    NUMBER,
307           p_CREATION_DATE    DATE,
308           p_LAST_UPDATED_BY    NUMBER,
309           p_LAST_UPDATE_DATE    DATE,
310           p_LAST_UPDATE_LOGIN      IN NUMBER,
311           P_PRIMARY_FLAG           IN VARCHAR2 )
312 
313  IS
314    CURSOR C IS
315         SELECT *
316          FROM IEX_CASE_CONTACTS
317         WHERE CAS_CONTACT_ID =  p_CAS_CONTACT_ID
318         FOR UPDATE of CAS_CONTACT_ID NOWAIT;
319    Recinfo C%ROWTYPE;
320  BEGIN
321     OPEN C;
322     FETCH C INTO Recinfo;
323     If (C%NOTFOUND) then
324         CLOSE C;
325         FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
326         APP_EXCEPTION.RAISE_EXCEPTION;
327     End If;
328     CLOSE C;
329     if (
330            (      Recinfo.CAS_CONTACT_ID = p_CAS_CONTACT_ID)
331        AND (    ( Recinfo.CAS_ID = p_CAS_ID)
332             OR (    ( Recinfo.CAS_ID IS NULL )
333                 AND (  p_CAS_ID IS NULL )))
334        AND (    ( Recinfo.CONTACT_PARTY_ID = p_CONTACT_PARTY_ID)
335             OR (    ( Recinfo.CONTACT_PARTY_ID IS NULL )
336                 AND (  p_CONTACT_PARTY_ID IS NULL )))
337        AND (    ( Recinfo.OBJECT_VERSION_NUMBER = p_OBJECT_VERSION_NUMBER)
338             OR (    ( Recinfo.OBJECT_VERSION_NUMBER IS NULL )
339                 AND (  p_OBJECT_VERSION_NUMBER IS NULL )))
340        AND (    ( Recinfo.active_flag = p_active_flag)
341             OR (    ( Recinfo.active_flag IS NULL )
342                 AND (  p_active_flag IS NULL )))
343        AND (    ( Recinfo.REQUEST_ID = p_REQUEST_ID)
344             OR (    ( Recinfo.REQUEST_ID IS NULL )
345                 AND (  p_REQUEST_ID IS NULL )))
346        AND (    ( Recinfo.PROGRAM_APPLICATION_ID = p_PROGRAM_APPLICATION_ID)
347             OR (    ( Recinfo.PROGRAM_APPLICATION_ID IS NULL )
348                 AND (  p_PROGRAM_APPLICATION_ID IS NULL )))
349        AND (    ( Recinfo.PROGRAM_ID = p_PROGRAM_ID)
350             OR (    ( Recinfo.PROGRAM_ID IS NULL )
351                 AND (  p_PROGRAM_ID IS NULL )))
352        AND (    ( Recinfo.PROGRAM_UPDATE_DATE = p_PROGRAM_UPDATE_DATE)
353             OR (    ( Recinfo.PROGRAM_UPDATE_DATE IS NULL )
354                 AND (  p_PROGRAM_UPDATE_DATE IS NULL )))
355        AND (    ( Recinfo.ATTRIBUTE_CATEGORY = p_ATTRIBUTE_CATEGORY)
356             OR (    ( Recinfo.ATTRIBUTE_CATEGORY IS NULL )
357                 AND (  p_ATTRIBUTE_CATEGORY IS NULL )))
358        AND (    ( Recinfo.ATTRIBUTE1 = p_ATTRIBUTE1)
359             OR (    ( Recinfo.ATTRIBUTE1 IS NULL )
360                 AND (  p_ATTRIBUTE1 IS NULL )))
361        AND (    ( Recinfo.ATTRIBUTE2 = p_ATTRIBUTE2)
362             OR (    ( Recinfo.ATTRIBUTE2 IS NULL )
363                 AND (  p_ATTRIBUTE2 IS NULL )))
364        AND (    ( Recinfo.ATTRIBUTE3 = p_ATTRIBUTE3)
365             OR (    ( Recinfo.ATTRIBUTE3 IS NULL )
366                 AND (  p_ATTRIBUTE3 IS NULL )))
367        AND (    ( Recinfo.ATTRIBUTE4 = p_ATTRIBUTE4)
368             OR (    ( Recinfo.ATTRIBUTE4 IS NULL )
369                 AND (  p_ATTRIBUTE4 IS NULL )))
370        AND (    ( Recinfo.ATTRIBUTE5 = p_ATTRIBUTE5)
371             OR (    ( Recinfo.ATTRIBUTE5 IS NULL )
372                 AND (  p_ATTRIBUTE5 IS NULL )))
373        AND (    ( Recinfo.ATTRIBUTE6 = p_ATTRIBUTE6)
374             OR (    ( Recinfo.ATTRIBUTE6 IS NULL )
375                 AND (  p_ATTRIBUTE6 IS NULL )))
376        AND (    ( Recinfo.ATTRIBUTE7 = p_ATTRIBUTE7)
377             OR (    ( Recinfo.ATTRIBUTE7 IS NULL )
378                 AND (  p_ATTRIBUTE7 IS NULL )))
379        AND (    ( Recinfo.ATTRIBUTE8 = p_ATTRIBUTE8)
380             OR (    ( Recinfo.ATTRIBUTE8 IS NULL )
381                 AND (  p_ATTRIBUTE8 IS NULL )))
382        AND (    ( Recinfo.ATTRIBUTE9 = p_ATTRIBUTE9)
383             OR (    ( Recinfo.ATTRIBUTE9 IS NULL )
384                 AND (  p_ATTRIBUTE9 IS NULL )))
385        AND (    ( Recinfo.ATTRIBUTE10 = p_ATTRIBUTE10)
386             OR (    ( Recinfo.ATTRIBUTE10 IS NULL )
387                 AND (  p_ATTRIBUTE10 IS NULL )))
388        AND (    ( Recinfo.ATTRIBUTE11 = p_ATTRIBUTE11)
389             OR (    ( Recinfo.ATTRIBUTE11 IS NULL )
390                 AND (  p_ATTRIBUTE11 IS NULL )))
391        AND (    ( Recinfo.ATTRIBUTE12 = p_ATTRIBUTE12)
392             OR (    ( Recinfo.ATTRIBUTE12 IS NULL )
393                 AND (  p_ATTRIBUTE12 IS NULL )))
394        AND (    ( Recinfo.ATTRIBUTE13 = p_ATTRIBUTE13)
395             OR (    ( Recinfo.ATTRIBUTE13 IS NULL )
396                 AND (  p_ATTRIBUTE13 IS NULL )))
397        AND (    ( Recinfo.ATTRIBUTE14 = p_ATTRIBUTE14)
398             OR (    ( Recinfo.ATTRIBUTE14 IS NULL )
399                 AND (  p_ATTRIBUTE14 IS NULL )))
400        AND (    ( Recinfo.ATTRIBUTE15 = p_ATTRIBUTE15)
401             OR (    ( Recinfo.ATTRIBUTE15 IS NULL )
402                 AND (  p_ATTRIBUTE15 IS NULL )))
403        AND (    ( Recinfo.CREATED_BY = p_CREATED_BY)
404             OR (    ( Recinfo.CREATED_BY IS NULL )
405                 AND (  p_CREATED_BY IS NULL )))
406        AND (    ( Recinfo.CREATION_DATE = p_CREATION_DATE)
407             OR (    ( Recinfo.CREATION_DATE IS NULL )
408                 AND (  p_CREATION_DATE IS NULL )))
409        AND (    ( Recinfo.LAST_UPDATED_BY = p_LAST_UPDATED_BY)
410             OR (    ( Recinfo.LAST_UPDATED_BY IS NULL )
411                 AND (  p_LAST_UPDATED_BY IS NULL )))
412        AND (    ( Recinfo.LAST_UPDATE_DATE = p_LAST_UPDATE_DATE)
413             OR (    ( Recinfo.LAST_UPDATE_DATE IS NULL )
414                 AND (  p_LAST_UPDATE_DATE IS NULL )))
415        AND (    ( Recinfo.LAST_UPDATE_LOGIN = p_LAST_UPDATE_LOGIN)
416             OR (    ( Recinfo.LAST_UPDATE_LOGIN IS NULL )
417                 AND (  p_LAST_UPDATE_LOGIN IS NULL )))
418        AND (    ( Recinfo.primary_flag = p_primary_flag)
419             OR (    ( Recinfo.primary_flag IS NULL )
420                 AND (  p_primary_flag IS NULL )))
421 
422        ) then
423        return;
424    else
425        FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_CHANGED');
426        APP_EXCEPTION.RAISE_EXCEPTION;
427    End If;
428 END Lock_Row;
429 */
430 
431 End IEX_CASE_CONTACTS_PKG;