PACKAGE BODY: APPS.XNP_TRACE

Source

1 PACKAGE BODY XNP_TRACE AS
2 /* $Header: XNPDEBGB.pls 120.2 2006/02/13 07:44:32 dputhiye ship $ */
3 
4 /* Temporary procedure for debugging */
5 PROCEDURE LOG
6  (p_DEBUG_LEVEL NUMBER
7  ,p_CONTEXT VARCHAR2
8  ,p_DESCRIPTION VARCHAR2
9  )
10 IS
11 l_DIAGNOSTICS VARCHAR2(40) := NULL;
12 BEGIN
13  FND_PROFILE.GET
14   (NAME => 'DIAGNOSTICS'
15   ,VAL => l_DIAGNOSTICS
16   ) ;
17 
18  --IF (l_DIAGNOSTICS IS NULL)
19   -- OR (p_DEBUG_LEVEL > to_number(l_DIAGNOSTICS) )
20  --THEN
21   --RETURN;
22  --END IF;
23 
24  if (p_DEBUG_LEVEL > 200)
25  then
26    return;
27  end if;
28 
29   INSERT INTO xnp_debug
30     (DEBUG_ID
31     ,DEBUG_LEVEL
32     ,CONTEXT
33     ,DESCRIPTION
34     ,created_by
35     ,creation_date
36     ,last_updated_by
37     ,last_update_date
38     )
39   VALUES
40     (xnp_debug_s.nextval
41     ,p_DEBUG_LEVEL
42     ,p_CONTEXT
43     ,p_DESCRIPTION
44     ,fnd_global.user_id
45     ,sysdate
46     ,fnd_global.user_id
47     ,sysdate
48     );
49 END LOG;
50 END XNP_TRACE;