[Home] [Help]
PACKAGE BODY: APPS.WSH_PACKING_SLIPS_PVT
Source
1 PACKAGE BODY WSH_PACKING_SLIPS_PVT AS
2 -- $Header: WSHPSTHB.pls 120.0 2005/05/26 17:59:02 appldev noship $
3
4 --
5 G_PKG_NAME CONSTANT VARCHAR2(50) := 'WSH_PACKING_SLIPS_PVT';
6 --
7 PROCEDURE update_Row
8 ( p_api_version IN NUMBER
9 , p_init_msg_list IN VARCHAR2
10 , p_commit IN VARCHAR2
11 , p_validation_level IN NUMBER
12 , x_return_status OUT NOCOPY VARCHAR2
13 , x_msg_count OUT NOCOPY NUMBER
14 , x_msg_data OUT NOCOPY VARCHAR2
15 , p_entity_name IN VARCHAR2
16 , p_entity_id IN NUMBER
17 , p_document_type IN VARCHAR2
18 , p_reason_of_transport IN VARCHAR2
19 , p_description IN VARCHAR2
20 , p_document_number IN VARCHAR2
21 )
22 IS
23 l_ledger_id VARCHAR2(30); -- LE Uptake
24
25 wsh_update_document_error EXCEPTION;
26 /* Bug 2276586 */
27 l_delivery_id NUMBER;
28 delivery_id_locked exception ;
29 PRAGMA EXCEPTION_INIT(delivery_id_locked, -54);
30
31
32 --
33 l_debug_on BOOLEAN;
34 --
35 l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'UPDATE_ROW';
36 --
37 BEGIN
38 -- l_ledger_id := 1;
39
40 --
41 -- Debug Statements
42 --
43 --
44 l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
45 --
46 IF l_debug_on IS NULL
47 THEN
48 l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
49 END IF;
50 --
51 IF l_debug_on THEN
52 WSH_DEBUG_SV.push(l_module_name);
53 --
54 WSH_DEBUG_SV.log(l_module_name,'P_API_VERSION',P_API_VERSION);
55 WSH_DEBUG_SV.log(l_module_name,'P_INIT_MSG_LIST',P_INIT_MSG_LIST);
56 WSH_DEBUG_SV.log(l_module_name,'P_COMMIT',P_COMMIT);
57 WSH_DEBUG_SV.log(l_module_name,'P_VALIDATION_LEVEL',P_VALIDATION_LEVEL);
58 WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_NAME',P_ENTITY_NAME);
59 WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_ID',P_ENTITY_ID);
60 WSH_DEBUG_SV.log(l_module_name,'P_DOCUMENT_TYPE',P_DOCUMENT_TYPE);
61 WSH_DEBUG_SV.log(l_module_name,'P_REASON_OF_TRANSPORT',P_REASON_OF_TRANSPORT);
62 WSH_DEBUG_SV.log(l_module_name,'P_DESCRIPTION',P_DESCRIPTION);
63 WSH_DEBUG_SV.log(l_module_name,'P_DOCUMENT_NUMBER',P_DOCUMENT_NUMBER);
64 END IF;
65 -- LE Uptake
66 SELECT hoi.org_information1
67 INTO l_ledger_id
68 FROM hr_organization_information hoi,
69 wsh_new_deliveries wnd
70 WHERE wnd.delivery_id = p_entity_id
71 AND hoi.organization_id = wnd.organization_id
72 AND hoi.org_information_context = 'Accounting Information';
73
74 -- Bug 2276586
75 SELECT delivery_id
76 INTO l_delivery_id
77 FROM wsh_new_deliveries
78 WHERE delivery_id = p_entity_id
79 FOR UPDATE NOWAIT;
80
81 /* Changes for Shipping Data Model Bug#1918342*/
82
83 Update WSH_NEW_DELIVERIES
84 SET
85 reason_of_transport = p_reason_of_transport,
86 description = p_description,
87 last_updated_by = fnd_global.user_id,
88 last_update_date = sysdate,
89 last_update_login = fnd_global.login_id
90 WHERE delivery_id = p_entity_id;
91
92 -- update document
93 --
94 -- Debug Statements
95 --
96 IF l_debug_on THEN
97 WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DOCUMENT_PVT.UPDATE_DOCUMENT',WSH_DEBUG_SV.C_PROC_LEVEL);
98 END IF;
99 --
100 wsh_document_pvt.update_document
101 ( p_api_version
102 , p_init_msg_list
103 , p_commit
104 , p_validation_level
105 , x_return_status
106 , x_msg_count
107 , x_msg_data
108 , p_entity_name
109 , p_entity_id
110 , p_document_type
111 /* Commented for changes in the shipping datamodel bug#1918342
112 , NULL
113 , NULL
114 , NULL
115 , p_reason_of_transport
116 , p_description
117 , NULL
118 , NULL
119 , NULL
120 , NULL
121 , NULL
122 , NULL
123 , NULL
124 , NULL
125 , NULL
126 , NULL
127 , NULL
128 , NULL
129 , NULL
130 , NULL
131 , NULL
132 , NULL
133 , NULL
134 , NULL
135 , NULL
136 , NULL
137 , NULL
138 , NULL
139 , NULL
140 , NULL
141 , NULL
142 , NULL
143 , NULL
144 , NULL */
145 , l_ledger_id -- LE Uptake
146 , 'BOTH'
147 );
148
149 IF x_return_status <> 'S' THEN
150 RAISE wsh_update_document_error;
151 END IF;
152
153 --
154 -- Debug Statements
155 --
156 IF l_debug_on THEN
157 WSH_DEBUG_SV.pop(l_module_name);
158 END IF;
159 --
160 EXCEPTION
161 WHEN wsh_update_document_error THEN
162 x_return_status := FND_API.G_RET_STS_ERROR;
163 --FND_MESSAGE.SET_NAME('WSH', 'WSH_BOL_UPDATE_DOCUMENT_ERROR');
164 --WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
165
166 --
167 -- Debug Statements
168 --
169 IF l_debug_on THEN
170 WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UPDATE_DOCUMENT_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
171 WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UPDATE_DOCUMENT_ERROR');
172 END IF;
173 --
174 WHEN delivery_id_locked THEN
175 x_return_status := FND_API.G_RET_STS_ERROR;
176 FND_MESSAGE.SET_NAME('WSH', 'WSH_NO_LOCK');
177 WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
178
179 --
180 -- Debug Statements
181 --
182 IF l_debug_on THEN
183 WSH_DEBUG_SV.logmsg(l_module_name,'DELIVERY_ID_LOCKED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
184 WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:DELIVERY_ID_LOCKED');
185 END IF;
186 --
187 WHEN OTHERS THEN
188 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
189 --FND_MESSAGE.SET_NAME('WSH','WSH_UNEXP_ERROR');
190 --WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
191
192 --
193 -- Debug Statements
194 --
195 IF l_debug_on THEN
196 WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
197 WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
198 END IF;
199 --
200 END Update_Row;
201
202
203 PROCEDURE insert_row
204 (x_return_status IN OUT NOCOPY VARCHAR2,
205 x_msg_count IN OUT NOCOPY VARCHAR2,
206 x_msg_data IN OUT NOCOPY VARCHAR2,
207 p_entity_name IN VARCHAR2,
208 p_entity_id IN NUMBER,
209 p_application_id IN NUMBER,
210 p_location_id IN NUMBER,
211 p_document_type IN VARCHAR2,
212 p_document_sub_type IN VARCHAR2,
213 p_reason_of_transport IN VARCHAR2,
214 p_description IN VARCHAR2,
215 x_document_number IN OUT NOCOPY VARCHAR2
216 )
217 IS
218 x_rowid varchar2(30);
219 l_trip_info wsh_trips_pvt.trip_rec_type;
220 l_del_rows wsh_util_core.id_tab_type;
221 l_ledger_id VARCHAR2(30); -- LE Uptake
222
223 wsh_create_document_error EXCEPTION;
224
225 /* Bug 2276586 */
226 l_delivery_id NUMBER;
227 delivery_id_locked exception ;
228 PRAGMA EXCEPTION_INIT(delivery_id_locked, -54);
229
230 --
231 l_debug_on BOOLEAN;
232 --
233 l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'INSERT_ROW';
234 --
235 BEGIN
236 --
237 -- Debug Statements
238 --
239 --
240 l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
241 --
242 IF l_debug_on IS NULL
243 THEN
244 l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
245 END IF;
246 --
247 IF l_debug_on THEN
248 WSH_DEBUG_SV.push(l_module_name);
249 --
250 WSH_DEBUG_SV.log(l_module_name,'X_RETURN_STATUS',X_RETURN_STATUS);
251 WSH_DEBUG_SV.log(l_module_name,'X_MSG_COUNT',X_MSG_COUNT);
252 WSH_DEBUG_SV.log(l_module_name,'X_MSG_DATA',X_MSG_DATA);
253 WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_NAME',P_ENTITY_NAME);
254 WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_ID',P_ENTITY_ID);
255 WSH_DEBUG_SV.log(l_module_name,'P_APPLICATION_ID',P_APPLICATION_ID);
256 WSH_DEBUG_SV.log(l_module_name,'P_LOCATION_ID',P_LOCATION_ID);
257 WSH_DEBUG_SV.log(l_module_name,'P_DOCUMENT_TYPE',P_DOCUMENT_TYPE);
258 WSH_DEBUG_SV.log(l_module_name,'P_DOCUMENT_SUB_TYPE',P_DOCUMENT_SUB_TYPE);
259 WSH_DEBUG_SV.log(l_module_name,'P_REASON_OF_TRANSPORT',P_REASON_OF_TRANSPORT);
260 WSH_DEBUG_SV.log(l_module_name,'P_DESCRIPTION',P_DESCRIPTION);
261 WSH_DEBUG_SV.log(l_module_name,'X_DOCUMENT_NUMBER',X_DOCUMENT_NUMBER);
262 END IF;
263 --
264 -- LE Uptake
265 --l_ledger_id := 1;
266
267 SELECT hoi.org_information1
268 INTO l_ledger_id
269 FROM hr_organization_information hoi,
270 wsh_new_deliveries wnd
271 WHERE wnd.delivery_id = p_entity_id
272 AND hoi.organization_id = wnd.organization_id
273 AND hoi.org_information_context = 'Accounting Information';
274
275 -- Bug 2276586
276 SELECT delivery_id
277 INTO l_delivery_id
278 FROM wsh_new_deliveries
279 WHERE delivery_id = p_entity_id
280 FOR UPDATE NOWAIT;
281
282 /* Changes for Shipping DataModel Bug#1918342 */
283
284 Update WSH_NEW_DELIVERIES
285 SET
286 reason_of_transport = p_reason_of_transport,
287 description = p_description,
288 last_updated_by = fnd_global.user_id,
289 last_update_date = sysdate,
290 last_update_login = fnd_global.login_id
291 WHERE delivery_id = p_entity_id;
292
293
294 --
295 -- Debug Statements
296 --
297 IF l_debug_on THEN
298 WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DOCUMENT_PVT.CREATE_DOCUMENT',WSH_DEBUG_SV.C_PROC_LEVEL);
299 END IF;
300 --
301 wsh_document_pvt.create_document (
302 1.0,
303 'T',
304 NULL,
305 NULL,
306 x_return_status,
307 x_msg_count,
308 x_msg_data,
309 p_entity_name,
310 p_entity_id,
311 p_application_id,
312 p_location_id,
313 p_document_type,
314 p_document_sub_type,
315 /* Commented for changes in the Shipping Data Model Bug#1918342
316 null,
317 null,
318 null,
319 p_reason_of_transport,
320 p_description,
321 null,
322 null,
323 null,
324 null,
325 null,
326 null,
327 null,
328 null,
329 null,
330 null,
331 null,
332 null,
333 null,
334 null,
335 null,
336 null,
337 null,
338 null,
339 null,
340 null,
341 null,
342 null,
343 null,
344 null,
345 null,
346 null,
347 null,
348 null,*/
349 l_ledger_id, -- LE Uptake
350 'BOTH',
351 200,
352 x_document_number );
353
354 IF x_return_status <> 'S' THEN
355 RAISE wsh_create_document_error;
356 END IF;
357
358 --
359 -- Debug Statements
360 --
361 IF l_debug_on THEN
362 WSH_DEBUG_SV.pop(l_module_name);
363 END IF;
364 --
365 EXCEPTION
366 WHEN wsh_create_document_error THEN
367 x_return_status := FND_API.G_RET_STS_ERROR;
368 -- FND_MESSAGE.SET_NAME('WSH', 'WSH_BOL_CREATE_DOCUMENT_ERROR');
369 -- WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
370
371 --
372 -- Debug Statements
373 --
374 IF l_debug_on THEN
375 WSH_DEBUG_SV.logmsg(l_module_name,'WSH_CREATE_DOCUMENT_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
376 WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_CREATE_DOCUMENT_ERROR');
377 END IF;
378 --
379 WHEN delivery_id_locked THEN
380 x_return_status := FND_API.G_RET_STS_ERROR;
381 FND_MESSAGE.SET_NAME('WSH', 'WSH_NO_LOCK');
382 WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
383
384 --
385 -- Debug Statements
386 --
387 IF l_debug_on THEN
388 WSH_DEBUG_SV.logmsg(l_module_name,'DELIVERY_ID_LOCKED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
389 WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:DELIVERY_ID_LOCKED');
390 END IF;
391 --
392 WHEN OTHERS THEN
393 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
394 -- FND_MESSAGE.SET_NAME('WSH','WSH_UNEXP_ERROR');
395 -- WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
396
397 --
398 -- Debug Statements
399 --
400 IF l_debug_on THEN
401 WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
402 WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
403 END IF;
404 --
405 END Insert_Row;
406
407
408 PROCEDURE delete_row
409 ( p_api_version IN NUMBER
410 , p_init_msg_list IN VARCHAR2
411 , p_commit IN VARCHAR2
412 , p_validation_level IN NUMBER
413 , x_return_status OUT NOCOPY VARCHAR2
414 , x_msg_count OUT NOCOPY NUMBER
415 , x_msg_data OUT NOCOPY VARCHAR2
416 , p_entity_id IN NUMBER
417 , p_document_type IN VARCHAR2
418 , p_document_number IN VARCHAR2
419 )
420 IS
421 l_rowid VARCHAR2(30);
422
423 wsh_cancel_document_error EXCEPTION;
424 --
425 l_debug_on BOOLEAN;
426 --
427 l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'DELETE_ROW';
428 --
429 BEGIN
430
431 --
432 -- Debug Statements
433 --
434 --
435 l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
436 --
437 IF l_debug_on IS NULL
438 THEN
439 l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
440 END IF;
441 --
442 IF l_debug_on THEN
443 WSH_DEBUG_SV.push(l_module_name);
444 --
445 WSH_DEBUG_SV.log(l_module_name,'P_API_VERSION',P_API_VERSION);
446 WSH_DEBUG_SV.log(l_module_name,'P_INIT_MSG_LIST',P_INIT_MSG_LIST);
447 WSH_DEBUG_SV.log(l_module_name,'P_COMMIT',P_COMMIT);
448 WSH_DEBUG_SV.log(l_module_name,'P_VALIDATION_LEVEL',P_VALIDATION_LEVEL);
449 WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_ID',P_ENTITY_ID);
450 WSH_DEBUG_SV.log(l_module_name,'P_DOCUMENT_TYPE',P_DOCUMENT_TYPE);
451 WSH_DEBUG_SV.log(l_module_name,'P_DOCUMENT_NUMBER',P_DOCUMENT_NUMBER);
452 END IF;
453 --
454 --
455 -- Debug Statements
456 --
457 IF l_debug_on THEN
458 WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DOCUMENT_PVT.CANCEL_DOCUMENT',WSH_DEBUG_SV.C_PROC_LEVEL);
459 END IF;
460 --
461 wsh_document_pvt.cancel_document
462 (P_API_VERSION
463 , P_INIT_MSG_LIST
464 , P_COMMIT
465 , P_VALIDATION_LEVEL
466 , X_RETURN_STATUS
467 , X_MSG_COUNT
468 , X_MSG_DATA
469 , NULL
470 , p_ENTITY_ID
471 , P_DOCUMENT_TYPE
472 , 'BOTH'
473 );
474
475 --
476 -- Debug Statements
477 --
478 IF l_debug_on THEN
479 WSH_DEBUG_SV.pop(l_module_name);
480 END IF;
481 --
482 EXCEPTION
483 WHEN wsh_cancel_document_error THEN
484 x_return_status := FND_API.G_RET_STS_ERROR;
485 --FND_MESSAGE.SET_NAME('WSH', 'WSH_BOL_CANCEL_DOCUMENT_ERROR');
486 --WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
487 --
488 -- Debug Statements
489 --
490 IF l_debug_on THEN
491 WSH_DEBUG_SV.logmsg(l_module_name,'WSH_CANCEL_DOCUMENT_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
492 WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_CANCEL_DOCUMENT_ERROR');
493 END IF;
494 --
495 WHEN OTHERS THEN
496 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
497 --FND_MESSAGE.SET_NAME('WSH','WSH_UNEXP_ERROR');
498 --WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
499
500 --
501 -- Debug Statements
502 --
503 IF l_debug_on THEN
504 WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
505 WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
506 END IF;
507 --
508 END delete_row;
509 -- Procedure: Get_Disabled_List
510 --
511 -- Parameters: p_delivery_id -- delivery the detail is assigned to
512 -- p_list_type --
513 -- 'FORM', will return list of form field names
514 -- 'TABLE', will return list of table column names
515 -- x_return_status -- return status for execution of this API
516 -- x_disabled_list -- list of disabled field names
517 -- x_msg_count -- number of error message
518 -- x_msg_data -- error message if API failed
519 --
520 PROCEDURE Get_Disabled_List(
521 p_delivery_id IN NUMBER
522 , p_list_type IN VARCHAR2
523 , x_return_status OUT NOCOPY VARCHAR2
524 , x_disabled_list OUT NOCOPY WSH_UTIL_CORE.column_tab_type
525 , x_msg_count OUT NOCOPY NUMBER
526 , x_msg_data OUT NOCOPY VARCHAR2
527 )
528 IS
529 CURSOR get_delivery_status
530 IS
531 SELECT status_code
532 FROM wsh_new_deliveries
533 WHERE delivery_id = p_delivery_id;
534
535 i NUMBER :=0;
536 wsh_dp_no_entity EXCEPTION;
537 wsh_inv_list_type EXCEPTION;
538 l_msg_summary VARCHAR2(2000) := NULL;
539 l_msg_details VARCHAR2(4000) := NULL;
540 l_status_code VARCHAR2(2);
541 --
542 l_debug_on BOOLEAN;
543 --
544 l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'GET_DISABLED_LIST';
545 --
546 BEGIN
547 --
548 -- Debug Statements
549 --
550 --
551 l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
552 --
553 IF l_debug_on IS NULL
554 THEN
555 l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
556 END IF;
557 --
558 IF l_debug_on THEN
559 WSH_DEBUG_SV.push(l_module_name);
560 --
561 WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
562 WSH_DEBUG_SV.log(l_module_name,'P_LIST_TYPE',P_LIST_TYPE);
563 END IF;
564 --
565 x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
566
567 -- clear the disabled list first
568 x_disabled_list.delete;
569
570 IF (p_delivery_id IS NOT NULL) THEN
571 OPEN get_delivery_status;
572 FETCH get_delivery_status INTO l_status_code;
573 IF (get_delivery_status%NOTFOUND) THEN
574 CLOSE get_delivery_status;
575 RAISE wsh_dp_no_entity;
576 END IF;
577 CLOSE get_delivery_status;
578
579 IF (l_status_code IN ('CO', 'IT', 'CL', 'SR', 'SC')) THEN -- sperera 940/945
580 i:=i+1; x_disabled_list(i) := 'REASON_OF_TRANSPORT';
581 i:=i+1; x_disabled_list(i) := 'DESCRIPTION';
582 END IF;
583
584 END IF;
585
586
587
588 --
589 -- Debug Statements
590 --
591 IF l_debug_on THEN
592 WSH_DEBUG_SV.pop(l_module_name);
593 END IF;
594 --
595 EXCEPTION
596 WHEN wsh_dp_no_entity THEN
597 x_return_status := FND_API.G_RET_STS_ERROR;
598 FND_MESSAGE.SET_NAME('WSH', 'WSH_DP_NO_ENTITY');
599 WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
600 WSH_UTIL_CORE.get_messages('Y', l_msg_summary, l_msg_details, x_msg_count);
601 IF x_msg_count > 1 then
602 x_msg_data := l_msg_summary || l_msg_details;
603 ELSE
604 x_msg_data := l_msg_summary;
605 END IF;
606
607 --
608 -- Debug Statements
609 --
610 IF l_debug_on THEN
611 WSH_DEBUG_SV.logmsg(l_module_name,'WSH_DP_NO_ENTITY exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
612 WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_DP_NO_ENTITY');
613 END IF;
614 --
615 WHEN wsh_inv_list_type THEN
616 x_return_status := FND_API.G_RET_STS_ERROR;
617 FND_MESSAGE.SET_NAME('WSH', 'WSH_INV_LIST_TYPE');
618 WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
619 WSH_UTIL_CORE.get_messages('Y', l_msg_summary, l_msg_details, x_msg_count);
620 IF x_msg_count > 1 then
621 x_msg_data := l_msg_summary || l_msg_details;
622 ELSE
623 x_msg_data := l_msg_summary;
624 END IF;
625
626 --
627 -- Debug Statements
628 --
629 IF l_debug_on THEN
630 WSH_DEBUG_SV.logmsg(l_module_name,'WSH_INV_LIST_TYPE exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
631 WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_INV_LIST_TYPE');
632 END IF;
633 --
634 WHEN others THEN
635 IF (get_delivery_status%ISOPEN) THEN
636 CLOSE get_delivery_status;
637 END IF;
638 wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.get_disabled_list');
639 x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
640
641 --
642 -- Debug Statements
643 --
644 IF l_debug_on THEN
645 WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
646 WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
647 END IF;
648 --
649 END Get_Disabled_List;
650
651 END WSH_PACKING_SLIPS_PVT;