PACKAGE BODY: APPS.PO_R12_CAT_UPG_DEBUG

Source

1 PACKAGE BODY PO_R12_CAT_UPG_DEBUG AS
2 /* $Header: PO_R12_CAT_UPG_DEBUG.plb 120.2 2006/01/30 23:17:44 pthapliy noship $ */
3 
4 g_log_level NUMBER := 1;
5 g_is_logging_enabled BOOLEAN := TRUE;
6 
7 PROCEDURE set_logging_options
8 (
9   p_log_level NUMBER
10 )
11 IS
12 BEGIN
13   g_log_level := p_log_level;
14 
15   IF (NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'), 'N') <> 'N') THEN
16     IF (p_log_level = 1) THEN
17       g_is_logging_enabled := TRUE;
18     ELSE
19       g_is_logging_enabled := FALSE;
20     END IF;
21   ELSE
22     g_is_logging_enabled := FALSE;
23   END IF;
24 END set_logging_options;
25 
26 FUNCTION is_logging_enabled
27 RETURN BOOLEAN
28 IS
29 BEGIN
30   return g_is_logging_enabled;
31 END is_logging_enabled;
32 
33 PROCEDURE log
34 (
35   p_log_level NUMBER
36 , p_module    VARCHAR2
37 , p_progress  VARCHAR2
38 , p_message   VARCHAR2
39 )
40 IS
41 BEGIN
42   -- PO_DEBUG.put_line(p_module||','||p_progress||','||p_message);
43   IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= p_log_level) THEN
44     FND_LOG.string(log_level => p_log_level
45                  , module    => p_module
46                  , message   => p_progress||','||p_message);
47   END IF;
48 END log;
49 
50 PROCEDURE log_stmt
51 (
52   p_module    VARCHAR2
53 , p_progress  VARCHAR2
54 , p_message   VARCHAR2
55 )
56 IS
57 BEGIN
58   log(p_log_level => 1
59     , p_module    => p_module
60     , p_progress  => p_progress
61     , p_message   => p_message);
62 END log_stmt;
63 
64 
65 END PO_R12_CAT_UPG_DEBUG;