[Home] [Help]
21: --
22: -- Version : 1.0
23: --
24: PROCEDURE GenerateRoutingResponse(
25: p_deliveryIdTab IN wsh_util_core.id_tab_type,
26: x_routingRespIdTab OUT NOCOPY wsh_util_core.id_tab_type,
27: x_RetStatus OUT NOCOPY VARCHAR2) IS
28: --
29: l_Status VARCHAR2(10);
22: -- Version : 1.0
23: --
24: PROCEDURE GenerateRoutingResponse(
25: p_deliveryIdTab IN wsh_util_core.id_tab_type,
26: x_routingRespIdTab OUT NOCOPY wsh_util_core.id_tab_type,
27: x_RetStatus OUT NOCOPY VARCHAR2) IS
28: --
29: l_Status VARCHAR2(10);
30: l_TxnId NUMBER;
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: --
56: -- Now for each delivery, let's generate a notification
57: --
58: i := p_deliveryIdTab.FIRST;
68: -- First validate the delivery
69: --
70: ValidateDelivery(p_deliveryIdTab(i), l_Status);
71: --
72: wsh_util_core.api_post_call(p_return_status => l_Status,
73: x_num_warnings => l_numWarnings,
74: x_num_errors => l_numErrors);
75: --
76: l_SuccDels := l_SuccDels + 1;
83: x_RespNum => l_RespNum,
84: x_DelName => l_DelName,
85: x_Status => l_Status);
86: --
87: wsh_util_core.api_post_call(p_return_status => l_Status,
88: x_num_warnings => l_numWarnings,
89: x_num_errors => l_numErrors);
90: --
91: x_routingRespIdTab(x_routingRespIdTab.COUNT + 1) := l_txnId;
97: p_DelName => l_DelName,
98: p_RespNum => l_RespNum,
99: x_RetSts => l_Status);
100: --
101: wsh_util_core.api_post_call(p_return_status => l_Status,
102: x_num_warnings => l_numWarnings,
103: x_num_errors => l_numErrors);
104: --
105: IF l_Status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
101: wsh_util_core.api_post_call(p_return_status => l_Status,
102: x_num_warnings => l_numWarnings,
103: x_num_errors => l_numErrors);
104: --
105: IF l_Status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
106: FND_MESSAGE.SET_NAME('WSH', 'WSH_ROUTING_RESP_SUCCESS');
107: FND_MESSAGE.SET_TOKEN('RESP_NUM', l_RespNum);
108: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME',
109: WSH_NEW_DELIVERIES_PVT.Get_Name(p_deliveryIdTab(i)));
106: FND_MESSAGE.SET_NAME('WSH', 'WSH_ROUTING_RESP_SUCCESS');
107: FND_MESSAGE.SET_TOKEN('RESP_NUM', l_RespNum);
108: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME',
109: WSH_NEW_DELIVERIES_PVT.Get_Name(p_deliveryIdTab(i)));
110: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_SUCCESS,
111: l_moduleName);
112: ELSE
113: FND_MESSAGE.SET_NAME('WSH', 'WSH_ROUTING_RESP_WARNING');
114: FND_MESSAGE.SET_TOKEN('RESP_NUM', l_RespNum);
113: FND_MESSAGE.SET_NAME('WSH', 'WSH_ROUTING_RESP_WARNING');
114: FND_MESSAGE.SET_TOKEN('RESP_NUM', l_RespNum);
115: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME',
116: WSH_NEW_DELIVERIES_PVT.Get_Name(p_deliveryIdTab(i)));
117: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_WARNING,
118: l_moduleName);
119: END IF;
120: --
121: EXCEPTION
128: --
129: FND_MESSAGE.SET_NAME('WSH', 'WSH_ROUTING_RESP_FAILURE');
130: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME',
131: WSH_NEW_DELIVERIES_PVT.Get_Name(p_deliveryIdTab(i)));
132: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_ERROR,
133: l_moduleName);
134: --
135:
136: END;
139: --}
140: END LOOP;
141: --
142: IF l_SuccDels = 0 THEN
143: x_RetStatus := WSH_UTIL_CORE.G_RET_STS_ERROR;
144: ELSIF l_SuccDels < p_deliveryIdTab.COUNT THEN
145: x_RetStatus := WSH_UTIL_CORE.G_RET_STS_WARNING;
146: ELSIF l_numWarnings > 0 THEN
147: x_RetStatus := WSH_UTIL_CORE.G_RET_STS_WARNING;
141: --
142: IF l_SuccDels = 0 THEN
143: x_RetStatus := WSH_UTIL_CORE.G_RET_STS_ERROR;
144: ELSIF l_SuccDels < p_deliveryIdTab.COUNT THEN
145: x_RetStatus := WSH_UTIL_CORE.G_RET_STS_WARNING;
146: ELSIF l_numWarnings > 0 THEN
147: x_RetStatus := WSH_UTIL_CORE.G_RET_STS_WARNING;
148: ELSE
149: x_RetStatus := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
143: x_RetStatus := WSH_UTIL_CORE.G_RET_STS_ERROR;
144: ELSIF l_SuccDels < p_deliveryIdTab.COUNT THEN
145: x_RetStatus := WSH_UTIL_CORE.G_RET_STS_WARNING;
146: ELSIF l_numWarnings > 0 THEN
147: x_RetStatus := WSH_UTIL_CORE.G_RET_STS_WARNING;
148: ELSE
149: x_RetStatus := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
150: END IF;
151: --
145: x_RetStatus := WSH_UTIL_CORE.G_RET_STS_WARNING;
146: ELSIF l_numWarnings > 0 THEN
147: x_RetStatus := WSH_UTIL_CORE.G_RET_STS_WARNING;
148: ELSE
149: x_RetStatus := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
150: END IF;
151: --
152: --WSH_UTIL_CORE.ADD_MESSAGE(x_RetStatus, l_moduleName);
153: --
148: ELSE
149: x_RetStatus := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
150: END IF;
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);
163: EXCEPTION
164: --
165: WHEN FND_API.G_EXC_ERROR THEN
166: --
167: x_RetStatus := WSH_UTIL_CORE.g_RET_STS_ERROR;
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
165: WHEN FND_API.G_EXC_ERROR THEN
166: --
167: x_RetStatus := WSH_UTIL_CORE.g_RET_STS_ERROR;
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
177: --
178: x_RetStatus := WSH_UTIL_CORE.g_RET_STS_UNEXP_ERROR;
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
176: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
177: --
178: x_RetStatus := WSH_UTIL_CORE.g_RET_STS_UNEXP_ERROR;
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
188: --
189: wsh_util_core.default_handler('WSH_ROUTING_RESPONSE_PKG.GenerateRoutingResponse', l_moduleName);
190: --
191: x_RetStatus := WSH_UTIL_CORE.g_RET_STS_ERROR;
192: FND_MESSAGE.SET_NAME('WSH', 'WSH_ROUTING_RESP_FAILURE');
193: WSH_UTIL_CORE.ADD_MESSAGE(x_RetStatus, l_moduleName);
187: WHEN OTHERS THEN
188: --
189: wsh_util_core.default_handler('WSH_ROUTING_RESPONSE_PKG.GenerateRoutingResponse', l_moduleName);
190: --
191: x_RetStatus := WSH_UTIL_CORE.g_RET_STS_ERROR;
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
189: wsh_util_core.default_handler('WSH_ROUTING_RESPONSE_PKG.GenerateRoutingResponse', l_moduleName);
190: --
191: x_RetStatus := WSH_UTIL_CORE.g_RET_STS_ERROR;
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);
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;
261: fnd_profile.get('ORG_ID', l_orgId);
262: --
263: -- Determine what the from and to roles are
334: EXCEPTION
335: --
336: WHEN OTHERS THEN
337: --
338: x_RetSts := WSH_UTIL_CORE.g_Ret_STS_ERROR;
339: --
340: wsh_util_core.default_handler('WSH_ROUTING_RESPONSE_PKG.SendNotification');
341: --
342: IF l_debugOn THEN
336: WHEN OTHERS THEN
337: --
338: x_RetSts := WSH_UTIL_CORE.g_Ret_STS_ERROR;
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);
383: --
384: l_deliveryId NUMBER;
385: l_status VARCHAR2(10);
386: l_orgId NUMBER;
387: l_routreqIdTab WSH_UTIL_CORE.ID_TAB_TYPE;
388: l_routreqNum VARCHAR2(30);
389: l_revNum NUMBER;
390: l_delName VARCHAR2(30);
391: l_pickupStopId NUMBER;
397: l_msgFailSubject VARCHAR2(1000);
398: l_failReason VARCHAR2(32767);
399: l_routrespNum NUMBER;
400: l_performer VARCHAR2(30);
401: l_delIdTab WSH_UTIL_CORE.ID_TAB_TYPE;
402: l_tripIdTab WSH_UTIL_CORE.ID_TAB_TYPE;
403: l_delPlanFlag VARCHAR2(1);
404: l_tripPlanFlag VARCHAR2(1);
405: l_retStatus VARCHAR2(10);
398: l_failReason VARCHAR2(32767);
399: l_routrespNum NUMBER;
400: l_performer VARCHAR2(30);
401: l_delIdTab WSH_UTIL_CORE.ID_TAB_TYPE;
402: l_tripIdTab WSH_UTIL_CORE.ID_TAB_TYPE;
403: l_delPlanFlag VARCHAR2(1);
404: l_tripPlanFlag VARCHAR2(1);
405: l_retStatus VARCHAR2(10);
406: l_planDelSts BOOLEAN := TRUE;
472: --
473: IF l_performer IS NULL THEN
474: --
475: FND_MESSAGE.SET_NAME('FTE', 'FTE_RRESP_NO_PERFORMER');
476: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_ERROR, l_moduleName);
477: --
478: END IF;
479: --
480: -- Lock the delivery
490: -- Re-validate the delivery
491: --
492: ValidateDelivery(l_deliveryId, l_status);
493: --
494: wsh_util_core.api_post_call(p_return_status => l_Status,
495: x_num_warnings => l_numWarnings,
496: x_num_errors => l_numErrors,
497: p_raise_error_flag => FALSE);
498: --
495: x_num_warnings => l_numWarnings,
496: x_num_errors => l_numErrors,
497: p_raise_error_flag => FALSE);
498: --
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');
617: l_delIdTab(l_delIdTab.COUNT + 1) := l_deliveryId;
618: WSH_NEW_DELIVERY_ACTIONS.Plan(p_del_rows => l_delIdTab,
619: x_return_status => l_retStatus);
620: --
621: wsh_util_core.api_post_call(p_return_status => l_retStatus,
622: x_num_warnings => l_numWarnings,
623: x_num_errors => l_numErrors,
624: p_raise_error_flag => FALSE);
625: --
622: x_num_warnings => l_numWarnings,
623: x_num_errors => l_numErrors,
624: p_raise_error_flag => FALSE);
625: --
626: IF l_retStatus <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
627: --{
628: l_planDelSts := FALSE;
629: --
630: IF l_debugOn THEN
653: WSH_TRIPS_ACTIONS.Plan(p_trip_rows => l_tripIdTab,
654: p_action => 'PLAN',
655: x_return_status => l_retStatus);
656: --
657: wsh_util_core.api_post_call(p_return_status => l_retStatus,
658: x_num_warnings => l_numWarnings,
659: x_num_errors => l_numErrors,
660: p_raise_error_flag => FALSE);
661: --
658: x_num_warnings => l_numWarnings,
659: x_num_errors => l_numErrors,
660: p_raise_error_flag => FALSE);
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;
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));
670: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_WARNING);
671: --}
672: END IF;
673: --}
674: END IF;
859: p_TxnId => l_TxnId,
860: p_RevNum => l_RevNum,
861: x_Status => l_Status);
862: --
863: IF l_Status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
864: resultout := 'T';
865: ELSE
866: --
867: FND_MESSAGE.SET_NAME('FTE', 'FTE_RRESP_POST_FAILED_SUBJ');
968: WHEN OTHERS THEN
969: --
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;
1159: IF l_relationship_end_date < SYSDATE
1160: THEN
1161: FND_MESSAGE.SET_NAME('WSH', 'WSH_SUPP_CONTACT_INACTIVE');
1162: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME',l_del_name);
1163: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_ERROR, l_moduleName);
1164: raise FND_API.G_EXC_ERROR;
1165: END IF;
1166: -- } IB-Phase-2
1167:
1255: WHEN OTHERS THEN
1256: --
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;
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: --
1352: -- Obtain the delivery name, org Id and vendor Id
1353: --
1354: OPEN c_DelivData;
1392: WSH_INBOUND_TXN_HISTORY_PKG.create_txn_history(p_txn_history_rec => l_txnHistoryRec,
1393: x_txn_id => l_txnId,
1394: x_return_status => l_Status);
1395: --
1396: WSH_UTIL_CORE.api_post_call(p_return_status => l_Status,
1397: x_num_warnings => l_numWarnings,
1398: x_num_Errors => l_numErrors);
1399: --
1400: x_TxnId := l_txnId;
1412: EXCEPTION
1413: --
1414: WHEN FND_API.G_EXC_ERROR THEN
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
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
1433: --
1434: x_Status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1435: --
1436: wsh_util_core.default_handler('WSH_ROUTING_RESPONSE_PKG.CreateTxnHistory', l_moduleName);
1437: --
1438: IF l_debugOn THEN
1432: WHEN OTHERS THEN
1433: --
1434: x_Status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
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);
1528: --
1529: WSH_INBOUND_TXN_HISTORY_PKG.update_txn_history(p_txn_history_rec => l_txnHistoryRec,
1530: x_return_status => l_Status);
1531: --
1532: wsh_util_core.api_post_call(p_return_status => l_Status,
1533: x_num_warnings => l_numWarnings,
1534: x_num_errors => l_numErrors);
1535: --
1536: x_Status := l_Status;
1543: EXCEPTION
1544: --
1545: WHEN FND_API.G_EXC_ERROR THEN
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
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
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));
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;
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: --
1682:
1683: --Validate PO is in correct Hold and Approval status. PO should not be in Hold and Unapproved.
1684: Validate_PO(
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;
1694: END IF;
1695: --
1696:
1709: --If delivery did not have first leg then error.
1710: IF (validate_first_leg_csr %NOTFOUND) THEN
1711: --
1712: FND_MESSAGE.SET_NAME('WSH', 'WSH_RR_NO_FIRST_LEG');
1713: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_ERROR, l_moduleName);
1714: CLOSE validate_first_leg_csr;
1715: raise fnd_api.g_exc_error;
1716: --
1717: END IF;
1747: IF (l_carrier_id IS NULL OR l_mode_of_transport IS NULL OR l_service_level IS NULL) THEN
1748: --
1749: FND_MESSAGE.SET_NAME('WSH', 'WSH_RR_NO_CARRIER_SETUP');
1750: FND_MESSAGE.SET_TOKEN('DEL_NAME', WSH_NEW_DELIVERIES_PVT.Get_Name(p_delivery_id));
1751: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_ERROR, l_moduleName);
1752: RAISE fnd_api.g_exc_error;
1753: --
1754: END IF;
1755: --
1766: END IF;
1767: --
1768:
1769: --Warning if delivery is not tendered for carrier and accept auto tender.
1770: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1771: --
1772: OPEN get_carrier_name(l_carrier_id);
1773: FETCH get_carrier_name INTO l_carrier_name;
1774: CLOSE get_carrier_name;
1776: --Delivery DEL_NAME is not tendered for carrier CARRIER.
1777: FND_MESSAGE.SET_NAME('WSH', 'WSH_RR_NO_TENDER');
1778: FND_MESSAGE.SET_TOKEN('DEL_NAME', WSH_NEW_DELIVERIES_PVT.Get_Name(p_delivery_id));
1779: FND_MESSAGE.SET_TOKEN('CARRIER', l_carrier_name);
1780: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_WARNING, l_moduleName);
1781: END IF;
1782: --
1783: CLOSE validate_auto_tender_csr;
1784: --
1782: --
1783: CLOSE validate_auto_tender_csr;
1784: --
1785: ELSIF (l_load_tender_status IN ('ACCEPTED','AUTO_ACCEPTED')) THEN
1786: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1787: ELSE
1788:
1789: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR ;
1790:
1785: ELSIF (l_load_tender_status IN ('ACCEPTED','AUTO_ACCEPTED')) THEN
1786: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1787: ELSE
1788:
1789: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR ;
1790:
1791: --Routing Response for delivery DEL_NAME
1792: --is waiting response from carrier CARRIER.
1793: OPEN get_carrier_name(l_carrier_id);
1796:
1797: FND_MESSAGE.SET_NAME('WSH', 'WSH_RR_NO_TENDER_ACCEPT');
1798: FND_MESSAGE.SET_TOKEN('DEL_NAME', WSH_NEW_DELIVERIES_PVT.Get_Name(p_delivery_id));
1799: FND_MESSAGE.SET_TOKEN('CARRIER', l_carrier_name);
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);
1808: EXCEPTION
1809: --
1810: WHEN FND_API.G_EXC_ERROR THEN
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);
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);
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;
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:
1894: --Get the PO attributes of detail lines assign to delivery.
1895: OPEN get_del_detail;
1896: FETCH get_del_detail BULK COLLECT INTO
1905: IF (l_po_header_id.count < 1) THEN
1906: --
1907: FND_MESSAGE.SET_NAME('WSH', 'WSH_DEL_NO_DETAILS');
1908: FND_MESSAGE.SET_TOKEN('DEL_NAME', WSH_NEW_DELIVERIES_PVT.Get_Name(p_delivery_id));
1909: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_ERROR, l_moduleName);
1910: raise fnd_api.g_exc_error;
1911: --
1912: END IF;
1913: --
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
1950: --
1951: FND_MESSAGE.SET_NAME('WSH', 'WSH_RR_PO_INVALID');
1952: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_ERROR, l_moduleName);
1953: raise fnd_api.g_exc_error;
1948: --
1949: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1950: --
1951: FND_MESSAGE.SET_NAME('WSH', 'WSH_RR_PO_INVALID');
1952: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_ERROR, l_moduleName);
1953: raise fnd_api.g_exc_error;
1954: --
1955: END IF;
1956: --
1969: --Error if PO is in Hold
1970: IF (l_po_status_rec.hold_flag(l_index) = 'Y') THEN
1971: --
1972: FND_MESSAGE.SET_NAME('WSH','WSH_RR_PO_ERROR_HOLD');
1973: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_ERROR, l_moduleName);
1974: raise fnd_api.g_exc_error;
1975: --
1976: END IF;
1977: --
1978: --Error if PO is not Approved.
1979: IF (l_po_status_rec.approval_flag(l_index)<> 'Y' ) THEN
1980: --
1981: FND_MESSAGE.SET_NAME('WSH','WSH_RR_PO_ERROR_UNAPPROVED');
1982: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_ERROR, l_moduleName);
1983: raise fnd_api.g_exc_error;
1984: --
1985: END IF;
1986: --
2005: EXCEPTION
2006: --
2007: WHEN FND_API.G_EXC_ERROR THEN
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);
2015: END IF;
2016: --
2017: WHEN OTHERS THEN
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);
2025: END IF;
2026: --
2027: FND_MESSAGE.SET_NAME('WSH','WSH_UTIL_MESSAGE_U');
2028: FND_MESSAGE.SET_TOKEN('MSG_TEXT',sqlerrm);
2029: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_ERROR, l_moduleName);
2030: --
2031: END Validate_PO;
2032:
2033:
2304: x_msg_data => v_msgData,
2305: p_in_rec => v_InRec,
2306: x_out_rec => v_OutRec);
2307: --
2308: wsh_util_core.api_post_call(p_return_status => v_Status,
2309: x_num_warnings => l_numWarnings,
2310: x_num_errors => l_numErrors);
2311: --
2312: IF v_OutRec.hasChanged THEN