[Home] [Help]
PACKAGE BODY: APPS.WSH_CARRIER_VEHICLE_TYPES_PKG
Source
1 package body WSH_CARRIER_VEHICLE_TYPES_PKG as
2 /* $Header: WSHVTTHB.pls 115.0 2003/06/26 10:58:48 msutar noship $ */
3
4 --- Package Name: WSH_CARRIER_VEHICLE_TYPES_PKG
5 --- Pupose: Table Handlers for table WSH_CARRIER_VEHICLE_TYPES_PKG
6 --- Note: Please set tabstop=3 to read file with proper alignment
7
8 --
9 G_PKG_NAME CONSTANT VARCHAR2(50) := 'WSH_CARRIER_VEHICLE_TYPES_PKG';
10 --
11 procedure Create_Carrier_Vehicle_Type (
12 P_Carrier_Vehicle_Info IN CVTRecType,
13 X_ROWID OUT NOCOPY VARCHAR2,
14 X_RETURN_STATUS OUT NOCOPY VARCHAR2,
15 X_EXCEPTION_MSG OUT NOCOPY VARCHAR2,
16 X_POSITION OUT NOCOPY NUMBER,
17 X_PROCEDURE OUT NOCOPY VARCHAR2,
18 X_SQLERR OUT NOCOPY VARCHAR2,
19 X_SQL_CODE OUT NOCOPY VARCHAR2
20 ) is
21
22 --
23 -- Debug Statements
24 --
25 l_debug_on BOOLEAN;
26 --
27 l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'Create_Carrier_Vehicle_Type';
28 --
29
30 begin
31
32 --
33 -- Debug Statements
34 --
35 l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
36 --
37 IF l_debug_on IS NULL
38 THEN
39 l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
40 END IF;
41 --
42 IF l_debug_on THEN
43 WSH_DEBUG_SV.push(l_module_name);
44 WSH_DEBUG_SV.log(l_module_name,'CARRIER_ID',
45 P_Carrier_Vehicle_Info.CARRIER_ID);
46 WSH_DEBUG_SV.log(l_module_name,'VEHICLE_TYPE_ID',
47 P_Carrier_Vehicle_Info.VEHICLE_TYPE_ID);
48 WSH_DEBUG_SV.log(l_module_name,'ASSIGNED_FLAG',
49 P_Carrier_Vehicle_Info.ASSIGNED_FLAG);
50 WSH_DEBUG_SV.log(l_module_name,'Attribute_Category',
51 P_Carrier_Vehicle_Info.Attribute_Category);
52 WSH_DEBUG_SV.log(l_module_name,'attribute1',
53 P_Carrier_Vehicle_Info.attribute1);
54 WSH_DEBUG_SV.log(l_module_name,'attribute2',
55 P_Carrier_Vehicle_Info.attribute2);
56 WSH_DEBUG_SV.log(l_module_name,'attribute3',
57 P_Carrier_Vehicle_Info.attribute3);
58 WSH_DEBUG_SV.log(l_module_name,'attribute4',
59 P_Carrier_Vehicle_Info.attribute4);
60 WSH_DEBUG_SV.log(l_module_name,'attribute5',
61 P_Carrier_Vehicle_Info.attribute5);
62 WSH_DEBUG_SV.log(l_module_name,'attribute6',
63 P_Carrier_Vehicle_Info.attribute6);
64 WSH_DEBUG_SV.log(l_module_name,'attribute7',
65 P_Carrier_Vehicle_Info.attribute7);
66 WSH_DEBUG_SV.log(l_module_name,'attribute8',
67 P_Carrier_Vehicle_Info.attribute8);
68 WSH_DEBUG_SV.log(l_module_name,'attribute9',
69 P_Carrier_Vehicle_Info.attribute9);
70 WSH_DEBUG_SV.log(l_module_name,'attribute10',
71 P_Carrier_Vehicle_Info.attribute10);
72 WSH_DEBUG_SV.log(l_module_name,'attribute11',
73 P_Carrier_Vehicle_Info.attribute11);
74 WSH_DEBUG_SV.log(l_module_name,'attribute12',
75 P_Carrier_Vehicle_Info.attribute12);
76 WSH_DEBUG_SV.log(l_module_name,'attribute13',
77 P_Carrier_Vehicle_Info.attribute13);
78 WSH_DEBUG_SV.log(l_module_name,'attribute14',
79 P_Carrier_Vehicle_Info.attribute14);
80 WSH_DEBUG_SV.log(l_module_name,'attribute15',
81 P_Carrier_Vehicle_Info.attribute15);
82 END IF;
83 --
84
85 X_RETURN_STATUS := 'S';
86
87 --
88 -- Debug Statements
89 --
90 IF l_debug_on THEN
91 WSH_DEBUG_SV.log(l_module_name,'Inserting into WSH_CARRIER_VEHICLE_TYPES');
92 END IF;
93
94 insert into WSH_CARRIER_VEHICLE_TYPES (
95 CARRIER_ID,
96 VEHICLE_TYPE_ID,
97 ASSIGNED_FLAG,
98 ATTRIBUTE_CATEGORY,
99 ATTRIBUTE1,
100 ATTRIBUTE2,
101 ATTRIBUTE3,
102 ATTRIBUTE4,
103 ATTRIBUTE5,
104 ATTRIBUTE6,
105 ATTRIBUTE7,
106 ATTRIBUTE8,
107 ATTRIBUTE9,
108 ATTRIBUTE10,
109 ATTRIBUTE11,
110 ATTRIBUTE12,
111 ATTRIBUTE13,
112 ATTRIBUTE14,
113 ATTRIBUTE15,
114 CREATION_DATE,
115 CREATED_BY,
116 LAST_UPDATE_DATE,
117 LAST_UPDATED_BY,
118 LAST_UPDATE_LOGIN
119 ) values (
120 P_Carrier_Vehicle_Info.CARRIER_ID,
121 P_Carrier_Vehicle_Info.VEHICLE_TYPE_ID,
122 P_Carrier_Vehicle_Info.ASSIGNED_FLAG,
123 P_Carrier_Vehicle_Info.ATTRIBUTE_CATEGORY,
124 P_Carrier_Vehicle_Info.ATTRIBUTE1,
125 P_Carrier_Vehicle_Info.ATTRIBUTE2,
126 P_Carrier_Vehicle_Info.ATTRIBUTE3,
127 P_Carrier_Vehicle_Info.ATTRIBUTE4,
128 P_Carrier_Vehicle_Info.ATTRIBUTE5,
129 P_Carrier_Vehicle_Info.ATTRIBUTE6,
130 P_Carrier_Vehicle_Info.ATTRIBUTE7,
131 P_Carrier_Vehicle_Info.ATTRIBUTE8,
132 P_Carrier_Vehicle_Info.ATTRIBUTE9,
133 P_Carrier_Vehicle_Info.ATTRIBUTE10,
134 P_Carrier_Vehicle_Info.ATTRIBUTE11,
135 P_Carrier_Vehicle_Info.ATTRIBUTE12,
136 P_Carrier_Vehicle_Info.ATTRIBUTE13,
137 P_Carrier_Vehicle_Info.ATTRIBUTE14,
138 P_Carrier_Vehicle_Info.ATTRIBUTE15,
139 P_Carrier_Vehicle_Info.CREATION_DATE,
140 P_Carrier_Vehicle_Info.CREATED_BY,
141 P_Carrier_Vehicle_Info.LAST_UPDATE_DATE,
142 P_Carrier_Vehicle_Info.LAST_UPDATED_BY,
143 P_Carrier_Vehicle_Info.LAST_UPDATE_LOGIN
144 ) returning rowid into X_ROWID;
145
146 --
147 -- Debug Statements
148 --
149 IF l_debug_on THEN
150 WSH_DEBUG_SV.pop(l_module_name);
151 END IF;
152 --
153 exception
154 WHEN OTHERS THEN
155 x_return_status := 'E';
156 x_exception_msg := 'WHEN OTHERS Exception Raise';
157 x_procedure := 'Inserting into WSH_CARRIER_VEHICLE_TYPES table';
158 x_position := 0;
159 x_sqlerr := sqlerrm;
160 x_sql_code := sqlcode;
161 --
162 -- Debug Statements
163 --
164 IF l_debug_on THEN
165 WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
166 WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
167 END IF;
168 --
169
170 end Create_Carrier_Vehicle_Type;
171
172 procedure Update_Carrier_Vehicle_Type (
173 P_Carrier_Vehicle_Info IN CVTRecType,
174 P_ROWID IN VARCHAR2,
175 X_RETURN_STATUS OUT NOCOPY VARCHAR2,
176 X_EXCEPTION_MSG OUT NOCOPY VARCHAR2,
177 X_PROCEDURE OUT NOCOPY VARCHAR2,
178 X_POSITION OUT NOCOPY NUMBER,
179 X_SQLERR OUT NOCOPY VARCHAR2,
180 X_SQL_CODE OUT NOCOPY VARCHAR2
181 ) is
182
183 UPDATE_FAILED exception;
184
185 --
186 -- Debug Statements
187 --
188 l_debug_on BOOLEAN;
189 --
190 l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'Update_Carrier_Vehicle_Type';
191 --
192
193 begin
194
195 --
196 -- Debug Statements
197 --
198 l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
199 --
200 IF l_debug_on IS NULL
201 THEN
202 l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
203 END IF;
204 --
205 IF l_debug_on THEN
206 WSH_DEBUG_SV.push(l_module_name);
207 WSH_DEBUG_SV.log(l_module_name,'CARRIER_ID',
208 P_Carrier_Vehicle_Info.CARRIER_ID);
209 WSH_DEBUG_SV.log(l_module_name,'VEHICLE_TYPE_ID',
210 P_Carrier_Vehicle_Info.VEHICLE_TYPE_ID);
211 WSH_DEBUG_SV.log(l_module_name,'ASSIGNED_FLAG',
212 P_Carrier_Vehicle_Info.ASSIGNED_FLAG);
213 WSH_DEBUG_SV.log(l_module_name,'Attribute_Category',
214 P_Carrier_Vehicle_Info.Attribute_Category);
215 WSH_DEBUG_SV.log(l_module_name,'attribute1',
216 P_Carrier_Vehicle_Info.attribute1);
217 WSH_DEBUG_SV.log(l_module_name,'attribute2',
218 P_Carrier_Vehicle_Info.attribute2);
219 WSH_DEBUG_SV.log(l_module_name,'attribute3',
220 P_Carrier_Vehicle_Info.attribute3);
221 WSH_DEBUG_SV.log(l_module_name,'attribute4',
222 P_Carrier_Vehicle_Info.attribute4);
223 WSH_DEBUG_SV.log(l_module_name,'attribute5',
224 P_Carrier_Vehicle_Info.attribute5);
225 WSH_DEBUG_SV.log(l_module_name,'attribute6',
226 P_Carrier_Vehicle_Info.attribute6);
227 WSH_DEBUG_SV.log(l_module_name,'attribute7',
228 P_Carrier_Vehicle_Info.attribute7);
229 WSH_DEBUG_SV.log(l_module_name,'attribute8',
230 P_Carrier_Vehicle_Info.attribute8);
231 WSH_DEBUG_SV.log(l_module_name,'attribute9',
232 P_Carrier_Vehicle_Info.attribute9);
233 WSH_DEBUG_SV.log(l_module_name,'attribute10',
234 P_Carrier_Vehicle_Info.attribute10);
235 WSH_DEBUG_SV.log(l_module_name,'attribute11',
236 P_Carrier_Vehicle_Info.attribute11);
237 WSH_DEBUG_SV.log(l_module_name,'attribute12',
238 P_Carrier_Vehicle_Info.attribute12);
239 WSH_DEBUG_SV.log(l_module_name,'attribute13',
240 P_Carrier_Vehicle_Info.attribute13);
241 WSH_DEBUG_SV.log(l_module_name,'attribute14',
242 P_Carrier_Vehicle_Info.attribute14);
243 WSH_DEBUG_SV.log(l_module_name,'attribute15',
244 P_Carrier_Vehicle_Info.attribute15);
245 END IF;
246 --
247
248 x_return_status := 'S';
249
250 --
251 -- Debug Statements
252 --
253 IF l_debug_on THEN
254 WSH_DEBUG_SV.log(l_module_name,'Updating into WSH_CARRIER_VEHICLE_TYPES');
255 END IF;
256
257 update WSH_CARRIER_VEHICLE_TYPES set
258 VEHICLE_TYPE_ID = P_Carrier_Vehicle_Info.VEHICLE_TYPE_ID,
259 ASSIGNED_FLAG = P_Carrier_Vehicle_Info.ASSIGNED_FLAG,
260 ATTRIBUTE_CATEGORY = P_Carrier_Vehicle_Info.ATTRIBUTE_CATEGORY,
261 ATTRIBUTE1 = P_Carrier_Vehicle_Info.ATTRIBUTE1,
262 ATTRIBUTE2 = P_Carrier_Vehicle_Info.ATTRIBUTE2,
263 ATTRIBUTE3 = P_Carrier_Vehicle_Info.ATTRIBUTE3,
264 ATTRIBUTE4 = P_Carrier_Vehicle_Info.ATTRIBUTE4,
265 ATTRIBUTE5 = P_Carrier_Vehicle_Info.ATTRIBUTE5,
266 ATTRIBUTE6 = P_Carrier_Vehicle_Info.ATTRIBUTE6,
267 ATTRIBUTE7 = P_Carrier_Vehicle_Info.ATTRIBUTE7,
268 ATTRIBUTE8 = P_Carrier_Vehicle_Info.ATTRIBUTE8,
269 ATTRIBUTE9 = P_Carrier_Vehicle_Info.ATTRIBUTE9,
270 ATTRIBUTE10 = P_Carrier_Vehicle_Info.ATTRIBUTE10,
271 ATTRIBUTE11 = P_Carrier_Vehicle_Info.ATTRIBUTE11,
272 ATTRIBUTE12 = P_Carrier_Vehicle_Info.ATTRIBUTE12,
273 ATTRIBUTE13 = P_Carrier_Vehicle_Info.ATTRIBUTE13,
274 ATTRIBUTE14 = P_Carrier_Vehicle_Info.ATTRIBUTE14,
275 ATTRIBUTE15 = P_Carrier_Vehicle_Info.ATTRIBUTE15,
276 LAST_UPDATE_DATE = P_Carrier_Vehicle_Info.LAST_UPDATE_DATE,
277 LAST_UPDATED_BY = P_Carrier_Vehicle_Info.LAST_UPDATED_BY,
278 LAST_UPDATE_LOGIN = P_Carrier_Vehicle_Info.LAST_UPDATE_LOGIN
279 where ROWID = P_ROWID;
280
281 if (sql%notfound) then
282 x_return_status := 'E';
283 raise UPDATE_FAILED;
284 end if;
285 --
286 -- Debug Statements
287 --
288 IF l_debug_on THEN
289 WSH_DEBUG_SV.pop(l_module_name);
290 END IF;
291 --
292
293 exception
294 WHEN UPDATE_FAILED THEN
295 x_exception_msg := 'Update Failed Exception';
296 x_procedure := 'Updating into WSH_CARRIER_VEHICLE_TYPES table';
297 x_position := 0;
298 x_sqlerr := sqlerrm;
299 x_sql_code := sqlcode;
300 --
301 -- Debug Statements
302 --
303 IF l_debug_on THEN
304 WSH_DEBUG_SV.logmsg(l_module_name,'UPDATE_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
305 WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:UPDATE_FAILED');
306 END IF;
307 --
308 WHEN OTHERS THEN
309 x_return_status := 'E';
310 x_exception_msg := 'WHEN OTHERS Exception Raise';
311 x_procedure := 'Updating into WSH_CARRIER_VEHICLE_TYPES table';
312 x_position := 0;
313 x_sqlerr := sqlerrm;
314 x_sql_code := sqlcode;
315 --
316 -- Debug Statements
317 --
318 IF l_debug_on THEN
319 WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
320 WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
321 END IF;
322 --
323 end Update_Carrier_Vehicle_Type;
324
325 procedure Lock_Carrier_Vehicle_Type (
326 P_Carrier_Vehicle_Info IN CVTRecType,
327 P_ROWID IN VARCHAR2,
328 X_RETURN_STATUS OUT NOCOPY VARCHAR2
329 ) is
330 cursor c is select
331 VEHICLE_TYPE_ID,
332 ASSIGNED_FLAG,
333 ATTRIBUTE_CATEGORY,
334 ATTRIBUTE2,
335 ATTRIBUTE3,
336 ATTRIBUTE4,
337 ATTRIBUTE5,
338 ATTRIBUTE6,
339 ATTRIBUTE7,
340 ATTRIBUTE8,
341 ATTRIBUTE9,
342 ATTRIBUTE10,
343 ATTRIBUTE11,
344 ATTRIBUTE12,
345 ATTRIBUTE13,
346 ATTRIBUTE14,
347 ATTRIBUTE15
348 from WSH_CARRIER_VEHICLE_TYPES
349 where ROWID = P_ROWID
350 for update of CARRIER_ID nowait;
351
352 recinfo c%rowtype;
353
354 --
355 -- Debug Statements
356 --
357 l_debug_on BOOLEAN;
358 --
359 l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'Lock_Carrier_Vehicle_Type';
360 --
361 begin
362
363 --
364 -- Debug Statements
365 --
366 l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
367 --
368 IF l_debug_on IS NULL
369 THEN
370 l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
371 END IF;
372 --
373 IF l_debug_on THEN
374 WSH_DEBUG_SV.push(l_module_name);
375 WSH_DEBUG_SV.log(l_module_name,'CARRIER_ID',
376 P_Carrier_Vehicle_Info.CARRIER_ID);
377 WSH_DEBUG_SV.log(l_module_name,'VEHICLE_TYPE_ID',
378 P_Carrier_Vehicle_Info.VEHICLE_TYPE_ID);
379 WSH_DEBUG_SV.log(l_module_name,'ASSIGNED_FLAG',
380 P_Carrier_Vehicle_Info.ASSIGNED_FLAG);
381 WSH_DEBUG_SV.log(l_module_name,'Attribute_Category',
382 P_Carrier_Vehicle_Info.Attribute_Category);
383 WSH_DEBUG_SV.log(l_module_name,'attribute1',
384 P_Carrier_Vehicle_Info.attribute1);
388 P_Carrier_Vehicle_Info.attribute3);
385 WSH_DEBUG_SV.log(l_module_name,'attribute2',
386 P_Carrier_Vehicle_Info.attribute2);
387 WSH_DEBUG_SV.log(l_module_name,'attribute3',
389 WSH_DEBUG_SV.log(l_module_name,'attribute4',
390 P_Carrier_Vehicle_Info.attribute4);
391 WSH_DEBUG_SV.log(l_module_name,'attribute5',
392 P_Carrier_Vehicle_Info.attribute5);
393 WSH_DEBUG_SV.log(l_module_name,'attribute6',
394 P_Carrier_Vehicle_Info.attribute6);
395 WSH_DEBUG_SV.log(l_module_name,'attribute7',
396 P_Carrier_Vehicle_Info.attribute7);
397 WSH_DEBUG_SV.log(l_module_name,'attribute8',
398 P_Carrier_Vehicle_Info.attribute8);
399 WSH_DEBUG_SV.log(l_module_name,'attribute9',
400 P_Carrier_Vehicle_Info.attribute9);
401 WSH_DEBUG_SV.log(l_module_name,'attribute10',
402 P_Carrier_Vehicle_Info.attribute10);
403 WSH_DEBUG_SV.log(l_module_name,'attribute11',
404 P_Carrier_Vehicle_Info.attribute11);
405 WSH_DEBUG_SV.log(l_module_name,'attribute12',
406 P_Carrier_Vehicle_Info.attribute12);
407 WSH_DEBUG_SV.log(l_module_name,'attribute13',
408 P_Carrier_Vehicle_Info.attribute13);
409 WSH_DEBUG_SV.log(l_module_name,'attribute14',
410 P_Carrier_Vehicle_Info.attribute14);
411 WSH_DEBUG_SV.log(l_module_name,'attribute15',
412 P_Carrier_Vehicle_Info.attribute15);
413 END IF;
414 --
415
416 x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
417
418 open c;
419 fetch c into recinfo;
420 if (c%notfound) then
421 close c;
422 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
423 app_exception.raise_exception;
424 end if;
425 close c;
426 if ( (recinfo.VEHICLE_TYPE_ID = P_Carrier_Vehicle_Info.VEHICLE_TYPE_ID)
427 AND ((recinfo.ASSIGNED_FLAG = P_Carrier_Vehicle_Info.ASSIGNED_FLAG)
428 OR ((recinfo.ASSIGNED_FLAG is null) AND (P_Carrier_Vehicle_Info.ASSIGNED_FLAG is null)))
429 AND ((recinfo.ATTRIBUTE_CATEGORY = P_Carrier_Vehicle_Info.ATTRIBUTE_CATEGORY)
430 OR ((recinfo.ATTRIBUTE_CATEGORY is null) AND (P_Carrier_Vehicle_Info.ATTRIBUTE_CATEGORY is null)))
431 AND ((recinfo.ATTRIBUTE2 = P_Carrier_Vehicle_Info.ATTRIBUTE2)
432 OR ((recinfo.ATTRIBUTE2 is null) AND (P_Carrier_Vehicle_Info.ATTRIBUTE2 is null)))
433 AND ((recinfo.ATTRIBUTE3 = P_Carrier_Vehicle_Info.ATTRIBUTE3)
434 OR ((recinfo.ATTRIBUTE3 is null) AND (P_Carrier_Vehicle_Info.ATTRIBUTE3 is null)))
435 AND ((recinfo.ATTRIBUTE4 = P_Carrier_Vehicle_Info.ATTRIBUTE4)
436 OR ((recinfo.ATTRIBUTE4 is null) AND (P_Carrier_Vehicle_Info.ATTRIBUTE4 is null)))
437 AND ((recinfo.ATTRIBUTE5 = P_Carrier_Vehicle_Info.ATTRIBUTE5)
438 OR ((recinfo.ATTRIBUTE5 is null) AND (P_Carrier_Vehicle_Info.ATTRIBUTE5 is null)))
439 AND ((recinfo.ATTRIBUTE6 = P_Carrier_Vehicle_Info.ATTRIBUTE6)
440 OR ((recinfo.ATTRIBUTE6 is null) AND (P_Carrier_Vehicle_Info.ATTRIBUTE6 is null)))
441 AND ((recinfo.ATTRIBUTE7 = P_Carrier_Vehicle_Info.ATTRIBUTE7)
442 OR ((recinfo.ATTRIBUTE7 is null) AND (P_Carrier_Vehicle_Info.ATTRIBUTE7 is null)))
443 AND ((recinfo.ATTRIBUTE8 = P_Carrier_Vehicle_Info.ATTRIBUTE8)
444 OR ((recinfo.ATTRIBUTE8 is null) AND (P_Carrier_Vehicle_Info.ATTRIBUTE8 is null)))
445 AND ((recinfo.ATTRIBUTE9 = P_Carrier_Vehicle_Info.ATTRIBUTE9)
446 OR ((recinfo.ATTRIBUTE9 is null) AND (P_Carrier_Vehicle_Info.ATTRIBUTE9 is null)))
447 AND ((recinfo.ATTRIBUTE10 = P_Carrier_Vehicle_Info.ATTRIBUTE10)
448 OR ((recinfo.ATTRIBUTE10 is null) AND (P_Carrier_Vehicle_Info.ATTRIBUTE10 is null)))
449 AND ((recinfo.ATTRIBUTE11 = P_Carrier_Vehicle_Info.ATTRIBUTE11)
450 OR ((recinfo.ATTRIBUTE11 is null) AND (P_Carrier_Vehicle_Info.ATTRIBUTE11 is null)))
451 AND ((recinfo.ATTRIBUTE12 = P_Carrier_Vehicle_Info.ATTRIBUTE12)
452 OR ((recinfo.ATTRIBUTE12 is null) AND (P_Carrier_Vehicle_Info.ATTRIBUTE12 is null)))
453 AND ((recinfo.ATTRIBUTE13 = P_Carrier_Vehicle_Info.ATTRIBUTE13)
454 OR ((recinfo.ATTRIBUTE13 is null) AND (P_Carrier_Vehicle_Info.ATTRIBUTE13 is null)))
455 AND ((recinfo.ATTRIBUTE14 = P_Carrier_Vehicle_Info.ATTRIBUTE14)
456 OR ((recinfo.ATTRIBUTE14 is null) AND (P_Carrier_Vehicle_Info.ATTRIBUTE14 is null)))
457 AND ((recinfo.ATTRIBUTE15 = P_Carrier_Vehicle_Info.ATTRIBUTE15)
458 OR ((recinfo.ATTRIBUTE15 is null) AND (P_Carrier_Vehicle_Info.ATTRIBUTE15 is null)))
459 ) then
460 null;
461 else
462 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
463 app_exception.raise_exception;
464 end if;
465
466 --
467 -- Debug Statements
468 --
469 IF l_debug_on THEN
470 WSH_DEBUG_SV.pop(l_module_name);
471 END IF;
472 --
473
474 return;
475 exception
476 WHEN others THEN
477 x_Return_Status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
481 --
478 WSH_UTIL_CORE.Default_Handler('WSH_CARRIER_VEHICLE_TYPES_PKG.Lock_Carrier_Vehicle_Type');
479 --
480 -- Debug Statements
482 IF l_debug_on THEN
483 WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
484 WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
485 END IF;
486 --
487 end Lock_Carrier_Vehicle_Type;
488
489 end WSH_CARRIER_VEHICLE_TYPES_PKG;