PACKAGE BODY: APPS.IBY_DEBUG_PUB

Source

1 Package body IBY_DEBUG_PUB AS
2 /* $Header: ibypdbgb.pls 120.2 2006/10/02 18:02:08 rameshsh noship $ */
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 END IBY_DEBUG_PUB;