42: --
43: l_debugOn := WSH_DEBUG_INTERFACE.g_debug;
44: --
45: IF l_debugOn IS NULL THEN
46: l_debugOn := wsh_debug_sv.is_debug_enabled;
47: END IF;
48: --
49: IF l_debugOn THEN
50: wsh_debug_sv.push(l_moduleName);
46: l_debugOn := wsh_debug_sv.is_debug_enabled;
47: END IF;
48: --
49: IF l_debugOn THEN
50: wsh_debug_sv.push(l_moduleName);
51: wsh_debug_sv.log(l_moduleName, 'p_deliveryIdTab.COUNT', p_deliveryIdTab.COUNT);
52: END IF;
53: --
54: x_RetStatus := WSH_UTIL_CORE.g_RET_STS_SUCCESS;
47: END IF;
48: --
49: IF l_debugOn THEN
50: wsh_debug_sv.push(l_moduleName);
51: wsh_debug_sv.log(l_moduleName, 'p_deliveryIdTab.COUNT', p_deliveryIdTab.COUNT);
52: END IF;
53: --
54: x_RetStatus := WSH_UTIL_CORE.g_RET_STS_SUCCESS;
55: --
61: --{
62: BEGIN
63: --
64: IF l_debugOn THEN
65: wsh_debug_sv.log(l_moduleName, 'Delivery ID', p_DeliveryIdTab(i));
66: END IF;
67: --
68: -- First validate the delivery
69: --
122: --
123: WHEN FND_API.G_EXC_ERROR THEN
124: --
125: IF l_debugOn THEN
126: wsh_debug_sv.logmsg(l_moduleName, 'Expected error ' || SUBSTRB(SQLERRM,1,200));
127: END IF;
128: --
129: FND_MESSAGE.SET_NAME('WSH', 'WSH_ROUTING_RESP_FAILURE');
130: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME',
151: --
152: --WSH_UTIL_CORE.ADD_MESSAGE(x_RetStatus, l_moduleName);
153: --
154: IF l_debugOn THEN
155: wsh_debug_sv.log(l_moduleName, 'x_routingRespIdTab.COUNT', x_routingRespIdTab.COUNT);
156: wsh_debug_sv.log(l_moduleName, 'l_numWarnings', l_numWarnings);
157: wsh_debug_sv.log(l_moduleName, 'l_SuccDels', l_SuccDels);
158: wsh_debug_sv.log(l_moduleName, 'p_deliveryIdTab.COUNT', p_deliveryIdTab.COUNT);
159: wsh_debug_sv.log(l_moduleName, '# of messages', FND_MSG_PUB.COUNT_MSG);
152: --WSH_UTIL_CORE.ADD_MESSAGE(x_RetStatus, l_moduleName);
153: --
154: IF l_debugOn THEN
155: wsh_debug_sv.log(l_moduleName, 'x_routingRespIdTab.COUNT', x_routingRespIdTab.COUNT);
156: wsh_debug_sv.log(l_moduleName, 'l_numWarnings', l_numWarnings);
157: wsh_debug_sv.log(l_moduleName, 'l_SuccDels', l_SuccDels);
158: wsh_debug_sv.log(l_moduleName, 'p_deliveryIdTab.COUNT', p_deliveryIdTab.COUNT);
159: wsh_debug_sv.log(l_moduleName, '# of messages', FND_MSG_PUB.COUNT_MSG);
160: wsh_debug_sv.pop(l_moduleName, x_RetStatus);
153: --
154: IF l_debugOn THEN
155: wsh_debug_sv.log(l_moduleName, 'x_routingRespIdTab.COUNT', x_routingRespIdTab.COUNT);
156: wsh_debug_sv.log(l_moduleName, 'l_numWarnings', l_numWarnings);
157: wsh_debug_sv.log(l_moduleName, 'l_SuccDels', l_SuccDels);
158: wsh_debug_sv.log(l_moduleName, 'p_deliveryIdTab.COUNT', p_deliveryIdTab.COUNT);
159: wsh_debug_sv.log(l_moduleName, '# of messages', FND_MSG_PUB.COUNT_MSG);
160: wsh_debug_sv.pop(l_moduleName, x_RetStatus);
161: END IF;
154: IF l_debugOn THEN
155: wsh_debug_sv.log(l_moduleName, 'x_routingRespIdTab.COUNT', x_routingRespIdTab.COUNT);
156: wsh_debug_sv.log(l_moduleName, 'l_numWarnings', l_numWarnings);
157: wsh_debug_sv.log(l_moduleName, 'l_SuccDels', l_SuccDels);
158: wsh_debug_sv.log(l_moduleName, 'p_deliveryIdTab.COUNT', p_deliveryIdTab.COUNT);
159: wsh_debug_sv.log(l_moduleName, '# of messages', FND_MSG_PUB.COUNT_MSG);
160: wsh_debug_sv.pop(l_moduleName, x_RetStatus);
161: END IF;
162: --
155: wsh_debug_sv.log(l_moduleName, 'x_routingRespIdTab.COUNT', x_routingRespIdTab.COUNT);
156: wsh_debug_sv.log(l_moduleName, 'l_numWarnings', l_numWarnings);
157: wsh_debug_sv.log(l_moduleName, 'l_SuccDels', l_SuccDels);
158: wsh_debug_sv.log(l_moduleName, 'p_deliveryIdTab.COUNT', p_deliveryIdTab.COUNT);
159: wsh_debug_sv.log(l_moduleName, '# of messages', FND_MSG_PUB.COUNT_MSG);
160: wsh_debug_sv.pop(l_moduleName, x_RetStatus);
161: END IF;
162: --
163: EXCEPTION
156: wsh_debug_sv.log(l_moduleName, 'l_numWarnings', l_numWarnings);
157: wsh_debug_sv.log(l_moduleName, 'l_SuccDels', l_SuccDels);
158: wsh_debug_sv.log(l_moduleName, 'p_deliveryIdTab.COUNT', p_deliveryIdTab.COUNT);
159: wsh_debug_sv.log(l_moduleName, '# of messages', FND_MSG_PUB.COUNT_MSG);
160: wsh_debug_sv.pop(l_moduleName, x_RetStatus);
161: END IF;
162: --
163: EXCEPTION
164: --
168: FND_MESSAGE.SET_NAME('WSH', 'WSH_ROUTING_RESP_FAILURE');
169: WSH_UTIL_CORE.ADD_MESSAGE(x_RetStatus, l_moduleName);
170: --
171: IF l_debugOn THEN
172: wsh_debug_sv.logmsg(l_moduleName, 'Expected error ' || SUBSTRB(SQLERRM,1,200));
173: wsh_debug_sv.pop(l_moduleName);
174: END IF;
175: --
176: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
169: WSH_UTIL_CORE.ADD_MESSAGE(x_RetStatus, l_moduleName);
170: --
171: IF l_debugOn THEN
172: wsh_debug_sv.logmsg(l_moduleName, 'Expected error ' || SUBSTRB(SQLERRM,1,200));
173: wsh_debug_sv.pop(l_moduleName);
174: END IF;
175: --
176: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
177: --
179: FND_MESSAGE.SET_NAME('WSH', 'WSH_ROUTING_RESP_FAILURE');
180: WSH_UTIL_CORE.ADD_MESSAGE(x_RetStatus, l_moduleName);
181: --
182: IF l_debugOn THEN
183: wsh_debug_sv.logmsg(l_moduleName, 'Unexpected error ' || SUBSTRB(SQLERRM,1,200));
184: wsh_debug_sv.pop(l_moduleName);
185: END IF;
186: --
187: WHEN OTHERS THEN
180: WSH_UTIL_CORE.ADD_MESSAGE(x_RetStatus, l_moduleName);
181: --
182: IF l_debugOn THEN
183: wsh_debug_sv.logmsg(l_moduleName, 'Unexpected error ' || SUBSTRB(SQLERRM,1,200));
184: wsh_debug_sv.pop(l_moduleName);
185: END IF;
186: --
187: WHEN OTHERS THEN
188: --
192: FND_MESSAGE.SET_NAME('WSH', 'WSH_ROUTING_RESP_FAILURE');
193: WSH_UTIL_CORE.ADD_MESSAGE(x_RetStatus, l_moduleName);
194: --
195: IF l_debugOn THEN
196: wsh_debug_sv.logmsg(l_moduleName, 'Unexpected error ' || SUBSTRB(SQLERRM,1,100));
197: wsh_debug_sv.pop(l_moduleName);
198: END IF;
199: --
200: END GenerateRoutingResponse;
193: WSH_UTIL_CORE.ADD_MESSAGE(x_RetStatus, l_moduleName);
194: --
195: IF l_debugOn THEN
196: wsh_debug_sv.logmsg(l_moduleName, 'Unexpected error ' || SUBSTRB(SQLERRM,1,100));
197: wsh_debug_sv.pop(l_moduleName);
198: END IF;
199: --
200: END GenerateRoutingResponse;
201:
242: --
243: l_debugOn := WSH_DEBUG_INTERFACE.g_debug;
244: --
245: IF l_debugOn IS NULL THEN
246: l_debugOn := wsh_debug_sv.is_debug_enabled;
247: END IF;
248: --
249: IF l_debugOn THEN
250: wsh_debug_sv.push(l_moduleName);
246: l_debugOn := wsh_debug_sv.is_debug_enabled;
247: END IF;
248: --
249: IF l_debugOn THEN
250: wsh_debug_sv.push(l_moduleName);
251: wsh_debug_sv.log(l_moduleName, 'p_TxnId', p_TxnId);
252: wsh_debug_sv.log(l_moduleName, 'p_RespNum', p_RespNum);
253: wsh_debug_sv.log(l_moduleName, 'Delivery Id', p_delivId);
254: wsh_debug_sv.log(l_moduleName, 'Delivery Name', p_delName);
247: END IF;
248: --
249: IF l_debugOn THEN
250: wsh_debug_sv.push(l_moduleName);
251: wsh_debug_sv.log(l_moduleName, 'p_TxnId', p_TxnId);
252: wsh_debug_sv.log(l_moduleName, 'p_RespNum', p_RespNum);
253: wsh_debug_sv.log(l_moduleName, 'Delivery Id', p_delivId);
254: wsh_debug_sv.log(l_moduleName, 'Delivery Name', p_delName);
255: wsh_debug_sv.log(l_moduleName, 'Event Name', l_eventName);
248: --
249: IF l_debugOn THEN
250: wsh_debug_sv.push(l_moduleName);
251: wsh_debug_sv.log(l_moduleName, 'p_TxnId', p_TxnId);
252: wsh_debug_sv.log(l_moduleName, 'p_RespNum', p_RespNum);
253: wsh_debug_sv.log(l_moduleName, 'Delivery Id', p_delivId);
254: wsh_debug_sv.log(l_moduleName, 'Delivery Name', p_delName);
255: wsh_debug_sv.log(l_moduleName, 'Event Name', l_eventName);
256: wsh_debug_sv.log(l_moduleName, 'Item Type', l_itemType);
249: IF l_debugOn THEN
250: wsh_debug_sv.push(l_moduleName);
251: wsh_debug_sv.log(l_moduleName, 'p_TxnId', p_TxnId);
252: wsh_debug_sv.log(l_moduleName, 'p_RespNum', p_RespNum);
253: wsh_debug_sv.log(l_moduleName, 'Delivery Id', p_delivId);
254: wsh_debug_sv.log(l_moduleName, 'Delivery Name', p_delName);
255: wsh_debug_sv.log(l_moduleName, 'Event Name', l_eventName);
256: wsh_debug_sv.log(l_moduleName, 'Item Type', l_itemType);
257: END IF;
250: wsh_debug_sv.push(l_moduleName);
251: wsh_debug_sv.log(l_moduleName, 'p_TxnId', p_TxnId);
252: wsh_debug_sv.log(l_moduleName, 'p_RespNum', p_RespNum);
253: wsh_debug_sv.log(l_moduleName, 'Delivery Id', p_delivId);
254: wsh_debug_sv.log(l_moduleName, 'Delivery Name', p_delName);
255: wsh_debug_sv.log(l_moduleName, 'Event Name', l_eventName);
256: wsh_debug_sv.log(l_moduleName, 'Item Type', l_itemType);
257: END IF;
258: --
251: wsh_debug_sv.log(l_moduleName, 'p_TxnId', p_TxnId);
252: wsh_debug_sv.log(l_moduleName, 'p_RespNum', p_RespNum);
253: wsh_debug_sv.log(l_moduleName, 'Delivery Id', p_delivId);
254: wsh_debug_sv.log(l_moduleName, 'Delivery Name', p_delName);
255: wsh_debug_sv.log(l_moduleName, 'Event Name', l_eventName);
256: wsh_debug_sv.log(l_moduleName, 'Item Type', l_itemType);
257: END IF;
258: --
259: x_RetSts := WSH_UTIL_CORE.g_Ret_STS_SUCCESS;
252: wsh_debug_sv.log(l_moduleName, 'p_RespNum', p_RespNum);
253: wsh_debug_sv.log(l_moduleName, 'Delivery Id', p_delivId);
254: wsh_debug_sv.log(l_moduleName, 'Delivery Name', p_delName);
255: wsh_debug_sv.log(l_moduleName, 'Event Name', l_eventName);
256: wsh_debug_sv.log(l_moduleName, 'Item Type', l_itemType);
257: END IF;
258: --
259: x_RetSts := WSH_UTIL_CORE.g_Ret_STS_SUCCESS;
260: l_itemKey := p_TxnId;
265: l_FromRole := GetFromRole(FND_GLOBAL.USER_ID);
266: l_ToRole := GetToRole(p_delivId);
267: --
268: IF l_debugOn THEN
269: wsh_debug_sv.log(l_moduleName, 'Org ID', l_orgId);
270: wsh_debug_sv.log(l_moduleName, 'From Role', l_FromRole);
271: wsh_debug_sv.log(l_moduleName, 'To Role', l_ToRole);
272: END IF;
273: --
266: l_ToRole := GetToRole(p_delivId);
267: --
268: IF l_debugOn THEN
269: wsh_debug_sv.log(l_moduleName, 'Org ID', l_orgId);
270: wsh_debug_sv.log(l_moduleName, 'From Role', l_FromRole);
271: wsh_debug_sv.log(l_moduleName, 'To Role', l_ToRole);
272: END IF;
273: --
274: -- Set the item attributes for the FTERRESP workflow item
267: --
268: IF l_debugOn THEN
269: wsh_debug_sv.log(l_moduleName, 'Org ID', l_orgId);
270: wsh_debug_sv.log(l_moduleName, 'From Role', l_FromRole);
271: wsh_debug_sv.log(l_moduleName, 'To Role', l_ToRole);
272: END IF;
273: --
274: -- Set the item attributes for the FTERRESP workflow item
275: --
313: p_value => p_RespNum,
314: p_parameterlist => l_parameter_list);
315: --
316: IF l_debugOn THEN
317: wsh_debug_sv.log(l_moduleName, 'Event Name', l_eventName);
318: wsh_debug_sv.log(l_moduleName, 'Item Key', l_itemKey);
319: wsh_debug_sv.logmsg(l_moduleName, 'Now Raising business event');
320: END IF;
321: --
314: p_parameterlist => l_parameter_list);
315: --
316: IF l_debugOn THEN
317: wsh_debug_sv.log(l_moduleName, 'Event Name', l_eventName);
318: wsh_debug_sv.log(l_moduleName, 'Item Key', l_itemKey);
319: wsh_debug_sv.logmsg(l_moduleName, 'Now Raising business event');
320: END IF;
321: --
322: -- Raise the business event
315: --
316: IF l_debugOn THEN
317: wsh_debug_sv.log(l_moduleName, 'Event Name', l_eventName);
318: wsh_debug_sv.log(l_moduleName, 'Item Key', l_itemKey);
319: wsh_debug_sv.logmsg(l_moduleName, 'Now Raising business event');
320: END IF;
321: --
322: -- Raise the business event
323: --
326: p_parameters => l_parameter_list
327: );
328: --
329: IF l_debugOn THEN
330: wsh_debug_sv.logmsg(l_moduleName, 'After raising business event');
331: wsh_debug_sv.pop(l_moduleName);
332: END IF;
333: --
334: EXCEPTION
327: );
328: --
329: IF l_debugOn THEN
330: wsh_debug_sv.logmsg(l_moduleName, 'After raising business event');
331: wsh_debug_sv.pop(l_moduleName);
332: END IF;
333: --
334: EXCEPTION
335: --
339: --
340: wsh_util_core.default_handler('WSH_ROUTING_RESPONSE_PKG.SendNotification');
341: --
342: IF l_debugOn THEN
343: wsh_debug_sv.logmsg(l_moduleName, 'Unexpected error ' || SUBSTRB(SQLERRM,1,200));
344: wsh_debug_sv.pop(l_moduleName);
345: END IF;
346: --
347: RAISE;
340: wsh_util_core.default_handler('WSH_ROUTING_RESPONSE_PKG.SendNotification');
341: --
342: IF l_debugOn THEN
343: wsh_debug_sv.logmsg(l_moduleName, 'Unexpected error ' || SUBSTRB(SQLERRM,1,200));
344: wsh_debug_sv.pop(l_moduleName);
345: END IF;
346: --
347: RAISE;
348: --
449: --
450: l_debugOn := WSH_DEBUG_INTERFACE.g_debug;
451: --
452: IF l_debugOn IS NULL THEN
453: l_debugOn := wsh_debug_sv.is_debug_enabled;
454: END IF;
455: --
456: IF l_debugOn THEN
457: wsh_debug_sv.push(l_moduleName);
453: l_debugOn := wsh_debug_sv.is_debug_enabled;
454: END IF;
455: --
456: IF l_debugOn THEN
457: wsh_debug_sv.push(l_moduleName);
458: wsh_debug_sv.log(l_moduleName, 'itemtype', itemtype);
459: wsh_debug_sv.log(l_moduleName, 'itemKey', itemKey);
460: wsh_debug_sv.log(l_moduleName, 'actid', actid);
461: wsh_debug_sv.log(l_moduleName, 'funcmode', funcmode);
454: END IF;
455: --
456: IF l_debugOn THEN
457: wsh_debug_sv.push(l_moduleName);
458: wsh_debug_sv.log(l_moduleName, 'itemtype', itemtype);
459: wsh_debug_sv.log(l_moduleName, 'itemKey', itemKey);
460: wsh_debug_sv.log(l_moduleName, 'actid', actid);
461: wsh_debug_sv.log(l_moduleName, 'funcmode', funcmode);
462: END IF;
455: --
456: IF l_debugOn THEN
457: wsh_debug_sv.push(l_moduleName);
458: wsh_debug_sv.log(l_moduleName, 'itemtype', itemtype);
459: wsh_debug_sv.log(l_moduleName, 'itemKey', itemKey);
460: wsh_debug_sv.log(l_moduleName, 'actid', actid);
461: wsh_debug_sv.log(l_moduleName, 'funcmode', funcmode);
462: END IF;
463: --
456: IF l_debugOn THEN
457: wsh_debug_sv.push(l_moduleName);
458: wsh_debug_sv.log(l_moduleName, 'itemtype', itemtype);
459: wsh_debug_sv.log(l_moduleName, 'itemKey', itemKey);
460: wsh_debug_sv.log(l_moduleName, 'actid', actid);
461: wsh_debug_sv.log(l_moduleName, 'funcmode', funcmode);
462: END IF;
463: --
464: IF (funcmode = 'RUN') THEN
457: wsh_debug_sv.push(l_moduleName);
458: wsh_debug_sv.log(l_moduleName, 'itemtype', itemtype);
459: wsh_debug_sv.log(l_moduleName, 'itemKey', itemKey);
460: wsh_debug_sv.log(l_moduleName, 'actid', actid);
461: wsh_debug_sv.log(l_moduleName, 'funcmode', funcmode);
462: END IF;
463: --
464: IF (funcmode = 'RUN') THEN
465: --{
481: --
482: IF LockDelivery(l_deliveryId) THEN
483: --{
484: IF l_debugOn THEN
485: wsh_debug_sv.logmsg(l_moduleName, 'Delivery ' || l_deliveryID || ' locked Successfully');
486: wsh_debug_sv.log(l_moduleName, 'Org ID', l_orgId);
487: wsh_debug_sv.log(l_moduleName, 'Routing response Number', l_routrespNum);
488: END IF;
489: --
482: IF LockDelivery(l_deliveryId) THEN
483: --{
484: IF l_debugOn THEN
485: wsh_debug_sv.logmsg(l_moduleName, 'Delivery ' || l_deliveryID || ' locked Successfully');
486: wsh_debug_sv.log(l_moduleName, 'Org ID', l_orgId);
487: wsh_debug_sv.log(l_moduleName, 'Routing response Number', l_routrespNum);
488: END IF;
489: --
490: -- Re-validate the delivery
483: --{
484: IF l_debugOn THEN
485: wsh_debug_sv.logmsg(l_moduleName, 'Delivery ' || l_deliveryID || ' locked Successfully');
486: wsh_debug_sv.log(l_moduleName, 'Org ID', l_orgId);
487: wsh_debug_sv.log(l_moduleName, 'Routing response Number', l_routrespNum);
488: END IF;
489: --
490: -- Re-validate the delivery
491: --
499: IF l_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) OR
500: l_performer IS NULL THEN
501: --
502: IF l_debugOn THEN
503: wsh_debug_sv.logmsg(l_moduleName, 'Routing response cannot be generated');
504: wsh_debug_sv.log(l_moduleName, '# of error messages', FND_MSG_PUB.COUNT_MSG);
505: END IF;
506: --
507: -- Delivery failed validation (or) the to Role is null.
500: l_performer IS NULL THEN
501: --
502: IF l_debugOn THEN
503: wsh_debug_sv.logmsg(l_moduleName, 'Routing response cannot be generated');
504: wsh_debug_sv.log(l_moduleName, '# of error messages', FND_MSG_PUB.COUNT_MSG);
505: END IF;
506: --
507: -- Delivery failed validation (or) the to Role is null.
508: -- Set the failure notification subject and message body
521: --
522: END LOOP;
523: --
524: IF l_debugOn THEN
525: wsh_debug_sv.log(l_moduleName, 'Failure Message subject', l_msgFailSubject);
526: wsh_debug_sv.log(l_moduleName, 'Body', l_failReason);
527: END IF;
528: --
529: WF_ENGINE.SetItemAttrText(itemType, itemKey, 'SUBJECT_FAIL', l_msgFailSubject);
522: END LOOP;
523: --
524: IF l_debugOn THEN
525: wsh_debug_sv.log(l_moduleName, 'Failure Message subject', l_msgFailSubject);
526: wsh_debug_sv.log(l_moduleName, 'Body', l_failReason);
527: END IF;
528: --
529: WF_ENGINE.SetItemAttrText(itemType, itemKey, 'SUBJECT_FAIL', l_msgFailSubject);
530: WF_ENGINE.SetItemAttrText(itemType, itemKey, 'NOTFN_FAILED_BODY', l_failReason);
535: -- Delivery has been locked and has been determined to be valid
536: --
537: --{
538: IF l_debugOn THEN
539: wsh_debug_sv.logmsg(l_moduleName, 'Delivery is locked and is valid');
540: END IF;
541: --
542: -- Determine how many routing requests are tied to this delivery
543: --
546: --
547: IF c_RoutReqId%ROWCOUNT > 1 THEN
548: --
549: IF l_debugOn THEN
550: wsh_debug_sv.log(l_moduleName, '# of routing requests', c_RoutReqId%ROWCOUNT);
551: wsh_debug_sv.log(l_moduleName, 'l_routReqIdTab.COUNT', l_routReqIdTab.COUNT);
552: END IF;
553: --
554: FND_MESSAGE.SET_NAME('FTE', 'FTE_RRESP_MULTIPLE_RREQ');
547: IF c_RoutReqId%ROWCOUNT > 1 THEN
548: --
549: IF l_debugOn THEN
550: wsh_debug_sv.log(l_moduleName, '# of routing requests', c_RoutReqId%ROWCOUNT);
551: wsh_debug_sv.log(l_moduleName, 'l_routReqIdTab.COUNT', l_routReqIdTab.COUNT);
552: END IF;
553: --
554: FND_MESSAGE.SET_NAME('FTE', 'FTE_RRESP_MULTIPLE_RREQ');
555: FND_MESSAGE.SET_TOKEN('RESP_NUM', l_routrespNum);
567: CLOSE c_RoutReqNum;
568: END IF;
569: --
570: IF l_debugOn THEN
571: wsh_debug_sv.log(l_moduleName, 'Routing Request ID',
572: l_routReqIdTab(l_routReqIdTab.FIRST));
573: wsh_debug_sv.log(l_ModuleName, 'Routing Request Number', l_routReqNum);
574: END IF;
575: --
569: --
570: IF l_debugOn THEN
571: wsh_debug_sv.log(l_moduleName, 'Routing Request ID',
572: l_routReqIdTab(l_routReqIdTab.FIRST));
573: wsh_debug_sv.log(l_ModuleName, 'Routing Request Number', l_routReqNum);
574: END IF;
575: --
576: -- Get the highest routing response revision
577: -- and bump it up by 1
585: --
586: l_revNum := NVL(l_revNum, 0) + 1;
587: --
588: IF l_debugOn THEN
589: wsh_debug_sv.log(l_moduleName, 'Revision Number', l_revNum);
590: END IF;
591: --
592: -- Get the pickup and dropoff stop Ids
593: --
600: FETCH c_GetDropoffStopId INTO l_dropOffStopId;
601: CLOSE c_GetDropoffStopId;
602: --
603: IF l_debugOn THEN
604: wsh_debug_sv.log(l_moduleName, 'Pickup Stop ID', l_pickupStopId);
605: wsh_debug_sv.log(l_moduleName, 'Dropoff Stop Id', l_dropoffStopId);
606: wsh_debug_sv.log(l_moduleName, 'Trip Id', l_TripId);
607: wsh_debug_sv.log(l_moduleName, 'Delivery Name', l_delName);
608: wsh_debug_sv.log(l_moduleName, 'Delivery Plan Flag', l_delPlanFlag);
601: CLOSE c_GetDropoffStopId;
602: --
603: IF l_debugOn THEN
604: wsh_debug_sv.log(l_moduleName, 'Pickup Stop ID', l_pickupStopId);
605: wsh_debug_sv.log(l_moduleName, 'Dropoff Stop Id', l_dropoffStopId);
606: wsh_debug_sv.log(l_moduleName, 'Trip Id', l_TripId);
607: wsh_debug_sv.log(l_moduleName, 'Delivery Name', l_delName);
608: wsh_debug_sv.log(l_moduleName, 'Delivery Plan Flag', l_delPlanFlag);
609: wsh_debug_sv.log(l_moduleName, 'Trip Plan Flag', l_tripPlanFlag);
602: --
603: IF l_debugOn THEN
604: wsh_debug_sv.log(l_moduleName, 'Pickup Stop ID', l_pickupStopId);
605: wsh_debug_sv.log(l_moduleName, 'Dropoff Stop Id', l_dropoffStopId);
606: wsh_debug_sv.log(l_moduleName, 'Trip Id', l_TripId);
607: wsh_debug_sv.log(l_moduleName, 'Delivery Name', l_delName);
608: wsh_debug_sv.log(l_moduleName, 'Delivery Plan Flag', l_delPlanFlag);
609: wsh_debug_sv.log(l_moduleName, 'Trip Plan Flag', l_tripPlanFlag);
610: END IF;
603: IF l_debugOn THEN
604: wsh_debug_sv.log(l_moduleName, 'Pickup Stop ID', l_pickupStopId);
605: wsh_debug_sv.log(l_moduleName, 'Dropoff Stop Id', l_dropoffStopId);
606: wsh_debug_sv.log(l_moduleName, 'Trip Id', l_TripId);
607: wsh_debug_sv.log(l_moduleName, 'Delivery Name', l_delName);
608: wsh_debug_sv.log(l_moduleName, 'Delivery Plan Flag', l_delPlanFlag);
609: wsh_debug_sv.log(l_moduleName, 'Trip Plan Flag', l_tripPlanFlag);
610: END IF;
611: --
604: wsh_debug_sv.log(l_moduleName, 'Pickup Stop ID', l_pickupStopId);
605: wsh_debug_sv.log(l_moduleName, 'Dropoff Stop Id', l_dropoffStopId);
606: wsh_debug_sv.log(l_moduleName, 'Trip Id', l_TripId);
607: wsh_debug_sv.log(l_moduleName, 'Delivery Name', l_delName);
608: wsh_debug_sv.log(l_moduleName, 'Delivery Plan Flag', l_delPlanFlag);
609: wsh_debug_sv.log(l_moduleName, 'Trip Plan Flag', l_tripPlanFlag);
610: END IF;
611: --
612: -- Bug 317799 : If delivery/trip is not planned,
605: wsh_debug_sv.log(l_moduleName, 'Dropoff Stop Id', l_dropoffStopId);
606: wsh_debug_sv.log(l_moduleName, 'Trip Id', l_TripId);
607: wsh_debug_sv.log(l_moduleName, 'Delivery Name', l_delName);
608: wsh_debug_sv.log(l_moduleName, 'Delivery Plan Flag', l_delPlanFlag);
609: wsh_debug_sv.log(l_moduleName, 'Trip Plan Flag', l_tripPlanFlag);
610: END IF;
611: --
612: -- Bug 317799 : If delivery/trip is not planned,
613: -- go ahead and plan them
627: --{
628: l_planDelSts := FALSE;
629: --
630: IF l_debugOn THEN
631: wsh_debug_sv.logmsg(l_moduleName, 'Error in Plan Delivery API');
632: END IF;
633: --
634: FND_MESSAGE.SET_NAME('FTE', 'FTE_RRESP_GEN_FAILED_SUBJ');
635: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME', WSH_NEW_DELIVERIES_PVT.Get_Name(l_deliveryId));
661: --
662: IF l_retStatus NOT IN (WSH_UTIL_CORE.G_RET_STS_SUCCESS, WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
663: --{
664: IF l_debugOn THEN
665: wsh_debug_sv.logmsg(l_moduleName, 'Error in TripPlan API');
666: END IF;
667: --
668: FND_MESSAGE.SET_NAME('WSH', 'WSH_TRIP_PLAN_ERROR');
669: FND_MESSAGE.SET_TOKEN('TRIP_NAME', WSH_TRIPS_PVT.Get_Name(l_tripId));
673: --}
674: END IF;
675: --
676: IF l_debugOn THEN
677: wsh_debug_sv.log(l_moduleName, 'Message Subject', l_msgSubject);
678: wsh_debug_sv.log(l_moduleName, 'Message Fail Subject', l_msgFailSubject);
679: wsh_debug_sv.log(l_ModuleName, 'Failure Reason', l_failReason);
680: wsh_debug_sv.log(l_moduleName, 'WF_HEADER_ATTR', wf_core.translate('WF_HEADER_ATTR'));
681: wsh_debug_sv.log(l_moduleName, 'l_planDelSts', l_planDelSts);
674: END IF;
675: --
676: IF l_debugOn THEN
677: wsh_debug_sv.log(l_moduleName, 'Message Subject', l_msgSubject);
678: wsh_debug_sv.log(l_moduleName, 'Message Fail Subject', l_msgFailSubject);
679: wsh_debug_sv.log(l_ModuleName, 'Failure Reason', l_failReason);
680: wsh_debug_sv.log(l_moduleName, 'WF_HEADER_ATTR', wf_core.translate('WF_HEADER_ATTR'));
681: wsh_debug_sv.log(l_moduleName, 'l_planDelSts', l_planDelSts);
682: END IF;
675: --
676: IF l_debugOn THEN
677: wsh_debug_sv.log(l_moduleName, 'Message Subject', l_msgSubject);
678: wsh_debug_sv.log(l_moduleName, 'Message Fail Subject', l_msgFailSubject);
679: wsh_debug_sv.log(l_ModuleName, 'Failure Reason', l_failReason);
680: wsh_debug_sv.log(l_moduleName, 'WF_HEADER_ATTR', wf_core.translate('WF_HEADER_ATTR'));
681: wsh_debug_sv.log(l_moduleName, 'l_planDelSts', l_planDelSts);
682: END IF;
683: --
676: IF l_debugOn THEN
677: wsh_debug_sv.log(l_moduleName, 'Message Subject', l_msgSubject);
678: wsh_debug_sv.log(l_moduleName, 'Message Fail Subject', l_msgFailSubject);
679: wsh_debug_sv.log(l_ModuleName, 'Failure Reason', l_failReason);
680: wsh_debug_sv.log(l_moduleName, 'WF_HEADER_ATTR', wf_core.translate('WF_HEADER_ATTR'));
681: wsh_debug_sv.log(l_moduleName, 'l_planDelSts', l_planDelSts);
682: END IF;
683: --
684: IF NOT l_planDelSts THEN
677: wsh_debug_sv.log(l_moduleName, 'Message Subject', l_msgSubject);
678: wsh_debug_sv.log(l_moduleName, 'Message Fail Subject', l_msgFailSubject);
679: wsh_debug_sv.log(l_ModuleName, 'Failure Reason', l_failReason);
680: wsh_debug_sv.log(l_moduleName, 'WF_HEADER_ATTR', wf_core.translate('WF_HEADER_ATTR'));
681: wsh_debug_sv.log(l_moduleName, 'l_planDelSts', l_planDelSts);
682: END IF;
683: --
684: IF NOT l_planDelSts THEN
685: --{
700: --
701: END IF;
702: --
703: IF l_debugOn THEN
704: wsh_debug_sv.logmsg(l_moduleName, 'No failures or errors');
705: wsh_debug_sv.log(l_moduleName, 'E-mail Subject', l_msgSubject);
706: END IF;
707: --
708: -- Set the WF item attributes for the routing response OA
701: END IF;
702: --
703: IF l_debugOn THEN
704: wsh_debug_sv.logmsg(l_moduleName, 'No failures or errors');
705: wsh_debug_sv.log(l_moduleName, 'E-mail Subject', l_msgSubject);
706: END IF;
707: --
708: -- Set the WF item attributes for the routing response OA
709: -- region to be rendered
732: -- Delivery could not be locked, so set error message
733: --
734: --{
735: IF l_debugOn THEN
736: wsh_debug_sv.logmsg(l_moduleName, 'Delivery ' || l_deliveryId || ' not locked');
737: END IF;
738: --
739: FND_MESSAGE.SET_NAME('FTE', 'FTE_RRESP_GEN_FAILED_SUBJ');
740: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME', WSH_NEW_DELIVERIES_PVT.Get_Name(l_deliveryId));
743: FND_MESSAGE.SET_NAME('FTE', 'FTE_RRESP_PRE_DEL_LOCKED');
744: l_failReason := FND_MESSAGE.GET;
745: --
746: IF l_debugOn THEN
747: wsh_debug_sv.log(l_moduleName, 'Failure Message subject', l_msgFailSubject);
748: wsh_debug_sv.log(l_moduleName, 'Body', l_failReason);
749: END IF;
750: --
751: WF_ENGINE.SetItemAttrText(itemType, itemKey, 'SUBJECT_FAIL', l_msgFailSubject);
744: l_failReason := FND_MESSAGE.GET;
745: --
746: IF l_debugOn THEN
747: wsh_debug_sv.log(l_moduleName, 'Failure Message subject', l_msgFailSubject);
748: wsh_debug_sv.log(l_moduleName, 'Body', l_failReason);
749: END IF;
750: --
751: WF_ENGINE.SetItemAttrText(itemType, itemKey, 'SUBJECT_FAIL', l_msgFailSubject);
752: WF_ENGINE.SetItemAttrText(itemType, itemKey, 'NOTFN_FAILED_BODY', l_failReason);
765: resultout := 'F';
766: END IF;
767: --
768: IF l_debugOn THEN
769: wsh_debug_sv.log(l_moduleName, 'resultout', resultout);
770: wsh_debug_sv.pop(l_moduleName);
771: END IF;
772: --
773: EXCEPTION
766: END IF;
767: --
768: IF l_debugOn THEN
769: wsh_debug_sv.log(l_moduleName, 'resultout', resultout);
770: wsh_debug_sv.pop(l_moduleName);
771: END IF;
772: --
773: EXCEPTION
774: --
778: wf_core.context('WSH_ROUTING_RESPONSE_PKG','PreNotification',
779: itemtype, itemkey,TO_CHAR(actid),funcmode);
780: --
781: IF l_debugOn THEN
782: wsh_debug_sv.logmsg(l_moduleName, 'Unexpected error ' || SUBSTRB(SQLERRM,1,200));
783: wsh_debug_sv.log(l_moduleName, 'resultout', resultout);
784: wsh_debug_sv.pop(l_moduleName);
785: END IF;
786: --
779: itemtype, itemkey,TO_CHAR(actid),funcmode);
780: --
781: IF l_debugOn THEN
782: wsh_debug_sv.logmsg(l_moduleName, 'Unexpected error ' || SUBSTRB(SQLERRM,1,200));
783: wsh_debug_sv.log(l_moduleName, 'resultout', resultout);
784: wsh_debug_sv.pop(l_moduleName);
785: END IF;
786: --
787: END PreNotification;
780: --
781: IF l_debugOn THEN
782: wsh_debug_sv.logmsg(l_moduleName, 'Unexpected error ' || SUBSTRB(SQLERRM,1,200));
783: wsh_debug_sv.log(l_moduleName, 'resultout', resultout);
784: wsh_debug_sv.pop(l_moduleName);
785: END IF;
786: --
787: END PreNotification;
788:
827: --
828: l_debugOn := WSH_DEBUG_INTERFACE.g_debug;
829: --
830: IF l_debugOn IS NULL THEN
831: l_debugOn := wsh_debug_sv.is_debug_enabled;
832: END IF;
833: --
834: IF l_debugOn THEN
835: wsh_debug_sv.push(l_moduleName);
831: l_debugOn := wsh_debug_sv.is_debug_enabled;
832: END IF;
833: --
834: IF l_debugOn THEN
835: wsh_debug_sv.push(l_moduleName);
836: wsh_debug_sv.log(l_moduleName, 'itemtype', itemtype);
837: wsh_debug_sv.log(l_moduleName, 'itemKey', itemKey);
838: wsh_debug_sv.log(l_moduleName, 'actid', actid);
839: wsh_debug_sv.log(l_moduleName, 'funcmode', funcmode);
832: END IF;
833: --
834: IF l_debugOn THEN
835: wsh_debug_sv.push(l_moduleName);
836: wsh_debug_sv.log(l_moduleName, 'itemtype', itemtype);
837: wsh_debug_sv.log(l_moduleName, 'itemKey', itemKey);
838: wsh_debug_sv.log(l_moduleName, 'actid', actid);
839: wsh_debug_sv.log(l_moduleName, 'funcmode', funcmode);
840: END IF;
833: --
834: IF l_debugOn THEN
835: wsh_debug_sv.push(l_moduleName);
836: wsh_debug_sv.log(l_moduleName, 'itemtype', itemtype);
837: wsh_debug_sv.log(l_moduleName, 'itemKey', itemKey);
838: wsh_debug_sv.log(l_moduleName, 'actid', actid);
839: wsh_debug_sv.log(l_moduleName, 'funcmode', funcmode);
840: END IF;
841: --
834: IF l_debugOn THEN
835: wsh_debug_sv.push(l_moduleName);
836: wsh_debug_sv.log(l_moduleName, 'itemtype', itemtype);
837: wsh_debug_sv.log(l_moduleName, 'itemKey', itemKey);
838: wsh_debug_sv.log(l_moduleName, 'actid', actid);
839: wsh_debug_sv.log(l_moduleName, 'funcmode', funcmode);
840: END IF;
841: --
842: IF (funcmode = 'RUN') THEN
835: wsh_debug_sv.push(l_moduleName);
836: wsh_debug_sv.log(l_moduleName, 'itemtype', itemtype);
837: wsh_debug_sv.log(l_moduleName, 'itemKey', itemKey);
838: wsh_debug_sv.log(l_moduleName, 'actid', actid);
839: wsh_debug_sv.log(l_moduleName, 'funcmode', funcmode);
840: END IF;
841: --
842: IF (funcmode = 'RUN') THEN
843: --
846: l_revNum := WF_ENGINE.GetItemAttrText(itemtype, itemKey, 'REVISION_NUM');
847: l_respNum := WF_ENGINE.GetItemAttrText(itemtype, itemKey, 'ROUT_RESP_NUM');
848: --
849: IF l_debugOn THEN
850: wsh_debug_sv.log(l_moduleName, 'l_deliveryId', l_deliveryId);
851: wsh_debug_sv.log(l_moduleName, 'l_TxnId', l_TxnId);
852: wsh_debug_sv.log(l_moduleName, 'l_revNum', l_revNum);
853: wsh_debug_sv.log(l_moduleName, 'l_respNum', l_respNum);
854: END IF;
847: l_respNum := WF_ENGINE.GetItemAttrText(itemtype, itemKey, 'ROUT_RESP_NUM');
848: --
849: IF l_debugOn THEN
850: wsh_debug_sv.log(l_moduleName, 'l_deliveryId', l_deliveryId);
851: wsh_debug_sv.log(l_moduleName, 'l_TxnId', l_TxnId);
852: wsh_debug_sv.log(l_moduleName, 'l_revNum', l_revNum);
853: wsh_debug_sv.log(l_moduleName, 'l_respNum', l_respNum);
854: END IF;
855: --
848: --
849: IF l_debugOn THEN
850: wsh_debug_sv.log(l_moduleName, 'l_deliveryId', l_deliveryId);
851: wsh_debug_sv.log(l_moduleName, 'l_TxnId', l_TxnId);
852: wsh_debug_sv.log(l_moduleName, 'l_revNum', l_revNum);
853: wsh_debug_sv.log(l_moduleName, 'l_respNum', l_respNum);
854: END IF;
855: --
856: -- Call API to perform updates
849: IF l_debugOn THEN
850: wsh_debug_sv.log(l_moduleName, 'l_deliveryId', l_deliveryId);
851: wsh_debug_sv.log(l_moduleName, 'l_TxnId', l_TxnId);
852: wsh_debug_sv.log(l_moduleName, 'l_revNum', l_revNum);
853: wsh_debug_sv.log(l_moduleName, 'l_respNum', l_respNum);
854: END IF;
855: --
856: -- Call API to perform updates
857: --
887: resultout := 'F';
888: END IF;
889: --
890: IF l_debugOn THEN
891: wsh_debug_sv.log(l_moduleName, 'resultout', resultout);
892: wsh_debug_sv.pop(l_moduleName);
893: END IF;
894: --
895: EXCEPTION
888: END IF;
889: --
890: IF l_debugOn THEN
891: wsh_debug_sv.log(l_moduleName, 'resultout', resultout);
892: wsh_debug_sv.pop(l_moduleName);
893: END IF;
894: --
895: EXCEPTION
896: --
900: wf_core.context('WSH_ROUTING_RESPONSE_PKG','PostNotification',
901: itemtype, itemkey,TO_CHAR(actid),funcmode);
902: --
903: IF l_debugOn THEN
904: wsh_debug_sv.logmsg(l_moduleName, 'Unexpected error ' || SUBSTRB(SQLERRM,1,100));
905: wsh_debug_sv.log(l_moduleName, 'resultout', resultout);
906: wsh_debug_sv.pop(l_moduleName);
907: END IF;
908: --
901: itemtype, itemkey,TO_CHAR(actid),funcmode);
902: --
903: IF l_debugOn THEN
904: wsh_debug_sv.logmsg(l_moduleName, 'Unexpected error ' || SUBSTRB(SQLERRM,1,100));
905: wsh_debug_sv.log(l_moduleName, 'resultout', resultout);
906: wsh_debug_sv.pop(l_moduleName);
907: END IF;
908: --
909: END PostNotification;
902: --
903: IF l_debugOn THEN
904: wsh_debug_sv.logmsg(l_moduleName, 'Unexpected error ' || SUBSTRB(SQLERRM,1,100));
905: wsh_debug_sv.log(l_moduleName, 'resultout', resultout);
906: wsh_debug_sv.pop(l_moduleName);
907: END IF;
908: --
909: END PostNotification;
910:
938: --
939: l_debugOn := WSH_DEBUG_INTERFACE.g_debug;
940: --
941: IF l_debugOn IS NULL THEN
942: l_debugOn := wsh_debug_sv.is_debug_enabled;
943: END IF;
944: --
945: IF l_debugOn THEN
946: wsh_debug_sv.push(l_moduleName);
942: l_debugOn := wsh_debug_sv.is_debug_enabled;
943: END IF;
944: --
945: IF l_debugOn THEN
946: wsh_debug_sv.push(l_moduleName);
947: wsh_debug_sv.log(l_moduleName, 'User Id', p_userId);
948: END IF;
949: --
950: OPEN c_GetUser;
943: END IF;
944: --
945: IF l_debugOn THEN
946: wsh_debug_sv.push(l_moduleName);
947: wsh_debug_sv.log(l_moduleName, 'User Id', p_userId);
948: END IF;
949: --
950: OPEN c_GetUser;
951: FETCH c_GetUser INTO v_Name;
956: --
957: CLOSE c_GetUser;
958: --
959: IF l_debugOn THEN
960: wsh_Debug_sv.log(l_moduleName, 'v_Name', v_Name);
961: wsh_debug_sv.pop(l_moduleName);
962: END IF;
963: --
964: RETURN (v_Name);
957: CLOSE c_GetUser;
958: --
959: IF l_debugOn THEN
960: wsh_Debug_sv.log(l_moduleName, 'v_Name', v_Name);
961: wsh_debug_sv.pop(l_moduleName);
962: END IF;
963: --
964: RETURN (v_Name);
965: --
970: v_Name := NULL;
971: --
972: wsh_util_core.default_handler('WSH_ROUTING_RESPONSE_PKG.GetFromRole');
973: IF l_debugOn THEN
974: wsh_debug_sv.logmsg(l_moduleName, 'Unexpected error ' || SUBSTRB(SQLERRM, 1, 200));
975: wsh_debug_sv.pop(l_moduleName);
976: END IF;
977: --
978: RAISE;
971: --
972: wsh_util_core.default_handler('WSH_ROUTING_RESPONSE_PKG.GetFromRole');
973: IF l_debugOn THEN
974: wsh_debug_sv.logmsg(l_moduleName, 'Unexpected error ' || SUBSTRB(SQLERRM, 1, 200));
975: wsh_debug_sv.pop(l_moduleName);
976: END IF;
977: --
978: RAISE;
979: --
1093: --
1094: l_debugOn := WSH_DEBUG_INTERFACE.g_debug;
1095: --
1096: IF l_debugOn IS NULL THEN
1097: l_debugOn := wsh_debug_sv.is_debug_enabled;
1098: END IF;
1099: --
1100: IF l_debugOn THEN
1101: wsh_debug_sv.push(l_moduleName);
1097: l_debugOn := wsh_debug_sv.is_debug_enabled;
1098: END IF;
1099: --
1100: IF l_debugOn THEN
1101: wsh_debug_sv.push(l_moduleName);
1102: wsh_debug_sv.log(l_moduleName, 'Delivery Id', p_delivId);
1103: END IF;
1104: --
1105: -- Get the transaction Id associated with the delivery
1098: END IF;
1099: --
1100: IF l_debugOn THEN
1101: wsh_debug_sv.push(l_moduleName);
1102: wsh_debug_sv.log(l_moduleName, 'Delivery Id', p_delivId);
1103: END IF;
1104: --
1105: -- Get the transaction Id associated with the delivery
1106: --
1123: --
1124: CLOSE c_DelInfo;
1125: --
1126: IF l_debugOn THEN
1127: wsh_debug_sv.log(l_moduleName, 'Pickup Location Id', v_LocId);
1128: wsh_debug_sv.log(l_moduleName, 'Delivery Party ID', v_PartyId);
1129: wsh_debug_sv.log(l_moduleName, 'Vendor ID', v_VendorId);
1130: wsh_debug_sv.log(l_moduleName, 'Role Name', l_roleName);
1131: END IF;
1124: CLOSE c_DelInfo;
1125: --
1126: IF l_debugOn THEN
1127: wsh_debug_sv.log(l_moduleName, 'Pickup Location Id', v_LocId);
1128: wsh_debug_sv.log(l_moduleName, 'Delivery Party ID', v_PartyId);
1129: wsh_debug_sv.log(l_moduleName, 'Vendor ID', v_VendorId);
1130: wsh_debug_sv.log(l_moduleName, 'Role Name', l_roleName);
1131: END IF;
1132: --
1125: --
1126: IF l_debugOn THEN
1127: wsh_debug_sv.log(l_moduleName, 'Pickup Location Id', v_LocId);
1128: wsh_debug_sv.log(l_moduleName, 'Delivery Party ID', v_PartyId);
1129: wsh_debug_sv.log(l_moduleName, 'Vendor ID', v_VendorId);
1130: wsh_debug_sv.log(l_moduleName, 'Role Name', l_roleName);
1131: END IF;
1132: --
1133: -- Get the party relationship Id
1126: IF l_debugOn THEN
1127: wsh_debug_sv.log(l_moduleName, 'Pickup Location Id', v_LocId);
1128: wsh_debug_sv.log(l_moduleName, 'Delivery Party ID', v_PartyId);
1129: wsh_debug_sv.log(l_moduleName, 'Vendor ID', v_VendorId);
1130: wsh_debug_sv.log(l_moduleName, 'Role Name', l_roleName);
1131: END IF;
1132: --
1133: -- Get the party relationship Id
1134: --
1148: --
1149: END IF;
1150: --
1151: IF l_debugOn THEN
1152: wsh_debug_sv.log(l_moduleName, 'Relationship ID', v_relId);
1153: wsh_debug_sv.log(l_moduleName, 'Hz Party ID', v_hzPartyId);
1154: wsh_debug_sv.log(l_moduleName, 'Shipper Email', v_SupEmail);
1155: wsh_debug_sv.log(l_moduleName, 'Relationship End Date', l_end_date);
1156: END IF;
1149: END IF;
1150: --
1151: IF l_debugOn THEN
1152: wsh_debug_sv.log(l_moduleName, 'Relationship ID', v_relId);
1153: wsh_debug_sv.log(l_moduleName, 'Hz Party ID', v_hzPartyId);
1154: wsh_debug_sv.log(l_moduleName, 'Shipper Email', v_SupEmail);
1155: wsh_debug_sv.log(l_moduleName, 'Relationship End Date', l_end_date);
1156: END IF;
1157:
1150: --
1151: IF l_debugOn THEN
1152: wsh_debug_sv.log(l_moduleName, 'Relationship ID', v_relId);
1153: wsh_debug_sv.log(l_moduleName, 'Hz Party ID', v_hzPartyId);
1154: wsh_debug_sv.log(l_moduleName, 'Shipper Email', v_SupEmail);
1155: wsh_debug_sv.log(l_moduleName, 'Relationship End Date', l_end_date);
1156: END IF;
1157:
1158: -- { IB-Phase-2
1151: IF l_debugOn THEN
1152: wsh_debug_sv.log(l_moduleName, 'Relationship ID', v_relId);
1153: wsh_debug_sv.log(l_moduleName, 'Hz Party ID', v_hzPartyId);
1154: wsh_debug_sv.log(l_moduleName, 'Shipper Email', v_SupEmail);
1155: wsh_debug_sv.log(l_moduleName, 'Relationship End Date', l_end_date);
1156: END IF;
1157:
1158: -- { IB-Phase-2
1159: IF l_relationship_end_date < SYSDATE
1188: --
1189: CLOSE c_GetPOUser;
1190: --
1191: IF l_debugOn THEN
1192: wsh_debug_sv.log(l_moduleName, 'User Name for Vendor', v_FndUserName);
1193: wsh_debug_sv.log(l_moduleName, 'Email address', v_POEmail);
1194: END IF;
1195: --}
1196: END IF;
1189: CLOSE c_GetPOUser;
1190: --
1191: IF l_debugOn THEN
1192: wsh_debug_sv.log(l_moduleName, 'User Name for Vendor', v_FndUserName);
1193: wsh_debug_sv.log(l_moduleName, 'Email address', v_POEmail);
1194: END IF;
1195: --}
1196: END IF;
1197: --
1206: --{
1207: l_UserList := v_Name || ',' || v_FndUserName;
1208: --
1209: IF l_debugOn THEN
1210: wsh_debug_sv.log(l_moduleName, 'User List', l_UserList);
1211: wsh_debug_sv.log(l_moduleName, 'Email', v_SupEmail);
1212: wsh_debug_sv.logmsg(l_moduleName, 'Calling WF API');
1213: END IF;
1214: --
1207: l_UserList := v_Name || ',' || v_FndUserName;
1208: --
1209: IF l_debugOn THEN
1210: wsh_debug_sv.log(l_moduleName, 'User List', l_UserList);
1211: wsh_debug_sv.log(l_moduleName, 'Email', v_SupEmail);
1212: wsh_debug_sv.logmsg(l_moduleName, 'Calling WF API');
1213: END IF;
1214: --
1215: -- Create adhoc role
1208: --
1209: IF l_debugOn THEN
1210: wsh_debug_sv.log(l_moduleName, 'User List', l_UserList);
1211: wsh_debug_sv.log(l_moduleName, 'Email', v_SupEmail);
1212: wsh_debug_sv.logmsg(l_moduleName, 'Calling WF API');
1213: END IF;
1214: --
1215: -- Create adhoc role
1216: --
1222: --}
1223: ELSE
1224: --{
1225: IF l_debugOn THEN
1226: wsh_debug_sv.logmsg(l_moduleName, 'Only one user to be notified');
1227: END IF;
1228: --
1229: l_roleName := v_Name;
1230: --}
1230: --}
1231: END IF;
1232: --
1233: IF l_debugOn THEN
1234: wsh_Debug_sv.log(l_moduleName, 'v_Name', v_Name);
1235: wsh_debug_sv.log(l_moduleName, 'l_userList', l_UserList);
1236: wsh_debug_sv.log(l_moduleName, 'l_roleName', l_roleName);
1237: wsh_debug_sv.pop(l_moduleName);
1238: END IF;
1231: END IF;
1232: --
1233: IF l_debugOn THEN
1234: wsh_Debug_sv.log(l_moduleName, 'v_Name', v_Name);
1235: wsh_debug_sv.log(l_moduleName, 'l_userList', l_UserList);
1236: wsh_debug_sv.log(l_moduleName, 'l_roleName', l_roleName);
1237: wsh_debug_sv.pop(l_moduleName);
1238: END IF;
1239: --
1232: --
1233: IF l_debugOn THEN
1234: wsh_Debug_sv.log(l_moduleName, 'v_Name', v_Name);
1235: wsh_debug_sv.log(l_moduleName, 'l_userList', l_UserList);
1236: wsh_debug_sv.log(l_moduleName, 'l_roleName', l_roleName);
1237: wsh_debug_sv.pop(l_moduleName);
1238: END IF;
1239: --
1240: RETURN (l_roleName);
1233: IF l_debugOn THEN
1234: wsh_Debug_sv.log(l_moduleName, 'v_Name', v_Name);
1235: wsh_debug_sv.log(l_moduleName, 'l_userList', l_UserList);
1236: wsh_debug_sv.log(l_moduleName, 'l_roleName', l_roleName);
1237: wsh_debug_sv.pop(l_moduleName);
1238: END IF;
1239: --
1240: RETURN (l_roleName);
1241: --
1244: WHEN FND_API.G_EXC_ERROR THEN
1245: --
1246: --
1247: IF l_debugOn THEN
1248: wsh_debug_sv.logmsg(l_moduleName,'FND_API.G_EXC_ERROR exception has occured.',
1249: wsh_debug_sv.C_EXCEP_LEVEL);
1250: wsh_debug_sv.pop(l_moduleName,'EXCEPTION:FND_API.G_EXC_ERROR');
1251: END IF;
1252: --
1245: --
1246: --
1247: IF l_debugOn THEN
1248: wsh_debug_sv.logmsg(l_moduleName,'FND_API.G_EXC_ERROR exception has occured.',
1249: wsh_debug_sv.C_EXCEP_LEVEL);
1250: wsh_debug_sv.pop(l_moduleName,'EXCEPTION:FND_API.G_EXC_ERROR');
1251: END IF;
1252: --
1253: --
1246: --
1247: IF l_debugOn THEN
1248: wsh_debug_sv.logmsg(l_moduleName,'FND_API.G_EXC_ERROR exception has occured.',
1249: wsh_debug_sv.C_EXCEP_LEVEL);
1250: wsh_debug_sv.pop(l_moduleName,'EXCEPTION:FND_API.G_EXC_ERROR');
1251: END IF;
1252: --
1253: --
1254:
1257: l_roleName := NULL;
1258: --
1259: wsh_util_core.default_handler('WSH_ROUTING_RESPONSE_PKG.GetToRole', l_moduleName);
1260: IF l_debugOn THEN
1261: wsh_debug_sv.logmsg(l_moduleName, 'Unexpected error ' || SUBSTRB(SQLERRM, 1, 200));
1262: wsh_debug_sv.pop(l_moduleName);
1263: END IF;
1264: --
1265: RAISE;
1258: --
1259: wsh_util_core.default_handler('WSH_ROUTING_RESPONSE_PKG.GetToRole', l_moduleName);
1260: IF l_debugOn THEN
1261: wsh_debug_sv.logmsg(l_moduleName, 'Unexpected error ' || SUBSTRB(SQLERRM, 1, 200));
1262: wsh_debug_sv.pop(l_moduleName);
1263: END IF;
1264: --
1265: RAISE;
1266: --
1318: --
1319: l_debugOn := WSH_DEBUG_INTERFACE.g_debug;
1320: --
1321: IF l_debugOn IS NULL THEN
1322: l_debugOn := wsh_debug_sv.is_debug_enabled;
1323: END IF;
1324: --
1325: IF l_debugOn THEN
1326: wsh_debug_sv.push(l_moduleName);
1322: l_debugOn := wsh_debug_sv.is_debug_enabled;
1323: END IF;
1324: --
1325: IF l_debugOn THEN
1326: wsh_debug_sv.push(l_moduleName);
1327: wsh_debug_sv.log(l_moduleName, 'Delivery Id', p_delId);
1328: END IF;
1329: --
1330: -- Get the routing response number
1323: END IF;
1324: --
1325: IF l_debugOn THEN
1326: wsh_debug_sv.push(l_moduleName);
1327: wsh_debug_sv.log(l_moduleName, 'Delivery Id', p_delId);
1328: END IF;
1329: --
1330: -- Get the routing response number
1331: --
1332: OPEN c_ResponseNum;
1333: FETCH c_ResponseNum INTO l_receiptNum;
1334: --
1335: IF l_debugOn THEN
1336: wsh_debug_sv.log(l_moduleName, 'c_ResponseNum%ROWCOUNT', c_ResponseNum%ROWCOUNT);
1337: wsh_debug_sv.log(l_moduleName, 'l_receiptNum', l_receiptNum);
1338: END IF;
1339: --
1340: IF c_ResponseNum%NOTFOUND THEN
1333: FETCH c_ResponseNum INTO l_receiptNum;
1334: --
1335: IF l_debugOn THEN
1336: wsh_debug_sv.log(l_moduleName, 'c_ResponseNum%ROWCOUNT', c_ResponseNum%ROWCOUNT);
1337: wsh_debug_sv.log(l_moduleName, 'l_receiptNum', l_receiptNum);
1338: END IF;
1339: --
1340: IF c_ResponseNum%NOTFOUND THEN
1341: SELECT WSH_ROUTING_RESPONSE_S.nextval INTO l_receiptNum FROM dual;
1343: --
1344: CLOSE c_ResponseNum;
1345: --
1346: IF l_debugOn THEN
1347: wsh_debug_sv.log(l_moduleName, 'Receipt Number', l_receiptNum);
1348: END IF;
1349: --
1350: x_Status := WSH_UTIL_CORE.g_RET_STS_SUCCESS;
1351: --
1355: FETCH c_DelivData INTO l_delivName, l_orgId, l_vendorId;
1356: CLOSE c_DelivData;
1357: --
1358: IF l_debugOn THEN
1359: wsh_debug_sv.log(l_moduleName, 'Delivery name', l_delivName);
1360: wsh_debug_sv.log(l_moduleName, 'Org ID', l_orgId);
1361: wsh_debug_sv.log(l_moduleName, 'Vendor ID', l_vendorId);
1362: END IF;
1363: --
1356: CLOSE c_DelivData;
1357: --
1358: IF l_debugOn THEN
1359: wsh_debug_sv.log(l_moduleName, 'Delivery name', l_delivName);
1360: wsh_debug_sv.log(l_moduleName, 'Org ID', l_orgId);
1361: wsh_debug_sv.log(l_moduleName, 'Vendor ID', l_vendorId);
1362: END IF;
1363: --
1364: -- Set the values of the WSH_INBOUND_TXN_HISTORY record structure
1357: --
1358: IF l_debugOn THEN
1359: wsh_debug_sv.log(l_moduleName, 'Delivery name', l_delivName);
1360: wsh_debug_sv.log(l_moduleName, 'Org ID', l_orgId);
1361: wsh_debug_sv.log(l_moduleName, 'Vendor ID', l_vendorId);
1362: END IF;
1363: --
1364: -- Set the values of the WSH_INBOUND_TXN_HISTORY record structure
1365: --
1373: l_txnHistoryRec.receipt_date := SYSDATE;
1374: l_txnHistoryRec.status := 'TRIGGERED';
1375: --
1376: IF l_debugOn THEN
1377: wsh_debug_sv.logmsg(l_moduleName,'** Input record to Create_txn_History **');
1378: wsh_debug_sv.log(l_moduleName,'Receipt Num',l_txnHistoryRec.receipt_number);
1379: wsh_debug_sv.log(l_moduleName, 'Rev Num',l_txnHistoryRec.revision_number);
1380: wsh_debug_sv.log(l_moduleName, 'Shpmt Num',l_txnHistoryRec.shipment_number);
1381: wsh_debug_sv.log(l_moduleName, 'Txn Type',l_txnHistoryRec.transaction_type);
1374: l_txnHistoryRec.status := 'TRIGGERED';
1375: --
1376: IF l_debugOn THEN
1377: wsh_debug_sv.logmsg(l_moduleName,'** Input record to Create_txn_History **');
1378: wsh_debug_sv.log(l_moduleName,'Receipt Num',l_txnHistoryRec.receipt_number);
1379: wsh_debug_sv.log(l_moduleName, 'Rev Num',l_txnHistoryRec.revision_number);
1380: wsh_debug_sv.log(l_moduleName, 'Shpmt Num',l_txnHistoryRec.shipment_number);
1381: wsh_debug_sv.log(l_moduleName, 'Txn Type',l_txnHistoryRec.transaction_type);
1382: wsh_debug_sv.log(l_moduleName, 'Shp Hdr Id',
1375: --
1376: IF l_debugOn THEN
1377: wsh_debug_sv.logmsg(l_moduleName,'** Input record to Create_txn_History **');
1378: wsh_debug_sv.log(l_moduleName,'Receipt Num',l_txnHistoryRec.receipt_number);
1379: wsh_debug_sv.log(l_moduleName, 'Rev Num',l_txnHistoryRec.revision_number);
1380: wsh_debug_sv.log(l_moduleName, 'Shpmt Num',l_txnHistoryRec.shipment_number);
1381: wsh_debug_sv.log(l_moduleName, 'Txn Type',l_txnHistoryRec.transaction_type);
1382: wsh_debug_sv.log(l_moduleName, 'Shp Hdr Id',
1383: l_txnHistoryRec.shipment_header_id);
1376: IF l_debugOn THEN
1377: wsh_debug_sv.logmsg(l_moduleName,'** Input record to Create_txn_History **');
1378: wsh_debug_sv.log(l_moduleName,'Receipt Num',l_txnHistoryRec.receipt_number);
1379: wsh_debug_sv.log(l_moduleName, 'Rev Num',l_txnHistoryRec.revision_number);
1380: wsh_debug_sv.log(l_moduleName, 'Shpmt Num',l_txnHistoryRec.shipment_number);
1381: wsh_debug_sv.log(l_moduleName, 'Txn Type',l_txnHistoryRec.transaction_type);
1382: wsh_debug_sv.log(l_moduleName, 'Shp Hdr Id',
1383: l_txnHistoryRec.shipment_header_id);
1384: wsh_debug_sv.log(l_moduleName, 'Org Id', l_txnHistoryRec.organization_id);
1377: wsh_debug_sv.logmsg(l_moduleName,'** Input record to Create_txn_History **');
1378: wsh_debug_sv.log(l_moduleName,'Receipt Num',l_txnHistoryRec.receipt_number);
1379: wsh_debug_sv.log(l_moduleName, 'Rev Num',l_txnHistoryRec.revision_number);
1380: wsh_debug_sv.log(l_moduleName, 'Shpmt Num',l_txnHistoryRec.shipment_number);
1381: wsh_debug_sv.log(l_moduleName, 'Txn Type',l_txnHistoryRec.transaction_type);
1382: wsh_debug_sv.log(l_moduleName, 'Shp Hdr Id',
1383: l_txnHistoryRec.shipment_header_id);
1384: wsh_debug_sv.log(l_moduleName, 'Org Id', l_txnHistoryRec.organization_id);
1385: wsh_debug_sv.log(l_moduleName, 'Supplier Id', l_txnHistoryRec.supplier_id);
1378: wsh_debug_sv.log(l_moduleName,'Receipt Num',l_txnHistoryRec.receipt_number);
1379: wsh_debug_sv.log(l_moduleName, 'Rev Num',l_txnHistoryRec.revision_number);
1380: wsh_debug_sv.log(l_moduleName, 'Shpmt Num',l_txnHistoryRec.shipment_number);
1381: wsh_debug_sv.log(l_moduleName, 'Txn Type',l_txnHistoryRec.transaction_type);
1382: wsh_debug_sv.log(l_moduleName, 'Shp Hdr Id',
1383: l_txnHistoryRec.shipment_header_id);
1384: wsh_debug_sv.log(l_moduleName, 'Org Id', l_txnHistoryRec.organization_id);
1385: wsh_debug_sv.log(l_moduleName, 'Supplier Id', l_txnHistoryRec.supplier_id);
1386: wsh_debug_sv.log(l_moduleName, 'Receipt Date',
1380: wsh_debug_sv.log(l_moduleName, 'Shpmt Num',l_txnHistoryRec.shipment_number);
1381: wsh_debug_sv.log(l_moduleName, 'Txn Type',l_txnHistoryRec.transaction_type);
1382: wsh_debug_sv.log(l_moduleName, 'Shp Hdr Id',
1383: l_txnHistoryRec.shipment_header_id);
1384: wsh_debug_sv.log(l_moduleName, 'Org Id', l_txnHistoryRec.organization_id);
1385: wsh_debug_sv.log(l_moduleName, 'Supplier Id', l_txnHistoryRec.supplier_id);
1386: wsh_debug_sv.log(l_moduleName, 'Receipt Date',
1387: to_char(l_txnHistoryRec.receipt_date,'DD-MON-YYYY HH24:MI:SS')); wsh_debug_sv.log(l_moduleName, 'Status', l_txnHistoryRec.status);
1388: END IF;
1381: wsh_debug_sv.log(l_moduleName, 'Txn Type',l_txnHistoryRec.transaction_type);
1382: wsh_debug_sv.log(l_moduleName, 'Shp Hdr Id',
1383: l_txnHistoryRec.shipment_header_id);
1384: wsh_debug_sv.log(l_moduleName, 'Org Id', l_txnHistoryRec.organization_id);
1385: wsh_debug_sv.log(l_moduleName, 'Supplier Id', l_txnHistoryRec.supplier_id);
1386: wsh_debug_sv.log(l_moduleName, 'Receipt Date',
1387: to_char(l_txnHistoryRec.receipt_date,'DD-MON-YYYY HH24:MI:SS')); wsh_debug_sv.log(l_moduleName, 'Status', l_txnHistoryRec.status);
1388: END IF;
1389: --
1382: wsh_debug_sv.log(l_moduleName, 'Shp Hdr Id',
1383: l_txnHistoryRec.shipment_header_id);
1384: wsh_debug_sv.log(l_moduleName, 'Org Id', l_txnHistoryRec.organization_id);
1385: wsh_debug_sv.log(l_moduleName, 'Supplier Id', l_txnHistoryRec.supplier_id);
1386: wsh_debug_sv.log(l_moduleName, 'Receipt Date',
1387: to_char(l_txnHistoryRec.receipt_date,'DD-MON-YYYY HH24:MI:SS')); wsh_debug_sv.log(l_moduleName, 'Status', l_txnHistoryRec.status);
1388: END IF;
1389: --
1390: -- Call the table handler to create a record
1383: l_txnHistoryRec.shipment_header_id);
1384: wsh_debug_sv.log(l_moduleName, 'Org Id', l_txnHistoryRec.organization_id);
1385: wsh_debug_sv.log(l_moduleName, 'Supplier Id', l_txnHistoryRec.supplier_id);
1386: wsh_debug_sv.log(l_moduleName, 'Receipt Date',
1387: to_char(l_txnHistoryRec.receipt_date,'DD-MON-YYYY HH24:MI:SS')); wsh_debug_sv.log(l_moduleName, 'Status', l_txnHistoryRec.status);
1388: END IF;
1389: --
1390: -- Call the table handler to create a record
1391: --
1402: x_DelName := l_delivName;
1403: x_Status := l_Status;
1404: --
1405: IF l_debugOn THEN
1406: wsh_debug_sv.log(l_moduleName, 'Transaction ID', x_TxnId);
1407: wsh_debug_sv.log(l_moduleName, 'Delivery Name', x_DelName);
1408: wsh_debug_sv.log(l_moduleName, 'Routing Resp Number', x_RespNum);
1409: wsh_debug_sv.pop(l_moduleName);
1410: END IF;
1403: x_Status := l_Status;
1404: --
1405: IF l_debugOn THEN
1406: wsh_debug_sv.log(l_moduleName, 'Transaction ID', x_TxnId);
1407: wsh_debug_sv.log(l_moduleName, 'Delivery Name', x_DelName);
1408: wsh_debug_sv.log(l_moduleName, 'Routing Resp Number', x_RespNum);
1409: wsh_debug_sv.pop(l_moduleName);
1410: END IF;
1411: --
1404: --
1405: IF l_debugOn THEN
1406: wsh_debug_sv.log(l_moduleName, 'Transaction ID', x_TxnId);
1407: wsh_debug_sv.log(l_moduleName, 'Delivery Name', x_DelName);
1408: wsh_debug_sv.log(l_moduleName, 'Routing Resp Number', x_RespNum);
1409: wsh_debug_sv.pop(l_moduleName);
1410: END IF;
1411: --
1412: EXCEPTION
1405: IF l_debugOn THEN
1406: wsh_debug_sv.log(l_moduleName, 'Transaction ID', x_TxnId);
1407: wsh_debug_sv.log(l_moduleName, 'Delivery Name', x_DelName);
1408: wsh_debug_sv.log(l_moduleName, 'Routing Resp Number', x_RespNum);
1409: wsh_debug_sv.pop(l_moduleName);
1410: END IF;
1411: --
1412: EXCEPTION
1413: --
1415: --
1416: x_Status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1417: --
1418: IF l_debugOn THEN
1419: wsh_debug_sv.logmsg(l_moduleName, 'Expected error ' || SUBSTRB(SQLERRM,1,200));
1420: wsh_debug_sv.pop(l_moduleName);
1421: END IF;
1422: --
1423: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1416: x_Status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1417: --
1418: IF l_debugOn THEN
1419: wsh_debug_sv.logmsg(l_moduleName, 'Expected error ' || SUBSTRB(SQLERRM,1,200));
1420: wsh_debug_sv.pop(l_moduleName);
1421: END IF;
1422: --
1423: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1424: --
1424: --
1425: x_Status := WSH_UTIL_CORE.g_RET_STS_UNEXP_ERROR;
1426: --
1427: IF l_debugOn THEN
1428: wsh_debug_sv.logmsg(l_moduleName, 'Unexpected error ' || SUBSTRB(SQLERRM,1,200));
1429: wsh_debug_sv.pop(l_moduleName);
1430: END IF;
1431: --
1432: WHEN OTHERS THEN
1425: x_Status := WSH_UTIL_CORE.g_RET_STS_UNEXP_ERROR;
1426: --
1427: IF l_debugOn THEN
1428: wsh_debug_sv.logmsg(l_moduleName, 'Unexpected error ' || SUBSTRB(SQLERRM,1,200));
1429: wsh_debug_sv.pop(l_moduleName);
1430: END IF;
1431: --
1432: WHEN OTHERS THEN
1433: --
1435: --
1436: wsh_util_core.default_handler('WSH_ROUTING_RESPONSE_PKG.CreateTxnHistory', l_moduleName);
1437: --
1438: IF l_debugOn THEN
1439: wsh_debug_sv.logmsg(l_moduleName, 'Unexpected error ' || SUBSTRB(SQLERRM,1,200));
1440: wsh_debug_sv.log(l_moduleName, 'Transaction ID', x_TxnId);
1441: wsh_debug_sv.log(l_moduleName, 'Revision Number', l_revNum);
1442: wsh_debug_sv.pop(l_moduleName);
1443: END IF;
1436: wsh_util_core.default_handler('WSH_ROUTING_RESPONSE_PKG.CreateTxnHistory', l_moduleName);
1437: --
1438: IF l_debugOn THEN
1439: wsh_debug_sv.logmsg(l_moduleName, 'Unexpected error ' || SUBSTRB(SQLERRM,1,200));
1440: wsh_debug_sv.log(l_moduleName, 'Transaction ID', x_TxnId);
1441: wsh_debug_sv.log(l_moduleName, 'Revision Number', l_revNum);
1442: wsh_debug_sv.pop(l_moduleName);
1443: END IF;
1444: --
1437: --
1438: IF l_debugOn THEN
1439: wsh_debug_sv.logmsg(l_moduleName, 'Unexpected error ' || SUBSTRB(SQLERRM,1,200));
1440: wsh_debug_sv.log(l_moduleName, 'Transaction ID', x_TxnId);
1441: wsh_debug_sv.log(l_moduleName, 'Revision Number', l_revNum);
1442: wsh_debug_sv.pop(l_moduleName);
1443: END IF;
1444: --
1445: RAISE;
1438: IF l_debugOn THEN
1439: wsh_debug_sv.logmsg(l_moduleName, 'Unexpected error ' || SUBSTRB(SQLERRM,1,200));
1440: wsh_debug_sv.log(l_moduleName, 'Transaction ID', x_TxnId);
1441: wsh_debug_sv.log(l_moduleName, 'Revision Number', l_revNum);
1442: wsh_debug_sv.pop(l_moduleName);
1443: END IF;
1444: --
1445: RAISE;
1446: --
1482: --
1483: l_debugOn := WSH_DEBUG_INTERFACE.g_debug;
1484: --
1485: IF l_debugOn IS NULL THEN
1486: l_debugOn := wsh_debug_sv.is_debug_enabled;
1487: END IF;
1488: --
1489: IF l_debugOn THEN
1490: wsh_debug_sv.push(l_moduleName);
1486: l_debugOn := wsh_debug_sv.is_debug_enabled;
1487: END IF;
1488: --
1489: IF l_debugOn THEN
1490: wsh_debug_sv.push(l_moduleName);
1491: wsh_debug_sv.log(l_moduleName, 'Delivery Id', p_deliveryId);
1492: wsh_debug_sv.log(l_moduleName, 'Transaction ID', p_TxnId);
1493: wsh_debug_sv.log(l_moduleName, 'Revision Number', p_RevNum);
1494: wsh_debug_sv.log(l_moduleName, 'l_Date', to_char(l_Date, 'DD/MM/YYYY HH24:MI:SS'));
1487: END IF;
1488: --
1489: IF l_debugOn THEN
1490: wsh_debug_sv.push(l_moduleName);
1491: wsh_debug_sv.log(l_moduleName, 'Delivery Id', p_deliveryId);
1492: wsh_debug_sv.log(l_moduleName, 'Transaction ID', p_TxnId);
1493: wsh_debug_sv.log(l_moduleName, 'Revision Number', p_RevNum);
1494: wsh_debug_sv.log(l_moduleName, 'l_Date', to_char(l_Date, 'DD/MM/YYYY HH24:MI:SS'));
1495: END IF;
1488: --
1489: IF l_debugOn THEN
1490: wsh_debug_sv.push(l_moduleName);
1491: wsh_debug_sv.log(l_moduleName, 'Delivery Id', p_deliveryId);
1492: wsh_debug_sv.log(l_moduleName, 'Transaction ID', p_TxnId);
1493: wsh_debug_sv.log(l_moduleName, 'Revision Number', p_RevNum);
1494: wsh_debug_sv.log(l_moduleName, 'l_Date', to_char(l_Date, 'DD/MM/YYYY HH24:MI:SS'));
1495: END IF;
1496: --
1489: IF l_debugOn THEN
1490: wsh_debug_sv.push(l_moduleName);
1491: wsh_debug_sv.log(l_moduleName, 'Delivery Id', p_deliveryId);
1492: wsh_debug_sv.log(l_moduleName, 'Transaction ID', p_TxnId);
1493: wsh_debug_sv.log(l_moduleName, 'Revision Number', p_RevNum);
1494: wsh_debug_sv.log(l_moduleName, 'l_Date', to_char(l_Date, 'DD/MM/YYYY HH24:MI:SS'));
1495: END IF;
1496: --
1497: -- Update WSH_NEW_DELIVERIES
1490: wsh_debug_sv.push(l_moduleName);
1491: wsh_debug_sv.log(l_moduleName, 'Delivery Id', p_deliveryId);
1492: wsh_debug_sv.log(l_moduleName, 'Transaction ID', p_TxnId);
1493: wsh_debug_sv.log(l_moduleName, 'Revision Number', p_RevNum);
1494: wsh_debug_sv.log(l_moduleName, 'l_Date', to_char(l_Date, 'DD/MM/YYYY HH24:MI:SS'));
1495: END IF;
1496: --
1497: -- Update WSH_NEW_DELIVERIES
1498: --
1501: last_update_date = l_Date
1502: WHERE delivery_id = p_deliveryId;
1503: --
1504: IF l_debugOn THEN
1505: wsh_debug_sv.logmsg(l_moduleName, 'No. of rows updated', SQL%ROWCOUNT);
1506: END IF;
1507: --
1508: -- Set the inbound txn history record components
1509: --
1513: l_txnHistoryRec.transaction_id := p_txnId;
1514: l_txnHistoryRec.shipment_header_id := p_deliveryId;
1515: --
1516: IF l_debugOn THEN
1517: wsh_debug_sv.logmsg(l_moduleName,'** Input record to update_txn_History **');
1518: wsh_debug_sv.log(l_moduleName, 'Status', l_txnHistoryRec.status);
1519: wsh_debug_sv.log(l_moduleName, 'Receipt Date',
1520: to_char(l_txnHistoryRec.receipt_date,'DD-MON-YYYY HH24:MI:SS'));
1521: wsh_debug_sv.log(l_moduleName, 'Rev Num',l_txnHistoryRec.revision_number);
1514: l_txnHistoryRec.shipment_header_id := p_deliveryId;
1515: --
1516: IF l_debugOn THEN
1517: wsh_debug_sv.logmsg(l_moduleName,'** Input record to update_txn_History **');
1518: wsh_debug_sv.log(l_moduleName, 'Status', l_txnHistoryRec.status);
1519: wsh_debug_sv.log(l_moduleName, 'Receipt Date',
1520: to_char(l_txnHistoryRec.receipt_date,'DD-MON-YYYY HH24:MI:SS'));
1521: wsh_debug_sv.log(l_moduleName, 'Rev Num',l_txnHistoryRec.revision_number);
1522: wsh_debug_sv.log(l_moduleName, 'Txn ID',l_txnHistoryRec.transaction_id);
1515: --
1516: IF l_debugOn THEN
1517: wsh_debug_sv.logmsg(l_moduleName,'** Input record to update_txn_History **');
1518: wsh_debug_sv.log(l_moduleName, 'Status', l_txnHistoryRec.status);
1519: wsh_debug_sv.log(l_moduleName, 'Receipt Date',
1520: to_char(l_txnHistoryRec.receipt_date,'DD-MON-YYYY HH24:MI:SS'));
1521: wsh_debug_sv.log(l_moduleName, 'Rev Num',l_txnHistoryRec.revision_number);
1522: wsh_debug_sv.log(l_moduleName, 'Txn ID',l_txnHistoryRec.transaction_id);
1523: wsh_debug_sv.log(l_moduleName, 'Shp Hdr Id',
1517: wsh_debug_sv.logmsg(l_moduleName,'** Input record to update_txn_History **');
1518: wsh_debug_sv.log(l_moduleName, 'Status', l_txnHistoryRec.status);
1519: wsh_debug_sv.log(l_moduleName, 'Receipt Date',
1520: to_char(l_txnHistoryRec.receipt_date,'DD-MON-YYYY HH24:MI:SS'));
1521: wsh_debug_sv.log(l_moduleName, 'Rev Num',l_txnHistoryRec.revision_number);
1522: wsh_debug_sv.log(l_moduleName, 'Txn ID',l_txnHistoryRec.transaction_id);
1523: wsh_debug_sv.log(l_moduleName, 'Shp Hdr Id',
1524: l_txnHistoryRec.shipment_header_id);
1525: END IF;
1518: wsh_debug_sv.log(l_moduleName, 'Status', l_txnHistoryRec.status);
1519: wsh_debug_sv.log(l_moduleName, 'Receipt Date',
1520: to_char(l_txnHistoryRec.receipt_date,'DD-MON-YYYY HH24:MI:SS'));
1521: wsh_debug_sv.log(l_moduleName, 'Rev Num',l_txnHistoryRec.revision_number);
1522: wsh_debug_sv.log(l_moduleName, 'Txn ID',l_txnHistoryRec.transaction_id);
1523: wsh_debug_sv.log(l_moduleName, 'Shp Hdr Id',
1524: l_txnHistoryRec.shipment_header_id);
1525: END IF;
1526: --
1519: wsh_debug_sv.log(l_moduleName, 'Receipt Date',
1520: to_char(l_txnHistoryRec.receipt_date,'DD-MON-YYYY HH24:MI:SS'));
1521: wsh_debug_sv.log(l_moduleName, 'Rev Num',l_txnHistoryRec.revision_number);
1522: wsh_debug_sv.log(l_moduleName, 'Txn ID',l_txnHistoryRec.transaction_id);
1523: wsh_debug_sv.log(l_moduleName, 'Shp Hdr Id',
1524: l_txnHistoryRec.shipment_header_id);
1525: END IF;
1526: --
1527: -- Call table handler to update existing record
1535: --
1536: x_Status := l_Status;
1537: --
1538: IF l_debugOn THEN
1539: wsh_debug_sv.log(l_moduleName, 'Return status after update_Txn_history', l_Status);
1540: wsh_debug_sv.pop(l_moduleName);
1541: END IF;
1542: --
1543: EXCEPTION
1536: x_Status := l_Status;
1537: --
1538: IF l_debugOn THEN
1539: wsh_debug_sv.log(l_moduleName, 'Return status after update_Txn_history', l_Status);
1540: wsh_debug_sv.pop(l_moduleName);
1541: END IF;
1542: --
1543: EXCEPTION
1544: --
1546: --
1547: x_Status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1548: --
1549: IF l_debugOn THEN
1550: wsh_debug_sv.logmsg(l_moduleName, 'Expected error ' || SUBSTRB(SQLERRM,1,200));
1551: wsh_debug_sv.pop(l_moduleName);
1552: END IF;
1553: --
1554: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1547: x_Status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1548: --
1549: IF l_debugOn THEN
1550: wsh_debug_sv.logmsg(l_moduleName, 'Expected error ' || SUBSTRB(SQLERRM,1,200));
1551: wsh_debug_sv.pop(l_moduleName);
1552: END IF;
1553: --
1554: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1555: --
1555: --
1556: x_Status := WSH_UTIL_CORE.g_RET_STS_UNEXP_ERROR;
1557: --
1558: IF l_debugOn THEN
1559: wsh_debug_sv.logmsg(l_moduleName, 'Unexpected error ' || SUBSTRB(SQLERRM,1,200));
1560: wsh_debug_sv.pop(l_moduleName);
1561: END IF;
1562: --
1563: WHEN OTHERS THEN
1556: x_Status := WSH_UTIL_CORE.g_RET_STS_UNEXP_ERROR;
1557: --
1558: IF l_debugOn THEN
1559: wsh_debug_sv.logmsg(l_moduleName, 'Unexpected error ' || SUBSTRB(SQLERRM,1,200));
1560: wsh_debug_sv.pop(l_moduleName);
1561: END IF;
1562: --
1563: WHEN OTHERS THEN
1564: --
1565: x_Status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1566: --
1567: wsh_util_core.default_handler('WSH_ROUTING_RESPONSE_PKG.UpdateTxnHistory');
1568: IF l_debugOn THEN
1569: wsh_debug_sv.logmsg(l_moduleName, 'Unexpected error ' || SUBSTRB(SQLERRM,1,200));
1570: wsh_debug_sv.pop(l_moduleName);
1571: END IF;
1572: --
1573: RAISE;
1566: --
1567: wsh_util_core.default_handler('WSH_ROUTING_RESPONSE_PKG.UpdateTxnHistory');
1568: IF l_debugOn THEN
1569: wsh_debug_sv.logmsg(l_moduleName, 'Unexpected error ' || SUBSTRB(SQLERRM,1,200));
1570: wsh_debug_sv.pop(l_moduleName);
1571: END IF;
1572: --
1573: RAISE;
1574: --
1668: --
1669: l_debugOn := WSH_DEBUG_INTERFACE.g_debug;
1670: --
1671: IF l_debugOn IS NULL THEN
1672: l_debugOn := wsh_debug_sv.is_debug_enabled;
1673: END IF;
1674: --
1675: IF l_debugOn THEN
1676: wsh_debug_sv.push(l_moduleName);
1672: l_debugOn := wsh_debug_sv.is_debug_enabled;
1673: END IF;
1674: --
1675: IF l_debugOn THEN
1676: wsh_debug_sv.push(l_moduleName);
1677: wsh_debug_sv.log(l_moduleName,'p_delivery_id',p_delivery_id);
1678: END IF;
1679: --
1680: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1673: END IF;
1674: --
1675: IF l_debugOn THEN
1676: wsh_debug_sv.push(l_moduleName);
1677: wsh_debug_sv.log(l_moduleName,'p_delivery_id',p_delivery_id);
1678: END IF;
1679: --
1680: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1681: --
1685: p_delivery_id => p_delivery_id,
1686: x_return_status => l_return_status);
1687: --
1688: IF l_debugOn THEN
1689: wsh_debug_sv.log(l_moduleName,'l_return_status',l_return_status);
1690: END IF;
1691: --
1692: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1693: raise fnd_api.g_exc_error;
1698: OPEN validate_first_leg_csr(p_delivery_id);
1699: FETCH validate_first_leg_csr INTO l_trip_id,l_organization_id,l_shipping_control;
1700: --
1701: IF l_debugOn THEN
1702: wsh_debug_sv.log(l_moduleName,'l_trip_id',l_trip_id);
1703: wsh_debug_sv.log(l_moduleName,'l_organization_id',l_organization_id);
1704: wsh_debug_sv.log(l_moduleName,'l_shipping_control',l_shipping_control);
1705: END IF;
1706: --
1699: FETCH validate_first_leg_csr INTO l_trip_id,l_organization_id,l_shipping_control;
1700: --
1701: IF l_debugOn THEN
1702: wsh_debug_sv.log(l_moduleName,'l_trip_id',l_trip_id);
1703: wsh_debug_sv.log(l_moduleName,'l_organization_id',l_organization_id);
1704: wsh_debug_sv.log(l_moduleName,'l_shipping_control',l_shipping_control);
1705: END IF;
1706: --
1707:
1700: --
1701: IF l_debugOn THEN
1702: wsh_debug_sv.log(l_moduleName,'l_trip_id',l_trip_id);
1703: wsh_debug_sv.log(l_moduleName,'l_organization_id',l_organization_id);
1704: wsh_debug_sv.log(l_moduleName,'l_shipping_control',l_shipping_control);
1705: END IF;
1706: --
1707:
1708:
1735: l_service_level,l_load_tender_status;
1736: CLOSE validate_trip_csr;
1737: --
1738: IF l_debugOn THEN
1739: wsh_debug_sv.log(l_moduleName,'l_carrier_id',l_carrier_id);
1740: wsh_debug_sv.log(l_moduleName,'l_mode_of_transport',l_mode_of_transport);
1741: wsh_debug_sv.log(l_moduleName,'l_service_level',l_service_level);
1742: wsh_debug_sv.log(l_moduleName,'l_load_tender_status',l_load_tender_status);
1743: END IF;
1736: CLOSE validate_trip_csr;
1737: --
1738: IF l_debugOn THEN
1739: wsh_debug_sv.log(l_moduleName,'l_carrier_id',l_carrier_id);
1740: wsh_debug_sv.log(l_moduleName,'l_mode_of_transport',l_mode_of_transport);
1741: wsh_debug_sv.log(l_moduleName,'l_service_level',l_service_level);
1742: wsh_debug_sv.log(l_moduleName,'l_load_tender_status',l_load_tender_status);
1743: END IF;
1744: --
1737: --
1738: IF l_debugOn THEN
1739: wsh_debug_sv.log(l_moduleName,'l_carrier_id',l_carrier_id);
1740: wsh_debug_sv.log(l_moduleName,'l_mode_of_transport',l_mode_of_transport);
1741: wsh_debug_sv.log(l_moduleName,'l_service_level',l_service_level);
1742: wsh_debug_sv.log(l_moduleName,'l_load_tender_status',l_load_tender_status);
1743: END IF;
1744: --
1745:
1738: IF l_debugOn THEN
1739: wsh_debug_sv.log(l_moduleName,'l_carrier_id',l_carrier_id);
1740: wsh_debug_sv.log(l_moduleName,'l_mode_of_transport',l_mode_of_transport);
1741: wsh_debug_sv.log(l_moduleName,'l_service_level',l_service_level);
1742: wsh_debug_sv.log(l_moduleName,'l_load_tender_status',l_load_tender_status);
1743: END IF;
1744: --
1745:
1746: --Error, if any one of carrier,mode of transport or service level is NULL.
1761: --
1762: IF (validate_auto_tender_csr%FOUND) THEN
1763: --
1764: IF l_debugOn THEN
1765: wsh_debug_sv.logmsg(l_moduleName,'validate_auto_tender_csr FOUND');
1766: END IF;
1767: --
1768:
1769: --Warning if delivery is not tendered for carrier and accept auto tender.
1800: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_WARNING, l_moduleName);
1801: END IF;
1802: --
1803: IF l_debugOn THEN
1804: wsh_debug_sv.log(l_moduleName, 'Valid Delivery?', x_return_status);
1805: wsh_debug_sv.pop(l_moduleName);
1806: END IF;
1807: --
1808: EXCEPTION
1801: END IF;
1802: --
1803: IF l_debugOn THEN
1804: wsh_debug_sv.log(l_moduleName, 'Valid Delivery?', x_return_status);
1805: wsh_debug_sv.pop(l_moduleName);
1806: END IF;
1807: --
1808: EXCEPTION
1809: --
1811: --
1812: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR ;
1813: --
1814: IF l_debugOn THEN
1815: wsh_debug_sv.logmsg(l_moduleName,'FND_API.G_EXC_ERROR exception has occured.',
1816: wsh_debug_sv.C_EXCEP_LEVEL);
1817: wsh_debug_sv.pop(l_moduleName,'EXCEPTION:FND_API.G_EXC_ERROR');
1818: END IF;
1819: --
1812: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR ;
1813: --
1814: IF l_debugOn THEN
1815: wsh_debug_sv.logmsg(l_moduleName,'FND_API.G_EXC_ERROR exception has occured.',
1816: wsh_debug_sv.C_EXCEP_LEVEL);
1817: wsh_debug_sv.pop(l_moduleName,'EXCEPTION:FND_API.G_EXC_ERROR');
1818: END IF;
1819: --
1820: WHEN OTHERS THEN
1813: --
1814: IF l_debugOn THEN
1815: wsh_debug_sv.logmsg(l_moduleName,'FND_API.G_EXC_ERROR exception has occured.',
1816: wsh_debug_sv.C_EXCEP_LEVEL);
1817: wsh_debug_sv.pop(l_moduleName,'EXCEPTION:FND_API.G_EXC_ERROR');
1818: END IF;
1819: --
1820: WHEN OTHERS THEN
1821: --
1822: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1823: --
1824: wsh_util_core.default_handler('WSH_ROUTING_RESPONSE_PKG.ValidateDelivery');
1825: IF l_debugOn THEN
1826: wsh_debug_sv.logmsg(l_moduleName,'Unexpected error '|| SQLERRM);
1827: wsh_debug_sv.pop(l_moduleName,'EXCEPTION:OTHERS');
1828: END IF;
1829: --
1830: RAISE;
1823: --
1824: wsh_util_core.default_handler('WSH_ROUTING_RESPONSE_PKG.ValidateDelivery');
1825: IF l_debugOn THEN
1826: wsh_debug_sv.logmsg(l_moduleName,'Unexpected error '|| SQLERRM);
1827: wsh_debug_sv.pop(l_moduleName,'EXCEPTION:OTHERS');
1828: END IF;
1829: --
1830: RAISE;
1831: --
1878: --
1879: l_debugOn := WSH_DEBUG_INTERFACE.g_debug;
1880: --
1881: IF l_debugOn IS NULL THEN
1882: l_debugOn := wsh_debug_sv.is_debug_enabled;
1883: END IF;
1884: --
1885: IF l_debugOn THEN
1886: wsh_debug_sv.push(l_moduleName);
1882: l_debugOn := wsh_debug_sv.is_debug_enabled;
1883: END IF;
1884: --
1885: IF l_debugOn THEN
1886: wsh_debug_sv.push(l_moduleName);
1887: wsh_debug_sv.log(l_moduleName,'p_delivery_id',p_delivery_id);
1888: wsh_debug_sv.log(l_moduleName,'Current_Release',PO_CODE_RELEASE_GRP.Current_Release);
1889: wsh_debug_sv.log(l_moduleName,'PRC_11i_Family_Pack_J',PO_CODE_RELEASE_GRP.PRC_11i_Family_Pack_J);
1890: END IF;
1883: END IF;
1884: --
1885: IF l_debugOn THEN
1886: wsh_debug_sv.push(l_moduleName);
1887: wsh_debug_sv.log(l_moduleName,'p_delivery_id',p_delivery_id);
1888: wsh_debug_sv.log(l_moduleName,'Current_Release',PO_CODE_RELEASE_GRP.Current_Release);
1889: wsh_debug_sv.log(l_moduleName,'PRC_11i_Family_Pack_J',PO_CODE_RELEASE_GRP.PRC_11i_Family_Pack_J);
1890: END IF;
1891: --
1884: --
1885: IF l_debugOn THEN
1886: wsh_debug_sv.push(l_moduleName);
1887: wsh_debug_sv.log(l_moduleName,'p_delivery_id',p_delivery_id);
1888: wsh_debug_sv.log(l_moduleName,'Current_Release',PO_CODE_RELEASE_GRP.Current_Release);
1889: wsh_debug_sv.log(l_moduleName,'PRC_11i_Family_Pack_J',PO_CODE_RELEASE_GRP.PRC_11i_Family_Pack_J);
1890: END IF;
1891: --
1892: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1885: IF l_debugOn THEN
1886: wsh_debug_sv.push(l_moduleName);
1887: wsh_debug_sv.log(l_moduleName,'p_delivery_id',p_delivery_id);
1888: wsh_debug_sv.log(l_moduleName,'Current_Release',PO_CODE_RELEASE_GRP.Current_Release);
1889: wsh_debug_sv.log(l_moduleName,'PRC_11i_Family_Pack_J',PO_CODE_RELEASE_GRP.PRC_11i_Family_Pack_J);
1890: END IF;
1891: --
1892: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1893:
1896: FETCH get_del_detail BULK COLLECT INTO
1897: l_po_header_id, l_sourceLineIds, l_shpLineIds, l_blkRefIds;
1898: --
1899: IF l_debugOn THEN
1900: wsh_debug_sv.log(l_moduleName,'Rec Count',get_del_detail%ROWCOUNT);
1901: END IF;
1902: --
1903:
1904: --No detail lines assign to delivery,error out.
1920: --PO release level should be PO_CODE_RELEASE_GRP.PRC_11i_Family_Pack_J or higher.
1921: IF (PO_CODE_RELEASE_GRP.Current_Release >= PO_CODE_RELEASE_GRP.PRC_11i_Family_Pack_J) THEN
1922: --{
1923: IF l_debugOn THEN
1924: wsh_debug_sv.logmsg(l_moduleName,'Before Calling PO_FTE_INTEGRATION_GRP.po_status_check');
1925: END IF;
1926: --
1927: PO_FTE_INTEGRATION_GRP.po_status_check (
1928: p_api_version => 1,
1939: x_po_status_rec => l_po_status_rec,
1940: x_return_status => l_return_status);
1941: --
1942: IF l_debugOn THEN
1943: wsh_debug_sv.log(l_moduleName,'PO_FTE_INTEGRATION_GRP.po_status_check l_return_status',
1944: l_return_status);
1945: wsh_debug_sv.log(l_moduleName,'l_po_status_rec.approval_flag.count',
1946: l_po_status_rec.approval_flag.count);
1947: END IF;
1941: --
1942: IF l_debugOn THEN
1943: wsh_debug_sv.log(l_moduleName,'PO_FTE_INTEGRATION_GRP.po_status_check l_return_status',
1944: l_return_status);
1945: wsh_debug_sv.log(l_moduleName,'l_po_status_rec.approval_flag.count',
1946: l_po_status_rec.approval_flag.count);
1947: END IF;
1948: --
1949: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1959: WHILE (l_index IS NOT NULL) LOOP
1960: --
1961: IF l_debugOn THEN
1962: --
1963: wsh_debug_sv.log(l_moduleName,'approval_flag',l_po_status_rec.approval_flag(l_index));
1964: wsh_debug_sv.log(l_moduleName,'hold_flag',l_po_status_rec.hold_flag(l_index));
1965: --
1966: END IF;
1967: --
1960: --
1961: IF l_debugOn THEN
1962: --
1963: wsh_debug_sv.log(l_moduleName,'approval_flag',l_po_status_rec.approval_flag(l_index));
1964: wsh_debug_sv.log(l_moduleName,'hold_flag',l_po_status_rec.hold_flag(l_index));
1965: --
1966: END IF;
1967: --
1968:
1990: --}
1991: ELSE
1992: --
1993: IF l_debugOn THEN
1994: wsh_debug_sv.logmsg(l_moduleName,'Current Release is Not greater than J');
1995: END IF;
1996: --
1997: raise fnd_api.g_exc_error;
1998: --
1998: --
1999: END IF;
2000: --
2001: IF l_debugOn THEN
2002: wsh_debug_sv.pop(l_moduleName);
2003: END IF;
2004: --
2005: EXCEPTION
2006: --
2008: --
2009: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR ;
2010: --
2011: IF l_debugOn THEN
2012: wsh_debug_sv.logmsg(l_moduleName,'FND_API.G_EXC_ERROR exception has occured.',
2013: wsh_debug_sv.C_EXCEP_LEVEL);
2014: wsh_debug_sv.pop(l_moduleName,'EXCEPTION:FND_API.G_EXC_ERROR');
2015: END IF;
2016: --
2009: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR ;
2010: --
2011: IF l_debugOn THEN
2012: wsh_debug_sv.logmsg(l_moduleName,'FND_API.G_EXC_ERROR exception has occured.',
2013: wsh_debug_sv.C_EXCEP_LEVEL);
2014: wsh_debug_sv.pop(l_moduleName,'EXCEPTION:FND_API.G_EXC_ERROR');
2015: END IF;
2016: --
2017: WHEN OTHERS THEN
2010: --
2011: IF l_debugOn THEN
2012: wsh_debug_sv.logmsg(l_moduleName,'FND_API.G_EXC_ERROR exception has occured.',
2013: wsh_debug_sv.C_EXCEP_LEVEL);
2014: wsh_debug_sv.pop(l_moduleName,'EXCEPTION:FND_API.G_EXC_ERROR');
2015: END IF;
2016: --
2017: WHEN OTHERS THEN
2018: --
2018: --
2019: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2020: --
2021: IF l_debugOn THEN
2022: wsh_debug_sv.logmsg(l_moduleName,'Unexpected error has occured. Oracle error message is '||
2023: SQLERRM,wsh_debug_sv.C_UNEXPEC_ERR_LEVEL);
2024: wsh_debug_sv.pop(l_moduleName,'EXCEPTION:OTHERS');
2025: END IF;
2026: --
2019: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2020: --
2021: IF l_debugOn THEN
2022: wsh_debug_sv.logmsg(l_moduleName,'Unexpected error has occured. Oracle error message is '||
2023: SQLERRM,wsh_debug_sv.C_UNEXPEC_ERR_LEVEL);
2024: wsh_debug_sv.pop(l_moduleName,'EXCEPTION:OTHERS');
2025: END IF;
2026: --
2027: FND_MESSAGE.SET_NAME('WSH','WSH_UTIL_MESSAGE_U');
2020: --
2021: IF l_debugOn THEN
2022: wsh_debug_sv.logmsg(l_moduleName,'Unexpected error has occured. Oracle error message is '||
2023: SQLERRM,wsh_debug_sv.C_UNEXPEC_ERR_LEVEL);
2024: wsh_debug_sv.pop(l_moduleName,'EXCEPTION:OTHERS');
2025: END IF;
2026: --
2027: FND_MESSAGE.SET_NAME('WSH','WSH_UTIL_MESSAGE_U');
2028: FND_MESSAGE.SET_TOKEN('MSG_TEXT',sqlerrm);
2059: --
2060: l_debugOn := WSH_DEBUG_INTERFACE.g_debug;
2061: --
2062: IF l_debugOn IS NULL THEN
2063: l_debugOn := wsh_debug_sv.is_debug_enabled;
2064: END IF;
2065: --
2066: IF l_debugOn THEN
2067: wsh_debug_sv.push(l_moduleName);
2063: l_debugOn := wsh_debug_sv.is_debug_enabled;
2064: END IF;
2065: --
2066: IF l_debugOn THEN
2067: wsh_debug_sv.push(l_moduleName);
2068: wsh_debug_sv.log(l_moduleName,'p_deliveryId',p_deliveryId);
2069: END IF;
2070: --
2071: OPEN c_Deliv;
2064: END IF;
2065: --
2066: IF l_debugOn THEN
2067: wsh_debug_sv.push(l_moduleName);
2068: wsh_debug_sv.log(l_moduleName,'p_deliveryId',p_deliveryId);
2069: END IF;
2070: --
2071: OPEN c_Deliv;
2072: CLOSE c_Deliv;
2071: OPEN c_Deliv;
2072: CLOSE c_Deliv;
2073: --
2074: IF l_debugOn THEN
2075: wsh_debug_sv.logmsg(l_moduleName, 'Returning True');
2076: wsh_debug_sv.pop(l_moduleName);
2077: END IF;
2078: --
2079: RETURN(TRUE);
2072: CLOSE c_Deliv;
2073: --
2074: IF l_debugOn THEN
2075: wsh_debug_sv.logmsg(l_moduleName, 'Returning True');
2076: wsh_debug_sv.pop(l_moduleName);
2077: END IF;
2078: --
2079: RETURN(TRUE);
2080: --
2082: --
2083: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
2084: --
2085: IF l_debugOn THEN
2086: wsh_debug_sv.logmsg(l_moduleName, 'Could not lock delivery');
2087: wsh_debug_sv.pop(l_moduleName);
2088: END IF;
2089: --
2090: RETURN(FALSE);
2083: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
2084: --
2085: IF l_debugOn THEN
2086: wsh_debug_sv.logmsg(l_moduleName, 'Could not lock delivery');
2087: wsh_debug_sv.pop(l_moduleName);
2088: END IF;
2089: --
2090: RETURN(FALSE);
2091: --
2134: --
2135: l_debugOn := WSH_DEBUG_INTERFACE.g_debug;
2136: --
2137: IF l_debugOn IS NULL THEN
2138: l_debugOn := wsh_debug_sv.is_debug_enabled;
2139: END IF;
2140: --
2141: --wsh_debug_sv.start_debugger(v_Fname, v_Sts, v_MsgCnt, v_Msg);
2142: --
2137: IF l_debugOn IS NULL THEN
2138: l_debugOn := wsh_debug_sv.is_debug_enabled;
2139: END IF;
2140: --
2141: --wsh_debug_sv.start_debugger(v_Fname, v_Sts, v_MsgCnt, v_Msg);
2142: --
2143: IF l_debugOn THEN
2144: wsh_debug_sv.push(l_moduleName, 'FTERRESP_SELECTOR');
2145: wsh_debug_sv.log(l_moduleName, 'Item Type', itemtype);
2140: --
2141: --wsh_debug_sv.start_debugger(v_Fname, v_Sts, v_MsgCnt, v_Msg);
2142: --
2143: IF l_debugOn THEN
2144: wsh_debug_sv.push(l_moduleName, 'FTERRESP_SELECTOR');
2145: wsh_debug_sv.log(l_moduleName, 'Item Type', itemtype);
2146: wsh_debug_sv.log(l_moduleName, 'ItemKey', itemKey);
2147: wsh_debug_sv.log(l_moduleName, 'Funcmode', funcmode);
2148: END IF;
2141: --wsh_debug_sv.start_debugger(v_Fname, v_Sts, v_MsgCnt, v_Msg);
2142: --
2143: IF l_debugOn THEN
2144: wsh_debug_sv.push(l_moduleName, 'FTERRESP_SELECTOR');
2145: wsh_debug_sv.log(l_moduleName, 'Item Type', itemtype);
2146: wsh_debug_sv.log(l_moduleName, 'ItemKey', itemKey);
2147: wsh_debug_sv.log(l_moduleName, 'Funcmode', funcmode);
2148: END IF;
2149: --
2142: --
2143: IF l_debugOn THEN
2144: wsh_debug_sv.push(l_moduleName, 'FTERRESP_SELECTOR');
2145: wsh_debug_sv.log(l_moduleName, 'Item Type', itemtype);
2146: wsh_debug_sv.log(l_moduleName, 'ItemKey', itemKey);
2147: wsh_debug_sv.log(l_moduleName, 'Funcmode', funcmode);
2148: END IF;
2149: --
2150: IF(funcmode = 'RUN') THEN
2143: IF l_debugOn THEN
2144: wsh_debug_sv.push(l_moduleName, 'FTERRESP_SELECTOR');
2145: wsh_debug_sv.log(l_moduleName, 'Item Type', itemtype);
2146: wsh_debug_sv.log(l_moduleName, 'ItemKey', itemKey);
2147: wsh_debug_sv.log(l_moduleName, 'Funcmode', funcmode);
2148: END IF;
2149: --
2150: IF(funcmode = 'RUN') THEN
2151: --
2169: --
2170: l_orgId := wf_engine.GetItemAttrNumber( 'FTERRESP', itemKey, 'ORG_ID');
2171: --
2172: IF l_debugOn THEN
2173: wsh_debug_sv.log(l_moduleName, 'l_orgId', l_orgId);
2174: END IF;
2175: --
2176: IF l_orgId IS NULL THEN
2177: resultout := 'TRUE';
2179: --
2180: l_currentOrgId := TO_NUMBER(FND_PROFILE.VALUE('ORG_ID'));
2181: --
2182: IF l_debugOn THEN
2183: wsh_debug_sv.log (l_moduleName, 'l_currentOrgId', l_currentOrgId);
2184: END IF;
2185: --
2186: IF l_currentOrgId IS NOT NULL THEN
2187: --{
2193: NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99)
2194: INTO l_clientOrgId FROM DUAL;
2195: --
2196: IF l_debugOn THEN
2197: wsh_debug_sv.log (l_moduleName, 'l_clientOrgId',l_clientOrgId);
2198: END IF;
2199: --
2200: IF l_clientOrgId = l_orgId THEN
2201: resultout := 'TRUE';
2201: resultout := 'TRUE';
2202: ELSE
2203: --{
2204: IF l_debugOn THEN
2205: wsh_debug_sv.logmsg(l_moduleName, 'SELECTOR: PROFILE ORG = WF ORG');
2206: wsh_debug_sv.logmsg(l_moduleName, 'BUT CLIENT ORG <> WF ORG');
2207: END IF;
2208: --
2209: resultout := 'FALSE';
2202: ELSE
2203: --{
2204: IF l_debugOn THEN
2205: wsh_debug_sv.logmsg(l_moduleName, 'SELECTOR: PROFILE ORG = WF ORG');
2206: wsh_debug_sv.logmsg(l_moduleName, 'BUT CLIENT ORG <> WF ORG');
2207: END IF;
2208: --
2209: resultout := 'FALSE';
2210: --}
2220: --
2221: END IF;
2222: --
2223: IF l_debugOn THEN
2224: wsh_debug_sv.log (l_moduleName, 'resultout', resultout);
2225: wsh_debug_sv.pop(l_moduleName);
2226: END IF;
2227: --
2228: wsh_debug_sv.stop_debug;
2221: END IF;
2222: --
2223: IF l_debugOn THEN
2224: wsh_debug_sv.log (l_moduleName, 'resultout', resultout);
2225: wsh_debug_sv.pop(l_moduleName);
2226: END IF;
2227: --
2228: wsh_debug_sv.stop_debug;
2229: --
2224: wsh_debug_sv.log (l_moduleName, 'resultout', resultout);
2225: wsh_debug_sv.pop(l_moduleName);
2226: END IF;
2227: --
2228: wsh_debug_sv.stop_debug;
2229: --
2230: EXCEPTION
2231: --
2232: WHEN OTHERS THEN
2233: --
2234: resultout := 'COMPLETE:FAILURE';
2235: --
2236: IF l_debugOn THEN
2237: wsh_debug_sv.logmsg(l_moduleName,'Unexpected error '|| SQLERRM);
2238: wsh_debug_sv.pop(l_moduleName,'EXCEPTION:OTHERS');
2239: END IF;
2240: --
2241: wsh_debug_sv.stop_debug;
2234: resultout := 'COMPLETE:FAILURE';
2235: --
2236: IF l_debugOn THEN
2237: wsh_debug_sv.logmsg(l_moduleName,'Unexpected error '|| SQLERRM);
2238: wsh_debug_sv.pop(l_moduleName,'EXCEPTION:OTHERS');
2239: END IF;
2240: --
2241: wsh_debug_sv.stop_debug;
2242: --
2237: wsh_debug_sv.logmsg(l_moduleName,'Unexpected error '|| SQLERRM);
2238: wsh_debug_sv.pop(l_moduleName,'EXCEPTION:OTHERS');
2239: END IF;
2240: --
2241: wsh_debug_sv.stop_debug;
2242: --
2243: RAISE;
2244: --
2245: END FTERRESP_SELECTOR;
2282: --
2283: l_debugOn := WSH_DEBUG_INTERFACE.g_debug;
2284: --
2285: IF l_debugOn IS NULL THEN
2286: l_debugOn := wsh_debug_sv.is_debug_enabled;
2287: END IF;
2288: --
2289: IF l_debugOn THEN
2290: wsh_debug_sv.push(l_moduleName);
2286: l_debugOn := wsh_debug_sv.is_debug_enabled;
2287: END IF;
2288: --
2289: IF l_debugOn THEN
2290: wsh_debug_sv.push(l_moduleName);
2291: wsh_debug_sv.log(l_moduleName, 'Routing Response Number', p_routRespNum);
2292: END IF;
2293: --
2294: v_InRec.routingRespNum := p_routRespNum;
2287: END IF;
2288: --
2289: IF l_debugOn THEN
2290: wsh_debug_sv.push(l_moduleName);
2291: wsh_debug_sv.log(l_moduleName, 'Routing Response Number', p_routRespNum);
2292: END IF;
2293: --
2294: v_InRec.routingRespNum := p_routRespNum;
2295: --
2315: x_changed := 'N'; /* no change */
2316: END IF;
2317: --
2318: IF l_debugOn THEN
2319: wsh_debug_sv.log(l_moduleName, 'Changed', x_changed);
2320: wsh_debug_sv.pop(l_moduleName);
2321: END IF;
2322: --
2323: END CheckDeliveryInfo;
2316: END IF;
2317: --
2318: IF l_debugOn THEN
2319: wsh_debug_sv.log(l_moduleName, 'Changed', x_changed);
2320: wsh_debug_sv.pop(l_moduleName);
2321: END IF;
2322: --
2323: END CheckDeliveryInfo;
2324: