PACKAGE BODY: APPS.IBY_DEBUG_PUB

Source

1 Package body IBY_DEBUG_PUB AS
2 /* $Header: ibypdbgb.pls 120.2.12010000.6 2010/02/12 05:59:13 svinjamu ship $ */
3 
4 
5 --
6 --
7 PROCEDURE Add(debug_msg IN VARCHAR2, debug_level IN NUMBER, module IN VARCHAR2)
8 IS
9 BEGIN
10 
11    IF (debug_level >= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
12 
13      fnd_log.string(debug_level,module,debug_msg);
14      --COMMIT;
15 
16      -- if in a concurrent request, also add to the CP log
17      IF fnd_global.CONC_REQUEST_ID <> -1 THEN
18        FND_FILE.put_line(FND_FILE.LOG, debug_msg);
19      END IF;
20 
21    END IF;
22 
23 
24 EXCEPTION
25    WHEN OTHERS THEN
26      NULL;
27 END Add;
28 
29 --
30 --
31 PROCEDURE Add(debug_msg IN VARCHAR2)
32 IS
33 BEGIN
34   iby_debug_pub.Add(debug_msg,
35       iby_debug_pub.G_DEBUG_LEVEL,iby_debug_pub.G_DEBUG_MODULE);
36 END Add;
37 
38 
39 
40 PROCEDURE Log(module IN VARCHAR2,debug_msg IN VARCHAR2,debug_level IN NUMBER)
41 IS
42 BEGIN
43 
44    -- Write into log ALWAYS.
45    IF fnd_global.CONC_REQUEST_ID <> -1 THEN
46       FND_FILE.put_line(FND_FILE.LOG, debug_msg);
47    END IF;
48 
49    -- Write into log only if DEBUG LEVELS match.
50    IF (debug_level >= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
51      fnd_log.string(debug_level,module,debug_msg);
52    END IF;
53 
54 
55 EXCEPTION
56    WHEN OTHERS THEN
57      NULL;
58 END Log;
59 
60 END IBY_DEBUG_PUB;