1: PACKAGE BODY WSH_VENDOR_PARTY_MERGE_PKG AS
2: /* $Header: WSHVMRGB.pls 120.21 2006/02/22 04:14:45 pkaliyam noship $ */
3: --
4: G_PKG_NAME CONSTANT VARCHAR2(50) := 'WSH_VENDOR_PARTY_MERGE_PKG';
5: --
1: PACKAGE BODY WSH_VENDOR_PARTY_MERGE_PKG AS
2: /* $Header: WSHVMRGB.pls 120.21 2006/02/22 04:14:45 pkaliyam noship $ */
3: --
4: G_PKG_NAME CONSTANT VARCHAR2(50) := 'WSH_VENDOR_PARTY_MERGE_PKG';
5: --
6: TYPE g_LocChangeRec IS RECORD
7: (
8: location_id NUMBER,
275: --
276: WHEN OTHERS THEN
277: --
278: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
279: wsh_util_core.default_handler('WSH_VENDOR_PARTY_MERGE_PKG.InactivatePartySites');
280: --
281: IF l_debug_on THEN
282: --
283: WSH_DEBUG_SV.log(l_module_name,'Unexpected error has occured. Oracle error message is ', SUBSTRB(SQLERRM,1,200));
837: --
838: WHEN OTHERS THEN
839: --
840: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
841: wsh_util_core.default_handler('WSH_VENDOR_PARTY_MERGE_PKG.Create_Site');
842: --
843: IF l_debug_on THEN
844: WSH_DEBUG_SV.log(l_module_name,'Unexpected error has occured. Oracle error message is ', SUBSTRB(SQLERRM,1,200));
845: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
998:
999: IF l_debug_on THEN
1000: --{
1001: WSH_DEBUG_SV.log(l_module_name, 'l_location_id', l_location_id);
1002: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_VENDOR_PARTY_MERGE_PKG.CREATE_SITE' || l_return_status, WSH_DEBUG_SV.C_PROC_LEVEL);
1003: --}
1004: END IF;
1005:
1006: create_site (
1018: x_num_errors => l_num_errors
1019: );
1020: IF l_debug_on THEN
1021: --{
1022: WSH_DEBUG_SV.logmsg(l_module_name,'Return Status from WSH_VENDOR_PARTY_MERGE_PKG.CREATE_SITE is ' || l_return_status, WSH_DEBUG_SV.C_PROC_LEVEL);
1023: --}
1024: END IF;
1025: --}
1026: END IF;
1063: --
1064: WHEN OTHERS THEN
1065: --
1066: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1067: wsh_util_core.default_handler('WSH_VENDOR_PARTY_MERGE_PKG.Update_New_Delivery');
1068: --
1069: IF l_debug_on THEN
1070: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1071: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1461: --
1462: WHEN OTHERS THEN
1463: --
1464: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1465: wsh_util_core.default_handler('WSH_VENDOR_PARTY_MERGE_PKG.Update_Non_PO_Entities');
1466: --
1467: IF l_debug_on THEN
1468: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1469: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1781:
1782: -- Update for entities which are not dependent on the invoice/PO selection
1783: IF l_debug_on THEN
1784: --{
1785: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_VENDOR_PARTY_MERGE_PKG.UPDATE_NON_PO_ENTITIES',WSH_DEBUG_SV.C_PROC_LEVEL);
1786: --}
1787: END IF;
1788: --
1789: -- Update non-PO entities irrespective of calling mode
1996:
1997: --Update WSH_NEW_DELIVERIES with the merge to vendor
1998: IF l_debug_on THEN
1999: --{
2000: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_VENDOR_PARTY_MERGE_PKG.UPDATE_NEW_DELIVERY',WSH_DEBUG_SV.C_PROC_LEVEL);
2001: --}
2002: END IF;
2003:
2004: Update_new_delivery(
2014: x_return_status => l_return_status
2015: );
2016: IF l_debug_on THEN
2017: --{
2018: WSH_DEBUG_SV.logmsg(l_module_name,'Return Status from WSH_VENDOR_PARTY_MERGE_PKG.UPDATE_NEW_DELIVERY is ' || l_return_status, WSH_DEBUG_SV.C_PROC_LEVEL);
2019: --}
2020: END IF;
2021:
2022: wsh_util_core.api_post_call(
2091: --Update WSH_NEW_DELIVERIES with the merge to vendor
2092: IF l_debug_on THEN
2093: --{
2094: --wsh_debug_sv.log(l_module_name, 'l_dup', l_dup);
2095: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_VENDOR_PARTY_MERGE_PKG.UPDATE_NEW_DELIVERY',WSH_DEBUG_SV.C_PROC_LEVEL);
2096: --}
2097: END IF;
2098:
2099: Update_new_delivery(
2109: x_return_status => l_return_status
2110: );
2111: IF l_debug_on THEN
2112: --{
2113: WSH_DEBUG_SV.logmsg(l_module_name,'Return Status from WSH_VENDOR_PARTY_MERGE_PKG.UPDATE_NEW_DELIVERY is ' || l_return_status, WSH_DEBUG_SV.C_PROC_LEVEL);
2114: --}
2115: END IF;
2116:
2117: wsh_util_core.api_post_call(
2663: WHEN OTHERS THEN
2664: --
2665: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
2666: ROLLBACK TO WSH_Vendor_Merge;
2667: wsh_util_core.default_handler('WSH_VENDOR_PARTY_MERGE_PKG.Vendor_Merge');
2668: --
2669: IF l_debug_on THEN
2670: --
2671: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2801: END IF;
2802: --
2803: -- Now call the core Vendor Merge routine to update WSH data
2804: --
2805: WSH_VENDOR_PARTY_MERGE_PKG.Vendor_Merge
2806: (
2807: p_from_id => p_from_vendor_id,
2808: p_to_id => P_to_vendor_id,
2809: p_from_party_id => NVL(p_from_party_id, l_fromPartyId),
2862: WHEN OTHERS THEN
2863: --
2864: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
2865: WSH_UTIL_CORE.ADD_MESSAGE(l_return_status, l_module_name);
2866: WSH_UTIL_CORE.DEFAULT_HANDLER('WSH_VENDOR_PARTY_MERGE_PKG.VENDOR_PARTY_MERGE',l_module_name);
2867: --
2868: IF l_debug_on THEN
2869: WSH_DEBUG_SV.log(l_module_name, 'Unexpected error', substrb(sqlerrm, 1, 200));
2870: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
2873: --
2874: END Vendor_Party_Merge;
2875:
2876:
2877: END WSH_VENDOR_PARTY_MERGE_PKG;