eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.CSD_RO_SERVICE_CODES_PKG

Source


1 PACKAGE BODY CSD_RO_SERVICE_CODES_PKG as
2 /* $Header: csdtrscb.pls 120.1 2006/09/19 23:07:55 rfieldma noship $ */
3 -- Start of Comments
4 -- Package name     : CSD_RO_SERVICE_CODES_PKG
5 -- Purpose          : To insert, update, delete and lock ro service code
6 -- History          : 21-Aug-2003    Gilam          created
7 -- NOTE             :
8 -- End of Comments
9 
10 
11 G_PKG_NAME CONSTANT VARCHAR2(30):= 'CSD_RO_SERVICE_CODES_PKG';
12 G_FILE_NAME CONSTANT VARCHAR2(12) := 'csdtrscb.pls';
13 
14 PROCEDURE Insert_Row(
15           px_RO_SERVICE_CODE_ID   IN OUT NOCOPY NUMBER
16          ,p_OBJECT_VERSION_NUMBER    NUMBER
17          ,p_REPAIR_LINE_ID    NUMBER
18          ,p_SERVICE_CODE_ID    NUMBER
19          ,p_CREATED_BY    NUMBER
20          ,p_CREATION_DATE    DATE
21          ,p_LAST_UPDATED_BY    NUMBER
22          ,p_LAST_UPDATE_DATE    DATE
23          ,p_LAST_UPDATE_LOGIN    NUMBER
24          ,p_SOURCE_TYPE_CODE    VARCHAR2
25          ,p_SOURCE_SOLUTION_ID    NUMBER
26          ,p_APPLICABLE_FLAG    VARCHAR2
27          ,p_APPLIED_TO_EST_FLAG    VARCHAR2
28          ,p_APPLIED_TO_WORK_FLAG    VARCHAR2
29          ,p_ATTRIBUTE_CATEGORY    VARCHAR2
30          ,p_ATTRIBUTE1    VARCHAR2
31          ,p_ATTRIBUTE2    VARCHAR2
32          ,p_ATTRIBUTE3    VARCHAR2
33          ,p_ATTRIBUTE4    VARCHAR2
34          ,p_ATTRIBUTE5    VARCHAR2
35          ,p_ATTRIBUTE6    VARCHAR2
36          ,p_ATTRIBUTE7    VARCHAR2
37          ,p_ATTRIBUTE8    VARCHAR2
38          ,p_ATTRIBUTE9    VARCHAR2
39          ,p_ATTRIBUTE10    VARCHAR2
40          ,p_ATTRIBUTE11    VARCHAR2
41          ,p_ATTRIBUTE12    VARCHAR2
42          ,p_ATTRIBUTE13    VARCHAR2
43          ,p_ATTRIBUTE14    VARCHAR2
44          ,p_ATTRIBUTE15    VARCHAR2
45 	    ,p_SERVICE_ITEM_ID	NUMBER -- rfieldma 4666403
46 	    )
47 
48  IS
49    CURSOR C2 IS SELECT CSD_RO_SERVICE_CODES_S1.nextval FROM sys.dual;
50 BEGIN
51    If (px_RO_SERVICE_CODE_ID IS NULL) OR (px_RO_SERVICE_CODE_ID = FND_API.G_MISS_NUM) then
52        OPEN C2;
53        FETCH C2 INTO px_RO_SERVICE_CODE_ID;
54        CLOSE C2;
55    End If;
56    INSERT INTO CSD_RO_SERVICE_CODES(
57            RO_SERVICE_CODE_ID
58           ,OBJECT_VERSION_NUMBER
59           ,REPAIR_LINE_ID
60           ,SERVICE_CODE_ID
61           ,CREATED_BY
62           ,CREATION_DATE
63           ,LAST_UPDATED_BY
64           ,LAST_UPDATE_DATE
65           ,LAST_UPDATE_LOGIN
66           ,SOURCE_TYPE_CODE
67           ,SOURCE_SOLUTION_ID
68           ,APPLICABLE_FLAG
69           ,APPLIED_TO_EST_FLAG
70           ,APPLIED_TO_WORK_FLAG
71           ,ATTRIBUTE_CATEGORY
72           ,ATTRIBUTE1
73           ,ATTRIBUTE2
74           ,ATTRIBUTE3
75           ,ATTRIBUTE4
76           ,ATTRIBUTE5
77           ,ATTRIBUTE6
78           ,ATTRIBUTE7
79           ,ATTRIBUTE8
80           ,ATTRIBUTE9
81           ,ATTRIBUTE10
82           ,ATTRIBUTE11
83           ,ATTRIBUTE12
84           ,ATTRIBUTE13
85           ,ATTRIBUTE14
86           ,ATTRIBUTE15
87 		,SERVICE_ITEM_ID
88           ) VALUES (
89            px_RO_SERVICE_CODE_ID
90           ,decode( p_OBJECT_VERSION_NUMBER, FND_API.G_MISS_NUM, NULL, p_OBJECT_VERSION_NUMBER)
91           ,decode( p_REPAIR_LINE_ID, FND_API.G_MISS_NUM, NULL, p_REPAIR_LINE_ID)
92           ,decode( p_SERVICE_CODE_ID, FND_API.G_MISS_NUM, NULL, p_SERVICE_CODE_ID)
93           ,decode( p_CREATED_BY, FND_API.G_MISS_NUM, NULL, p_CREATED_BY)
94           ,decode( p_CREATION_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL), p_CREATION_DATE)
95           ,decode( p_LAST_UPDATED_BY, FND_API.G_MISS_NUM, NULL, p_LAST_UPDATED_BY)
96           ,decode( p_LAST_UPDATE_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL), p_LAST_UPDATE_DATE)
97           ,decode( p_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM, NULL, p_LAST_UPDATE_LOGIN)
98           ,decode( p_SOURCE_TYPE_CODE, FND_API.G_MISS_CHAR, NULL, p_SOURCE_TYPE_CODE)
99           ,decode( p_SOURCE_SOLUTION_ID, FND_API.G_MISS_NUM, NULL, p_SOURCE_SOLUTION_ID)
100           ,decode( p_APPLICABLE_FLAG, FND_API.G_MISS_CHAR, NULL, p_APPLICABLE_FLAG)
101           ,decode( p_APPLIED_TO_EST_FLAG, FND_API.G_MISS_CHAR, NULL, p_APPLIED_TO_EST_FLAG)
102           ,decode( p_APPLIED_TO_WORK_FLAG, FND_API.G_MISS_CHAR, NULL, p_APPLIED_TO_WORK_FLAG)
103           ,decode( p_ATTRIBUTE_CATEGORY, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE_CATEGORY)
104           ,decode( p_ATTRIBUTE1, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE1)
105           ,decode( p_ATTRIBUTE2, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE2)
106           ,decode( p_ATTRIBUTE3, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE3)
107           ,decode( p_ATTRIBUTE4, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE4)
108           ,decode( p_ATTRIBUTE5, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE5)
109           ,decode( p_ATTRIBUTE6, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE6)
110           ,decode( p_ATTRIBUTE7, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE7)
111           ,decode( p_ATTRIBUTE8, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE8)
112           ,decode( p_ATTRIBUTE9, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE9)
113           ,decode( p_ATTRIBUTE10, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE10)
114           ,decode( p_ATTRIBUTE11, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE11)
115           ,decode( p_ATTRIBUTE12, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE12)
116           ,decode( p_ATTRIBUTE13, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE13)
117           ,decode( p_ATTRIBUTE14, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE14)
118           ,decode( p_ATTRIBUTE15, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE15)
119 		,decode( p_SERVICE_ITEM_ID, FND_API.G_MISS_NUM, NULL, p_SERVICE_ITEM_ID)
120 		);
121 End Insert_Row;
122 
123 PROCEDURE Update_Row(
124           p_RO_SERVICE_CODE_ID    NUMBER
125          ,p_OBJECT_VERSION_NUMBER    NUMBER
126          ,p_REPAIR_LINE_ID    NUMBER
127          ,p_SERVICE_CODE_ID    NUMBER
128          ,p_CREATED_BY    NUMBER
129          ,p_CREATION_DATE    DATE
130          ,p_LAST_UPDATED_BY    NUMBER
131          ,p_LAST_UPDATE_DATE    DATE
132          ,p_LAST_UPDATE_LOGIN    NUMBER
133          ,p_SOURCE_TYPE_CODE    VARCHAR2
134          ,p_SOURCE_SOLUTION_ID    NUMBER
135          ,p_APPLICABLE_FLAG    VARCHAR2
136          ,p_APPLIED_TO_EST_FLAG    VARCHAR2
137          ,p_APPLIED_TO_WORK_FLAG    VARCHAR2
138          ,p_ATTRIBUTE_CATEGORY    VARCHAR2
139          ,p_ATTRIBUTE1    VARCHAR2
140          ,p_ATTRIBUTE2    VARCHAR2
141          ,p_ATTRIBUTE3    VARCHAR2
142          ,p_ATTRIBUTE4    VARCHAR2
143          ,p_ATTRIBUTE5    VARCHAR2
144          ,p_ATTRIBUTE6    VARCHAR2
145          ,p_ATTRIBUTE7    VARCHAR2
146          ,p_ATTRIBUTE8    VARCHAR2
147          ,p_ATTRIBUTE9    VARCHAR2
148          ,p_ATTRIBUTE10    VARCHAR2
149          ,p_ATTRIBUTE11    VARCHAR2
150          ,p_ATTRIBUTE12    VARCHAR2
151          ,p_ATTRIBUTE13    VARCHAR2
152          ,p_ATTRIBUTE14    VARCHAR2
153          ,p_ATTRIBUTE15    VARCHAR2
154 	    ,p_SERVICE_ITEM_ID NUMBER  -- rfieldma, 4666403
155 	    )
156 
157 IS
158 BEGIN
159     Update CSD_RO_SERVICE_CODES
160     SET
161         OBJECT_VERSION_NUMBER = decode( p_OBJECT_VERSION_NUMBER, FND_API.G_MISS_NUM, NULL, NULL, OBJECT_VERSION_NUMBER, p_OBJECT_VERSION_NUMBER)
162        ,REPAIR_LINE_ID = decode( p_REPAIR_LINE_ID, FND_API.G_MISS_NUM, NULL, NULL, REPAIR_LINE_ID, p_REPAIR_LINE_ID)
163        ,SERVICE_CODE_ID = decode( p_SERVICE_CODE_ID, FND_API.G_MISS_NUM, NULL, NULL, SERVICE_CODE_ID, p_SERVICE_CODE_ID)
164        ,CREATED_BY = decode( p_CREATED_BY, FND_API.G_MISS_NUM, NULL, NULL, CREATED_BY, p_CREATED_BY)
165        ,CREATION_DATE = decode( p_CREATION_DATE, FND_API.G_MISS_DATE, NULL, NULL, CREATION_DATE, p_CREATION_DATE)
166        ,LAST_UPDATED_BY = decode( p_LAST_UPDATED_BY, FND_API.G_MISS_NUM, NULL, NULL, LAST_UPDATED_BY, p_LAST_UPDATED_BY)
167        ,LAST_UPDATE_DATE = decode( p_LAST_UPDATE_DATE, FND_API.G_MISS_DATE, NULL, NULL, LAST_UPDATE_DATE, p_LAST_UPDATE_DATE)
168        ,LAST_UPDATE_LOGIN = decode( p_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM, NULL, NULL, LAST_UPDATE_LOGIN, p_LAST_UPDATE_LOGIN)
169        ,SOURCE_TYPE_CODE = decode( p_SOURCE_TYPE_CODE, FND_API.G_MISS_CHAR,NULL, NULL,  SOURCE_TYPE_CODE, p_SOURCE_TYPE_CODE)
170        ,SOURCE_SOLUTION_ID = decode( p_SOURCE_SOLUTION_ID, FND_API.G_MISS_NUM, NULL, NULL, SOURCE_SOLUTION_ID, p_SOURCE_SOLUTION_ID)
171        ,APPLICABLE_FLAG = decode( p_APPLICABLE_FLAG, FND_API.G_MISS_CHAR, NULL, NULL, APPLICABLE_FLAG, p_APPLICABLE_FLAG)
172        ,APPLIED_TO_EST_FLAG = decode( p_APPLIED_TO_EST_FLAG, FND_API.G_MISS_CHAR, NULL, NULL, APPLIED_TO_EST_FLAG, p_APPLIED_TO_EST_FLAG)
173        ,APPLIED_TO_WORK_FLAG = decode( p_APPLIED_TO_WORK_FLAG, FND_API.G_MISS_CHAR, NULL, NULL, APPLIED_TO_WORK_FLAG, p_APPLIED_TO_WORK_FLAG)
174        ,ATTRIBUTE_CATEGORY = decode( p_ATTRIBUTE_CATEGORY, FND_API.G_MISS_CHAR, NULL, NULL, ATTRIBUTE_CATEGORY, p_ATTRIBUTE_CATEGORY)
175        ,ATTRIBUTE1 = decode( p_ATTRIBUTE1, FND_API.G_MISS_CHAR, NULL, NULL, ATTRIBUTE1, p_ATTRIBUTE1)
176        ,ATTRIBUTE2 = decode( p_ATTRIBUTE2, FND_API.G_MISS_CHAR, NULL, NULL, ATTRIBUTE2, p_ATTRIBUTE2)
177        ,ATTRIBUTE3 = decode( p_ATTRIBUTE3, FND_API.G_MISS_CHAR, NULL, NULL, ATTRIBUTE3, p_ATTRIBUTE3)
178        ,ATTRIBUTE4 = decode( p_ATTRIBUTE4, FND_API.G_MISS_CHAR, NULL, NULL, ATTRIBUTE4, p_ATTRIBUTE4)
179        ,ATTRIBUTE5 = decode( p_ATTRIBUTE5, FND_API.G_MISS_CHAR, NULL, NULL, ATTRIBUTE5, p_ATTRIBUTE5)
180        ,ATTRIBUTE6 = decode( p_ATTRIBUTE6, FND_API.G_MISS_CHAR, NULL, NULL, ATTRIBUTE6, p_ATTRIBUTE6)
181        ,ATTRIBUTE7 = decode( p_ATTRIBUTE7, FND_API.G_MISS_CHAR, NULL, NULL, ATTRIBUTE7, p_ATTRIBUTE7)
182        ,ATTRIBUTE8 = decode( p_ATTRIBUTE8, FND_API.G_MISS_CHAR, NULL, NULL, ATTRIBUTE8, p_ATTRIBUTE8)
183        ,ATTRIBUTE9 = decode( p_ATTRIBUTE9, FND_API.G_MISS_CHAR, NULL, NULL, ATTRIBUTE9, p_ATTRIBUTE9)
184        ,ATTRIBUTE10 = decode( p_ATTRIBUTE10, FND_API.G_MISS_CHAR, NULL, NULL, ATTRIBUTE10, p_ATTRIBUTE10)
185        ,ATTRIBUTE11 = decode( p_ATTRIBUTE11, FND_API.G_MISS_CHAR, NULL, NULL, ATTRIBUTE11, p_ATTRIBUTE11)
186        ,ATTRIBUTE12 = decode( p_ATTRIBUTE12, FND_API.G_MISS_CHAR, NULL, NULL, ATTRIBUTE12, p_ATTRIBUTE12)
187        ,ATTRIBUTE13 = decode( p_ATTRIBUTE13, FND_API.G_MISS_CHAR, NULL, NULL, ATTRIBUTE13, p_ATTRIBUTE13)
188        ,ATTRIBUTE14 = decode( p_ATTRIBUTE14, FND_API.G_MISS_CHAR, NULL, NULL, ATTRIBUTE14, p_ATTRIBUTE14)
189        ,ATTRIBUTE15 = decode( p_ATTRIBUTE15, FND_API.G_MISS_CHAR, NULL, NULL, ATTRIBUTE15, p_ATTRIBUTE15)
190 	  ,SERVICE_ITEM_ID = decode( p_SERVICE_ITEM_ID, FND_API.G_MISS_NUM, NULL, NULL, SERVICE_ITEM_ID, p_SERVICE_ITEM_ID)
191     where RO_SERVICE_CODE_ID = p_RO_SERVICE_CODE_ID;
192 
193     If (SQL%NOTFOUND) then
194         RAISE NO_DATA_FOUND;
195     End If;
196 END Update_Row;
197 
198 PROCEDURE Delete_Row(
199     p_RO_SERVICE_CODE_ID  NUMBER)
200 IS
201 BEGIN
202     DELETE FROM CSD_RO_SERVICE_CODES
203     WHERE RO_SERVICE_CODE_ID = p_RO_SERVICE_CODE_ID;
204     If (SQL%NOTFOUND) then
205         RAISE NO_DATA_FOUND;
206     End If;
207 END Delete_Row;
208 
209 PROCEDURE Lock_Row(
210           p_RO_SERVICE_CODE_ID    NUMBER
211          ,p_OBJECT_VERSION_NUMBER    NUMBER
212 
213          --commented out the rest of the record
214          /*
215          ,p_REPAIR_LINE_ID    NUMBER
216          ,p_SERVICE_CODE_ID    NUMBER
217          ,p_CREATED_BY    NUMBER
218          ,p_CREATION_DATE    DATE
219          ,p_LAST_UPDATED_BY    NUMBER
220          ,p_LAST_UPDATE_DATE    DATE
221          ,p_LAST_UPDATE_LOGIN    NUMBER
222          ,p_SOURCE_TYPE_CODE    VARCHAR2
223          ,p_SOURCE_SOLUTION_ID    NUMBER
224          ,p_APPLICABLE_FLAG    VARCHAR2
225          ,p_APPLIED_TO_EST_FLAG    VARCHAR2
226          ,p_APPLIED_TO_WORK_FLAG    VARCHAR2
227          ,p_ATTRIBUTE_CATEGORY    VARCHAR2
228          ,p_ATTRIBUTE1    VARCHAR2
229          ,p_ATTRIBUTE2    VARCHAR2
230          ,p_ATTRIBUTE3    VARCHAR2
231          ,p_ATTRIBUTE4    VARCHAR2
232          ,p_ATTRIBUTE5    VARCHAR2
233          ,p_ATTRIBUTE6    VARCHAR2
234          ,p_ATTRIBUTE7    VARCHAR2
235          ,p_ATTRIBUTE8    VARCHAR2
236          ,p_ATTRIBUTE9    VARCHAR2
237          ,p_ATTRIBUTE10    VARCHAR2
238          ,p_ATTRIBUTE11    VARCHAR2
239          ,p_ATTRIBUTE12    VARCHAR2
240          ,p_ATTRIBUTE13    VARCHAR2
241          ,p_ATTRIBUTE14    VARCHAR2
242          ,p_ATTRIBUTE15    VARCHAR2
243          */
244          --
245          )
246 
247  IS
248    CURSOR C IS
249        SELECT *
250        FROM CSD_RO_SERVICE_CODES
251        WHERE RO_SERVICE_CODE_ID =  p_RO_SERVICE_CODE_ID
252        FOR UPDATE of RO_SERVICE_CODE_ID NOWAIT;
253    Recinfo C%ROWTYPE;
254 BEGIN
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     CLOSE C;
263     if (
264            (      Recinfo.RO_SERVICE_CODE_ID = p_RO_SERVICE_CODE_ID)
265        AND (    ( Recinfo.OBJECT_VERSION_NUMBER = p_OBJECT_VERSION_NUMBER)
266             OR (    ( Recinfo.OBJECT_VERSION_NUMBER IS NULL )
267                 AND (  p_OBJECT_VERSION_NUMBER IS NULL )))
268 
269        --commented out the rest of the record
270        /*
271        AND (    ( Recinfo.REPAIR_LINE_ID = p_REPAIR_LINE_ID)
272             OR (    ( Recinfo.REPAIR_LINE_ID IS NULL )
273                 AND (  p_REPAIR_LINE_ID IS NULL )))
274        AND (    ( Recinfo.SERVICE_CODE_ID = p_SERVICE_CODE_ID)
275             OR (    ( Recinfo.SERVICE_CODE_ID IS NULL )
276                 AND (  p_SERVICE_CODE_ID IS NULL )))
277        AND (    ( Recinfo.CREATED_BY = p_CREATED_BY)
278             OR (    ( Recinfo.CREATED_BY IS NULL )
279                 AND (  p_CREATED_BY IS NULL )))
280        AND (    ( Recinfo.CREATION_DATE = p_CREATION_DATE)
281             OR (    ( Recinfo.CREATION_DATE IS NULL )
282                 AND (  p_CREATION_DATE IS NULL )))
283        AND (    ( Recinfo.LAST_UPDATED_BY = p_LAST_UPDATED_BY)
284             OR (    ( Recinfo.LAST_UPDATED_BY IS NULL )
285                 AND (  p_LAST_UPDATED_BY IS NULL )))
286        AND (    ( Recinfo.LAST_UPDATE_DATE = p_LAST_UPDATE_DATE)
287             OR (    ( Recinfo.LAST_UPDATE_DATE IS NULL )
288                 AND (  p_LAST_UPDATE_DATE IS NULL )))
289        AND (    ( Recinfo.LAST_UPDATE_LOGIN = p_LAST_UPDATE_LOGIN)
290             OR (    ( Recinfo.LAST_UPDATE_LOGIN IS NULL )
291                 AND (  p_LAST_UPDATE_LOGIN IS NULL )))
292        AND (    ( Recinfo.SOURCE_TYPE_CODE = p_SOURCE_TYPE_CODE)
293             OR (    ( Recinfo.SOURCE_TYPE_CODE IS NULL )
294                 AND (  p_SOURCE_TYPE_CODE IS NULL )))
295        AND (    ( Recinfo.SOURCE_SOLUTION_ID = p_SOURCE_SOLUTION_ID)
296             OR (    ( Recinfo.SOURCE_SOLUTION_ID IS NULL )
297                 AND (  p_SOURCE_SOLUTION_ID IS NULL )))
298        AND (    ( Recinfo.APPLICABLE_FLAG = p_APPLICABLE_FLAG)
299             OR (    ( Recinfo.APPLICABLE_FLAG IS NULL )
300                 AND (  p_APPLICABLE_FLAG IS NULL )))
301        AND (    ( Recinfo.APPLIED_TO_EST_FLAG = p_APPLIED_TO_EST_FLAG)
302             OR (    ( Recinfo.APPLIED_TO_EST_FLAG IS NULL )
303                 AND (  p_APPLIED_TO_EST_FLAG IS NULL )))
304        AND (    ( Recinfo.APPLIED_TO_WORK_FLAG = p_APPLIED_TO_WORK_FLAG)
305             OR (    ( Recinfo.APPLIED_TO_WORK_FLAG IS NULL )
306                 AND (  p_APPLIED_TO_WORK_FLAG IS NULL )))
307        AND (    ( Recinfo.ATTRIBUTE_CATEGORY = p_ATTRIBUTE_CATEGORY)
308             OR (    ( Recinfo.ATTRIBUTE_CATEGORY IS NULL )
309                 AND (  p_ATTRIBUTE_CATEGORY IS NULL )))
310        AND (    ( Recinfo.ATTRIBUTE1 = p_ATTRIBUTE1)
311             OR (    ( Recinfo.ATTRIBUTE1 IS NULL )
312                 AND (  p_ATTRIBUTE1 IS NULL )))
313        AND (    ( Recinfo.ATTRIBUTE2 = p_ATTRIBUTE2)
314             OR (    ( Recinfo.ATTRIBUTE2 IS NULL )
315                 AND (  p_ATTRIBUTE2 IS NULL )))
316        AND (    ( Recinfo.ATTRIBUTE3 = p_ATTRIBUTE3)
317             OR (    ( Recinfo.ATTRIBUTE3 IS NULL )
318                 AND (  p_ATTRIBUTE3 IS NULL )))
322        AND (    ( Recinfo.ATTRIBUTE5 = p_ATTRIBUTE5)
319        AND (    ( Recinfo.ATTRIBUTE4 = p_ATTRIBUTE4)
320             OR (    ( Recinfo.ATTRIBUTE4 IS NULL )
321                 AND (  p_ATTRIBUTE4 IS NULL )))
323             OR (    ( Recinfo.ATTRIBUTE5 IS NULL )
324                 AND (  p_ATTRIBUTE5 IS NULL )))
325        AND (    ( Recinfo.ATTRIBUTE6 = p_ATTRIBUTE6)
326             OR (    ( Recinfo.ATTRIBUTE6 IS NULL )
327                 AND (  p_ATTRIBUTE6 IS NULL )))
328        AND (    ( Recinfo.ATTRIBUTE7 = p_ATTRIBUTE7)
329             OR (    ( Recinfo.ATTRIBUTE7 IS NULL )
330                 AND (  p_ATTRIBUTE7 IS NULL )))
331        AND (    ( Recinfo.ATTRIBUTE8 = p_ATTRIBUTE8)
332             OR (    ( Recinfo.ATTRIBUTE8 IS NULL )
333                 AND (  p_ATTRIBUTE8 IS NULL )))
334        AND (    ( Recinfo.ATTRIBUTE9 = p_ATTRIBUTE9)
335             OR (    ( Recinfo.ATTRIBUTE9 IS NULL )
336                 AND (  p_ATTRIBUTE9 IS NULL )))
337        AND (    ( Recinfo.ATTRIBUTE10 = p_ATTRIBUTE10)
338             OR (    ( Recinfo.ATTRIBUTE10 IS NULL )
339                 AND (  p_ATTRIBUTE10 IS NULL )))
340        AND (    ( Recinfo.ATTRIBUTE11 = p_ATTRIBUTE11)
341             OR (    ( Recinfo.ATTRIBUTE11 IS NULL )
342                 AND (  p_ATTRIBUTE11 IS NULL )))
343        AND (    ( Recinfo.ATTRIBUTE12 = p_ATTRIBUTE12)
344             OR (    ( Recinfo.ATTRIBUTE12 IS NULL )
345                 AND (  p_ATTRIBUTE12 IS NULL )))
346        AND (    ( Recinfo.ATTRIBUTE13 = p_ATTRIBUTE13)
347             OR (    ( Recinfo.ATTRIBUTE13 IS NULL )
348                 AND (  p_ATTRIBUTE13 IS NULL )))
349        AND (    ( Recinfo.ATTRIBUTE14 = p_ATTRIBUTE14)
350             OR (    ( Recinfo.ATTRIBUTE14 IS NULL )
351                 AND (  p_ATTRIBUTE14 IS NULL )))
352        AND (    ( Recinfo.ATTRIBUTE15 = p_ATTRIBUTE15)
353             OR (    ( Recinfo.ATTRIBUTE15 IS NULL )
354                 AND (  p_ATTRIBUTE15 IS NULL )))
355        */
356        --
357         ) then
358         return;
359     else
360         FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_CHANGED');
361         APP_EXCEPTION.RAISE_EXCEPTION;
362     End If;
363 END Lock_Row;
364 
365 End CSD_RO_SERVICE_CODES_PKG;