[Home] [Help]
6: g_userid NUMBER;
7: g_user_email VARCHAR2(32767);
8: g_user_name VARCHAR2(32767);
9: g_env VARCHAR2(32767);
10: G_DEBUG_ON NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
11: G_DCP_MSG VARCHAR2(32767);
12:
13: Function get_email_server RETURN VARCHAR2
14: IS
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;
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;
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
411: INV_LOG_UTIL.TRACE('p_raise_exception'||p_raise_Exception,l_module_name,'9');
412: END IF;
413: l_rollback_allowed := nvl(p_raise_exception, 'Y');
414: IF g_userid IS NULL THEN
415: fnd_profile.get('USER_ID',g_userid);
416: OPEN c_user_info(g_userid);
417: FETCH c_user_info INTO g_user_name, g_user_email;
418: CLOSE c_user_info;
419: END IF;
434: IF (g_dc_table.count > 0) THEN
435: ---{
436: -- Turn debug on
437: -- Changes - Get INV Debug Directory and if it is valid use it with new filename. If it is not then use from utl_file_dir paramater
438: fnd_profile.get('INV_DEBUG_FILE',l_dbg_file);
439: OPEN c_utl_file;
440: FETCH c_utl_file INTO l_utl_file_locns;
441: CLOSE c_utl_file;
442: l_dir_separator := '/';
460: if (l_ndx = 0) then
461: l_dir_separator := '\';
462: end if;
463: l_file_name := l_debug_dir||l_dir_separator||'INV_DCP'||userenv('SESSIONID')||'.dbg';
464: fnd_profile.put('INV_DEBUG_FILE',l_file_name);
465: ELSE ---}{
466: IF NOT l_debug_on THEN
467: --- Filename in profile is correct but debug is off, Lets generate a new filename
468: l_file_name := l_debug_dir||l_dir_separator||'INV_DCP'||userenv('SESSIONID')||'.dbg';
478: l_file_name :=l_dbg_file;
479: END IF;
480: END IF; ---}
481: IF NOT l_debug_on THEN
482: fnd_profile.put('INV_DEBUG_FILE',l_file_name);
483: fnd_profile.put('INV_DEBUG_LEVEL','9');
484: fnd_profile.put('INV_DEBUG_TRACE','1');
485: G_DEBUG_STARTED :='Y';
486: l_debug_on :=TRUE;
479: END IF;
480: END IF; ---}
481: IF NOT l_debug_on THEN
482: fnd_profile.put('INV_DEBUG_FILE',l_file_name);
483: fnd_profile.put('INV_DEBUG_LEVEL','9');
484: fnd_profile.put('INV_DEBUG_TRACE','1');
485: G_DEBUG_STARTED :='Y';
486: l_debug_on :=TRUE;
487: G_DEBUG_ON := 1;
480: END IF; ---}
481: IF NOT l_debug_on THEN
482: fnd_profile.put('INV_DEBUG_FILE',l_file_name);
483: fnd_profile.put('INV_DEBUG_LEVEL','9');
484: fnd_profile.put('INV_DEBUG_TRACE','1');
485: G_DEBUG_STARTED :='Y';
486: l_debug_on :=TRUE;
487: G_DEBUG_ON := 1;
488: IF l_debug_on THEN
1263: l_debug_on :=FALSE;
1264: END IF;
1265:
1266: IF (p_action_code='Validate MMTT') then ---{
1267: SELECT FND_PROFILE.VALUE('INV:EXPENSE_TO_ASSET_TRANSFER')
1268: INTO l_profile
1269: FROM dual;
1270:
1271: IF SQL%FOUND THEN