DBA Data[Home] [Help]

PACKAGE BODY: APPS.IEX_CASE_DEFINITIONS_PKG

Source


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