[Home] [Help]
1: PACKAGE BODY WSH_SHIPPING_PARAMS_PVT as
2: /* $Header: WSHSPRMB.pls 120.9 2011/06/29 09:44:14 ashimalh ship $ */
3:
4: --
5: -- Package data types
22: C_SUCCESS_STATUS CONSTANT VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
23: C_UNEXP_ERROR_STATUS CONSTANT VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
24:
25: --
26: G_PKG_NAME CONSTANT VARCHAR2(50) := 'WSH_SHIPPING_PARAMS_PVT';
27: --
28:
29: /* Local Procedure to write debug information */
30: Procedure print_debug_info(
387: END IF;
388: --
389: WHEN OTHERS THEN
390: FND_MESSAGE.Set_Name('WSH','WSH_UNEXP_ERROR');
391: FND_MESSAGE.Set_Token('PACKAGE','WSH_SHIPPING_PARAMS_PVT');
392: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
393: FND_MESSAGE.Set_Token('ORA_TEXT','');
394: IF c_get_param%ISOPEN THEN
395: CLOSE c_get_param;
701: END IF;
702: --
703: WHEN OTHERS THEN
704: FND_MESSAGE.Set_Name('WSH','WSH_UNEXP_ERROR');
705: FND_MESSAGE.Set_Token('PACKAGE','WSH_SHIPPING_PARAMS_PVT');
706: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
707: FND_MESSAGE.Set_Token('ORA_TEXT','');
708: IF c_get_global_param%ISOPEN THEN
709: CLOSE c_get_global_param;
1977:
1978: Exception
1979: When Others Then
1980: fnd_message.set_name('WSH','WSH_UNEXP_ERROR');
1981: fnd_message.set_token('PACKAGE','WSH_SHIPPING_PARAMS_PVT');
1982: fnd_message.set_token('ORA_ERROR',to_char(sqlcode));
1983: fnd_message.set_token('ORA_TEXT','');
1984: x_return_status := FND_API.G_RET_STS_ERROR;
1985: If l_debug_on Then
2491: wsh_debug_sv.log(l_module_name,'Exception raised from print log info. Wont affect the program flow .SQLERRM : ',sqlerrm);
2492: End print_debug_info;
2493:
2494:
2495: END WSH_SHIPPING_PARAMS_PVT;