1: PACKAGE BODY gme_debug AS
2: /* $Header: GMEUDBGB.pls 120.5 2011/09/14 13:48:58 adeshmuk ship $ */
3: g_debug VARCHAR2 (5)
4: := NVL (fnd_profile.VALUE ('AFLOG_LEVEL')
5: ,-1);
6: g_pkg_name CONSTANT VARCHAR2 (30) := 'GME_DEBUG';
7:
8: /*
58: -- Bug 6789809
59: -- Set debug log mode to off and do not proceed with initialize if
60: -- FND Debug log enabled is set to No.
61: -- Setting g_log_mode to 'OFF' will prevent procdure putline from executing.
62: IF(NVL(fnd_profile.VALUE ('AFLOG_ENABLED'),-1) = 'N') THEN
63: g_log_mode := 'OFF';
64: ELSE
65: G_LOG_LEVEL := TO_NUMBER(FND_PROFILE.Value('AFLOG_LEVEL'));
66: IF G_LOG_LEVEL IS NULL THEN
61: -- Setting g_log_mode to 'OFF' will prevent procdure putline from executing.
62: IF(NVL(fnd_profile.VALUE ('AFLOG_ENABLED'),-1) = 'N') THEN
63: g_log_mode := 'OFF';
64: ELSE
65: G_LOG_LEVEL := TO_NUMBER(FND_PROFILE.Value('AFLOG_LEVEL'));
66: IF G_LOG_LEVEL IS NULL THEN
67: G_LOG_MODE := 'OFF';
68: ELSE
69: IF (TO_NUMBER (fnd_profile.VALUE ('CONC_REQUEST_ID') ) > 0) THEN
65: G_LOG_LEVEL := TO_NUMBER(FND_PROFILE.Value('AFLOG_LEVEL'));
66: IF G_LOG_LEVEL IS NULL THEN
67: G_LOG_MODE := 'OFF';
68: ELSE
69: IF (TO_NUMBER (fnd_profile.VALUE ('CONC_REQUEST_ID') ) > 0) THEN
70: g_log_mode := 'SRS';
71: ELSIF p_file_name <> '0' THEN
72: g_log_mode := 'LOG';
73: ELSE