[Home] [Help]
PACKAGE BODY: APPS.WSH_FREIGHT_COST_TYPES_PVT
Source
1 PACKAGE BODY WSH_FREIGHT_COST_TYPES_PVT AS
2 /* $Header: WSHFCTPB.pls 115.3 2002/11/13 20:08:08 nparikh ship $ */
3 -- Package internal global variables
4 g_Return_Status VARCHAR2(1);
5
6 --
7 G_PKG_NAME CONSTANT VARCHAR2(50) := 'WSH_FREIGHT_COST_TYPES_PVT';
8 --
9 PROCEDURE Create_Freight_Cost_Type(
10 p_freight_cost_type_info IN Freight_Cost_Type_Rec_Type
11 , x_rowid OUT NOCOPY VARCHAR2
12 , x_freight_cost_type_id OUT NOCOPY NUMBER
13 , x_return_status OUT NOCOPY VARCHAR2
14 )
15 IS
16 CURSOR C_Next_Freight_Cost_Type_Id
17 IS
18 SELECT wsh_freight_cost_types_s.nextval
19 FROM sys.dual;
20
21 CURSOR c_new_row_id
22 IS
23 SELECT rowid
24 FROM wsh_freight_cost_types
25 WHERE freight_cost_type_id = x_freight_cost_type_id;
26
27 create_failure EXCEPTION;
28 --
29 l_debug_on BOOLEAN;
30 --
31 l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'CREATE_FREIGHT_COST_TYPE';
32 --
33 BEGIN
34 --
35 -- Debug Statements
36 --
37 --
38 l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
39 --
40 IF l_debug_on IS NULL
41 THEN
42 l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
43 END IF;
44 --
45 IF l_debug_on THEN
46 WSH_DEBUG_SV.push(l_module_name);
47 WSH_DEBUG_SV.log(l_module_name,'P_FREIGHT_COST_TYPE_INFO.FREIGHT_COST_TYPE_ID',p_freight_cost_type_info.freight_cost_type_id);
48 WSH_DEBUG_SV.log(l_module_name,'P_FREIGHT_COST_TYPE_INFO.NAME',p_freight_cost_type_info.name);
49 WSH_DEBUG_SV.log(l_module_name,'P_FREIGHT_COST_TYPE_INFO.FREIGHT_COST_TYPE_CODE',p_freight_cost_type_info.freight_cost_type_code);
50 WSH_DEBUG_SV.log(l_module_name,'P_FREIGHT_COST_TYPE_INFO.AMOUNT',p_freight_cost_type_info.AMOUNT);
51 WSH_DEBUG_SV.log(l_module_name,'P_FREIGHT_COST_TYPE_INFO.CURRENCY_CODE',p_freight_cost_type_info.currency_code);
52 WSH_DEBUG_SV.log(l_module_name,'P_FREIGHT_COST_TYPE_INFO.CHARGE_MAP_FLAG',p_freight_cost_type_info.charge_map_flag);
53 END IF;
54 --
55 x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
56
57 x_freight_cost_type_id := p_freight_cost_type_info.freight_cost_type_id;
58 IF (x_freight_cost_type_id IS NULL) THEN
59 LOOP
60 OPEN C_Next_Freight_Cost_Type_Id;
61 FETCH C_Next_Freight_Cost_Type_Id INTO x_freight_cost_type_id;
62 CLOSE C_Next_Freight_Cost_Type_Id;
63
64 IF (x_freight_cost_type_id IS NOT NULL) THEN
65 x_rowid := NULL;
66 OPEN c_new_row_id;
67 FETCH c_new_row_id INTO x_rowid;
68 CLOSE c_new_row_id;
69
70 IF (x_rowid IS NULL) THEN
71 EXIT;
72 END IF;
73 ELSE
74 EXIT;
75 END IF;
76 END LOOP;
77 END IF;
78
79 INSERT INTO wsh_freight_cost_types(
80 freight_cost_type_id,
81 name,
82 freight_cost_type_code,
83 amount,
84 currency_code,
85 description,
86 start_date_active,
87 end_date_active,
88 attribute_category,
89 attribute1,
90 attribute2,
91 attribute3,
92 attribute4,
93 attribute5,
94 attribute6,
95 attribute7,
96 attribute8,
97 attribute9,
98 attribute10,
99 attribute11,
100 attribute12,
101 attribute13,
102 attribute14,
103 attribute15,
104 creation_date,
105 created_by,
106 last_update_date,
107 last_updated_by,
108 last_update_login,
109 program_application_id,
110 program_id,
111 program_update_date,
112 request_id,
113 charge_map_flag
114 ) VALUES (
115 x_freight_cost_type_id,
116 p_freight_cost_type_info.name,
117 p_freight_cost_type_info.freight_cost_type_code,
118 p_freight_cost_type_info.amount,
119 p_freight_cost_type_info.currency_code,
120 p_freight_cost_type_info.description,
121 p_freight_cost_type_info.start_date_active,
122 p_freight_cost_type_info.end_date_active,
123 p_freight_cost_type_info.attribute_category,
124 p_freight_cost_type_info.attribute1,
125 p_freight_cost_type_info.attribute2,
126 p_freight_cost_type_info.attribute3,
127 p_freight_cost_type_info.attribute4,
128 p_freight_cost_type_info.attribute5,
129 p_freight_cost_type_info.attribute6,
130 p_freight_cost_type_info.attribute7,
131 p_freight_cost_type_info.attribute8,
132 p_freight_cost_type_info.attribute9,
133 p_freight_cost_type_info.attribute10,
134 p_freight_cost_type_info.attribute11,
135 p_freight_cost_type_info.attribute12,
136 p_freight_cost_type_info.attribute13,
137 p_freight_cost_type_info.attribute14,
138 p_freight_cost_type_info.attribute15,
139 p_freight_cost_type_info.creation_date,
140 p_freight_cost_type_info.created_by,
141 p_freight_cost_type_info.last_update_date,
142 p_freight_cost_type_info.last_updated_by,
143 p_freight_cost_type_info.last_update_login,
144 p_freight_cost_type_info.program_application_id,
145 p_freight_cost_type_info.program_id,
146 p_freight_cost_type_info.program_update_date,
147 p_freight_cost_type_info.request_id,
148 p_freight_cost_type_info.charge_map_flag
149 );
150
151 OPEN C_New_row_id;
152 FETCH C_New_row_id INTO x_rowid;
153
154 IF (C_New_row_id%NOTFOUND) THEN
155 CLOSE C_New_row_id;
156 RAISE create_failure;
157 END IF;
158
159 CLOSE C_new_row_id;
160
161 --
162 -- Debug Statements
163 --
164 IF l_debug_on THEN
165 WSH_DEBUG_SV.log(l_module_name,'x_freight_cost_type_id',x_freight_cost_type_id);
166 WSH_DEBUG_SV.pop(l_module_name);
167 END IF;
168 --
169 EXCEPTION
170 WHEN create_failure THEN
171 wsh_util_core.default_handler('WSH_FREIGHT_COST_TYPES_PVT.CREATE_FREIGHT_COST_TYPE');
172 x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
173
174 --
175 -- Debug Statements
176 --
177 IF l_debug_on THEN
178 WSH_DEBUG_SV.logmsg(l_module_name,'CREATE_FAILURE exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
179 WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:CREATE_FAILURE');
180 END IF;
181 --
182 WHEN others THEN
183 wsh_util_core.default_handler('WSH_FREIGHT_COST_TYPES_PVT.CREATE_FREIGHT_COST_TYPE');
184 x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
185
186 --
187 -- Debug Statements
188 --
189 IF l_debug_on THEN
190 WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
191 WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
192 END IF;
193 --
194 END Create_Freight_Cost_Type;
195
196 PROCEDURE Update_Freight_Cost_Type(
197 p_rowid IN VARCHAR2
198 , p_freight_cost_type_info IN Freight_Cost_Type_Rec_Type
199 , x_return_status OUT NOCOPY VARCHAR2
200 )
201 IS
202
203 --
204 l_debug_on BOOLEAN;
205 --
206 l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'UPDATE_FREIGHT_COST_TYPE';
207 --
208 BEGIN
209
210 --
211 -- Debug Statements
212 --
213 --
214 l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
215 --
216 IF l_debug_on IS NULL
217 THEN
218 l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
219 END IF;
220 --
221 IF l_debug_on THEN
222 WSH_DEBUG_SV.push(l_module_name);
223 --
224 WSH_DEBUG_SV.log(l_module_name,'P_ROWID',P_ROWID);
225 WSH_DEBUG_SV.log(l_module_name,'P_FREIGHT_COST_TYPE_INFO.FREIGHT_COST_TYPE_ID',p_freight_cost_type_info.freight_cost_type_id);
226 WSH_DEBUG_SV.log(l_module_name,'P_FREIGHT_COST_TYPE_INFO.NAME',p_freight_cost_type_info.name);
227 WSH_DEBUG_SV.log(l_module_name,'P_FREIGHT_COST_TYPE_INFO.FREIGHT_COST_TYPE_CODE',p_freight_cost_type_info.freight_cost_type_code);
228 END IF;
229 --
230 x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
231
232 UPDATE wsh_freight_cost_types
233 SET
234 name = p_freight_cost_type_info.name,
235 freight_cost_type_code = p_freight_cost_type_info.freight_cost_type_code,
236 amount = p_freight_cost_type_info.amount,
237 currency_code = p_freight_cost_type_info.currency_code,
238 description = p_freight_cost_type_info.description,
239 start_date_active = p_freight_cost_type_info.start_date_active,
240 end_date_active = p_freight_cost_type_info.end_date_active,
241 attribute_category = p_freight_cost_type_info.attribute_category,
242 attribute1 = p_freight_cost_type_info.attribute1,
243 attribute2 = p_freight_cost_type_info.attribute2,
244 attribute3 = p_freight_cost_type_info.attribute3,
245 attribute4 = p_freight_cost_type_info.attribute4,
246 attribute5 = p_freight_cost_type_info.attribute5,
247 attribute6 = p_freight_cost_type_info.attribute6,
248 attribute7 = p_freight_cost_type_info.attribute7,
249 attribute8 = p_freight_cost_type_info.attribute8,
250 attribute9 = p_freight_cost_type_info.attribute9,
251 attribute10 = p_freight_cost_type_info.attribute10,
252 attribute11 = p_freight_cost_type_info.attribute11,
253 attribute12 = p_freight_cost_type_info.attribute12,
254 attribute13 = p_freight_cost_type_info.attribute13,
255 attribute14 = p_freight_cost_type_info.attribute14,
256 attribute15 = p_freight_cost_type_info.attribute15,
257 creation_date = p_freight_cost_type_info.creation_date,
258 created_by = p_freight_cost_type_info.created_by,
259 last_update_date = p_freight_cost_type_info.last_update_date,
260 last_updated_by = p_freight_cost_type_info.last_updated_by,
261 last_update_login = p_freight_cost_type_info.last_update_login,
262 program_application_id = p_freight_cost_type_info.program_application_id,
263 program_id = p_freight_cost_type_info.program_id,
264 program_update_date = p_freight_cost_type_info.program_update_date,
265 request_id = p_freight_cost_type_info.request_id,
266 charge_map_flag = p_freight_cost_type_info.charge_map_flag
267 WHERE freight_cost_type_id = p_freight_cost_type_info.freight_cost_type_id;
268
269 IF (SQL%NOTFOUND) THEN
270 RAISE NO_DATA_FOUND;
271 x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
272 END IF;
273 --
274 -- Debug Statements
275 --
276 IF l_debug_on THEN
277 WSH_DEBUG_SV.pop(l_module_name);
278 END IF;
279 --
280 EXCEPTION
281 WHEN others THEN
282 wsh_util_core.default_handler('WSH_FREIGHT_COST_TYPES_PVT.UPDATE_FREIGHT_COST_TYPE');
283 x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
284 --
285 -- Debug Statements
286 --
287 IF l_debug_on THEN
288 WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
289 WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
290 END IF;
291 --
292 END Update_Freight_Cost_Type;
293
294 PROCEDURE Lock_Freight_Cost_Type(
295 p_rowid IN VARCHAR2
296 , p_freight_cost_type_info IN Freight_Cost_Type_Rec_Type
297 )
298 IS
299
300 CURSOR lock_row IS
301 SELECT *
302 FROM wsh_freight_cost_types
303 WHERE rowid = p_rowid
304 FOR UPDATE OF freight_cost_type_id NOWAIT;
305
306 Recinfo lock_row%ROWTYPE;
307
308 --
309 l_debug_on BOOLEAN;
310 --
311 l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'LOCK_FREIGHT_COST_TYPE';
312 --
313 BEGIN
314
315 --
316 -- Debug Statements
317 --
318 --
319 l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
320 --
321 IF l_debug_on IS NULL
322 THEN
323 l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
324 END IF;
325 --
326 IF l_debug_on THEN
327 WSH_DEBUG_SV.push(l_module_name);
328 --
329 WSH_DEBUG_SV.log(l_module_name,'P_ROWID',P_ROWID);
330 END IF;
331 --
332 OPEN lock_row;
333 FETCH lock_row INTO Recinfo;
334
335 IF (lock_row%NOTFOUND) THEN
336 CLOSE lock_row;
337 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
338 app_exception.raise_exception;
339 END IF;
340
341 CLOSE lock_row;
342 IF ( (Recinfo.freight_cost_type_id = p_freight_cost_type_info.freight_cost_type_id)
343 AND ( (Recinfo.name = p_freight_cost_type_info.name)
344 or (Recinfo.name is null
345 and p_freight_cost_type_info.name is null))
346 AND (Recinfo.freight_cost_type_code = p_freight_cost_type_info.freight_cost_type_code)
347 AND (Recinfo.amount = p_freight_cost_type_info.amount)
348 AND (Recinfo.currency_code = p_freight_cost_type_info.currency_code)
349 AND ( (Recinfo.description = p_freight_cost_type_info.description)
350 or (Recinfo.description is null
351 and p_freight_cost_type_info.description is null))
352 AND ( (Recinfo.start_date_active = p_freight_cost_type_info.start_date_active)
353 or (Recinfo.start_date_active is null
354 and p_freight_cost_type_info.start_date_active is null))
355 AND ( (Recinfo.end_date_active = p_freight_cost_type_info.end_date_active)
356 or (Recinfo.end_date_active is null
357 and p_freight_cost_type_info.end_date_active is null))
358 AND ( (Recinfo.attribute_category = p_freight_cost_type_info.attribute_category)
359 OR ( (p_freight_cost_type_info.attribute_category IS NULL)
360 AND (Recinfo.attribute_category IS NULL)))
361 AND ( (Recinfo.attribute1 = p_freight_cost_type_info.attribute1)
362 OR ( (p_freight_cost_type_info.attribute1 IS NULL)
363 AND (Recinfo.attribute1 IS NULL)))
364 AND ( (Recinfo.attribute2 = p_freight_cost_type_info.attribute2)
365 OR ( (p_freight_cost_type_info.attribute2 IS NULL)
366 AND (Recinfo.attribute2 IS NULL)))
367 AND ( (Recinfo.attribute3 = p_freight_cost_type_info.attribute3)
368 OR ( (p_freight_cost_type_info.attribute3 IS NULL)
369 AND (Recinfo.attribute3 IS NULL)))
370 AND ( (Recinfo.attribute4 = p_freight_cost_type_info.attribute4)
371 OR ( (p_freight_cost_type_info.attribute4 IS NULL)
372 AND (Recinfo.attribute4 IS NULL)))
373 AND ( (Recinfo.attribute5 = p_freight_cost_type_info.attribute5)
374 OR ( (p_freight_cost_type_info.attribute5 IS NULL)
375 AND (Recinfo.attribute5 IS NULL)))
376 AND ( (Recinfo.attribute6 = p_freight_cost_type_info.attribute6)
377 OR ( (p_freight_cost_type_info.attribute6 IS NULL)
378 AND (Recinfo.attribute6 IS NULL)))
379 AND ( (Recinfo.attribute7 = p_freight_cost_type_info.attribute7)
380 OR ( (p_freight_cost_type_info.attribute7 IS NULL)
381 AND (Recinfo.attribute7 IS NULL)))
382 AND ( (Recinfo.attribute8 = p_freight_cost_type_info.attribute8)
383 OR ( (p_freight_cost_type_info.attribute8 IS NULL)
384 AND (Recinfo.attribute8 IS NULL)))
385 AND ( (Recinfo.attribute9 = p_freight_cost_type_info.attribute9)
386 OR ( (p_freight_cost_type_info.attribute9 IS NULL)
387 AND (Recinfo.attribute9 IS NULL)))
388 AND ( (Recinfo.attribute10 = p_freight_cost_type_info.attribute10)
389 OR ( (p_freight_cost_type_info.attribute10 IS NULL)
390 AND (Recinfo.attribute10 IS NULL)))
391 AND ( (Recinfo.attribute11 = p_freight_cost_type_info.attribute11)
392 OR ( (p_freight_cost_type_info.attribute11 IS NULL)
393 AND (Recinfo.attribute11 IS NULL)))
394 AND ( (Recinfo.attribute12 = p_freight_cost_type_info.attribute12)
395 OR ( (p_freight_cost_type_info.attribute12 IS NULL)
396 AND (Recinfo.attribute12 IS NULL)))
397 AND ( (Recinfo.attribute13 = p_freight_cost_type_info.attribute13)
398 OR ( (p_freight_cost_type_info.attribute13 IS NULL)
399 AND (Recinfo.attribute13 IS NULL)))
400 AND ( (Recinfo.attribute14 = p_freight_cost_type_info.attribute14)
401 OR ( (p_freight_cost_type_info.attribute14 IS NULL)
402 AND (Recinfo.attribute14 IS NULL)))
403 AND ( (Recinfo.attribute15 = p_freight_cost_type_info.attribute15)
404 OR ( (p_freight_cost_type_info.attribute15 IS NULL)
405 AND (Recinfo.attribute15 IS NULL)))
406 AND (Recinfo.creation_date = p_freight_cost_type_info.creation_date)
407 AND (Recinfo.created_by = p_freight_cost_type_info.created_by)
408 AND (Recinfo.last_update_date = p_freight_cost_type_info.last_update_date)
409 AND (Recinfo.last_update_login = p_freight_cost_type_info.last_update_login)
410 ) THEN
411 --
412 -- Debug Statements
413 --
414 IF l_debug_on THEN
415 WSH_DEBUG_SV.pop(l_module_name);
416 END IF;
417 --
418 RETURN;
419 ELSE
420 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
421 app_exception.raise_exception;
422 END IF;
423
424 --
425 -- Debug Statements
426 --
427 IF l_debug_on THEN
428 WSH_DEBUG_SV.pop(l_module_name);
429 END IF;
430 --
431 EXCEPTION
432 WHEN others THEN
433 wsh_util_core.default_handler('WSH_FREIGHT_COST_TYPES_PVT.LOCK_FREIGHT_COST_TYPE');
434 --
435 -- Debug Statements
436 --
437 IF l_debug_on THEN
438 WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
439 WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
440 END IF;
441 --
442 raise;
443
444 --
445 -- Debug Statements
446 --
447 IF l_debug_on THEN
448 WSH_DEBUG_SV.pop(l_module_name);
449 END IF;
450 --
451 END Lock_Freight_Cost_Type;
452
453 PROCEDURE Delete_Freight_Cost_Type(
454 p_rowid IN VARCHAR2
455 , p_freight_cost_type_id IN NUMBER
456 , x_return_status OUT NOCOPY VARCHAR2
457 )
458 IS
459 CURSOR C_Get_Freight_cost_type_id
460 IS
461 SELECT freight_cost_type_id
462 FROM wsh_freight_cost_types
463 WHERE rowid = p_rowid;
464
465 l_freight_cost_type_id NUMBER;
466 row_not_found EXCEPTION;
467
468 --
469 l_debug_on BOOLEAN;
470 --
471 l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'DELETE_FREIGHT_COST_TYPE';
472 --
473 BEGIN
474 --
475 -- Debug Statements
476 --
477 --
478 l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
479 --
480 IF l_debug_on IS NULL
481 THEN
482 l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
483 END IF;
484 --
485 IF l_debug_on THEN
486 WSH_DEBUG_SV.push(l_module_name);
487 --
488 WSH_DEBUG_SV.log(l_module_name,'P_ROWID',P_ROWID);
489 WSH_DEBUG_SV.log(l_module_name,'P_FREIGHT_COST_TYPE_ID',P_FREIGHT_COST_TYPE_ID);
490 END IF;
491 --
492 x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
493 l_freight_cost_type_id := p_freight_cost_type_id;
494
495 IF (p_rowid IS NOT NULL) THEN
496 OPEN C_Get_freight_cost_type_id;
497 FETCH C_get_freight_cost_type_id INTO l_freight_cost_type_id;
498 CLOSE C_Get_Freight_cost_type_id;
499 END IF;
500
501 IF (l_freight_cost_type_id IS NOT NULL) THEN
502 DELETE FROM wsh_freight_cost_types
503 WHERE freight_cost_type_id = p_freight_cost_type_id;
504 ELSE
505 RAISE row_not_found;
506 END IF;
507
508 --
509 -- Debug Statements
510 --
511 IF l_debug_on THEN
512 WSH_DEBUG_SV.pop(l_module_name);
513 END IF;
514 --
515 EXCEPTION
516 WHEN row_not_found THEN
517 wsh_util_core.default_handler('WSH_FREIGHT_COST_TYPES_PVT.DELETE_FREIGHT_COST_TYPE');
518 x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
519 --
520 -- Debug Statements
521 --
522 IF l_debug_on THEN
523 WSH_DEBUG_SV.logmsg(l_module_name,'ROW_NOT_FOUND exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
524 WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:ROW_NOT_FOUND');
525 END IF;
526 --
527 WHEN others THEN
528 wsh_util_core.default_handler('WSH_FREIGHT_COST_TYPES_PVT.DELETE_FREIGHT_COST_TYPE');
529 x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
530 --
531 -- Debug Statements
532 --
533 IF l_debug_on THEN
534 WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
535 WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
536 END IF;
537 --
538 END Delete_Freight_Cost_Type;
539
540 END WSH_FREIGHT_COST_TYPES_PVT;