1: PACKAGE BODY WSH_DCP_PVT as
2: /* $Header: WSHDCPPB.pls 120.0 2005/05/26 17:09:47 appldev noship $ */
3:
4:
5: G_PKG_NAME CONSTANT VARCHAR2(50) := 'WSH_DCP_PVT';
1: PACKAGE BODY WSH_DCP_PVT as
2: /* $Header: WSHDCPPB.pls 120.0 2005/05/26 17:09:47 appldev noship $ */
3:
4:
5: G_PKG_NAME CONSTANT VARCHAR2(50) := 'WSH_DCP_PVT';
6: g_userid NUMBER;
7: g_user_email VARCHAR2(32767);
8: g_user_name VARCHAR2(32767);
9: g_env VARCHAR2(32767);
26: IF l_debug_on THEN
27: wsh_debug_sv.push(l_module_name);
28: END IF;
29:
30: IF wsh_dcp_pvt.g_email_server IS NOT NULL THEN
31:
32: IF l_debug_on THEN
33: WSH_DEBUG_SV.LOG(l_module_name, 'server name cache', wsh_dcp_pvt.g_email_server);
34: wsh_debug_sv.pop(l_module_name);
29:
30: IF wsh_dcp_pvt.g_email_server IS NOT NULL THEN
31:
32: IF l_debug_on THEN
33: WSH_DEBUG_SV.LOG(l_module_name, 'server name cache', wsh_dcp_pvt.g_email_server);
34: wsh_debug_sv.pop(l_module_name);
35: END IF;
36:
37: RETURN wsh_dcp_pvt.g_email_server;
33: WSH_DEBUG_SV.LOG(l_module_name, 'server name cache', wsh_dcp_pvt.g_email_server);
34: wsh_debug_sv.pop(l_module_name);
35: END IF;
36:
37: RETURN wsh_dcp_pvt.g_email_server;
38: END IF;
39:
40: wsh_dcp_pvt.g_email_server := fnd_profile.value('WSH_DCP_EMAIL_SERVER');
41:
36:
37: RETURN wsh_dcp_pvt.g_email_server;
38: END IF;
39:
40: wsh_dcp_pvt.g_email_server := fnd_profile.value('WSH_DCP_EMAIL_SERVER');
41:
42: IF l_debug_on THEN
43: WSH_DEBUG_SV.LOG(l_module_name, 'server name profile', wsh_dcp_pvt.g_email_server);
44: wsh_debug_sv.pop(l_module_name);
39:
40: wsh_dcp_pvt.g_email_server := fnd_profile.value('WSH_DCP_EMAIL_SERVER');
41:
42: IF l_debug_on THEN
43: WSH_DEBUG_SV.LOG(l_module_name, 'server name profile', wsh_dcp_pvt.g_email_server);
44: wsh_debug_sv.pop(l_module_name);
45: END IF;
46: RETURN wsh_dcp_pvt.g_email_server;
47:
42: IF l_debug_on THEN
43: WSH_DEBUG_SV.LOG(l_module_name, 'server name profile', wsh_dcp_pvt.g_email_server);
44: wsh_debug_sv.pop(l_module_name);
45: END IF;
46: RETURN wsh_dcp_pvt.g_email_server;
47:
48:
49: EXCEPTION
50: WHEN OTHERS THEN
71: IF l_debug_on THEN
72: wsh_debug_sv.push(l_module_name);
73: END IF;
74:
75: IF wsh_dcp_pvt.g_email_address IS NOT NULL THEN
76: IF l_debug_on THEN
77: WSH_DEBUG_SV.LOG(l_module_name, 'Email Address cache', wsh_dcp_pvt.g_email_address);
78: wsh_debug_sv.pop(l_module_name);
79: END IF;
73: END IF;
74:
75: IF wsh_dcp_pvt.g_email_address IS NOT NULL THEN
76: IF l_debug_on THEN
77: WSH_DEBUG_SV.LOG(l_module_name, 'Email Address cache', wsh_dcp_pvt.g_email_address);
78: wsh_debug_sv.pop(l_module_name);
79: END IF;
80: RETURN wsh_dcp_pvt.g_email_address;
81: END IF;
76: IF l_debug_on THEN
77: WSH_DEBUG_SV.LOG(l_module_name, 'Email Address cache', wsh_dcp_pvt.g_email_address);
78: wsh_debug_sv.pop(l_module_name);
79: END IF;
80: RETURN wsh_dcp_pvt.g_email_address;
81: END IF;
82:
83: wsh_dcp_pvt.g_email_address := fnd_profile.value('WSH_DCP_EMAIL_ADDRESSES');
84:
79: END IF;
80: RETURN wsh_dcp_pvt.g_email_address;
81: END IF;
82:
83: wsh_dcp_pvt.g_email_address := fnd_profile.value('WSH_DCP_EMAIL_ADDRESSES');
84:
85: IF l_debug_on THEN
86: WSH_DEBUG_SV.LOG(l_module_name, 'Email Address profile', wsh_dcp_pvt.g_email_address);
87: wsh_debug_sv.pop(l_module_name);
82:
83: wsh_dcp_pvt.g_email_address := fnd_profile.value('WSH_DCP_EMAIL_ADDRESSES');
84:
85: IF l_debug_on THEN
86: WSH_DEBUG_SV.LOG(l_module_name, 'Email Address profile', wsh_dcp_pvt.g_email_address);
87: wsh_debug_sv.pop(l_module_name);
88: END IF;
89: RETURN wsh_dcp_pvt.g_email_address;
90:
85: IF l_debug_on THEN
86: WSH_DEBUG_SV.LOG(l_module_name, 'Email Address profile', wsh_dcp_pvt.g_email_address);
87: wsh_debug_sv.pop(l_module_name);
88: END IF;
89: RETURN wsh_dcp_pvt.g_email_address;
90:
91: EXCEPTION
92: WHEN OTHERS THEN
93: IF l_debug_on THEN
257: FUNCTION is_dcp_enabled RETURN NUMBER
258: IS
259: BEGIN
260:
261: IF wsh_dcp_pvt.g_check_dcp IS NOT NULL
262: THEN
263: RETURN(wsh_dcp_pvt.g_check_dcp);
264: END IF;
265: --
259: BEGIN
260:
261: IF wsh_dcp_pvt.g_check_dcp IS NOT NULL
262: THEN
263: RETURN(wsh_dcp_pvt.g_check_dcp);
264: END IF;
265: --
266: wsh_dcp_pvt.g_check_dcp := nvl(fnd_profile.value('WSH_ENABLE_DCP'), 0);
267: --
262: THEN
263: RETURN(wsh_dcp_pvt.g_check_dcp);
264: END IF;
265: --
266: wsh_dcp_pvt.g_check_dcp := nvl(fnd_profile.value('WSH_ENABLE_DCP'), 0);
267: --
268: RETURN wsh_dcp_pvt.g_check_dcp;
269:
270: EXCEPTION
264: END IF;
265: --
266: wsh_dcp_pvt.g_check_dcp := nvl(fnd_profile.value('WSH_ENABLE_DCP'), 0);
267: --
268: RETURN wsh_dcp_pvt.g_check_dcp;
269:
270: EXCEPTION
271: when others then
272: RETURN 0;
1715: END IF;
1716: END Check_Pick_Release;
1717:
1718:
1719: END WSH_DCP_PVT;