DBA Data[Home] [Help]

PACKAGE BODY: APPS.IEX_CASE_OBJECTS_PKG

Source


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