[Home] [Help]
4: -----------------------------------------------------------------------------
5: -- 16462154: Debug Logging Standards uptake
6: G_debug_package VARCHAR2(32) := 'CE_LEVELING_UTILS';
7:
8: /* Procedure to log messages to FND_LOG */
9: PROCEDURE log_msg(
10: p_debug_proc IN VARCHAR2,
11: p_text IN VARCHAR2,
12: p_log_level IN NUMBER DEFAULT FND_LOG.LEVEL_STATEMENT
8: /* Procedure to log messages to FND_LOG */
9: PROCEDURE log_msg(
10: p_debug_proc IN VARCHAR2,
11: p_text IN VARCHAR2,
12: p_log_level IN NUMBER DEFAULT FND_LOG.LEVEL_STATEMENT
13: )IS
14: BEGIN
15: IF(p_log_level >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
16: THEN
11: p_text IN VARCHAR2,
12: p_log_level IN NUMBER DEFAULT FND_LOG.LEVEL_STATEMENT
13: )IS
14: BEGIN
15: IF(p_log_level >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
16: THEN
17: FND_LOG.STRING(
18: p_log_level,
19: 'ce.plsql.'||G_debug_package||'.'||p_debug_proc,
13: )IS
14: BEGIN
15: IF(p_log_level >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
16: THEN
17: FND_LOG.STRING(
18: p_log_level,
19: 'ce.plsql.'||G_debug_package||'.'||p_debug_proc,
20: p_text);
21: END IF;
117:
118: -- 16462154: Added
119: l_debug_proc VARCHAR2(30) := 'Cash_Leveling';
120: BEGIN
121: log_msg(l_debug_proc,'begin',FND_LOG.LEVEL_PROCEDURE);
122: -- populate ce_security_profiles_gt table with ce_security_procfiles_v
123: CEP_STANDARD.init_security;
124:
125: -- Get original request id
218: -- Submit the concurrent request for the Cash Leveling Execution Report
219: -- and pass in the original request_id
220: req_id := FND_REQUEST.SUBMIT_REQUEST('CE','CECLEXER',NULL,trunc(sysdate),FALSE,request_id);
221:
222: log_msg(l_debug_proc,'end',FND_LOG.LEVEL_PROCEDURE);
223: EXCEPTION
224: WHEN OTHERS THEN
225: log_msg(l_debug_proc,'EXCEPTION:'||sqlerrm, FND_LOG.LEVEL_EXCEPTION);
226: RAISE;
221:
222: log_msg(l_debug_proc,'end',FND_LOG.LEVEL_PROCEDURE);
223: EXCEPTION
224: WHEN OTHERS THEN
225: log_msg(l_debug_proc,'EXCEPTION:'||sqlerrm, FND_LOG.LEVEL_EXCEPTION);
226: RAISE;
227: END Cash_Leveling;
228:
229:
296: l_message_text FND_NEW_MESSAGES.message_text%TYPE;
297: l_app_short_name FND_APPLICATION.application_short_name%TYPE;
298: l_debug_proc VARCHAR2(30) := 'Generate_Fund_Transfer';
299: BEGIN
300: log_msg(l_debug_proc,'begin',FND_LOG.LEVEL_PROCEDURE);
301:
302: l_bat_profile := FND_PROFILE.VALUE('CE_BANK_ACCOUNT_TRANSFERS');
303: log_msg(l_debug_proc,'l_bat_profile='||l_bat_profile);
304:
578: X_offset_trx_number := l_offset_trx_number;
579: X_success_flag := l_success_flag;
580: X_msg_count := l_msg_count;
581: END IF;
582: log_msg(l_debug_proc,'end',FND_LOG.LEVEL_PROCEDURE);
583: EXCEPTION
584: WHEN OTHERS THEN
585: log_msg(l_debug_proc,'EXCEPTION:'||sqlerrm, FND_LOG.LEVEL_EXCEPTION);
586: RAISE;
581: END IF;
582: log_msg(l_debug_proc,'end',FND_LOG.LEVEL_PROCEDURE);
583: EXCEPTION
584: WHEN OTHERS THEN
585: log_msg(l_debug_proc,'EXCEPTION:'||sqlerrm, FND_LOG.LEVEL_EXCEPTION);
586: RAISE;
587: END Generate_Fund_Transfer;
588:
589: /* --------------------------------------------------------------------
892:
893: -- 16462154: Added
894: l_debug_proc VARCHAR2(30) := 'match_cashpool';
895: BEGIN
896: log_msg(l_debug_proc,'begin',FND_LOG.LEVEL_PROCEDURE);
897: l_error_flag := 'N';
898:
899: -- Bug 8489586 Start
900: SELECT DISTINCT cps. account_id -- Bug 14512843: Added DISTINCT
983: RETURN FALSE;
984: ELSE
985: RETURN TRUE;
986: END IF;
987: log_msg(l_debug_proc,'end',FND_LOG.LEVEL_PROCEDURE);
988: EXCEPTION
989: WHEN NO_DATA_FOUND THEN
990: log_msg(l_debug_proc,'EXCEPTION:'||sqlerrm, FND_LOG.LEVEL_EXCEPTION);
991: RETURN FALSE;
986: END IF;
987: log_msg(l_debug_proc,'end',FND_LOG.LEVEL_PROCEDURE);
988: EXCEPTION
989: WHEN NO_DATA_FOUND THEN
990: log_msg(l_debug_proc,'EXCEPTION:'||sqlerrm, FND_LOG.LEVEL_EXCEPTION);
991: RETURN FALSE;
992: END Match_Cashpool;
993:
994: END CE_LEVELING_UTILS;