[Home] [Help]
35: l_freight_cost_id NUMBER ;
36: l_return_status VARCHAR2(1);
37: l_fte_install_status VARCHAR2(30);
38: l_industry VARCHAR2(30);
39: l_leg_id_tab WSH_UTIL_CORE.id_tab_type;
40:
41: others EXCEPTION;
42: WSH_CREATE_FC_ERROR EXCEPTION;
43: mark_reprice_error EXCEPTION;
41: others EXCEPTION;
42: WSH_CREATE_FC_ERROR EXCEPTION;
43: mark_reprice_error EXCEPTION;
44:
45: l_stop_tab WSH_UTIL_CORE.id_tab_type; -- DBI Project
46: l_dbi_rs VARCHAR2(1); -- DBI Project
47: --
48: l_debug_on BOOLEAN;
49: --
173:
174: IF l_debug_on THEN
175: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
176: END IF;
177: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
178: x_return_status := l_dbi_rs;
179: -- just pass this return status to caller API
180: IF l_debug_on THEN
181: WSH_DEBUG_SV.log(l_module_name,'DBI API Returned Unexpected error '||x_return_status);
194: IF (get_rowid%NOTFOUND) THEN
195: CLOSE get_rowid;
196: RAISE others;
197: ELSE
198: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
199: END IF;
200:
201: CLOSE get_rowid;
202: /* H integration: Pricing integration csun
200:
201: CLOSE get_rowid;
202: /* H integration: Pricing integration csun
203: */
204: IF WSH_UTIL_CORE.FTE_Is_Installed = 'Y' THEN
205: l_leg_id_tab(1) := x_delivery_leg_id;
206: --
207: IF l_debug_on THEN
208: WSH_DEBUG_SV.log(l_module_name,'FTE is installed');
211: WSH_DELIVERY_LEGS_ACTIONS.Mark_Reprice_Required(
212: p_entity_type => 'DELIVERY_LEG',
213: p_entity_ids => l_leg_id_tab,
214: x_return_status => l_return_status);
215: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
216: raise mark_reprice_error;
217: END IF;
218:
219: l_freight_cost_info.freight_cost_id := NULL;
232: p_freight_cost_info => l_freight_cost_info,
233: x_rowid => l_row_id,
234: x_freight_cost_id => l_freight_cost_id,
235: x_return_status => l_return_status );
236: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
237: raise WSH_CREATE_FC_ERROR;
238: END IF;
239:
240: END IF;
246: EXCEPTION
247:
248: WHEN mark_reprice_error THEN
249: FND_MESSAGE.SET_NAME('WSH', 'WSH_REPRICE_REQUIRED_ERR');
250: WSH_UTIL_CORE.add_message(l_return_status,l_module_name);
251: x_return_status := l_return_status;
252: --
253: IF l_debug_on THEN
254: WSH_DEBUG_SV.logmsg(l_module_name,'MARK_REPRICE_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
255: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
256: END IF;
257: --
258: WHEN WSH_CREATE_FC_ERROR THEN
259: wsh_util_core.default_handler('WSH_DELIVERY_LEGS_PVT.CREATE_DELIVERY_LEG',l_module_name);
260: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
261: --
262: IF l_debug_on THEN
263: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_CREATE_FC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
256: END IF;
257: --
258: WHEN WSH_CREATE_FC_ERROR THEN
259: wsh_util_core.default_handler('WSH_DELIVERY_LEGS_PVT.CREATE_DELIVERY_LEG',l_module_name);
260: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
261: --
262: IF l_debug_on THEN
263: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_CREATE_FC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
264: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_CREATE_FC_ERROR');
264: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_CREATE_FC_ERROR');
265: END IF;
266: --
267: WHEN others THEN
268: wsh_util_core.default_handler('WSH_DELIVERY_LEGS_PVT.CREATE_DELIVERY_LEG',l_module_name);
269: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
270: --
271: IF l_debug_on THEN
272: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
265: END IF;
266: --
267: WHEN others THEN
268: wsh_util_core.default_handler('WSH_DELIVERY_LEGS_PVT.CREATE_DELIVERY_LEG',l_module_name);
269: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
270: --
271: IF l_debug_on THEN
272: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
273: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
411: END IF;
412: IF (SQL%NOTFOUND) THEN
413: RAISE no_data_found;
414: ELSE
415: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
416: END IF;
417: --
418: IF l_debug_on THEN
419: WSH_DEBUG_SV.pop(l_module_name);
421: --
422: EXCEPTION
423: WHEN no_data_found THEN
424: FND_MESSAGE.SET_NAME('WSH','WSH_LEG_NOT_FOUND');
425: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
426: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status,l_module_name);
427: --
428: IF l_debug_on THEN
429: WSH_DEBUG_SV.logmsg(l_module_name,'NO_DATA_FOUND exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
422: EXCEPTION
423: WHEN no_data_found THEN
424: FND_MESSAGE.SET_NAME('WSH','WSH_LEG_NOT_FOUND');
425: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
426: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status,l_module_name);
427: --
428: IF l_debug_on THEN
429: WSH_DEBUG_SV.logmsg(l_module_name,'NO_DATA_FOUND exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
430: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NO_DATA_FOUND');
430: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NO_DATA_FOUND');
431: END IF;
432: --
433: WHEN others THEN
434: wsh_util_core.default_handler('WSH_DELIVERY_LEGS_PVT.UPDATE_DELIVERY_LEG',l_module_name);
435: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
436: --
437: IF l_debug_on THEN
438: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
431: END IF;
432: --
433: WHEN others THEN
434: wsh_util_core.default_handler('WSH_DELIVERY_LEGS_PVT.UPDATE_DELIVERY_LEG',l_module_name);
435: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
436: --
437: IF l_debug_on THEN
438: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
439: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
478: SELECT pick_up_stop_id,drop_off_stop_id
479: FROM wsh_delivery_legs
480: WHERE delivery_leg_id = v_del_leg_id;
481:
482: l_stop_tab WSH_UTIL_CORE.id_tab_type;
483: l_dbi_rs VARCHAR2(1);
484: --
485:
486: l_delivery_leg_id NUMBER;
585: WSH_DEBUG_SV.log(l_module_name,'P_ROWID',P_ROWID);
586: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_LEG_ID',P_DELIVERY_LEG_ID);
587: END IF;
588: --
589: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
590:
591: --OTM R12
592: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED; -- this is global variable
593:
588: --
589: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
590:
591: --OTM R12
592: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED; -- this is global variable
593:
594: IF l_gc3_is_installed IS NULL THEN
595: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED; -- this is actual function
596: END IF;
591: --OTM R12
592: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED; -- this is global variable
593:
594: IF l_gc3_is_installed IS NULL THEN
595: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED; -- this is actual function
596: END IF;
597: --
598:
599: IF p_rowid IS NOT NULL THEN
646: --{
647: WHEN RECORD_LOCKED THEN
648: FND_MESSAGE.SET_NAME('WSH','WSH_TRIP_LOCK_FAILED');
649: FND_MESSAGE.SET_TOKEN('ENTITY_NAME', leg_rec.trip_name);
650: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR);
651: RAISE FND_API.G_EXC_ERROR;
652: --}
653: END;
654: --
673: x_msg_data => l_msg_data,
674: p_entity_name => 'WSH_DELIVERY_LEGS',
675: p_entity_id => p_delivery_leg_id);
676:
677: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
678: --
679: IF l_debug_on THEN
680: WSH_DEBUG_SV.log(l_module_name,'x_return_status',
681: x_return_status);
685: RETURN;
686: ELSE
687: l_num_warnings := l_num_warnings + 1;
688: FND_MESSAGE.SET_NAME('WSH','WSH_LEG_DOCS_CANCELLED');
689: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
690: wsh_util_core.add_message(x_return_status,l_module_name);
691: END IF;
692:
693: END IF;
686: ELSE
687: l_num_warnings := l_num_warnings + 1;
688: FND_MESSAGE.SET_NAME('WSH','WSH_LEG_DOCS_CANCELLED');
689: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
690: wsh_util_core.add_message(x_return_status,l_module_name);
691: END IF;
692:
693: END IF;
694:
704:
705: IF (SQL%NOTFOUND) THEN
706:
707: FND_MESSAGE.SET_NAME('WSH','WSH_LEG_NOT_FOUND');
708: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
709: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status,l_module_name);
710: IF l_debug_on THEN
711: WSH_DEBUG_SV.log(l_module_name,'WSH_LEG_NOT_FOUND');
712: END IF;
705: IF (SQL%NOTFOUND) THEN
706:
707: FND_MESSAGE.SET_NAME('WSH','WSH_LEG_NOT_FOUND');
708: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
709: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status,l_module_name);
710: IF l_debug_on THEN
711: WSH_DEBUG_SV.log(l_module_name,'WSH_LEG_NOT_FOUND');
712: END IF;
713:
731:
732: IF l_debug_on THEN
733: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
734: END IF;
735: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
736: x_return_status := l_dbi_rs;
737: -- just pass this return status to caller API
738: IF l_debug_on THEN
739: WSH_DEBUG_SV.log(l_module_name,'DBI API Returned Unexpected error '||x_return_status);
747: /* H integration: Pricing integration csun
748: delete corresponding freight cost record, ignore if
749: the record is not found
750: */
751: IF WSH_UTIL_CORE.FTE_Is_Installed = 'Y'
752: --OTM R12, allow delete when OTM is installed
753: OR l_gc3_is_installed = 'Y'
754: --
755: THEN
784: x_shipments_type_flag => lock_trip_rec.pu_stop_shipments_type_flag,
785: x_return_status => l_return_status
786: );
787: --
788: wsh_util_core.api_post_call
789: (
790: p_return_status => l_return_status,
791: x_num_warnings => l_num_warnings,
792: x_num_errors => l_num_errors
801: -- call FTE API for validations
802: -- and then update trip stop with new value.
803: --
804: /* H integration - call Multi Leg FTE */
805: IF (WSH_UTIL_CORE.FTE_IS_INSTALLED = 'Y') THEN
806: -- Get pvt type record structure for stop
807: --
808: -- Debug Statements
809: --
815: (p_stop_id => leg_rec.pick_up_stop_id,
816: x_stop_rec => l_stop_rec,
817: x_return_status => l_return_status);
818: --
819: wsh_util_core.api_post_call
820: (
821: p_return_status => l_return_status,
822: x_num_warnings => l_num_warnings,
823: x_num_errors => l_num_errors
833: p_trip_rec => l_trip_rec,
834: p_action => 'UPDATE',
835: x_return_status => l_return_status);
836: --
837: wsh_util_core.api_post_call
838: (
839: p_return_status => l_return_status,
840: x_num_warnings => l_num_warnings,
841: x_num_errors => l_num_errors
863: END IF;
864: --
865: --tkt calling get_namewith caller as FTE as inbound is available only with FTE
866: FND_MESSAGE.SET_TOKEN('STOP_NAME',wsh_trip_stops_pvt.get_name(leg_rec.pick_up_stop_id, 'FTE'));
867: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
868: --
869: l_num_warnings := l_num_warnings + 1;
870: --}
871: END IF;
893: IF l_debug_on THEN
894: WSH_DEBUG_SV.log(l_module_name,'refreshShipmentsTypeFlag l_return_status',l_return_status);
895: WSH_DEBUG_SV.log(l_module_name,'do_stop_shipments_type_flag',lock_trip_rec.do_stop_shipments_type_flag);
896: END IF;
897: wsh_util_core.api_post_call
898: (
899: p_return_status => l_return_status,
900: x_num_warnings => l_num_warnings,
901: x_num_errors => l_num_errors
910: -- call FTE API for validations
911: -- and then update trip stop with new value.
912: --
913: /* H integration - call Multi Leg FTE */
914: IF (WSH_UTIL_CORE.FTE_IS_INSTALLED = 'Y') THEN
915: -- Get pvt type record structure for stop
916: --
917: -- Debug Statements
918: --
924: (p_stop_id => leg_rec.drop_off_stop_id,
925: x_stop_rec => l_stop_rec,
926: x_return_status => l_return_status);
927: --
928: wsh_util_core.api_post_call
929: (
930: p_return_status => l_return_status,
931: x_num_warnings => l_num_warnings,
932: x_num_errors => l_num_errors
942: p_trip_rec => l_trip_rec,
943: p_action => 'UPDATE',
944: x_return_status => l_return_status);
945: --
946: wsh_util_core.api_post_call
947: (
948: p_return_status => l_return_status,
949: x_num_warnings => l_num_warnings,
950: x_num_errors => l_num_errors
972: END IF;
973: --
974: --tkt calling get_namewith caller as FTE as inbound is available only with FTE
975: FND_MESSAGE.SET_TOKEN('STOP_NAME',wsh_trip_stops_pvt.get_name(leg_rec.drop_off_stop_id,'FTE'));
976: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
977: --
978: l_num_warnings := l_num_warnings + 1;
979: --}
980: END IF;
1074: IF l_debug_on THEN
1075: WSH_DEBUG_SV.log(l_module_name,'Process_Leg_Sequence l_return_status',l_return_status);
1076: END IF;
1077:
1078: wsh_util_core.api_post_call
1079: (
1080: p_return_status => l_return_status,
1081: x_num_warnings => l_num_warnings,
1082: x_num_errors => l_num_errors);
1084: -- J-IB-HEALI-}
1085:
1086: IF l_num_errors > 0
1087: THEN
1088: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1089: ELSIF l_num_warnings > 0
1090: THEN
1091: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1092: ELSE
1087: THEN
1088: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1089: ELSIF l_num_warnings > 0
1090: THEN
1091: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1092: ELSE
1093: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1094: END IF;
1095: --
1089: ELSIF l_num_warnings > 0
1090: THEN
1091: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1092: ELSE
1093: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1094: END IF;
1095: --
1096: --
1097: IF l_debug_on THEN
1101: EXCEPTION
1102: -- J-IB-NPARIKH-{
1103: WHEN FND_API.G_EXC_ERROR THEN
1104:
1105: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1106: --
1107: IF l_debug_on THEN
1108: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1109: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
1110: END IF;
1111: --
1112: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1113:
1114: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1115: --
1116: IF l_debug_on THEN
1117: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1118: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1121:
1122: -- J-IB-NPARIKH-}
1123:
1124: WHEN others THEN
1125: wsh_util_core.default_handler('WSH_DELIVERY_LEGS_PVT.DELETE_DELIVERY_LEG',l_module_name);
1126: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1127: --
1128: IF l_debug_on THEN
1129: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1122: -- J-IB-NPARIKH-}
1123:
1124: WHEN others THEN
1125: wsh_util_core.default_handler('WSH_DELIVERY_LEGS_PVT.DELETE_DELIVERY_LEG',l_module_name);
1126: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1127: --
1128: IF l_debug_on THEN
1129: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1130: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1530: FETCH leg_record INTO x_delivery_leg_info;
1531:
1532: IF (leg_record%NOTFOUND) THEN
1533: FND_MESSAGE.SET_NAME('WSH','WSH_LEG_NOT_FOUND');
1534: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1535: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status,l_module_name);
1536: IF l_debug_on THEN
1537: WSH_DEBUG_SV.log(l_module_name,'WSH_LEG_NOT_FOUND');
1538: END IF;
1531:
1532: IF (leg_record%NOTFOUND) THEN
1533: FND_MESSAGE.SET_NAME('WSH','WSH_LEG_NOT_FOUND');
1534: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1535: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status,l_module_name);
1536: IF l_debug_on THEN
1537: WSH_DEBUG_SV.log(l_module_name,'WSH_LEG_NOT_FOUND');
1538: END IF;
1539: ELSE
1536: IF l_debug_on THEN
1537: WSH_DEBUG_SV.log(l_module_name,'WSH_LEG_NOT_FOUND');
1538: END IF;
1539: ELSE
1540: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1541: END IF;
1542:
1543: CLOSE leg_record;
1544: --
1547: END IF;
1548: --
1549: EXCEPTION
1550: WHEN others THEN
1551: wsh_util_core.default_handler('WSH_DELIVERY_LEGS_PVT.POPULATE_RECORD',l_module_name);
1552: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1553: --
1554: IF l_debug_on THEN
1555: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1548: --
1549: EXCEPTION
1550: WHEN others THEN
1551: wsh_util_core.default_handler('WSH_DELIVERY_LEGS_PVT.POPULATE_RECORD',l_module_name);
1552: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1553: --
1554: IF l_debug_on THEN
1555: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1556: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1570: p_delivery_leg_id IN NUMBER,
1571: p_parent_entity_id IN NUMBER,
1572: p_list_type IN VARCHAR2,
1573: x_return_status OUT NOCOPY VARCHAR2,
1574: x_disabled_list OUT NOCOPY wsh_util_core.column_tab_type,
1575: x_msg_count OUT NOCOPY NUMBER,
1576: x_msg_data OUT NOCOPY VARCHAR2
1577: ) IS
1578:
1632: WSH_DEBUG_SV.log(l_module_name,'P_PARENT_ENTITY_ID',P_PARENT_ENTITY_ID);
1633: WSH_DEBUG_SV.log(l_module_name,'P_LIST_TYPE',P_LIST_TYPE);
1634: END IF;
1635: --
1636: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1637: x_disabled_list.delete;
1638:
1639: IF p_list_type <> 'FORM' THEN
1640: raise WSH_INV_LIST_TYPE;
1640: raise WSH_INV_LIST_TYPE;
1641: END IF;
1642: IF (p_parent_entity_id is NULL) THEN
1643: FND_MESSAGE.Set_Name('WSH','WSH_API_INVALID_PARAM_VALUE');
1644: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1645: --
1646: IF l_debug_on THEN
1647: WSH_DEBUG_SV.pop(l_module_name);
1648: END IF;
1658: END IF;
1659: IF get_delivery_status%NOTFOUND THEN
1660: CLOSE get_delivery_status;
1661: FND_MESSAGE.Set_Name('WSH','WSH_API_INVALID_PARAM_VALUE');
1662: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1663: --
1664: IF l_debug_on THEN
1665: WSH_DEBUG_SV.pop(l_module_name);
1666: END IF;
1761: EXCEPTION
1762:
1763: WHEN WSH_DP_NO_ENTITY THEN
1764: FND_MESSAGE.SET_NAME('WSH', 'WSH_DP_NO_ENTITY');
1765: WSH_UTIL_CORE.ADD_MESSAGE(FND_API.G_RET_STS_ERROR,l_module_name);
1766: x_return_status := FND_API.G_RET_STS_ERROR;
1767: WSH_UTIL_CORE.get_messages('Y', l_msg_summary, l_msg_details, x_msg_count);
1768: if x_msg_count > 1 then
1769: x_msg_data := l_msg_summary || l_msg_details;
1763: WHEN WSH_DP_NO_ENTITY THEN
1764: FND_MESSAGE.SET_NAME('WSH', 'WSH_DP_NO_ENTITY');
1765: WSH_UTIL_CORE.ADD_MESSAGE(FND_API.G_RET_STS_ERROR,l_module_name);
1766: x_return_status := FND_API.G_RET_STS_ERROR;
1767: WSH_UTIL_CORE.get_messages('Y', l_msg_summary, l_msg_details, x_msg_count);
1768: if x_msg_count > 1 then
1769: x_msg_data := l_msg_summary || l_msg_details;
1770: else
1771: x_msg_data := l_msg_summary;
1781: END IF;
1782: --
1783: WHEN WSH_DP_NO_STOP THEN
1784: FND_MESSAGE.SET_NAME('WSH', 'WSH_DP_NO_STOP');
1785: WSH_UTIL_CORE.ADD_MESSAGE(FND_API.G_RET_STS_ERROR,l_module_name);
1786: x_return_status := FND_API.G_RET_STS_ERROR;
1787: WSH_UTIL_CORE.get_messages('Y', l_msg_summary, l_msg_details, x_msg_count);
1788: if x_msg_count > 1 then
1789: x_msg_data := l_msg_summary || l_msg_details;
1783: WHEN WSH_DP_NO_STOP THEN
1784: FND_MESSAGE.SET_NAME('WSH', 'WSH_DP_NO_STOP');
1785: WSH_UTIL_CORE.ADD_MESSAGE(FND_API.G_RET_STS_ERROR,l_module_name);
1786: x_return_status := FND_API.G_RET_STS_ERROR;
1787: WSH_UTIL_CORE.get_messages('Y', l_msg_summary, l_msg_details, x_msg_count);
1788: if x_msg_count > 1 then
1789: x_msg_data := l_msg_summary || l_msg_details;
1790: else
1791: x_msg_data := l_msg_summary;
1801: END IF;
1802: --
1803: WHEN WSH_INV_LIST_TYPE THEN
1804: FND_MESSAGE.SET_NAME('WSH', 'WSH_INV_LIST_TYPE');
1805: WSH_UTIL_CORE.ADD_MESSAGE(FND_API.G_RET_STS_ERROR,l_module_name);
1806: x_return_status := FND_API.G_RET_STS_ERROR;
1807: WSH_UTIL_CORE.get_messages('Y', l_msg_summary, l_msg_details, x_msg_count);
1808: if x_msg_count > 1 then
1809: x_msg_data := l_msg_summary || l_msg_details;
1803: WHEN WSH_INV_LIST_TYPE THEN
1804: FND_MESSAGE.SET_NAME('WSH', 'WSH_INV_LIST_TYPE');
1805: WSH_UTIL_CORE.ADD_MESSAGE(FND_API.G_RET_STS_ERROR,l_module_name);
1806: x_return_status := FND_API.G_RET_STS_ERROR;
1807: WSH_UTIL_CORE.get_messages('Y', l_msg_summary, l_msg_details, x_msg_count);
1808: if x_msg_count > 1 then
1809: x_msg_data := l_msg_summary || l_msg_details;
1810: else
1811: x_msg_data := l_msg_summary;
1827: CLOSE get_stop_status;
1828: END IF;
1829:
1830: FND_MESSAGE.Set_Name('WSH','WSH_UNEXPECTED_ERROR');
1831: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1832:
1833: IF l_debug_on THEN
1834: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1835: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1909: IF p_delivery_id IS NOT NULL THEN
1910: l_del_name := wsh_new_deliveries_pvt.get_name(p_delivery_id);
1911: FND_MESSAGE.SET_NAME('WSH', 'WSH_DLVY_DEL_LEG_LOCK');
1912: FND_MESSAGE.SET_TOKEN('DEL_NAME', l_del_name);
1913: wsh_util_Core.add_message(wsh_util_core.g_ret_sts_error, l_module_name);
1914: IF l_debug_on THEN
1915: wsh_debug_sv.log(l_module_name, 'Could not obtain locks on some or all delivery legs of delivery', p_delivery_id);
1916: END IF;
1917: ELSE