1: PACKAGE BODY INV_DCP_PVT as
2: /* $Header: INVDCPPB.pls 120.13 2006/12/06 13:21:41 amohamme noship $ */
3:
4:
5: G_PKG_NAME CONSTANT VARCHAR2(50) := 'INV_DCP_PVT';
1: PACKAGE BODY INV_DCP_PVT as
2: /* $Header: INVDCPPB.pls 120.13 2006/12/06 13:21:41 amohamme noship $ */
3:
4:
5: G_PKG_NAME CONSTANT VARCHAR2(50) := 'INV_DCP_PVT';
6: g_userid NUMBER;
7: g_user_email VARCHAR2(32767);
8: g_user_name VARCHAR2(32767);
9: g_env VARCHAR2(32767);
26: --
27: IF l_debug_on THEN
28: INV_LOG_UTIL.TRACE('Entering '||l_module_name,l_module_name,'9');
29: END IF;
30: IF INV_DCP_PVT.g_email_server IS NOT NULL THEN
31: IF l_debug_on THEN
32: INV_LOG_UTIL.TRACE('server name cache:'||INV_DCP_PVT.g_email_server,l_module_name,'9');
33: END IF;
34: RETURN INV_DCP_PVT.g_email_server;
28: INV_LOG_UTIL.TRACE('Entering '||l_module_name,l_module_name,'9');
29: END IF;
30: IF INV_DCP_PVT.g_email_server IS NOT NULL THEN
31: IF l_debug_on THEN
32: INV_LOG_UTIL.TRACE('server name cache:'||INV_DCP_PVT.g_email_server,l_module_name,'9');
33: END IF;
34: RETURN INV_DCP_PVT.g_email_server;
35: END IF;
36: INV_DCP_PVT.g_email_server := fnd_profile.value('INV_DCP_EMAIL_SERVER');
30: IF INV_DCP_PVT.g_email_server IS NOT NULL THEN
31: IF l_debug_on THEN
32: INV_LOG_UTIL.TRACE('server name cache:'||INV_DCP_PVT.g_email_server,l_module_name,'9');
33: END IF;
34: RETURN INV_DCP_PVT.g_email_server;
35: END IF;
36: INV_DCP_PVT.g_email_server := fnd_profile.value('INV_DCP_EMAIL_SERVER');
37: IF l_debug_on THEN
38: INV_LOG_UTIL.TRACE('server name profile :'||INV_DCP_PVT.g_email_server,'9');
32: INV_LOG_UTIL.TRACE('server name cache:'||INV_DCP_PVT.g_email_server,l_module_name,'9');
33: END IF;
34: RETURN INV_DCP_PVT.g_email_server;
35: END IF;
36: INV_DCP_PVT.g_email_server := fnd_profile.value('INV_DCP_EMAIL_SERVER');
37: IF l_debug_on THEN
38: INV_LOG_UTIL.TRACE('server name profile :'||INV_DCP_PVT.g_email_server,'9');
39: END IF;
40: RETURN INV_DCP_PVT.g_email_server;
34: RETURN INV_DCP_PVT.g_email_server;
35: END IF;
36: INV_DCP_PVT.g_email_server := fnd_profile.value('INV_DCP_EMAIL_SERVER');
37: IF l_debug_on THEN
38: INV_LOG_UTIL.TRACE('server name profile :'||INV_DCP_PVT.g_email_server,'9');
39: END IF;
40: RETURN INV_DCP_PVT.g_email_server;
41:
42: EXCEPTION
36: INV_DCP_PVT.g_email_server := fnd_profile.value('INV_DCP_EMAIL_SERVER');
37: IF l_debug_on THEN
38: INV_LOG_UTIL.TRACE('server name profile :'||INV_DCP_PVT.g_email_server,'9');
39: END IF;
40: RETURN INV_DCP_PVT.g_email_server;
41:
42: EXCEPTION
43: WHEN OTHERS THEN
44: IF l_debug_on THEN
61: --
62: IF l_debug_on THEN
63: INV_LOG_UTIL.TRACE('Entering :'||l_module_name,'l_module_name','9');
64: END IF;
65: IF INV_DCP_PVT.g_email_address IS NOT NULL THEN
66: IF l_debug_on THEN
67: INV_LOG_UTIL.TRACE('Email Address cache :'||INV_DCP_PVT.g_email_address,l_module_name,'9');
68: END IF;
69: RETURN INV_DCP_PVT.g_email_address;
63: INV_LOG_UTIL.TRACE('Entering :'||l_module_name,'l_module_name','9');
64: END IF;
65: IF INV_DCP_PVT.g_email_address IS NOT NULL THEN
66: IF l_debug_on THEN
67: INV_LOG_UTIL.TRACE('Email Address cache :'||INV_DCP_PVT.g_email_address,l_module_name,'9');
68: END IF;
69: RETURN INV_DCP_PVT.g_email_address;
70: END IF;
71: INV_DCP_PVT.g_email_address := fnd_profile.value('INV_DCP_EMAIL_ADDRESSES');
65: IF INV_DCP_PVT.g_email_address IS NOT NULL THEN
66: IF l_debug_on THEN
67: INV_LOG_UTIL.TRACE('Email Address cache :'||INV_DCP_PVT.g_email_address,l_module_name,'9');
68: END IF;
69: RETURN INV_DCP_PVT.g_email_address;
70: END IF;
71: INV_DCP_PVT.g_email_address := fnd_profile.value('INV_DCP_EMAIL_ADDRESSES');
72: IF l_debug_on THEN
73: INV_LOG_UTIL.TRACE('Email Address profile :'||INV_DCP_PVT.g_email_address,l_module_name,'9');
67: INV_LOG_UTIL.TRACE('Email Address cache :'||INV_DCP_PVT.g_email_address,l_module_name,'9');
68: END IF;
69: RETURN INV_DCP_PVT.g_email_address;
70: END IF;
71: INV_DCP_PVT.g_email_address := fnd_profile.value('INV_DCP_EMAIL_ADDRESSES');
72: IF l_debug_on THEN
73: INV_LOG_UTIL.TRACE('Email Address profile :'||INV_DCP_PVT.g_email_address,l_module_name,'9');
74: END IF;
75: RETURN INV_DCP_PVT.g_email_address;
69: RETURN INV_DCP_PVT.g_email_address;
70: END IF;
71: INV_DCP_PVT.g_email_address := fnd_profile.value('INV_DCP_EMAIL_ADDRESSES');
72: IF l_debug_on THEN
73: INV_LOG_UTIL.TRACE('Email Address profile :'||INV_DCP_PVT.g_email_address,l_module_name,'9');
74: END IF;
75: RETURN INV_DCP_PVT.g_email_address;
76: EXCEPTION
77: WHEN OTHERS THEN
71: INV_DCP_PVT.g_email_address := fnd_profile.value('INV_DCP_EMAIL_ADDRESSES');
72: IF l_debug_on THEN
73: INV_LOG_UTIL.TRACE('Email Address profile :'||INV_DCP_PVT.g_email_address,l_module_name,'9');
74: END IF;
75: RETURN INV_DCP_PVT.g_email_address;
76: EXCEPTION
77: WHEN OTHERS THEN
78: IF l_debug_on THEN
79: INV_LOG_UTIL.TRACE('When others error has occured. Oracle error message is ' || SQLERRM,l_module_name,'9');
330: FUNCTION is_dcp_enabled RETURN NUMBER
331: IS
332: BEGIN
333:
334: IF INV_DCP_PVT.g_check_dcp IS NOT NULL
335: THEN
336: RETURN(INV_DCP_PVT.g_check_dcp);
337: END IF;
338: --
332: BEGIN
333:
334: IF INV_DCP_PVT.g_check_dcp IS NOT NULL
335: THEN
336: RETURN(INV_DCP_PVT.g_check_dcp);
337: END IF;
338: --
339: INV_DCP_PVT.g_check_dcp := nvl(fnd_profile.value('INV_ENABLE_DCP'), 0);
340: --
335: THEN
336: RETURN(INV_DCP_PVT.g_check_dcp);
337: END IF;
338: --
339: INV_DCP_PVT.g_check_dcp := nvl(fnd_profile.value('INV_ENABLE_DCP'), 0);
340: --
341: RETURN INV_DCP_PVT.g_check_dcp;
342:
343: EXCEPTION
337: END IF;
338: --
339: INV_DCP_PVT.g_check_dcp := nvl(fnd_profile.value('INV_ENABLE_DCP'), 0);
340: --
341: RETURN INV_DCP_PVT.g_check_dcp;
342:
343: EXCEPTION
344: when others then
345: RETURN 0;
1881: INV_LOG_UTIL.TRACE('EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR',l_module_name,9);
1882: x_return_status :='E';
1883: END IF;
1884: END Validate_data;
1885: END INV_DCP_PVT;