29: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
30: --
31: IF l_debug_on IS NULL
32: THEN
33: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
34: END IF;
35: --
36: WSH_DEBUG_SV.start_debug (p_entity_id);
37: IF l_debug_on THEN
32: THEN
33: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
34: END IF;
35: --
36: WSH_DEBUG_SV.start_debug (p_entity_id);
37: IF l_debug_on THEN
38: wsh_debug_sv.push(l_module_name, 'Send_Document');
39: wsh_debug_sv.log(l_module_name, 'p_entity_id',p_entity_id);
40: wsh_debug_sv.log(l_module_name, 'p_entity_type',p_entity_type);
34: END IF;
35: --
36: WSH_DEBUG_SV.start_debug (p_entity_id);
37: IF l_debug_on THEN
38: wsh_debug_sv.push(l_module_name, 'Send_Document');
39: wsh_debug_sv.log(l_module_name, 'p_entity_id',p_entity_id);
40: wsh_debug_sv.log(l_module_name, 'p_entity_type',p_entity_type);
41: wsh_debug_sv.log(l_module_name, 'p_action_type',p_action_type);
42: wsh_debug_sv.log(l_module_name, 'p_document_type',p_document_type);
35: --
36: WSH_DEBUG_SV.start_debug (p_entity_id);
37: IF l_debug_on THEN
38: wsh_debug_sv.push(l_module_name, 'Send_Document');
39: wsh_debug_sv.log(l_module_name, 'p_entity_id',p_entity_id);
40: wsh_debug_sv.log(l_module_name, 'p_entity_type',p_entity_type);
41: wsh_debug_sv.log(l_module_name, 'p_action_type',p_action_type);
42: wsh_debug_sv.log(l_module_name, 'p_document_type',p_document_type);
43: wsh_debug_sv.log(l_module_name, 'p_organization_id',p_organization_id);
36: WSH_DEBUG_SV.start_debug (p_entity_id);
37: IF l_debug_on THEN
38: wsh_debug_sv.push(l_module_name, 'Send_Document');
39: wsh_debug_sv.log(l_module_name, 'p_entity_id',p_entity_id);
40: wsh_debug_sv.log(l_module_name, 'p_entity_type',p_entity_type);
41: wsh_debug_sv.log(l_module_name, 'p_action_type',p_action_type);
42: wsh_debug_sv.log(l_module_name, 'p_document_type',p_document_type);
43: wsh_debug_sv.log(l_module_name, 'p_organization_id',p_organization_id);
44: END IF;
37: IF l_debug_on THEN
38: wsh_debug_sv.push(l_module_name, 'Send_Document');
39: wsh_debug_sv.log(l_module_name, 'p_entity_id',p_entity_id);
40: wsh_debug_sv.log(l_module_name, 'p_entity_type',p_entity_type);
41: wsh_debug_sv.log(l_module_name, 'p_action_type',p_action_type);
42: wsh_debug_sv.log(l_module_name, 'p_document_type',p_document_type);
43: wsh_debug_sv.log(l_module_name, 'p_organization_id',p_organization_id);
44: END IF;
45:
38: wsh_debug_sv.push(l_module_name, 'Send_Document');
39: wsh_debug_sv.log(l_module_name, 'p_entity_id',p_entity_id);
40: wsh_debug_sv.log(l_module_name, 'p_entity_type',p_entity_type);
41: wsh_debug_sv.log(l_module_name, 'p_action_type',p_action_type);
42: wsh_debug_sv.log(l_module_name, 'p_document_type',p_document_type);
43: wsh_debug_sv.log(l_module_name, 'p_organization_id',p_organization_id);
44: END IF;
45:
46: IF ( p_document_type = 'SR' ) THEN
39: wsh_debug_sv.log(l_module_name, 'p_entity_id',p_entity_id);
40: wsh_debug_sv.log(l_module_name, 'p_entity_type',p_entity_type);
41: wsh_debug_sv.log(l_module_name, 'p_action_type',p_action_type);
42: wsh_debug_sv.log(l_module_name, 'p_document_type',p_document_type);
43: wsh_debug_sv.log(l_module_name, 'p_organization_id',p_organization_id);
44: END IF;
45:
46: IF ( p_document_type = 'SR' ) THEN
47:
65: raise wsh_invalid_doc_type;
66: END IF;
67:
68: IF l_debug_on THEN
69: wsh_debug_sv.pop (l_module_name);
70: END IF;
71: WSH_DEBUG_SV.stop_debug;
72:
73: EXCEPTION
67:
68: IF l_debug_on THEN
69: wsh_debug_sv.pop (l_module_name);
70: END IF;
71: WSH_DEBUG_SV.stop_debug;
72:
73: EXCEPTION
74:
75: WHEN wsh_invalid_doc_type THEN
74:
75: WHEN wsh_invalid_doc_type THEN
76: x_return_status := wsh_util_core.g_ret_sts_error;
77: IF l_debug_on THEN
78: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_invalid_doc_type exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
79: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_invalid_doc_type');
80: END IF;
81: WHEN OTHERS THEN
82: x_return_status := wsh_util_core.g_ret_sts_unexp_error;
75: WHEN wsh_invalid_doc_type THEN
76: x_return_status := wsh_util_core.g_ret_sts_error;
77: IF l_debug_on THEN
78: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_invalid_doc_type exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
79: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_invalid_doc_type');
80: END IF;
81: WHEN OTHERS THEN
82: x_return_status := wsh_util_core.g_ret_sts_unexp_error;
83: IF l_debug_on THEN
80: END IF;
81: WHEN OTHERS THEN
82: x_return_status := wsh_util_core.g_ret_sts_unexp_error;
83: IF l_debug_on THEN
84: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
85: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
86: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
87: END IF;
88: END Send_Document;
81: WHEN OTHERS THEN
82: x_return_status := wsh_util_core.g_ret_sts_unexp_error;
83: IF l_debug_on THEN
84: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
85: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
86: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
87: END IF;
88: END Send_Document;
89:
82: x_return_status := wsh_util_core.g_ret_sts_unexp_error;
83: IF l_debug_on THEN
84: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
85: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
86: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
87: END IF;
88: END Send_Document;
89:
90: PROCEDURE Send_Shipment_Request ( p_entity_id IN NUMBER,
228: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
229: --
230: IF l_debug_on IS NULL
231: THEN
232: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
233: END IF;
234: --
235: IF l_debug_on THEN
236: wsh_debug_sv.push(l_module_name);
232: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
233: END IF;
234: --
235: IF l_debug_on THEN
236: wsh_debug_sv.push(l_module_name);
237: wsh_debug_sv.log(l_module_name, 'p_entity_id',p_entity_id);
238: wsh_debug_sv.log(l_module_name, 'p_entity_type',p_entity_type);
239: wsh_debug_sv.log(l_module_name, 'p_action_type',p_action_type);
240: wsh_debug_sv.log(l_module_name, 'p_document_type',p_document_type);
233: END IF;
234: --
235: IF l_debug_on THEN
236: wsh_debug_sv.push(l_module_name);
237: wsh_debug_sv.log(l_module_name, 'p_entity_id',p_entity_id);
238: wsh_debug_sv.log(l_module_name, 'p_entity_type',p_entity_type);
239: wsh_debug_sv.log(l_module_name, 'p_action_type',p_action_type);
240: wsh_debug_sv.log(l_module_name, 'p_document_type',p_document_type);
241: wsh_debug_sv.log(l_module_name, 'p_organization_id',p_organization_id);
234: --
235: IF l_debug_on THEN
236: wsh_debug_sv.push(l_module_name);
237: wsh_debug_sv.log(l_module_name, 'p_entity_id',p_entity_id);
238: wsh_debug_sv.log(l_module_name, 'p_entity_type',p_entity_type);
239: wsh_debug_sv.log(l_module_name, 'p_action_type',p_action_type);
240: wsh_debug_sv.log(l_module_name, 'p_document_type',p_document_type);
241: wsh_debug_sv.log(l_module_name, 'p_organization_id',p_organization_id);
242: END IF;
235: IF l_debug_on THEN
236: wsh_debug_sv.push(l_module_name);
237: wsh_debug_sv.log(l_module_name, 'p_entity_id',p_entity_id);
238: wsh_debug_sv.log(l_module_name, 'p_entity_type',p_entity_type);
239: wsh_debug_sv.log(l_module_name, 'p_action_type',p_action_type);
240: wsh_debug_sv.log(l_module_name, 'p_document_type',p_document_type);
241: wsh_debug_sv.log(l_module_name, 'p_organization_id',p_organization_id);
242: END IF;
243:
236: wsh_debug_sv.push(l_module_name);
237: wsh_debug_sv.log(l_module_name, 'p_entity_id',p_entity_id);
238: wsh_debug_sv.log(l_module_name, 'p_entity_type',p_entity_type);
239: wsh_debug_sv.log(l_module_name, 'p_action_type',p_action_type);
240: wsh_debug_sv.log(l_module_name, 'p_document_type',p_document_type);
241: wsh_debug_sv.log(l_module_name, 'p_organization_id',p_organization_id);
242: END IF;
243:
244:
237: wsh_debug_sv.log(l_module_name, 'p_entity_id',p_entity_id);
238: wsh_debug_sv.log(l_module_name, 'p_entity_type',p_entity_type);
239: wsh_debug_sv.log(l_module_name, 'p_action_type',p_action_type);
240: wsh_debug_sv.log(l_module_name, 'p_document_type',p_document_type);
241: wsh_debug_sv.log(l_module_name, 'p_organization_id',p_organization_id);
242: END IF;
243:
244:
245: l_wh_type := WSH_EXTERNAL_INTERFACE_SV.Get_Warehouse_Type(p_organization_id => p_organization_id,
246: x_return_status => x_return_status,
247: p_delivery_id => p_entity_id);
248:
249: IF l_debug_on THEN
250: wsh_debug_sv.log(l_module_name, 'l_wh_type,x_return_status',l_wh_type||','||x_return_status);
251: END IF;
252:
253: IF ( l_wh_type IS NULL ) THEN
254: select organization_code
258: raise wsh_incorrect_org;
259: END IF;
260:
261: IF l_debug_on THEN
262: wsh_debug_sv.log(l_module_name, 'l_org_code',l_org_code);
263: END IF;
264:
265: open del_name_cur;
266: Fetch del_name_cur into l_entity_number, l_customer_id;
266: Fetch del_name_cur into l_entity_number, l_customer_id;
267: close del_name_cur;
268:
269: IF l_debug_on THEN
270: wsh_debug_sv.log(l_module_name, 'l_entity_number,l_customer_id',l_entity_number||','||l_customer_id);
271: END IF;
272: IF l_customer_id IS NULL THEN
273: raise wsh_invalid_customer;
274: END IF;
284: l_txns_history_rec.item_type := 'WSHSUPI';
285:
286: select to_char(WSH_DOCUMENT_NUMBER_S.nextval) into l_txns_history_rec.document_number from dual;
287: IF l_debug_on THEN
288: wsh_debug_sv.log(l_module_name, 'DOCUMENT_NUMBER',l_txns_history_rec.document_number);
289: END IF;
290:
291: /* K proj
292: IF ( l_wh_type = 'CMS' and p_action_type = 'D' ) THEN
295: */
296: l_txns_history_rec.event_name := 'oracle.apps.wsh.sup.ssro';
297: --END IF;
298: IF l_debug_on THEN
299: wsh_debug_sv.log (l_module_name, 'Action Type ' , p_action_type);
300: wsh_debug_sv.log (l_module_name, 'Delivery Id ' , p_entity_id);
301: wsh_debug_sv.log (l_module_name, 'Document Type ' , p_document_type);
302: END IF;
303: IF ( p_action_type = 'A' ) THEN
296: l_txns_history_rec.event_name := 'oracle.apps.wsh.sup.ssro';
297: --END IF;
298: IF l_debug_on THEN
299: wsh_debug_sv.log (l_module_name, 'Action Type ' , p_action_type);
300: wsh_debug_sv.log (l_module_name, 'Delivery Id ' , p_entity_id);
301: wsh_debug_sv.log (l_module_name, 'Document Type ' , p_document_type);
302: END IF;
303: IF ( p_action_type = 'A' ) THEN
304:
297: --END IF;
298: IF l_debug_on THEN
299: wsh_debug_sv.log (l_module_name, 'Action Type ' , p_action_type);
300: wsh_debug_sv.log (l_module_name, 'Delivery Id ' , p_entity_id);
301: wsh_debug_sv.log (l_module_name, 'Document Type ' , p_document_type);
302: END IF;
303: IF ( p_action_type = 'A' ) THEN
304:
305: IF ( WSH_DELIVERY_UTIL.Is_SendDoc_Allowed( p_entity_id,
317: x_exception_exist => x_exception_exist,
318: x_severity_present => x_severity_present,
319: x_return_status => x_return_status);
320: IF l_debug_on THEN
321: wsh_debug_sv.log(l_module_name, 'check_exception x_exception_exist,x_severity_present,x_return_status',x_exception_exist||','||x_severity_present||','||x_return_status);
322: END IF;
323:
324: IF (x_exception_exist = 'Y') THEN
325: raise wsh_details_exceptions;
333: p_source_code => 'OE',
334: p_init_flag => 'Y',
335: x_return_status => x_return_status);
336: IF l_debug_on THEN
337: wsh_debug_sv.log(l_module_name, 'check_credit_holds x_return_status',x_return_status);
338: END IF;
339:
340: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
341: raise wsh_details_credit_hold;
362: (p_delivery_id => p_entity_id,
363: x_return_status => x_return_status);
364:
365: IF l_debug_on THEN
366: wsh_debug_sv.log(l_module_name, 'Del_Assigned_To_Trip x_return_status',x_return_status);
367: END IF;
368: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
369: IF l_debug_on THEN
370: wsh_debug_sv.pop(l_module_name, 'RETURN');
366: wsh_debug_sv.log(l_module_name, 'Del_Assigned_To_Trip x_return_status',x_return_status);
367: END IF;
368: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
369: IF l_debug_on THEN
370: wsh_debug_sv.pop(l_module_name, 'RETURN');
371: END IF;
372: RETURN;
373: ELSIF l_assigned_to_trip = 'Y' THEN
374: raise wsh_del_assign_to_trip;
413: where delivery_id = p_entity_id
414: for update nowait;
415:
416: IF l_debug_on THEN
417: wsh_debug_sv.log (l_module_name,'Update_Dlvy_Status-> x_return_status: ',x_return_status);
418: END IF;
419:
420: IF ( x_return_status not in (WSH_UTIL_CORE.G_RET_STS_SUCCESS,WSH_UTIL_CORE.G_RET_STS_WARNING) ) THEN
421: raise wsh_insert_history_error;
427: WSH_EXTERNAL_INTERFACE_SV.RAISE_EVENT(l_txns_history_rec,
428: NULL,
429: x_return_status);
430: IF l_debug_on THEN
431: wsh_debug_sv.log (l_module_name,'RAISE_EVENT x_return_status: ',x_return_status);
432: END IF;
433: IF ( x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
434: raise wsh_raise_event_error;
435: END IF;
472: x_return_status);
473:
474: --commit;
475: IF l_debug_on THEN
476: wsh_debug_sv.log (l_module_name,'Update_Dlvy_Status-> x_return_status: ',x_return_status);
477: END IF;
478:
479: WSH_EXTERNAL_INTERFACE_SV.RAISE_EVENT(l_txns_history_rec,
480: NULL,
479: WSH_EXTERNAL_INTERFACE_SV.RAISE_EVENT(l_txns_history_rec,
480: NULL,
481: x_return_status);
482: IF l_debug_on THEN
483: wsh_debug_sv.log (l_module_name,'RAISE_EVENT x_return_status: ',x_return_status);
484: END IF;
485: IF ( x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
486: raise wsh_raise_event_error;
487: END IF;
498: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
499: END IF;
500:
501: IF l_debug_on THEN
502: wsh_debug_sv.pop (l_module_name);
503: END IF;
504: EXCEPTION
505: WHEN wsh_incorrect_org THEN
506: x_return_status := wsh_util_core.g_ret_sts_error;
507: FND_MESSAGE.Set_Name('WSH', 'WSH_INCORRECT_ORG');
508: FND_MESSAGE.Set_Token('ORG_CODE', l_org_code);
509: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
510: IF l_debug_on THEN
511: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_incorrect_org exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
512: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_incorrect_org');
513: END IF;
514: WHEN wsh_invalid_delivery THEN
515: x_return_status := wsh_util_core.g_ret_sts_error;
508: FND_MESSAGE.Set_Token('ORG_CODE', l_org_code);
509: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
510: IF l_debug_on THEN
511: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_incorrect_org exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
512: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_incorrect_org');
513: END IF;
514: WHEN wsh_invalid_delivery THEN
515: x_return_status := wsh_util_core.g_ret_sts_error;
516: FND_MESSAGE.Set_Name('WSH', 'WSH_INCOMPLETE_DELIVERY');
516: FND_MESSAGE.Set_Name('WSH', 'WSH_INCOMPLETE_DELIVERY');
517: FND_MESSAGE.Set_Token('DEL_NAME', l_entity_number);
518: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
519: IF l_debug_on THEN
520: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_invalid_delivery exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
521: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_invalid_delivery');
522: END IF;
523: WHEN wsh_details_not_packed THEN
524: x_return_status := wsh_util_core.g_ret_sts_error;
517: FND_MESSAGE.Set_Token('DEL_NAME', l_entity_number);
518: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
519: IF l_debug_on THEN
520: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_invalid_delivery exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
521: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_invalid_delivery');
522: END IF;
523: WHEN wsh_details_not_packed THEN
524: x_return_status := wsh_util_core.g_ret_sts_error;
525: FND_MESSAGE.Set_Name('WSH', 'WSH_DEL_PACK_ITEMS_UNPACKED');
525: FND_MESSAGE.Set_Name('WSH', 'WSH_DEL_PACK_ITEMS_UNPACKED');
526: FND_MESSAGE.Set_Token('DEL_NAME', l_entity_number);
527: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
528: IF l_debug_on THEN
529: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_details_not_packed exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
530: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_details_not_packed');
531: END IF;
532: WHEN wsh_tpw_del_det_rel_stat THEN
533: x_return_status := wsh_util_core.g_ret_sts_error;
526: FND_MESSAGE.Set_Token('DEL_NAME', l_entity_number);
527: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
528: IF l_debug_on THEN
529: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_details_not_packed exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
530: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_details_not_packed');
531: END IF;
532: WHEN wsh_tpw_del_det_rel_stat THEN
533: x_return_status := wsh_util_core.g_ret_sts_error;
534: FND_MESSAGE.Set_Name('WSH', 'WSH_TPW_DEL_DET_REL_STAT');
534: FND_MESSAGE.Set_Name('WSH', 'WSH_TPW_DEL_DET_REL_STAT');
535: FND_MESSAGE.Set_Token('DEL_NAME', l_entity_number);
536: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
537: IF l_debug_on THEN
538: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_tpw_del_det_rel_stat exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
539: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_tpw_del_det_rel_stat');
540: END IF;
541: WHEN wsh_cms_del_det_rel_stat THEN
542: x_return_status := wsh_util_core.g_ret_sts_error;
535: FND_MESSAGE.Set_Token('DEL_NAME', l_entity_number);
536: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
537: IF l_debug_on THEN
538: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_tpw_del_det_rel_stat exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
539: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_tpw_del_det_rel_stat');
540: END IF;
541: WHEN wsh_cms_del_det_rel_stat THEN
542: x_return_status := wsh_util_core.g_ret_sts_error;
543: FND_MESSAGE.Set_Name('WSH', 'WSH_CMS_DEL_DET_REL_STAT');
543: FND_MESSAGE.Set_Name('WSH', 'WSH_CMS_DEL_DET_REL_STAT');
544: FND_MESSAGE.Set_Token('DEL_NAME', l_entity_number);
545: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
546: IF l_debug_on THEN
547: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_cms_del_det_rel_stat exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
548: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_cms_del_det_rel_stat');
549: END IF;
550: WHEN wsh_insert_history_error THEN
551: IF ( p_action_type = 'A' ) THEN
544: FND_MESSAGE.Set_Token('DEL_NAME', l_entity_number);
545: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
546: IF l_debug_on THEN
547: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_cms_del_det_rel_stat exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
548: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_cms_del_det_rel_stat');
549: END IF;
550: WHEN wsh_insert_history_error THEN
551: IF ( p_action_type = 'A' ) THEN
552: WSH_DELIVERY_UTIL.Update_Dlvy_Status (p_entity_id,
563: --commit;
564: x_return_status := wsh_util_core.g_ret_sts_error;
565: END IF;
566: IF l_debug_on THEN
567: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_insert_history_error exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
568: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_insert_history_error');
569: END IF;
570: WHEN wsh_raise_event_error THEN
571: IF ( p_action_type = 'A' ) THEN
564: x_return_status := wsh_util_core.g_ret_sts_error;
565: END IF;
566: IF l_debug_on THEN
567: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_insert_history_error exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
568: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_insert_history_error');
569: END IF;
570: WHEN wsh_raise_event_error THEN
571: IF ( p_action_type = 'A' ) THEN
572: WSH_DELIVERY_UTIL.Update_Dlvy_Status (p_entity_id,
585: ELSE
586: x_return_status := wsh_util_core.g_ret_sts_error;
587: END IF;
588: IF l_debug_on THEN
589: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_raise_event_error exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
590: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_raise_event_error');
591: END IF;
592: WHEN wsh_delivery_locked THEN
593: x_return_status := wsh_util_core.g_ret_sts_error;
586: x_return_status := wsh_util_core.g_ret_sts_error;
587: END IF;
588: IF l_debug_on THEN
589: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_raise_event_error exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
590: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_raise_event_error');
591: END IF;
592: WHEN wsh_delivery_locked THEN
593: x_return_status := wsh_util_core.g_ret_sts_error;
594: FND_MESSAGE.Set_Name('WSH', 'WSH_DELIVERY_LOCKED');
594: FND_MESSAGE.Set_Name('WSH', 'WSH_DELIVERY_LOCKED');
595: FND_MESSAGE.Set_Token('DEL_NAME', l_entity_number);
596: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
597: IF l_debug_on THEN
598: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_delivery_locked exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
599: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_delivery_locked');
600: END IF;
601: WHEN wsh_cancel_disallowed THEN
602: x_return_status := wsh_util_core.g_ret_sts_error;
595: FND_MESSAGE.Set_Token('DEL_NAME', l_entity_number);
596: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
597: IF l_debug_on THEN
598: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_delivery_locked exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
599: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_delivery_locked');
600: END IF;
601: WHEN wsh_cancel_disallowed THEN
602: x_return_status := wsh_util_core.g_ret_sts_error;
603: FND_MESSAGE.Set_Name('WSH', 'WSH_CANCEL_DISALLOWED');
603: FND_MESSAGE.Set_Name('WSH', 'WSH_CANCEL_DISALLOWED');
604: FND_MESSAGE.Set_Token('DEL_NAME', l_entity_number);
605: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
606: IF l_debug_on THEN
607: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_cancel_disallowed exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
608: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_cancel_disallowed');
609: END IF;
610: WHEN wsh_del_assign_to_trip THEN
611: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_OUTBOUND_FAILED_TRIP');
604: FND_MESSAGE.Set_Token('DEL_NAME', l_entity_number);
605: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
606: IF l_debug_on THEN
607: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_cancel_disallowed exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
608: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_cancel_disallowed');
609: END IF;
610: WHEN wsh_del_assign_to_trip THEN
611: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_OUTBOUND_FAILED_TRIP');
612: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_entity_id));
612: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_entity_id));
613: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
614: wsh_util_core.add_message(x_return_status,l_module_name);
615: IF l_debug_on THEN
616: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_del_assign_to_trip exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
617: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_del_assign_to_trip');
618: END IF;
619: WHEN wsh_details_exceptions THEN
620: FND_MESSAGE.SET_NAME('WSH','WSH_XC_EXIST_DET');
613: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
614: wsh_util_core.add_message(x_return_status,l_module_name);
615: IF l_debug_on THEN
616: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_del_assign_to_trip exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
617: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_del_assign_to_trip');
618: END IF;
619: WHEN wsh_details_exceptions THEN
620: FND_MESSAGE.SET_NAME('WSH','WSH_XC_EXIST_DET');
621: FND_MESSAGE.SET_TOKEN('DEL_DET_ID', to_char(l_delivery_detail_id));
621: FND_MESSAGE.SET_TOKEN('DEL_DET_ID', to_char(l_delivery_detail_id));
622: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
623: wsh_util_core.add_message(x_return_status,l_module_name);
624: IF l_debug_on THEN
625: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_details_exceptions exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
626: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_details_exceptions');
627: END IF;
628: WHEN wsh_details_credit_hold THEN
629: FND_MESSAGE.SET_NAME('WSH','WSH_SR_CREDIT_HOLD_ERR');
622: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
623: wsh_util_core.add_message(x_return_status,l_module_name);
624: IF l_debug_on THEN
625: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_details_exceptions exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
626: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_details_exceptions');
627: END IF;
628: WHEN wsh_details_credit_hold THEN
629: FND_MESSAGE.SET_NAME('WSH','WSH_SR_CREDIT_HOLD_ERR');
630: FND_MESSAGE.SET_TOKEN('DEL_NAME',l_entity_number);
631: FND_MESSAGE.SET_TOKEN('DET_NAME',to_char(l_delivery_detail_id));
632: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
633: wsh_util_core.add_message(x_return_status,l_module_name);
634: IF l_debug_on THEN
635: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_details_credit_hold exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
636: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_details_credit_hold ');
637: END IF;
638: WHEN wsh_invalid_customer THEN
639: FND_MESSAGE.SET_NAME('WSH','WSH_NO_CUST_DEF_ERROR');
632: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
633: wsh_util_core.add_message(x_return_status,l_module_name);
634: IF l_debug_on THEN
635: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_details_credit_hold exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
636: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_details_credit_hold ');
637: END IF;
638: WHEN wsh_invalid_customer THEN
639: FND_MESSAGE.SET_NAME('WSH','WSH_NO_CUST_DEF_ERROR');
640: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_entity_id));
640: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_entity_id));
641: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
642: wsh_util_core.add_message(x_return_status,l_module_name);
643: IF l_debug_on THEN
644: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_invalid_customer exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
645: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_invalid_customer');
646: END IF;
647: WHEN others THEN
648: x_return_status := wsh_util_core.g_ret_sts_unexp_error;
641: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
642: wsh_util_core.add_message(x_return_status,l_module_name);
643: IF l_debug_on THEN
644: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_invalid_customer exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
645: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_invalid_customer');
646: END IF;
647: WHEN others THEN
648: x_return_status := wsh_util_core.g_ret_sts_unexp_error;
649: IF l_debug_on THEN
646: END IF;
647: WHEN others THEN
648: x_return_status := wsh_util_core.g_ret_sts_unexp_error;
649: IF l_debug_on THEN
650: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
651: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
652: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
653: END IF;
654: END Send_Shipment_Request;
647: WHEN others THEN
648: x_return_status := wsh_util_core.g_ret_sts_unexp_error;
649: IF l_debug_on THEN
650: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
651: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
652: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
653: END IF;
654: END Send_Shipment_Request;
655:
648: x_return_status := wsh_util_core.g_ret_sts_unexp_error;
649: IF l_debug_on THEN
650: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
651: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
652: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
653: END IF;
654: END Send_Shipment_Request;
655:
656: PROCEDURE Get_Event_Key(p_item_type IN VARCHAR2 DEFAULT NULL,
695: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
696: --
697: IF l_debug_on IS NULL
698: THEN
699: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
700: END IF;
701: --
702: IF l_debug_on THEN
703: wsh_debug_sv.push(l_module_name, 'Get_Event_Key');
699: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
700: END IF;
701: --
702: IF l_debug_on THEN
703: wsh_debug_sv.push(l_module_name, 'Get_Event_Key');
704: wsh_debug_sv.log (l_module_name, 'Event Name ' , p_event_name);
705: wsh_debug_sv.log (l_module_name, 'Organization Id ' , p_organization_id);
706: wsh_debug_sv.log (l_module_name, 'Delivery Name ' , p_delivery_name);
707: wsh_debug_sv.log (l_module_name, 'Event Code ' , l_event_code);
700: END IF;
701: --
702: IF l_debug_on THEN
703: wsh_debug_sv.push(l_module_name, 'Get_Event_Key');
704: wsh_debug_sv.log (l_module_name, 'Event Name ' , p_event_name);
705: wsh_debug_sv.log (l_module_name, 'Organization Id ' , p_organization_id);
706: wsh_debug_sv.log (l_module_name, 'Delivery Name ' , p_delivery_name);
707: wsh_debug_sv.log (l_module_name, 'Event Code ' , l_event_code);
708: END IF;
701: --
702: IF l_debug_on THEN
703: wsh_debug_sv.push(l_module_name, 'Get_Event_Key');
704: wsh_debug_sv.log (l_module_name, 'Event Name ' , p_event_name);
705: wsh_debug_sv.log (l_module_name, 'Organization Id ' , p_organization_id);
706: wsh_debug_sv.log (l_module_name, 'Delivery Name ' , p_delivery_name);
707: wsh_debug_sv.log (l_module_name, 'Event Code ' , l_event_code);
708: END IF;
709:
702: IF l_debug_on THEN
703: wsh_debug_sv.push(l_module_name, 'Get_Event_Key');
704: wsh_debug_sv.log (l_module_name, 'Event Name ' , p_event_name);
705: wsh_debug_sv.log (l_module_name, 'Organization Id ' , p_organization_id);
706: wsh_debug_sv.log (l_module_name, 'Delivery Name ' , p_delivery_name);
707: wsh_debug_sv.log (l_module_name, 'Event Code ' , l_event_code);
708: END IF;
709:
710: x_return_status := wsh_util_core.g_ret_sts_success;
703: wsh_debug_sv.push(l_module_name, 'Get_Event_Key');
704: wsh_debug_sv.log (l_module_name, 'Event Name ' , p_event_name);
705: wsh_debug_sv.log (l_module_name, 'Organization Id ' , p_organization_id);
706: wsh_debug_sv.log (l_module_name, 'Delivery Name ' , p_delivery_name);
707: wsh_debug_sv.log (l_module_name, 'Event Code ' , l_event_code);
708: END IF;
709:
710: x_return_status := wsh_util_core.g_ret_sts_success;
711: l_event_code := UPPER(SUBSTRB (p_event_name, INSTRB(p_event_name, '.', -1) + 1));
723: x_return_status => x_return_status,
724: p_delivery_id => l_delivery_id
725: );
726: IF l_debug_on THEN
727: wsh_debug_sv.log (l_module_name,'Get_Warehouse_Type l_wh_type,x_return_status',l_wh_type||','||x_return_status );
728: END IF;
729: ELSE
730: raise wsh_invalid_delivery_name;
731: END IF;
737: raise wsh_invalid_event_name;
738: END IF;
739:
740: IF l_debug_on THEN
741: WSH_DEBUG_SV.log(l_module_name, 'Event Key'|| x_event_key);
742: wsh_debug_sv.pop(l_module_name);
743: END IF;
744: EXCEPTION
745:
738: END IF;
739:
740: IF l_debug_on THEN
741: WSH_DEBUG_SV.log(l_module_name, 'Event Key'|| x_event_key);
742: wsh_debug_sv.pop(l_module_name);
743: END IF;
744: EXCEPTION
745:
746: WHEN wsh_invalid_event_name THEN
745:
746: WHEN wsh_invalid_event_name THEN
747: x_return_status := wsh_util_core.g_ret_sts_error;
748: IF l_debug_on THEN
749: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_invalid_event_name exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
750: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_invalid_event_name');
751: END IF;
752: WHEN wsh_invalid_delivery_name THEN
753: x_return_status := wsh_util_core.g_ret_sts_error;
746: WHEN wsh_invalid_event_name THEN
747: x_return_status := wsh_util_core.g_ret_sts_error;
748: IF l_debug_on THEN
749: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_invalid_event_name exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
750: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_invalid_event_name');
751: END IF;
752: WHEN wsh_invalid_delivery_name THEN
753: x_return_status := wsh_util_core.g_ret_sts_error;
754: IF l_debug_on THEN
751: END IF;
752: WHEN wsh_invalid_delivery_name THEN
753: x_return_status := wsh_util_core.g_ret_sts_error;
754: IF l_debug_on THEN
755: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_invalid_delivery_name exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
756: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_invalid_delivery_name');
757: END IF;
758: WHEN others THEN
759: x_return_status := wsh_util_core.g_ret_sts_unexp_error;
752: WHEN wsh_invalid_delivery_name THEN
753: x_return_status := wsh_util_core.g_ret_sts_error;
754: IF l_debug_on THEN
755: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_invalid_delivery_name exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
756: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_invalid_delivery_name');
757: END IF;
758: WHEN others THEN
759: x_return_status := wsh_util_core.g_ret_sts_unexp_error;
760: IF l_debug_on THEN
757: END IF;
758: WHEN others THEN
759: x_return_status := wsh_util_core.g_ret_sts_unexp_error;
760: IF l_debug_on THEN
761: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
762: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
763: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
764: END IF;
765: END Get_Event_Key;
758: WHEN others THEN
759: x_return_status := wsh_util_core.g_ret_sts_unexp_error;
760: IF l_debug_on THEN
761: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
762: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
763: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
764: END IF;
765: END Get_Event_Key;
766:
759: x_return_status := wsh_util_core.g_ret_sts_unexp_error;
760: IF l_debug_on THEN
761: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
762: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
763: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
764: END IF;
765: END Get_Event_Key;
766:
767:
797: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
798: --
799: IF l_debug_on IS NULL
800: THEN
801: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
802: END IF;
803: --
804: IF l_debug_on THEN
805: wsh_debug_sv.push(l_module_name, 'Unlock_Delivery_WF');
801: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
802: END IF;
803: --
804: IF l_debug_on THEN
805: wsh_debug_sv.push(l_module_name, 'Unlock_Delivery_WF');
806: wsh_debug_sv.log(l_module_name, 'item_type',item_type);
807: wsh_debug_sv.log(l_module_name, 'item_key',item_key);
808: wsh_debug_sv.log(l_module_name, 'actid',actid);
809: wsh_debug_sv.log(l_module_name, 'funcmode',funcmode);
802: END IF;
803: --
804: IF l_debug_on THEN
805: wsh_debug_sv.push(l_module_name, 'Unlock_Delivery_WF');
806: wsh_debug_sv.log(l_module_name, 'item_type',item_type);
807: wsh_debug_sv.log(l_module_name, 'item_key',item_key);
808: wsh_debug_sv.log(l_module_name, 'actid',actid);
809: wsh_debug_sv.log(l_module_name, 'funcmode',funcmode);
810: END IF;
803: --
804: IF l_debug_on THEN
805: wsh_debug_sv.push(l_module_name, 'Unlock_Delivery_WF');
806: wsh_debug_sv.log(l_module_name, 'item_type',item_type);
807: wsh_debug_sv.log(l_module_name, 'item_key',item_key);
808: wsh_debug_sv.log(l_module_name, 'actid',actid);
809: wsh_debug_sv.log(l_module_name, 'funcmode',funcmode);
810: END IF;
811:
804: IF l_debug_on THEN
805: wsh_debug_sv.push(l_module_name, 'Unlock_Delivery_WF');
806: wsh_debug_sv.log(l_module_name, 'item_type',item_type);
807: wsh_debug_sv.log(l_module_name, 'item_key',item_key);
808: wsh_debug_sv.log(l_module_name, 'actid',actid);
809: wsh_debug_sv.log(l_module_name, 'funcmode',funcmode);
810: END IF;
811:
812:
805: wsh_debug_sv.push(l_module_name, 'Unlock_Delivery_WF');
806: wsh_debug_sv.log(l_module_name, 'item_type',item_type);
807: wsh_debug_sv.log(l_module_name, 'item_key',item_key);
808: wsh_debug_sv.log(l_module_name, 'actid',actid);
809: wsh_debug_sv.log(l_module_name, 'funcmode',funcmode);
810: END IF;
811:
812:
813: IF ( funcmode = 'RUN' ) THEN
824: NULL,
825: NULL,
826: l_return_status);
827: IF l_debug_on THEN
828: wsh_debug_sv.log(l_module_name, 'l_return_status',l_return_status);
829: END IF;
830:
831: IF ( l_return_status not in (WSH_UTIL_CORE.G_RET_STS_SUCCESS,WSH_UTIL_CORE.G_RET_STS_WARNING) ) THEN
832: raise wsh_unlock_error;
832: raise wsh_unlock_error;
833: ELSE
834: resultout := 'COMPLETE:SUCCESS';
835: IF l_debug_on THEN
836: wsh_debug_sv.log(l_module_name, 'resultout',resultout);
837: wsh_debug_sv.pop (l_module_name,'RETURN');
838: END IF;
839: RETURN;
840: END IF;
833: ELSE
834: resultout := 'COMPLETE:SUCCESS';
835: IF l_debug_on THEN
836: wsh_debug_sv.log(l_module_name, 'resultout',resultout);
837: wsh_debug_sv.pop (l_module_name,'RETURN');
838: END IF;
839: RETURN;
840: END IF;
841:
841:
842: END IF;
843:
844: IF l_debug_on THEN
845: wsh_debug_sv.log(l_module_name, 'resultout',resultout);
846: wsh_debug_sv.pop (l_module_name);
847: END IF;
848: EXCEPTION
849: WHEN wsh_del_not_found THEN
842: END IF;
843:
844: IF l_debug_on THEN
845: wsh_debug_sv.log(l_module_name, 'resultout',resultout);
846: wsh_debug_sv.pop (l_module_name);
847: END IF;
848: EXCEPTION
849: WHEN wsh_del_not_found THEN
850: resultout := 'COMPLETE:FAILURE';
848: EXCEPTION
849: WHEN wsh_del_not_found THEN
850: resultout := 'COMPLETE:FAILURE';
851: IF l_debug_on THEN
852: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_del_not_found exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
853: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_del_not_found');
854: END IF;
855: raise;
856: WHEN wsh_unlock_error THEN
849: WHEN wsh_del_not_found THEN
850: resultout := 'COMPLETE:FAILURE';
851: IF l_debug_on THEN
852: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_del_not_found exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
853: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_del_not_found');
854: END IF;
855: raise;
856: WHEN wsh_unlock_error THEN
857: resultout := 'COMPLETE:FAILURE';
855: raise;
856: WHEN wsh_unlock_error THEN
857: resultout := 'COMPLETE:FAILURE';
858: IF l_debug_on THEN
859: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_unlock_error exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
860: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_unlock_error');
861: END IF;
862: raise;
863: WHEN OTHERS THEN
856: WHEN wsh_unlock_error THEN
857: resultout := 'COMPLETE:FAILURE';
858: IF l_debug_on THEN
859: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_unlock_error exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
860: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_unlock_error');
861: END IF;
862: raise;
863: WHEN OTHERS THEN
864: resultout := 'COMPLETE:FAILURE';
862: raise;
863: WHEN OTHERS THEN
864: resultout := 'COMPLETE:FAILURE';
865: IF l_debug_on THEN
866: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
867: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
868: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
869: END IF;
870: raise;
863: WHEN OTHERS THEN
864: resultout := 'COMPLETE:FAILURE';
865: IF l_debug_on THEN
866: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
867: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
868: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
869: END IF;
870: raise;
871: END Unlock_Delivery_WF;
864: resultout := 'COMPLETE:FAILURE';
865: IF l_debug_on THEN
866: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
867: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
868: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
869: END IF;
870: raise;
871: END Unlock_Delivery_WF;
872:
885: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
886: --
887: IF l_debug_on IS NULL
888: THEN
889: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
890: END IF;
891: --
892: IF l_debug_on THEN
893: wsh_debug_sv.push(l_module_name);
889: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
890: END IF;
891: --
892: IF l_debug_on THEN
893: wsh_debug_sv.push(l_module_name);
894: wsh_debug_sv.log(l_module_name, 'p_transaction_id',p_transaction_id);
895: END IF;
896:
897: UPDATE wsh_transactions_history
890: END IF;
891: --
892: IF l_debug_on THEN
893: wsh_debug_sv.push(l_module_name);
894: wsh_debug_sv.log(l_module_name, 'p_transaction_id',p_transaction_id);
895: END IF;
896:
897: UPDATE wsh_transactions_history
898: SET transaction_status = 'ER'
898: SET transaction_status = 'ER'
899: WHERE transaction_id = p_transaction_id;
900:
901: IF l_debug_on THEN
902: wsh_debug_sv.log(l_module_name, 'ROWCOUNT', SQL%ROWCOUNT);
903: END IF;
904:
905: COMMIT;
906:
904:
905: COMMIT;
906:
907: IF l_debug_on THEN
908: wsh_debug_sv.pop (l_module_name);
909: END IF;
910:
911: EXCEPTION
912: WHEN OTHERS THEN
910:
911: EXCEPTION
912: WHEN OTHERS THEN
913: IF l_debug_on THEN
914: WSH_DEBUG_SV.logmsg(l_module_name,
915: 'Unexpected error has occured. Oracle error message is '
916: || SQLERRM, WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
917: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
918: END IF;
912: WHEN OTHERS THEN
913: IF l_debug_on THEN
914: WSH_DEBUG_SV.logmsg(l_module_name,
915: 'Unexpected error has occured. Oracle error message is '
916: || SQLERRM, WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
917: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
918: END IF;
919: raise;
920: END update_atnms;
913: IF l_debug_on THEN
914: WSH_DEBUG_SV.logmsg(l_module_name,
915: 'Unexpected error has occured. Oracle error message is '
916: || SQLERRM, WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
917: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
918: END IF;
919: raise;
920: END update_atnms;
921:
1009: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1010: --
1011: IF l_debug_on IS NULL
1012: THEN
1013: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1014: END IF;
1015: --
1016: IF l_debug_on THEN
1017: wsh_debug_sv.push(l_module_name, 'Process_Inbound_Delivery_WF');
1013: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1014: END IF;
1015: --
1016: IF l_debug_on THEN
1017: wsh_debug_sv.push(l_module_name, 'Process_Inbound_Delivery_WF');
1018: wsh_debug_sv.log(l_module_name, 'item_type',item_type);
1019: wsh_debug_sv.log(l_module_name, 'item_key',item_key);
1020: wsh_debug_sv.log(l_module_name, 'actid',actid);
1021: wsh_debug_sv.log(l_module_name, 'funcmode',funcmode);
1014: END IF;
1015: --
1016: IF l_debug_on THEN
1017: wsh_debug_sv.push(l_module_name, 'Process_Inbound_Delivery_WF');
1018: wsh_debug_sv.log(l_module_name, 'item_type',item_type);
1019: wsh_debug_sv.log(l_module_name, 'item_key',item_key);
1020: wsh_debug_sv.log(l_module_name, 'actid',actid);
1021: wsh_debug_sv.log(l_module_name, 'funcmode',funcmode);
1022: END IF;
1015: --
1016: IF l_debug_on THEN
1017: wsh_debug_sv.push(l_module_name, 'Process_Inbound_Delivery_WF');
1018: wsh_debug_sv.log(l_module_name, 'item_type',item_type);
1019: wsh_debug_sv.log(l_module_name, 'item_key',item_key);
1020: wsh_debug_sv.log(l_module_name, 'actid',actid);
1021: wsh_debug_sv.log(l_module_name, 'funcmode',funcmode);
1022: END IF;
1023:
1016: IF l_debug_on THEN
1017: wsh_debug_sv.push(l_module_name, 'Process_Inbound_Delivery_WF');
1018: wsh_debug_sv.log(l_module_name, 'item_type',item_type);
1019: wsh_debug_sv.log(l_module_name, 'item_key',item_key);
1020: wsh_debug_sv.log(l_module_name, 'actid',actid);
1021: wsh_debug_sv.log(l_module_name, 'funcmode',funcmode);
1022: END IF;
1023:
1024:
1017: wsh_debug_sv.push(l_module_name, 'Process_Inbound_Delivery_WF');
1018: wsh_debug_sv.log(l_module_name, 'item_type',item_type);
1019: wsh_debug_sv.log(l_module_name, 'item_key',item_key);
1020: wsh_debug_sv.log(l_module_name, 'actid',actid);
1021: wsh_debug_sv.log(l_module_name, 'funcmode',funcmode);
1022: END IF;
1023:
1024:
1025: IF ( funcmode = 'RUN' ) THEN
1037: l_txns_history_rec,
1038: l_return_status
1039: );
1040: IF l_debug_on THEN
1041: wsh_debug_sv.log(l_module_name, 'Get_Txns_History l_return_status ',l_return_status);
1042: END IF;
1043: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
1044: raise wsh_process_inbound;
1045: END IF;
1051: FETCH c_get_entity_number INTO l_enity_number, l_sr_trx_id;
1052: CLOSE c_get_entity_number;
1053:
1054: IF l_debug_on THEN
1055: wsh_debug_sv.log(l_module_name, 'l_enity_number ',l_enity_number);
1056: wsh_debug_sv.log(l_module_name, 'l_sr_trx_id ',l_sr_trx_id);
1057: END IF;
1058:
1059: IF l_txns_history_rec.transaction_status IN ('IP','ER') THEN --{
1052: CLOSE c_get_entity_number;
1053:
1054: IF l_debug_on THEN
1055: wsh_debug_sv.log(l_module_name, 'l_enity_number ',l_enity_number);
1056: wsh_debug_sv.log(l_module_name, 'l_sr_trx_id ',l_sr_trx_id);
1057: END IF;
1058:
1059: IF l_txns_history_rec.transaction_status IN ('IP','ER') THEN --{
1060:
1066: l_cancellation_in_progress,
1067: x_return_status => l_return_status
1068: );
1069: IF l_debug_on THEN
1070: wsh_debug_sv.log(l_module_name, 'l_return_status ',
1071: l_return_status);
1072: wsh_debug_sv.log(l_module_name, 'l_cancellation_in_progress',
1073: l_cancellation_in_progress);
1074: END IF;
1068: );
1069: IF l_debug_on THEN
1070: wsh_debug_sv.log(l_module_name, 'l_return_status ',
1071: l_return_status);
1072: wsh_debug_sv.log(l_module_name, 'l_cancellation_in_progress',
1073: l_cancellation_in_progress);
1074: END IF;
1075:
1076: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1089:
1090: WSH_PROCESS_INTERFACED_PKG.Process_Inbound(l_txns_history_rec,
1091: l_return_status);
1092: IF l_debug_on THEN
1093: wsh_debug_sv.log(l_module_name, 'Process_Inbound l_return_status ',l_return_status);
1094: END IF;
1095:
1096: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
1097: raise wsh_process_inbound;
1121: END IF; --}
1122:
1123: resultout := 'COMPLETE:SUCCESS';
1124: IF l_debug_on THEN
1125: wsh_debug_sv.log(l_module_name, 'resultout',resultout);
1126: wsh_debug_sv.pop (l_module_name,'RETURN');
1127: END IF;
1128: RETURN;
1129: END IF;
1122:
1123: resultout := 'COMPLETE:SUCCESS';
1124: IF l_debug_on THEN
1125: wsh_debug_sv.log(l_module_name, 'resultout',resultout);
1126: wsh_debug_sv.pop (l_module_name,'RETURN');
1127: END IF;
1128: RETURN;
1129: END IF;
1130:
1130:
1131: END IF;
1132:
1133: IF l_debug_on THEN
1134: wsh_debug_sv.log(l_module_name, 'resultout',resultout);
1135: wsh_debug_sv.pop (l_module_name);
1136: END IF;
1137: EXCEPTION
1138: WHEN wsh_process_inbound THEN
1131: END IF;
1132:
1133: IF l_debug_on THEN
1134: wsh_debug_sv.log(l_module_name, 'resultout',resultout);
1135: wsh_debug_sv.pop (l_module_name);
1136: END IF;
1137: EXCEPTION
1138: WHEN wsh_process_inbound THEN
1139: resultout := 'COMPLETE:FAILURE';
1137: EXCEPTION
1138: WHEN wsh_process_inbound THEN
1139: resultout := 'COMPLETE:FAILURE';
1140: IF l_debug_on THEN
1141: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_process_inbound exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1142: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_process_inbound');
1143: END IF;
1144: raise;
1145: WHEN fnd_api.g_exc_error THEN
1138: WHEN wsh_process_inbound THEN
1139: resultout := 'COMPLETE:FAILURE';
1140: IF l_debug_on THEN
1141: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_process_inbound exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1142: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_process_inbound');
1143: END IF;
1144: raise;
1145: WHEN fnd_api.g_exc_error THEN
1146: resultout := 'COMPLETE:FAILURE';
1144: raise;
1145: WHEN fnd_api.g_exc_error THEN
1146: resultout := 'COMPLETE:FAILURE';
1147: IF l_debug_on THEN
1148: WSH_DEBUG_SV.logmsg(l_module_name,'fnd_api.g_exc_error exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1149: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:fnd_api.g_exc_error');
1150: END IF;
1151: raise;
1152: WHEN OTHERS THEN
1145: WHEN fnd_api.g_exc_error THEN
1146: resultout := 'COMPLETE:FAILURE';
1147: IF l_debug_on THEN
1148: WSH_DEBUG_SV.logmsg(l_module_name,'fnd_api.g_exc_error exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1149: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:fnd_api.g_exc_error');
1150: END IF;
1151: raise;
1152: WHEN OTHERS THEN
1153: resultout := 'COMPLETE:FAILURE';
1151: raise;
1152: WHEN OTHERS THEN
1153: resultout := 'COMPLETE:FAILURE';
1154: IF l_debug_on THEN
1155: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
1156: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1157: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1158: END IF;
1159: raise;
1152: WHEN OTHERS THEN
1153: resultout := 'COMPLETE:FAILURE';
1154: IF l_debug_on THEN
1155: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
1156: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1157: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1158: END IF;
1159: raise;
1160: END Process_Inbound_Delivery_WF;
1153: resultout := 'COMPLETE:FAILURE';
1154: IF l_debug_on THEN
1155: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
1156: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1157: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1158: END IF;
1159: raise;
1160: END Process_Inbound_Delivery_WF;
1161:
1180: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1181: --
1182: IF l_debug_on IS NULL
1183: THEN
1184: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1185: END IF;
1186: --
1187: IF l_debug_on THEN
1188: wsh_debug_sv.push(l_module_name, 'Update_Txn_Hist_Err_WF');
1184: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1185: END IF;
1186: --
1187: IF l_debug_on THEN
1188: wsh_debug_sv.push(l_module_name, 'Update_Txn_Hist_Err_WF');
1189: wsh_debug_sv.log(l_module_name, 'item_type',item_type);
1190: wsh_debug_sv.log(l_module_name, 'item_key',item_key);
1191: wsh_debug_sv.log(l_module_name, 'actid',actid);
1192: wsh_debug_sv.log(l_module_name, 'funcmode',funcmode);
1185: END IF;
1186: --
1187: IF l_debug_on THEN
1188: wsh_debug_sv.push(l_module_name, 'Update_Txn_Hist_Err_WF');
1189: wsh_debug_sv.log(l_module_name, 'item_type',item_type);
1190: wsh_debug_sv.log(l_module_name, 'item_key',item_key);
1191: wsh_debug_sv.log(l_module_name, 'actid',actid);
1192: wsh_debug_sv.log(l_module_name, 'funcmode',funcmode);
1193: END IF;
1186: --
1187: IF l_debug_on THEN
1188: wsh_debug_sv.push(l_module_name, 'Update_Txn_Hist_Err_WF');
1189: wsh_debug_sv.log(l_module_name, 'item_type',item_type);
1190: wsh_debug_sv.log(l_module_name, 'item_key',item_key);
1191: wsh_debug_sv.log(l_module_name, 'actid',actid);
1192: wsh_debug_sv.log(l_module_name, 'funcmode',funcmode);
1193: END IF;
1194:
1187: IF l_debug_on THEN
1188: wsh_debug_sv.push(l_module_name, 'Update_Txn_Hist_Err_WF');
1189: wsh_debug_sv.log(l_module_name, 'item_type',item_type);
1190: wsh_debug_sv.log(l_module_name, 'item_key',item_key);
1191: wsh_debug_sv.log(l_module_name, 'actid',actid);
1192: wsh_debug_sv.log(l_module_name, 'funcmode',funcmode);
1193: END IF;
1194:
1195:
1188: wsh_debug_sv.push(l_module_name, 'Update_Txn_Hist_Err_WF');
1189: wsh_debug_sv.log(l_module_name, 'item_type',item_type);
1190: wsh_debug_sv.log(l_module_name, 'item_key',item_key);
1191: wsh_debug_sv.log(l_module_name, 'actid',actid);
1192: wsh_debug_sv.log(l_module_name, 'funcmode',funcmode);
1193: END IF;
1194:
1195:
1196: IF ( funcmode = 'RUN' ) THEN
1199: 'ER',
1200: l_return_status
1201: );
1202: IF l_debug_on THEN
1203: wsh_debug_sv.log(l_module_name, 'Update_Txn_History l_return_status ',l_return_status);
1204: END IF;
1205:
1206: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
1207: raise wsh_update_history;
1207: raise wsh_update_history;
1208: ELSE
1209: resultout := 'COMPLETE:SUCCESS';
1210: IF l_debug_on THEN
1211: wsh_debug_sv.log(l_module_name, 'resultout',resultout);
1212: wsh_debug_sv.pop(l_module_name, 'RETURN');
1213: END IF;
1214: RETURN;
1215: END IF;
1208: ELSE
1209: resultout := 'COMPLETE:SUCCESS';
1210: IF l_debug_on THEN
1211: wsh_debug_sv.log(l_module_name, 'resultout',resultout);
1212: wsh_debug_sv.pop(l_module_name, 'RETURN');
1213: END IF;
1214: RETURN;
1215: END IF;
1216:
1216:
1217: END IF;
1218:
1219: IF l_debug_on THEN
1220: wsh_debug_sv.pop (l_module_name);
1221: END IF;
1222: EXCEPTION
1223: WHEN wsh_update_history THEN
1224: resultout := 'COMPLETE:FAILURE';
1222: EXCEPTION
1223: WHEN wsh_update_history THEN
1224: resultout := 'COMPLETE:FAILURE';
1225: IF l_debug_on THEN
1226: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_update_history exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1227: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_update_history');
1228: END IF;
1229: raise;
1230: WHEN OTHERS THEN
1223: WHEN wsh_update_history THEN
1224: resultout := 'COMPLETE:FAILURE';
1225: IF l_debug_on THEN
1226: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_update_history exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1227: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_update_history');
1228: END IF;
1229: raise;
1230: WHEN OTHERS THEN
1231: resultout := 'COMPLETE:FAILURE';
1229: raise;
1230: WHEN OTHERS THEN
1231: resultout := 'COMPLETE:FAILURE';
1232: IF l_debug_on THEN
1233: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
1234: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1235: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1236: END IF;
1237: raise;
1230: WHEN OTHERS THEN
1231: resultout := 'COMPLETE:FAILURE';
1232: IF l_debug_on THEN
1233: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
1234: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1235: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1236: END IF;
1237: raise;
1238: END Update_Txn_Hist_Err_WF;
1231: resultout := 'COMPLETE:FAILURE';
1232: IF l_debug_on THEN
1233: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
1234: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1235: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1236: END IF;
1237: raise;
1238: END Update_Txn_Hist_Err_WF;
1239:
1257: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1258: --
1259: IF l_debug_on IS NULL
1260: THEN
1261: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1262: END IF;
1263: --
1264: IF l_debug_on THEN
1265: wsh_debug_sv.push(l_module_name, 'Update_Txn_Hist_Err_WF');
1261: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1262: END IF;
1263: --
1264: IF l_debug_on THEN
1265: wsh_debug_sv.push(l_module_name, 'Update_Txn_Hist_Err_WF');
1266: wsh_debug_sv.log(l_module_name, 'item_type',item_type);
1267: wsh_debug_sv.log(l_module_name, 'item_key',item_key);
1268: wsh_debug_sv.log(l_module_name, 'actid',actid);
1269: wsh_debug_sv.log(l_module_name, 'funcmode',funcmode);
1262: END IF;
1263: --
1264: IF l_debug_on THEN
1265: wsh_debug_sv.push(l_module_name, 'Update_Txn_Hist_Err_WF');
1266: wsh_debug_sv.log(l_module_name, 'item_type',item_type);
1267: wsh_debug_sv.log(l_module_name, 'item_key',item_key);
1268: wsh_debug_sv.log(l_module_name, 'actid',actid);
1269: wsh_debug_sv.log(l_module_name, 'funcmode',funcmode);
1270: END IF;
1263: --
1264: IF l_debug_on THEN
1265: wsh_debug_sv.push(l_module_name, 'Update_Txn_Hist_Err_WF');
1266: wsh_debug_sv.log(l_module_name, 'item_type',item_type);
1267: wsh_debug_sv.log(l_module_name, 'item_key',item_key);
1268: wsh_debug_sv.log(l_module_name, 'actid',actid);
1269: wsh_debug_sv.log(l_module_name, 'funcmode',funcmode);
1270: END IF;
1271:
1264: IF l_debug_on THEN
1265: wsh_debug_sv.push(l_module_name, 'Update_Txn_Hist_Err_WF');
1266: wsh_debug_sv.log(l_module_name, 'item_type',item_type);
1267: wsh_debug_sv.log(l_module_name, 'item_key',item_key);
1268: wsh_debug_sv.log(l_module_name, 'actid',actid);
1269: wsh_debug_sv.log(l_module_name, 'funcmode',funcmode);
1270: END IF;
1271:
1272: IF ( funcmode = 'RUN' ) THEN
1265: wsh_debug_sv.push(l_module_name, 'Update_Txn_Hist_Err_WF');
1266: wsh_debug_sv.log(l_module_name, 'item_type',item_type);
1267: wsh_debug_sv.log(l_module_name, 'item_key',item_key);
1268: wsh_debug_sv.log(l_module_name, 'actid',actid);
1269: wsh_debug_sv.log(l_module_name, 'funcmode',funcmode);
1270: END IF;
1271:
1272: IF ( funcmode = 'RUN' ) THEN
1273: Update_Txn_History ( Item_type,
1275: 'ST',
1276: l_return_status
1277: );
1278: IF l_debug_on THEN
1279: wsh_debug_sv.log(l_module_name, 'Update_Txn_History l_return_status ',l_return_status);
1280: END IF;
1281: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
1282: raise wsh_update_history;
1283: ELSE
1282: raise wsh_update_history;
1283: ELSE
1284: resultout := 'COMPLETE:SUCCESS';
1285: IF l_debug_on THEN
1286: wsh_debug_sv.log(l_module_name, 'resultout',resultout);
1287: wsh_debug_sv.pop(l_module_name, 'RETURN');
1288: END IF;
1289: RETURN;
1290: END IF;
1283: ELSE
1284: resultout := 'COMPLETE:SUCCESS';
1285: IF l_debug_on THEN
1286: wsh_debug_sv.log(l_module_name, 'resultout',resultout);
1287: wsh_debug_sv.pop(l_module_name, 'RETURN');
1288: END IF;
1289: RETURN;
1290: END IF;
1291: END IF;
1289: RETURN;
1290: END IF;
1291: END IF;
1292: IF l_debug_on THEN
1293: wsh_debug_sv.pop (l_module_name);
1294: END IF;
1295: EXCEPTION
1296: WHEN wsh_update_history THEN
1297: resultout := 'COMPLETE:FAILURE';
1295: EXCEPTION
1296: WHEN wsh_update_history THEN
1297: resultout := 'COMPLETE:FAILURE';
1298: IF l_debug_on THEN
1299: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_update_history exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1300: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_update_history');
1301: END IF;
1302: raise;
1303: WHEN OTHERS THEN
1296: WHEN wsh_update_history THEN
1297: resultout := 'COMPLETE:FAILURE';
1298: IF l_debug_on THEN
1299: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_update_history exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1300: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_update_history');
1301: END IF;
1302: raise;
1303: WHEN OTHERS THEN
1304: resultout := 'COMPLETE:FAILURE';
1302: raise;
1303: WHEN OTHERS THEN
1304: resultout := 'COMPLETE:FAILURE';
1305: IF l_debug_on THEN
1306: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
1307: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1308: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1309: END IF;
1310: raise;
1303: WHEN OTHERS THEN
1304: resultout := 'COMPLETE:FAILURE';
1305: IF l_debug_on THEN
1306: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
1307: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1308: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1309: END IF;
1310: raise;
1311: END Update_Txn_Hist_Success_WF;
1304: resultout := 'COMPLETE:FAILURE';
1305: IF l_debug_on THEN
1306: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
1307: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1308: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1309: END IF;
1310: raise;
1311: END Update_Txn_Hist_Success_WF;
1312:
1337: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1338: --
1339: IF l_debug_on IS NULL
1340: THEN
1341: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1342: END IF;
1343: --
1344: IF l_debug_on THEN
1345: wsh_debug_sv.push(l_module_name);
1341: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1342: END IF;
1343: --
1344: IF l_debug_on THEN
1345: wsh_debug_sv.push(l_module_name);
1346: wsh_debug_sv.log(l_module_name, 'p_item_type',p_item_type);
1347: wsh_debug_sv.log(l_module_name, 'p_item_key',p_item_key);
1348: wsh_debug_sv.log(l_module_name, 'p_transaction_status',p_transaction_status);
1349: END IF;
1342: END IF;
1343: --
1344: IF l_debug_on THEN
1345: wsh_debug_sv.push(l_module_name);
1346: wsh_debug_sv.log(l_module_name, 'p_item_type',p_item_type);
1347: wsh_debug_sv.log(l_module_name, 'p_item_key',p_item_key);
1348: wsh_debug_sv.log(l_module_name, 'p_transaction_status',p_transaction_status);
1349: END IF;
1350:
1343: --
1344: IF l_debug_on THEN
1345: wsh_debug_sv.push(l_module_name);
1346: wsh_debug_sv.log(l_module_name, 'p_item_type',p_item_type);
1347: wsh_debug_sv.log(l_module_name, 'p_item_key',p_item_key);
1348: wsh_debug_sv.log(l_module_name, 'p_transaction_status',p_transaction_status);
1349: END IF;
1350:
1351: IF ( p_item_type = 'WSHSUPI' ) THEN
1344: IF l_debug_on THEN
1345: wsh_debug_sv.push(l_module_name);
1346: wsh_debug_sv.log(l_module_name, 'p_item_type',p_item_type);
1347: wsh_debug_sv.log(l_module_name, 'p_item_key',p_item_key);
1348: wsh_debug_sv.log(l_module_name, 'p_transaction_status',p_transaction_status);
1349: END IF;
1350:
1351: IF ( p_item_type = 'WSHSUPI' ) THEN
1352: l_document_type := 'SR';
1364: l_document_type,
1365: l_txns_history_rec,
1366: x_return_status );
1367: IF l_debug_on THEN
1368: wsh_debug_sv.log(l_module_name, 'Get_Txns_History x_return_status',x_return_status);
1369: END IF;
1370:
1371: l_txns_history_rec.transaction_status := p_transaction_status;
1372: IF ( x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
1376: WSH_TRANSACTIONS_HISTORY_PKG.Create_Update_Txns_History ( l_txns_history_rec,
1377: l_txn_id,
1378: x_return_status );
1379: IF l_debug_on THEN
1380: wsh_debug_sv.log(l_module_name, 'Create_Update_Txns_History x_return_status',x_return_status);
1381: END IF;
1382:
1383: IF ( x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
1384: raise wsh_update_history;
1386: COMMIT;
1387: END IF;
1388:
1389: IF l_debug_on THEN
1390: wsh_debug_sv.pop (l_module_name);
1391: END IF;
1392: EXCEPTION
1393: WHEN wsh_update_history THEN
1394: x_return_status := wsh_util_core.g_ret_sts_error;
1392: EXCEPTION
1393: WHEN wsh_update_history THEN
1394: x_return_status := wsh_util_core.g_ret_sts_error;
1395: IF l_debug_on THEN
1396: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_update_history exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1397: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_update_history');
1398: END IF;
1399: WHEN OTHERS THEN
1400: x_return_status := wsh_util_core.g_ret_sts_error;
1393: WHEN wsh_update_history THEN
1394: x_return_status := wsh_util_core.g_ret_sts_error;
1395: IF l_debug_on THEN
1396: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_update_history exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1397: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_update_history');
1398: END IF;
1399: WHEN OTHERS THEN
1400: x_return_status := wsh_util_core.g_ret_sts_error;
1401: IF l_debug_on THEN
1398: END IF;
1399: WHEN OTHERS THEN
1400: x_return_status := wsh_util_core.g_ret_sts_error;
1401: IF l_debug_on THEN
1402: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
1403: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1404: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1405: END IF;
1406: END Update_Txn_History;
1399: WHEN OTHERS THEN
1400: x_return_status := wsh_util_core.g_ret_sts_error;
1401: IF l_debug_on THEN
1402: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
1403: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1404: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1405: END IF;
1406: END Update_Txn_History;
1407:
1400: x_return_status := wsh_util_core.g_ret_sts_error;
1401: IF l_debug_on THEN
1402: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
1403: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1404: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1405: END IF;
1406: END Update_Txn_History;
1407:
1408: PROCEDURE WSHSUPI_SELECTOR( Item_type IN VARCHAR2,
1427: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1428: --
1429: IF l_debug_on IS NULL
1430: THEN
1431: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1432: END IF;
1433: --
1434: wsh_debug_sv.start_debug('wf_context');
1435: IF l_debug_on THEN
1430: THEN
1431: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1432: END IF;
1433: --
1434: wsh_debug_sv.start_debug('wf_context');
1435: IF l_debug_on THEN
1436: wsh_debug_sv.push(l_module_name, 'WSHSUPI_SELECTOR');
1437: wsh_debug_sv.log (l_module_name, 'Item Type', Item_type);
1438: wsh_debug_sv.log (l_module_name, 'Item_Key', Item_key);
1432: END IF;
1433: --
1434: wsh_debug_sv.start_debug('wf_context');
1435: IF l_debug_on THEN
1436: wsh_debug_sv.push(l_module_name, 'WSHSUPI_SELECTOR');
1437: wsh_debug_sv.log (l_module_name, 'Item Type', Item_type);
1438: wsh_debug_sv.log (l_module_name, 'Item_Key', Item_key);
1439: wsh_debug_sv.log (l_module_name, 'Funcmode', Funcmode);
1440: END IF;
1433: --
1434: wsh_debug_sv.start_debug('wf_context');
1435: IF l_debug_on THEN
1436: wsh_debug_sv.push(l_module_name, 'WSHSUPI_SELECTOR');
1437: wsh_debug_sv.log (l_module_name, 'Item Type', Item_type);
1438: wsh_debug_sv.log (l_module_name, 'Item_Key', Item_key);
1439: wsh_debug_sv.log (l_module_name, 'Funcmode', Funcmode);
1440: END IF;
1441:
1434: wsh_debug_sv.start_debug('wf_context');
1435: IF l_debug_on THEN
1436: wsh_debug_sv.push(l_module_name, 'WSHSUPI_SELECTOR');
1437: wsh_debug_sv.log (l_module_name, 'Item Type', Item_type);
1438: wsh_debug_sv.log (l_module_name, 'Item_Key', Item_key);
1439: wsh_debug_sv.log (l_module_name, 'Funcmode', Funcmode);
1440: END IF;
1441:
1442: IF(funcmode = 'RUN') THEN
1435: IF l_debug_on THEN
1436: wsh_debug_sv.push(l_module_name, 'WSHSUPI_SELECTOR');
1437: wsh_debug_sv.log (l_module_name, 'Item Type', Item_type);
1438: wsh_debug_sv.log (l_module_name, 'Item_Key', Item_key);
1439: wsh_debug_sv.log (l_module_name, 'Funcmode', Funcmode);
1440: END IF;
1441:
1442: IF(funcmode = 'RUN') THEN
1443: Resultout := 'COMPLETE';
1469:
1470: END IF; -- if funcmode = run
1471:
1472: IF l_debug_on THEN
1473: wsh_debug_sv.log (l_module_name, 'Resultout', Resultout);
1474: wsh_debug_sv.pop(l_module_name);
1475: END IF;
1476: wsh_debug_sv.stop_debug;
1477: EXCEPTION
1470: END IF; -- if funcmode = run
1471:
1472: IF l_debug_on THEN
1473: wsh_debug_sv.log (l_module_name, 'Resultout', Resultout);
1474: wsh_debug_sv.pop(l_module_name);
1475: END IF;
1476: wsh_debug_sv.stop_debug;
1477: EXCEPTION
1478: WHEN OTHERS THEN
1472: IF l_debug_on THEN
1473: wsh_debug_sv.log (l_module_name, 'Resultout', Resultout);
1474: wsh_debug_sv.pop(l_module_name);
1475: END IF;
1476: wsh_debug_sv.stop_debug;
1477: EXCEPTION
1478: WHEN OTHERS THEN
1479: resultout := 'COMPLETE:FAILURE';
1480: IF l_debug_on THEN
1477: EXCEPTION
1478: WHEN OTHERS THEN
1479: resultout := 'COMPLETE:FAILURE';
1480: IF l_debug_on THEN
1481: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
1482: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1483: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1484: END IF;
1485: wsh_debug_sv.stop_debug;
1478: WHEN OTHERS THEN
1479: resultout := 'COMPLETE:FAILURE';
1480: IF l_debug_on THEN
1481: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
1482: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1483: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1484: END IF;
1485: wsh_debug_sv.stop_debug;
1486: RAISE;
1479: resultout := 'COMPLETE:FAILURE';
1480: IF l_debug_on THEN
1481: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
1482: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1483: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1484: END IF;
1485: wsh_debug_sv.stop_debug;
1486: RAISE;
1487: END WSHSUPI_SELECTOR;
1481: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
1482: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1483: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1484: END IF;
1485: wsh_debug_sv.stop_debug;
1486: RAISE;
1487: END WSHSUPI_SELECTOR;
1488:
1489: --k proj
1517: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1518: --
1519: IF l_debug_on IS NULL
1520: THEN
1521: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1522: END IF;
1523: --
1524: IF l_debug_on THEN
1525: wsh_debug_sv.push(l_module_name);
1521: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1522: END IF;
1523: --
1524: IF l_debug_on THEN
1525: wsh_debug_sv.push(l_module_name);
1526: wsh_debug_sv.log(l_module_name, 'p_event_key',p_event_key);
1527: END IF;
1528:
1529: IF p_event_key LIKE 'CMS%' THEN
1522: END IF;
1523: --
1524: IF l_debug_on THEN
1525: wsh_debug_sv.push(l_module_name);
1526: wsh_debug_sv.log(l_module_name, 'p_event_key',p_event_key);
1527: END IF;
1528:
1529: IF p_event_key LIKE 'CMS%' THEN
1530: l_cms_flow := TRUE;
1530: l_cms_flow := TRUE;
1531: END IF;
1532:
1533: IF l_debug_on THEN
1534: wsh_debug_sv.log(l_module_name, 'l_cms_flow',l_cms_flow);
1535: wsh_debug_sv.pop(l_module_name);
1536: END IF;
1537:
1538: RETURN l_cms_flow;
1531: END IF;
1532:
1533: IF l_debug_on THEN
1534: wsh_debug_sv.log(l_module_name, 'l_cms_flow',l_cms_flow);
1535: wsh_debug_sv.pop(l_module_name);
1536: END IF;
1537:
1538: RETURN l_cms_flow;
1539:
1541:
1542: WHEN OTHERS THEN
1543: wsh_util_core.default_handler('WSH_TRANSACTIONS_UTIL.branch_cms_tpw_flow');
1544: IF l_debug_on THEN
1545: WSH_DEBUG_SV.logmsg(l_module_name,
1546: 'Unexpected error has occured. Oracle error message is '||
1547: substr(SQLERRM,1,200), WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1548: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1549: END IF;
1543: wsh_util_core.default_handler('WSH_TRANSACTIONS_UTIL.branch_cms_tpw_flow');
1544: IF l_debug_on THEN
1545: WSH_DEBUG_SV.logmsg(l_module_name,
1546: 'Unexpected error has occured. Oracle error message is '||
1547: substr(SQLERRM,1,200), WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1548: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1549: END IF;
1550:
1551: END branch_cms_tpw_flow;
1544: IF l_debug_on THEN
1545: WSH_DEBUG_SV.logmsg(l_module_name,
1546: 'Unexpected error has occured. Oracle error message is '||
1547: substr(SQLERRM,1,200), WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1548: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1549: END IF;
1550:
1551: END branch_cms_tpw_flow;
1552:
1605: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1606: --
1607: IF l_debug_on IS NULL
1608: THEN
1609: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1610: END IF;
1611: --
1612: IF l_debug_on THEN
1613: wsh_debug_sv.push(l_module_name);
1609: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1610: END IF;
1611: --
1612: IF l_debug_on THEN
1613: wsh_debug_sv.push(l_module_name);
1614: wsh_debug_sv.log(l_module_name, 'p_delivery_name',p_delivery_name);
1615: END IF;
1616:
1617: x_cancellation_in_progress := FALSE;
1610: END IF;
1611: --
1612: IF l_debug_on THEN
1613: wsh_debug_sv.push(l_module_name);
1614: wsh_debug_sv.log(l_module_name, 'p_delivery_name',p_delivery_name);
1615: END IF;
1616:
1617: x_cancellation_in_progress := FALSE;
1618:
1619: OPEN c_del_status(p_delivery_name);
1620: FETCH c_del_status INTO l_status;
1621: IF c_del_status%NOTFOUND THEN
1622: IF l_debug_on THEN
1623: wsh_debug_sv.logmsg(l_module_name, 'ERROR Invalid delivery');
1624: END IF;
1625: FND_MESSAGE.Set_Name('WSH', 'WSH_DEL_NOT_FOUND');
1626: WSH_UTIL_CORE.add_message (wsh_util_core.g_ret_sts_error,l_module_name);
1627: CLOSE c_del_status;
1627: CLOSE c_del_status;
1628: RAISE fnd_api.g_exc_error;
1629: END IF;
1630: IF l_debug_on THEN
1631: wsh_debug_sv.log(l_module_name, 'l_status',l_status);
1632: END IF;
1633:
1634: IF l_status <> 'SC' THEN
1635: x_cancellation_in_progress := FALSE;
1645: FETCH c_get_event_key INTO l_event_key;
1646: IF c_get_event_key%NOTFOUND THEN
1647:
1648: IF l_debug_on THEN
1649: wsh_debug_sv.logmsg(l_module_name, 'Cannot find the transaction history record');
1650: END IF;
1651:
1652: x_cancellation_in_progress := FALSE;
1653: CLOSE c_get_event_key;
1656:
1657: CLOSE c_get_event_key;
1658:
1659: IF l_debug_on THEN
1660: wsh_debug_sv.log(l_module_name, 'l_event_key',l_event_key);
1661: wsh_debug_sv.logmsg(l_module_name, 'calling program WF_ENGINE.ItemStatus',WSH_DEBUG_SV.C_PROC_LEVEL);
1662: END IF;
1663: WF_ENGINE.ItemStatus(
1664: itemtype => 'WSHSUPI',
1657: CLOSE c_get_event_key;
1658:
1659: IF l_debug_on THEN
1660: wsh_debug_sv.log(l_module_name, 'l_event_key',l_event_key);
1661: wsh_debug_sv.logmsg(l_module_name, 'calling program WF_ENGINE.ItemStatus',WSH_DEBUG_SV.C_PROC_LEVEL);
1662: END IF;
1663: WF_ENGINE.ItemStatus(
1664: itemtype => 'WSHSUPI',
1665: itemkey => l_event_key,
1681:
1682: x_return_status := wsh_util_core.g_ret_sts_success;
1683:
1684: IF l_debug_on THEN
1685: wsh_debug_sv.log(l_module_name, 'x_cancellation_in_progress',
1686: x_cancellation_in_progress);
1687: wsh_debug_sv.pop(l_module_name);
1688: END IF;
1689:
1683:
1684: IF l_debug_on THEN
1685: wsh_debug_sv.log(l_module_name, 'x_cancellation_in_progress',
1686: x_cancellation_in_progress);
1687: wsh_debug_sv.pop(l_module_name);
1688: END IF;
1689:
1690:
1691: EXCEPTION
1693: WHEN e_success THEN
1694: x_return_status := wsh_util_core.g_ret_sts_success;
1695: --
1696: IF l_debug_on THEN
1697: wsh_debug_sv.log(l_module_name, 'x_cancellation_in_progress',
1698: x_cancellation_in_progress);
1699: wsh_debug_sv.pop(l_module_name);
1700: END IF;
1701:
1695: --
1696: IF l_debug_on THEN
1697: wsh_debug_sv.log(l_module_name, 'x_cancellation_in_progress',
1698: x_cancellation_in_progress);
1699: wsh_debug_sv.pop(l_module_name);
1700: END IF;
1701:
1702: WHEN fnd_api.g_exc_error THEN
1703: x_return_status := fnd_api.g_ret_sts_error;
1702: WHEN fnd_api.g_exc_error THEN
1703: x_return_status := fnd_api.g_ret_sts_error;
1704: --
1705: IF l_debug_on THEN
1706: wsh_debug_sv.logmsg(l_module_name, 'FND_API.G_EXC_ERROR exception has occured.', wsh_debug_sv.c_excep_level);
1707: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_ERROR');
1708: END IF;
1709: WHEN OTHERS THEN
1710: x_return_status := wsh_util_core.g_ret_sts_unexp_error;
1703: x_return_status := fnd_api.g_ret_sts_error;
1704: --
1705: IF l_debug_on THEN
1706: wsh_debug_sv.logmsg(l_module_name, 'FND_API.G_EXC_ERROR exception has occured.', wsh_debug_sv.c_excep_level);
1707: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_ERROR');
1708: END IF;
1709: WHEN OTHERS THEN
1710: x_return_status := wsh_util_core.g_ret_sts_unexp_error;
1711: wsh_util_core.default_handler('WSH_TRANSACTIONS_UTIL.check_cancellation_inprogress',l_module_name);
1709: WHEN OTHERS THEN
1710: x_return_status := wsh_util_core.g_ret_sts_unexp_error;
1711: wsh_util_core.default_handler('WSH_TRANSACTIONS_UTIL.check_cancellation_inprogress',l_module_name);
1712: IF l_debug_on THEN
1713: WSH_DEBUG_SV.logmsg(l_module_name,
1714: 'Unexpected error has occured. Oracle error message is '||
1715: substr(SQLERRM,1,200), WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1716: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1717: END IF;
1711: wsh_util_core.default_handler('WSH_TRANSACTIONS_UTIL.check_cancellation_inprogress',l_module_name);
1712: IF l_debug_on THEN
1713: WSH_DEBUG_SV.logmsg(l_module_name,
1714: 'Unexpected error has occured. Oracle error message is '||
1715: substr(SQLERRM,1,200), WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1716: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1717: END IF;
1718:
1719: END Check_cancellation_inprogress;
1712: IF l_debug_on THEN
1713: WSH_DEBUG_SV.logmsg(l_module_name,
1714: 'Unexpected error has occured. Oracle error message is '||
1715: substr(SQLERRM,1,200), WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1716: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1717: END IF;
1718:
1719: END Check_cancellation_inprogress;
1720:
1785: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1786: --
1787: IF l_debug_on IS NULL
1788: THEN
1789: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1790: END IF;
1791: --
1792: SAVEPOINT s_Check_cancellation_wf ;
1793:
1792: SAVEPOINT s_Check_cancellation_wf ;
1793:
1794: IF l_debug_on THEN
1795: --bmso do we need to start the debugger
1796: wsh_debug_sv.push(l_module_name);
1797: wsh_debug_sv.log(l_module_name, 'item_type',item_type);
1798: wsh_debug_sv.log(l_module_name, 'item_key',item_key);
1799: wsh_debug_sv.log(l_module_name, 'actid',actid);
1800: wsh_debug_sv.log(l_module_name, 'funcmode',funcmode);
1793:
1794: IF l_debug_on THEN
1795: --bmso do we need to start the debugger
1796: wsh_debug_sv.push(l_module_name);
1797: wsh_debug_sv.log(l_module_name, 'item_type',item_type);
1798: wsh_debug_sv.log(l_module_name, 'item_key',item_key);
1799: wsh_debug_sv.log(l_module_name, 'actid',actid);
1800: wsh_debug_sv.log(l_module_name, 'funcmode',funcmode);
1801: END IF;
1794: IF l_debug_on THEN
1795: --bmso do we need to start the debugger
1796: wsh_debug_sv.push(l_module_name);
1797: wsh_debug_sv.log(l_module_name, 'item_type',item_type);
1798: wsh_debug_sv.log(l_module_name, 'item_key',item_key);
1799: wsh_debug_sv.log(l_module_name, 'actid',actid);
1800: wsh_debug_sv.log(l_module_name, 'funcmode',funcmode);
1801: END IF;
1802:
1795: --bmso do we need to start the debugger
1796: wsh_debug_sv.push(l_module_name);
1797: wsh_debug_sv.log(l_module_name, 'item_type',item_type);
1798: wsh_debug_sv.log(l_module_name, 'item_key',item_key);
1799: wsh_debug_sv.log(l_module_name, 'actid',actid);
1800: wsh_debug_sv.log(l_module_name, 'funcmode',funcmode);
1801: END IF;
1802:
1803: IF ( funcmode = 'RUN' ) THEN --{
1796: wsh_debug_sv.push(l_module_name);
1797: wsh_debug_sv.log(l_module_name, 'item_type',item_type);
1798: wsh_debug_sv.log(l_module_name, 'item_key',item_key);
1799: wsh_debug_sv.log(l_module_name, 'actid',actid);
1800: wsh_debug_sv.log(l_module_name, 'funcmode',funcmode);
1801: END IF;
1802:
1803: IF ( funcmode = 'RUN' ) THEN --{
1804: IF branch_cms_tpw_flow(p_event_key => item_key) THEN --{
1806: OPEN c_del_name_cur(item_key, item_type);
1807: FETCH c_del_name_cur INTO l_delivery_name, l_transaction_id;
1808: IF c_del_name_cur%NOTFOUND THEN
1809: IF l_debug_on THEN
1810: wsh_debug_sv.logmsg(l_module_name, 'Error, invalid interface delivery');
1811: END IF;
1812: CLOSE c_del_name_cur;
1813: RAISE fnd_api.g_exc_error;
1814: END IF;
1814: END IF;
1815: CLOSE c_del_name_cur;
1816:
1817: IF l_debug_on THEN
1818: wsh_debug_sv.log(l_module_name, 'l_delivery_name',l_delivery_name);
1819: wsh_debug_sv.log(l_module_name, 'l_transaction_id',l_transaction_id);
1820: END IF;
1821: -- see if there is any cancelation pending
1822: Check_cancellation_inprogress (
1815: CLOSE c_del_name_cur;
1816:
1817: IF l_debug_on THEN
1818: wsh_debug_sv.log(l_module_name, 'l_delivery_name',l_delivery_name);
1819: wsh_debug_sv.log(l_module_name, 'l_transaction_id',l_transaction_id);
1820: END IF;
1821: -- see if there is any cancelation pending
1822: Check_cancellation_inprogress (
1823: p_delivery_name => l_delivery_name,
1839:
1840: IF SQL%ROWCOUNT <> 1 THEN
1841:
1842: IF l_debug_on THEN
1843: wsh_debug_sv.log(l_module_name, 'Error in updating the transaction hsitory record to status AP',SQL%ROWCOUNT);
1844: END IF;
1845: RAISE FND_API.g_exc_error;
1846: END IF;
1847: RAISE e_send_yes;
1858:
1859: END IF; --}
1860:
1861: IF l_debug_on THEN
1862: wsh_debug_sv.pop(l_module_name);
1863: END IF;
1864:
1865:
1866: EXCEPTION
1868:
1869: WHEN e_send_no THEN
1870: resultout := 'COMPLETE:N';
1871: IF l_debug_on THEN
1872: wsh_debug_sv.log(l_module_name, 'resultout', resultout);
1873: wsh_debug_sv.pop(l_module_name);
1874: END IF;
1875:
1876: WHEN e_send_yes THEN
1869: WHEN e_send_no THEN
1870: resultout := 'COMPLETE:N';
1871: IF l_debug_on THEN
1872: wsh_debug_sv.log(l_module_name, 'resultout', resultout);
1873: wsh_debug_sv.pop(l_module_name);
1874: END IF;
1875:
1876: WHEN e_send_yes THEN
1877: resultout := 'COMPLETE:Y';
1875:
1876: WHEN e_send_yes THEN
1877: resultout := 'COMPLETE:Y';
1878: IF l_debug_on THEN
1879: wsh_debug_sv.log(l_module_name, 'resultout', resultout);
1880: wsh_debug_sv.pop(l_module_name);
1881: END IF;
1882:
1883: WHEN fnd_api.g_exc_unexpected_error THEN
1876: WHEN e_send_yes THEN
1877: resultout := 'COMPLETE:Y';
1878: IF l_debug_on THEN
1879: wsh_debug_sv.log(l_module_name, 'resultout', resultout);
1880: wsh_debug_sv.pop(l_module_name);
1881: END IF;
1882:
1883: WHEN fnd_api.g_exc_unexpected_error THEN
1884: --bmso how do we rollback;
1886: rollback to s_Check_cancellation_wf;
1887: resultout := 'COMPLETE:FAILURE';
1888: --
1889: IF l_debug_on THEN
1890: wsh_debug_sv.logmsg(l_module_name, 'fnd_api.g_exc_unexpected_error exception has occured.', wsh_debug_sv.c_excep_level);
1891: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:fnd_api.g_exc_unexpected_error');
1892: END IF;
1893: RAISE;
1894:
1887: resultout := 'COMPLETE:FAILURE';
1888: --
1889: IF l_debug_on THEN
1890: wsh_debug_sv.logmsg(l_module_name, 'fnd_api.g_exc_unexpected_error exception has occured.', wsh_debug_sv.c_excep_level);
1891: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:fnd_api.g_exc_unexpected_error');
1892: END IF;
1893: RAISE;
1894:
1895: WHEN fnd_api.g_exc_error THEN
1896: rollback to s_Check_cancellation_wf;
1897: resultout := 'COMPLETE:FAILURE';
1898: --
1899: IF l_debug_on THEN
1900: wsh_debug_sv.logmsg(l_module_name, 'FND_API.G_EXC_ERROR exception has occured.', wsh_debug_sv.c_excep_level);
1901: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_ERROR');
1902: END IF;
1903:
1904: RAISE;
1897: resultout := 'COMPLETE:FAILURE';
1898: --
1899: IF l_debug_on THEN
1900: wsh_debug_sv.logmsg(l_module_name, 'FND_API.G_EXC_ERROR exception has occured.', wsh_debug_sv.c_excep_level);
1901: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_ERROR');
1902: END IF;
1903:
1904: RAISE;
1905: WHEN OTHERS THEN
1905: WHEN OTHERS THEN
1906: resultout := 'COMPLETE:FAILURE';
1907: wsh_util_core.default_handler('WSH_TRANSACTIONS_UTIL.check_cancellation_wf');
1908: IF l_debug_on THEN
1909: WSH_DEBUG_SV.logmsg(l_module_name,
1910: 'Unexpected error has occured. Oracle error message is '||
1911: substr(SQLERRM,1,200), WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1912: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1913: END IF;
1907: wsh_util_core.default_handler('WSH_TRANSACTIONS_UTIL.check_cancellation_wf');
1908: IF l_debug_on THEN
1909: WSH_DEBUG_SV.logmsg(l_module_name,
1910: 'Unexpected error has occured. Oracle error message is '||
1911: substr(SQLERRM,1,200), WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1912: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1913: END IF;
1914: RAISE;
1915:
1908: IF l_debug_on THEN
1909: WSH_DEBUG_SV.logmsg(l_module_name,
1910: 'Unexpected error has occured. Oracle error message is '||
1911: substr(SQLERRM,1,200), WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1912: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1913: END IF;
1914: RAISE;
1915:
1916: END check_cancellation_wf;
2057: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2058: --
2059: IF l_debug_on IS NULL
2060: THEN
2061: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2062: END IF;
2063: --
2064: SAVEPOINT s_process_cbod ;
2065:
2063: --
2064: SAVEPOINT s_process_cbod ;
2065:
2066: IF l_debug_on THEN
2067: wsh_debug_sv.push(l_module_name);
2068: wsh_debug_sv.log(l_module_name, 'item_type',item_type);
2069: wsh_debug_sv.log(l_module_name, 'item_key',item_key);
2070: wsh_debug_sv.log(l_module_name, 'actid',actid);
2071: wsh_debug_sv.log(l_module_name, 'funcmode',funcmode);
2064: SAVEPOINT s_process_cbod ;
2065:
2066: IF l_debug_on THEN
2067: wsh_debug_sv.push(l_module_name);
2068: wsh_debug_sv.log(l_module_name, 'item_type',item_type);
2069: wsh_debug_sv.log(l_module_name, 'item_key',item_key);
2070: wsh_debug_sv.log(l_module_name, 'actid',actid);
2071: wsh_debug_sv.log(l_module_name, 'funcmode',funcmode);
2072: END IF;
2065:
2066: IF l_debug_on THEN
2067: wsh_debug_sv.push(l_module_name);
2068: wsh_debug_sv.log(l_module_name, 'item_type',item_type);
2069: wsh_debug_sv.log(l_module_name, 'item_key',item_key);
2070: wsh_debug_sv.log(l_module_name, 'actid',actid);
2071: wsh_debug_sv.log(l_module_name, 'funcmode',funcmode);
2072: END IF;
2073:
2066: IF l_debug_on THEN
2067: wsh_debug_sv.push(l_module_name);
2068: wsh_debug_sv.log(l_module_name, 'item_type',item_type);
2069: wsh_debug_sv.log(l_module_name, 'item_key',item_key);
2070: wsh_debug_sv.log(l_module_name, 'actid',actid);
2071: wsh_debug_sv.log(l_module_name, 'funcmode',funcmode);
2072: END IF;
2073:
2074: IF ( funcmode = 'RUN' ) THEN --{
2067: wsh_debug_sv.push(l_module_name);
2068: wsh_debug_sv.log(l_module_name, 'item_type',item_type);
2069: wsh_debug_sv.log(l_module_name, 'item_key',item_key);
2070: wsh_debug_sv.log(l_module_name, 'actid',actid);
2071: wsh_debug_sv.log(l_module_name, 'funcmode',funcmode);
2072: END IF;
2073:
2074: IF ( funcmode = 'RUN' ) THEN --{
2075: IF branch_cms_tpw_flow(p_event_key => item_key) THEN --{
2091: OPEN c_sr_instance(item_type, item_key);
2092: FETCH c_sr_instance INTO l_dummy;
2093: IF c_sr_instance%NOTFOUND THEN --{
2094: IF l_debug_on THEN
2095: wsh_debug_sv.logmsg(l_module_name,
2096: 'Error: Could not find record in transaction history');
2097: END IF;
2098: CLOSE c_sr_instance;
2099: RAISE e_send_false;
2122: CLOSE c_get_del_status;
2123:
2124: IF l_status IN ('CO','IT','CL','SA') THEN --{
2125: IF l_debug_on THEN
2126: wsh_debug_sv.logmsg(l_module_name, 'Calling wf_engine.setItemAttribute');
2127: END IF;
2128: wf_engine.setItemAttrText
2129: (
2130: itemType => item_type,
2140: OPEN c_get_sr_record(l_entity_number);
2141: FETCH c_get_sr_record INTO l_sr_hist_record;
2142: IF c_get_sr_record%NOTFOUND THEN
2143: IF l_debug_on THEN
2144: wsh_debug_sv.log(l_module_name,
2145: 'Error: Could not find Shipment Request record for ',
2146: l_entity_number);
2147: END IF;
2148: CLOSE c_get_sr_record;
2157: l_del_interface_id;
2158: IF c_get_trx_id%NOTFOUND THEN
2159: l_sa_exist := FALSE;
2160: IF l_debug_on THEN
2161: wsh_debug_sv.log(l_module_name,
2162: 'No SA record exist for ',
2163: l_entity_number);
2164: END IF;
2165: ELSE
2167: END IF;
2168: CLOSE c_get_trx_id;
2169:
2170: IF l_debug_on THEN
2171: wsh_debug_sv.log(l_module_name,'l_sa_exist',l_sa_exist);
2172: wsh_debug_sv.log(l_module_name,'l_transaction_status',
2173: l_transaction_status);
2174: wsh_debug_sv.log(l_module_name,'l_trx_id',l_trx_id);
2175: wsh_debug_sv.log(l_module_name,'l_del_interface_id',
2168: CLOSE c_get_trx_id;
2169:
2170: IF l_debug_on THEN
2171: wsh_debug_sv.log(l_module_name,'l_sa_exist',l_sa_exist);
2172: wsh_debug_sv.log(l_module_name,'l_transaction_status',
2173: l_transaction_status);
2174: wsh_debug_sv.log(l_module_name,'l_trx_id',l_trx_id);
2175: wsh_debug_sv.log(l_module_name,'l_del_interface_id',
2176: l_del_interface_id);
2170: IF l_debug_on THEN
2171: wsh_debug_sv.log(l_module_name,'l_sa_exist',l_sa_exist);
2172: wsh_debug_sv.log(l_module_name,'l_transaction_status',
2173: l_transaction_status);
2174: wsh_debug_sv.log(l_module_name,'l_trx_id',l_trx_id);
2175: wsh_debug_sv.log(l_module_name,'l_del_interface_id',
2176: l_del_interface_id);
2177: END IF;
2178:
2171: wsh_debug_sv.log(l_module_name,'l_sa_exist',l_sa_exist);
2172: wsh_debug_sv.log(l_module_name,'l_transaction_status',
2173: l_transaction_status);
2174: wsh_debug_sv.log(l_module_name,'l_trx_id',l_trx_id);
2175: wsh_debug_sv.log(l_module_name,'l_del_interface_id',
2176: l_del_interface_id);
2177: END IF;
2178:
2179: l_cbod_status := wf_engine.GetItemAttrText(
2180: 'WSHSUPI',
2181: Item_key,
2182: 'PARAMETER6');
2183: IF l_debug_on THEN
2184: wsh_debug_sv.log(l_module_name,'l_cbod_status',l_cbod_status);
2185: END IF;
2186: IF l_cbod_status = '00' THEN --{ confirmation
2187:
2188:
2221: WSH_EXTERNAL_INTERFACE_SV.Raise_Event ( l_sr_hist_record, '99',
2222: l_Return_Status );
2223:
2224: IF l_debug_on THEN
2225: wsh_debug_sv.log (l_module_name, 'Return status after Raise_Event ', l_Return_Status);
2226: END IF;
2227:
2228: IF (l_Return_Status <> WSH_UTIL_CORE.g_ret_sts_success ) THEN
2229: RAISE e_send_false;
2259:
2260: END IF; --}
2261:
2262: IF l_debug_on THEN
2263: wsh_debug_sv.pop(l_module_name);
2264: END IF;
2265:
2266:
2267: EXCEPTION
2269:
2270: WHEN e_send_true THEN
2271: resultout := 'COMPLETE:T';
2272: IF l_debug_on THEN
2273: wsh_debug_sv.log(l_module_name, 'resultout', resultout);
2274: wsh_debug_sv.pop(l_module_name);
2275: END IF;
2276:
2277: WHEN e_send_false THEN
2270: WHEN e_send_true THEN
2271: resultout := 'COMPLETE:T';
2272: IF l_debug_on THEN
2273: wsh_debug_sv.log(l_module_name, 'resultout', resultout);
2274: wsh_debug_sv.pop(l_module_name);
2275: END IF;
2276:
2277: WHEN e_send_false THEN
2278: resultout := 'COMPLETE:F';
2276:
2277: WHEN e_send_false THEN
2278: resultout := 'COMPLETE:F';
2279: IF l_debug_on THEN
2280: wsh_debug_sv.log(l_module_name, 'resultout', resultout);
2281: wsh_debug_sv.pop(l_module_name);
2282: END IF;
2283:
2284: WHEN OTHERS THEN
2277: WHEN e_send_false THEN
2278: resultout := 'COMPLETE:F';
2279: IF l_debug_on THEN
2280: wsh_debug_sv.log(l_module_name, 'resultout', resultout);
2281: wsh_debug_sv.pop(l_module_name);
2282: END IF;
2283:
2284: WHEN OTHERS THEN
2285: resultout := 'COMPLETE:FAILURE';
2284: WHEN OTHERS THEN
2285: resultout := 'COMPLETE:FAILURE';
2286: wsh_util_core.default_handler('WSH_TRANSACTIONS_UTIL.process_cbod_wf');
2287: IF l_debug_on THEN
2288: WSH_DEBUG_SV.logmsg(l_module_name,
2289: 'Unexpected error has occured. Oracle error message is '||
2290: substr(SQLERRM,1,200), WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2291: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2292: END IF;
2286: wsh_util_core.default_handler('WSH_TRANSACTIONS_UTIL.process_cbod_wf');
2287: IF l_debug_on THEN
2288: WSH_DEBUG_SV.logmsg(l_module_name,
2289: 'Unexpected error has occured. Oracle error message is '||
2290: substr(SQLERRM,1,200), WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2291: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2292: END IF;
2293: RAISE;
2294: END process_cbod_wf;
2287: IF l_debug_on THEN
2288: WSH_DEBUG_SV.logmsg(l_module_name,
2289: 'Unexpected error has occured. Oracle error message is '||
2290: substr(SQLERRM,1,200), WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2291: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2292: END IF;
2293: RAISE;
2294: END process_cbod_wf;
2295: