4: g_userid NUMBER;
5: g_user_email VARCHAR2(32767);
6: g_user_name VARCHAR2(32767);
7: g_env VARCHAR2(32767);
8: g_debug_on VARCHAR2(2) := NVL(fnd_profile.VALUE('RCV_DEBUG_MODE'), 'N');
9: g_table_count NUMBER :=1;
10:
11: FUNCTION get_email_server
12: RETURN VARCHAR2 IS
30:
31: RETURN rcv_dcp_pvt.g_email_server;
32: END IF;
33:
34: rcv_dcp_pvt.g_email_server := fnd_profile.VALUE('RCV_DCP_EMAIL_SERVER');
35:
36: IF l_debug_on THEN
37: asn_debug.put_line('Server name profile :' || rcv_dcp_pvt.g_email_server);
38: END IF;
69:
70: RETURN rcv_dcp_pvt.g_email_address;
71: END IF;
72:
73: rcv_dcp_pvt.g_email_address := fnd_profile.VALUE('RCV_DCP_EMAIL_ADDRESSES');
74:
75: IF l_debug_on THEN
76: asn_debug.put_line('Email Address profile :' || rcv_dcp_pvt.g_email_address);
77: END IF;
257: IF rcv_dcp_pvt.g_check_dcp IS NOT NULL THEN
258: RETURN(rcv_dcp_pvt.g_check_dcp);
259: END IF;
260:
261: rcv_dcp_pvt.g_check_dcp := NVL(fnd_profile.VALUE('RCV_ENABLE_DCP'), 0);
262: RETURN rcv_dcp_pvt.g_check_dcp;
263: EXCEPTION
264: WHEN OTHERS THEN
265: RETURN 0;
289: PO:Enable Sql Trace for Receiving Processor Yes
290: RCV:Debug Mode Yes
291: */
292: -- Turn debug on
293: fnd_profile.put('AFLOG_ENABLED', 'Y');
294: fnd_profile.put('AFLOG_LEVEL', '1');
295: fnd_profile.put('AFLOG_MODULE', '%');
296: fnd_profile.put('AFLOG_BUFFER_MODE', '1');
297: fnd_profile.put('PO_RVCTP_ENABLE_TRACE', 'Y');
290: RCV:Debug Mode Yes
291: */
292: -- Turn debug on
293: fnd_profile.put('AFLOG_ENABLED', 'Y');
294: fnd_profile.put('AFLOG_LEVEL', '1');
295: fnd_profile.put('AFLOG_MODULE', '%');
296: fnd_profile.put('AFLOG_BUFFER_MODE', '1');
297: fnd_profile.put('PO_RVCTP_ENABLE_TRACE', 'Y');
298: fnd_profile.put('RCV_DEBUG_MODE', 'Y');
291: */
292: -- Turn debug on
293: fnd_profile.put('AFLOG_ENABLED', 'Y');
294: fnd_profile.put('AFLOG_LEVEL', '1');
295: fnd_profile.put('AFLOG_MODULE', '%');
296: fnd_profile.put('AFLOG_BUFFER_MODE', '1');
297: fnd_profile.put('PO_RVCTP_ENABLE_TRACE', 'Y');
298: fnd_profile.put('RCV_DEBUG_MODE', 'Y');
299: asn_debug.g_debugging_enabled := 'Y';
292: -- Turn debug on
293: fnd_profile.put('AFLOG_ENABLED', 'Y');
294: fnd_profile.put('AFLOG_LEVEL', '1');
295: fnd_profile.put('AFLOG_MODULE', '%');
296: fnd_profile.put('AFLOG_BUFFER_MODE', '1');
297: fnd_profile.put('PO_RVCTP_ENABLE_TRACE', 'Y');
298: fnd_profile.put('RCV_DEBUG_MODE', 'Y');
299: asn_debug.g_debugging_enabled := 'Y';
300: fnd_profile.put('INV_DEBUG_TRACE', '1');
293: fnd_profile.put('AFLOG_ENABLED', 'Y');
294: fnd_profile.put('AFLOG_LEVEL', '1');
295: fnd_profile.put('AFLOG_MODULE', '%');
296: fnd_profile.put('AFLOG_BUFFER_MODE', '1');
297: fnd_profile.put('PO_RVCTP_ENABLE_TRACE', 'Y');
298: fnd_profile.put('RCV_DEBUG_MODE', 'Y');
299: asn_debug.g_debugging_enabled := 'Y';
300: fnd_profile.put('INV_DEBUG_TRACE', '1');
301: fnd_profile.put('INV_DEBUG_LEVEL', '11');
294: fnd_profile.put('AFLOG_LEVEL', '1');
295: fnd_profile.put('AFLOG_MODULE', '%');
296: fnd_profile.put('AFLOG_BUFFER_MODE', '1');
297: fnd_profile.put('PO_RVCTP_ENABLE_TRACE', 'Y');
298: fnd_profile.put('RCV_DEBUG_MODE', 'Y');
299: asn_debug.g_debugging_enabled := 'Y';
300: fnd_profile.put('INV_DEBUG_TRACE', '1');
301: fnd_profile.put('INV_DEBUG_LEVEL', '11');
302:
296: fnd_profile.put('AFLOG_BUFFER_MODE', '1');
297: fnd_profile.put('PO_RVCTP_ENABLE_TRACE', 'Y');
298: fnd_profile.put('RCV_DEBUG_MODE', 'Y');
299: asn_debug.g_debugging_enabled := 'Y';
300: fnd_profile.put('INV_DEBUG_TRACE', '1');
301: fnd_profile.put('INV_DEBUG_LEVEL', '11');
302:
303: -- Processing for INV Debug file
304: OPEN c_utl_file;
297: fnd_profile.put('PO_RVCTP_ENABLE_TRACE', 'Y');
298: fnd_profile.put('RCV_DEBUG_MODE', 'Y');
299: asn_debug.g_debugging_enabled := 'Y';
300: fnd_profile.put('INV_DEBUG_TRACE', '1');
301: fnd_profile.put('INV_DEBUG_LEVEL', '11');
302:
303: -- Processing for INV Debug file
304: OPEN c_utl_file;
305: FETCH c_utl_file INTO l_utl_file_locns;
362: l_file_name :=g_inv_debug_file;
363: END IF;
364: END IF;
365:
366: fnd_profile.put('INV_DEBUG_FILE',l_file_name);
367: p_file_name := l_file_name;
368: g_debug_started := 'Y';
369:
370: ELSIF p_action = 'OFF' THEN
368: g_debug_started := 'Y';
369:
370: ELSIF p_action = 'OFF' THEN
371: --Restore back the profiles
372: fnd_profile.put('AFLOG_ENABLED', g_fnd_debug_enabled);
373: fnd_profile.put('AFLOG_LEVEL', g_fnd_debug_level);
374: fnd_profile.put('AFLOG_MODULE', g_fnd_debug_module);
375: fnd_profile.put('AFLOG_BUFFER_MODE', g_fnd_debug_mode);
376: fnd_profile.put('PO_RVCTP_ENABLE_TRACE', g_po_en_sql_trace);
369:
370: ELSIF p_action = 'OFF' THEN
371: --Restore back the profiles
372: fnd_profile.put('AFLOG_ENABLED', g_fnd_debug_enabled);
373: fnd_profile.put('AFLOG_LEVEL', g_fnd_debug_level);
374: fnd_profile.put('AFLOG_MODULE', g_fnd_debug_module);
375: fnd_profile.put('AFLOG_BUFFER_MODE', g_fnd_debug_mode);
376: fnd_profile.put('PO_RVCTP_ENABLE_TRACE', g_po_en_sql_trace);
377: fnd_profile.put('RCV_DEBUG_MODE', g_rcv_debug_enabled);
370: ELSIF p_action = 'OFF' THEN
371: --Restore back the profiles
372: fnd_profile.put('AFLOG_ENABLED', g_fnd_debug_enabled);
373: fnd_profile.put('AFLOG_LEVEL', g_fnd_debug_level);
374: fnd_profile.put('AFLOG_MODULE', g_fnd_debug_module);
375: fnd_profile.put('AFLOG_BUFFER_MODE', g_fnd_debug_mode);
376: fnd_profile.put('PO_RVCTP_ENABLE_TRACE', g_po_en_sql_trace);
377: fnd_profile.put('RCV_DEBUG_MODE', g_rcv_debug_enabled);
378: fnd_profile.put('INV_DEBUG_TRACE', g_inv_debug_enabled);
371: --Restore back the profiles
372: fnd_profile.put('AFLOG_ENABLED', g_fnd_debug_enabled);
373: fnd_profile.put('AFLOG_LEVEL', g_fnd_debug_level);
374: fnd_profile.put('AFLOG_MODULE', g_fnd_debug_module);
375: fnd_profile.put('AFLOG_BUFFER_MODE', g_fnd_debug_mode);
376: fnd_profile.put('PO_RVCTP_ENABLE_TRACE', g_po_en_sql_trace);
377: fnd_profile.put('RCV_DEBUG_MODE', g_rcv_debug_enabled);
378: fnd_profile.put('INV_DEBUG_TRACE', g_inv_debug_enabled);
379: fnd_profile.put('INV_DEBUG_LEVEL', g_inv_debug_level);
372: fnd_profile.put('AFLOG_ENABLED', g_fnd_debug_enabled);
373: fnd_profile.put('AFLOG_LEVEL', g_fnd_debug_level);
374: fnd_profile.put('AFLOG_MODULE', g_fnd_debug_module);
375: fnd_profile.put('AFLOG_BUFFER_MODE', g_fnd_debug_mode);
376: fnd_profile.put('PO_RVCTP_ENABLE_TRACE', g_po_en_sql_trace);
377: fnd_profile.put('RCV_DEBUG_MODE', g_rcv_debug_enabled);
378: fnd_profile.put('INV_DEBUG_TRACE', g_inv_debug_enabled);
379: fnd_profile.put('INV_DEBUG_LEVEL', g_inv_debug_level);
380: fnd_profile.put('INV_DEBUG_FILE', g_inv_debug_file);
373: fnd_profile.put('AFLOG_LEVEL', g_fnd_debug_level);
374: fnd_profile.put('AFLOG_MODULE', g_fnd_debug_module);
375: fnd_profile.put('AFLOG_BUFFER_MODE', g_fnd_debug_mode);
376: fnd_profile.put('PO_RVCTP_ENABLE_TRACE', g_po_en_sql_trace);
377: fnd_profile.put('RCV_DEBUG_MODE', g_rcv_debug_enabled);
378: fnd_profile.put('INV_DEBUG_TRACE', g_inv_debug_enabled);
379: fnd_profile.put('INV_DEBUG_LEVEL', g_inv_debug_level);
380: fnd_profile.put('INV_DEBUG_FILE', g_inv_debug_file);
381: g_debug_started := 'N';
374: fnd_profile.put('AFLOG_MODULE', g_fnd_debug_module);
375: fnd_profile.put('AFLOG_BUFFER_MODE', g_fnd_debug_mode);
376: fnd_profile.put('PO_RVCTP_ENABLE_TRACE', g_po_en_sql_trace);
377: fnd_profile.put('RCV_DEBUG_MODE', g_rcv_debug_enabled);
378: fnd_profile.put('INV_DEBUG_TRACE', g_inv_debug_enabled);
379: fnd_profile.put('INV_DEBUG_LEVEL', g_inv_debug_level);
380: fnd_profile.put('INV_DEBUG_FILE', g_inv_debug_file);
381: g_debug_started := 'N';
382: asn_debug.g_debugging_enabled := g_rcv_debug_enabled;
375: fnd_profile.put('AFLOG_BUFFER_MODE', g_fnd_debug_mode);
376: fnd_profile.put('PO_RVCTP_ENABLE_TRACE', g_po_en_sql_trace);
377: fnd_profile.put('RCV_DEBUG_MODE', g_rcv_debug_enabled);
378: fnd_profile.put('INV_DEBUG_TRACE', g_inv_debug_enabled);
379: fnd_profile.put('INV_DEBUG_LEVEL', g_inv_debug_level);
380: fnd_profile.put('INV_DEBUG_FILE', g_inv_debug_file);
381: g_debug_started := 'N';
382: asn_debug.g_debugging_enabled := g_rcv_debug_enabled;
383: END IF;
376: fnd_profile.put('PO_RVCTP_ENABLE_TRACE', g_po_en_sql_trace);
377: fnd_profile.put('RCV_DEBUG_MODE', g_rcv_debug_enabled);
378: fnd_profile.put('INV_DEBUG_TRACE', g_inv_debug_enabled);
379: fnd_profile.put('INV_DEBUG_LEVEL', g_inv_debug_level);
380: fnd_profile.put('INV_DEBUG_FILE', g_inv_debug_file);
381: g_debug_started := 'N';
382: asn_debug.g_debugging_enabled := g_rcv_debug_enabled;
383: END IF;
384: END switch_debug;
436: l_debug_on := FALSE;
437: END IF;
438:
439: IF g_debug_started <> 'Y' THEN
440: fnd_profile.get('AFLOG_ENABLED', g_fnd_debug_enabled);
441: fnd_profile.get('AFLOG_LEVEL', g_fnd_debug_level);
442: fnd_profile.get('AFLOG_MODULE', g_fnd_debug_module);
443: fnd_profile.get('AFLOG_BUFFER_MODE', g_fnd_debug_mode);
444: fnd_profile.get('PO_RVCTP_ENABLE_TRACE', g_po_en_sql_trace);
437: END IF;
438:
439: IF g_debug_started <> 'Y' THEN
440: fnd_profile.get('AFLOG_ENABLED', g_fnd_debug_enabled);
441: fnd_profile.get('AFLOG_LEVEL', g_fnd_debug_level);
442: fnd_profile.get('AFLOG_MODULE', g_fnd_debug_module);
443: fnd_profile.get('AFLOG_BUFFER_MODE', g_fnd_debug_mode);
444: fnd_profile.get('PO_RVCTP_ENABLE_TRACE', g_po_en_sql_trace);
445: fnd_profile.get('INV_DEBUG_TRACE', g_inv_debug_enabled);
438:
439: IF g_debug_started <> 'Y' THEN
440: fnd_profile.get('AFLOG_ENABLED', g_fnd_debug_enabled);
441: fnd_profile.get('AFLOG_LEVEL', g_fnd_debug_level);
442: fnd_profile.get('AFLOG_MODULE', g_fnd_debug_module);
443: fnd_profile.get('AFLOG_BUFFER_MODE', g_fnd_debug_mode);
444: fnd_profile.get('PO_RVCTP_ENABLE_TRACE', g_po_en_sql_trace);
445: fnd_profile.get('INV_DEBUG_TRACE', g_inv_debug_enabled);
446: fnd_profile.get('INV_DEBUG_LEVEL', g_inv_debug_level);
439: IF g_debug_started <> 'Y' THEN
440: fnd_profile.get('AFLOG_ENABLED', g_fnd_debug_enabled);
441: fnd_profile.get('AFLOG_LEVEL', g_fnd_debug_level);
442: fnd_profile.get('AFLOG_MODULE', g_fnd_debug_module);
443: fnd_profile.get('AFLOG_BUFFER_MODE', g_fnd_debug_mode);
444: fnd_profile.get('PO_RVCTP_ENABLE_TRACE', g_po_en_sql_trace);
445: fnd_profile.get('INV_DEBUG_TRACE', g_inv_debug_enabled);
446: fnd_profile.get('INV_DEBUG_LEVEL', g_inv_debug_level);
447: fnd_profile.get('INV_DEBUG_FILE', g_inv_debug_file);
440: fnd_profile.get('AFLOG_ENABLED', g_fnd_debug_enabled);
441: fnd_profile.get('AFLOG_LEVEL', g_fnd_debug_level);
442: fnd_profile.get('AFLOG_MODULE', g_fnd_debug_module);
443: fnd_profile.get('AFLOG_BUFFER_MODE', g_fnd_debug_mode);
444: fnd_profile.get('PO_RVCTP_ENABLE_TRACE', g_po_en_sql_trace);
445: fnd_profile.get('INV_DEBUG_TRACE', g_inv_debug_enabled);
446: fnd_profile.get('INV_DEBUG_LEVEL', g_inv_debug_level);
447: fnd_profile.get('INV_DEBUG_FILE', g_inv_debug_file);
448: fnd_profile.get('RCV_DEBUG_MODE', g_rcv_debug_enabled);
441: fnd_profile.get('AFLOG_LEVEL', g_fnd_debug_level);
442: fnd_profile.get('AFLOG_MODULE', g_fnd_debug_module);
443: fnd_profile.get('AFLOG_BUFFER_MODE', g_fnd_debug_mode);
444: fnd_profile.get('PO_RVCTP_ENABLE_TRACE', g_po_en_sql_trace);
445: fnd_profile.get('INV_DEBUG_TRACE', g_inv_debug_enabled);
446: fnd_profile.get('INV_DEBUG_LEVEL', g_inv_debug_level);
447: fnd_profile.get('INV_DEBUG_FILE', g_inv_debug_file);
448: fnd_profile.get('RCV_DEBUG_MODE', g_rcv_debug_enabled);
449: END IF;
442: fnd_profile.get('AFLOG_MODULE', g_fnd_debug_module);
443: fnd_profile.get('AFLOG_BUFFER_MODE', g_fnd_debug_mode);
444: fnd_profile.get('PO_RVCTP_ENABLE_TRACE', g_po_en_sql_trace);
445: fnd_profile.get('INV_DEBUG_TRACE', g_inv_debug_enabled);
446: fnd_profile.get('INV_DEBUG_LEVEL', g_inv_debug_level);
447: fnd_profile.get('INV_DEBUG_FILE', g_inv_debug_file);
448: fnd_profile.get('RCV_DEBUG_MODE', g_rcv_debug_enabled);
449: END IF;
450:
443: fnd_profile.get('AFLOG_BUFFER_MODE', g_fnd_debug_mode);
444: fnd_profile.get('PO_RVCTP_ENABLE_TRACE', g_po_en_sql_trace);
445: fnd_profile.get('INV_DEBUG_TRACE', g_inv_debug_enabled);
446: fnd_profile.get('INV_DEBUG_LEVEL', g_inv_debug_level);
447: fnd_profile.get('INV_DEBUG_FILE', g_inv_debug_file);
448: fnd_profile.get('RCV_DEBUG_MODE', g_rcv_debug_enabled);
449: END IF;
450:
451:
444: fnd_profile.get('PO_RVCTP_ENABLE_TRACE', g_po_en_sql_trace);
445: fnd_profile.get('INV_DEBUG_TRACE', g_inv_debug_enabled);
446: fnd_profile.get('INV_DEBUG_LEVEL', g_inv_debug_level);
447: fnd_profile.get('INV_DEBUG_FILE', g_inv_debug_file);
448: fnd_profile.get('RCV_DEBUG_MODE', g_rcv_debug_enabled);
449: END IF;
450:
451:
452: IF (g_fnd_debug_enabled = 'Y' and g_fnd_debug_level = '1' and (g_fnd_debug_module = '%' or g_fnd_debug_module = '%') and g_inv_debug_enabled = '1' and g_rcv_debug_enabled = 'Y') or (g_debug_started = 'Y') THEN
464:
465: l_rollback_allowed := NVL(p_raise_exception, 'Y');
466:
467: IF g_userid IS NULL THEN
468: fnd_profile.get('USER_ID', g_userid);
469: OPEN c_user_info(g_userid);
470: FETCH c_user_info INTO g_user_name, g_user_email;
471: CLOSE c_user_info;
472: END IF;