PACKAGE BODY: APPS.PNP_DEBUG_PKG

Source

1 package body PNP_DEBUG_PKG As
2   -- $Header: PNDEBUGB.pls 115.12 2003/11/18 02:25:18 mmisra ship $
3 
4 --
5 --
6   pg_file_name    VARCHAR2(100)         := NULL;
7   pg_path_name    VARCHAR2(100)         := NULL;
8   pg_fp           utl_file.file_type;
9 
10 PROCEDURE enable_file_debug (
11                               path_name in varchar2,
12 			      file_name in varchar2
13                             ) IS
14 BEGIN
15 
16   if (pg_file_name is null) THEN
17 
18     pg_fp        := utl_file.fopen(path_name, file_name, 'w');
19     pg_file_name := file_name;
20     pg_path_name := path_name;
21 
22   end if;
23 
24   EXCEPTION
25 
26     when utl_file.invalid_path then
27       app_exception.raise_exception;
28     when utl_file.invalid_mode then
29       app_exception.raise_exception;
30 
31 END ;
32 --
33 --
34 PROCEDURE disable_file_debug is
35 BEGIN
36 
37   if (pg_file_name is not null) THEN
38     pg_file_name := NULL;
39     pg_path_name := NULL;
40     utl_file.fclose(pg_fp);
41   end if;
42 
43 END;
44 --
45 --
46 PROCEDURE debug( line in varchar2 ) is
47 
48   rest varchar2(32767);
49   buffer_overflow exception;
50   pragma exception_init(buffer_overflow, -20000);
51 
52 BEGIN
53 
54     IF (pg_file_name IS NOT NULL) THEN
55 
56       utl_file.put_line(pg_fp, line);
57       utl_file.fflush(pg_fp);
58 
59     END IF;
60 
61 EXCEPTION
62 
63   when buffer_overflow then
64       null;  -- buffer overflow, ignore
65   when others then
66       raise;
67 END;
68 --
69 --
70 PROCEDURE put_log_msg(status_string  VarChar2 )is
71 
72 BEGIN
73 
74   Fnd_File.Put_Line ( Fnd_File.Log,  status_string );
75   Fnd_File.Put_Line ( Fnd_File.OutPut,  status_string );
76 
77 EXCEPTION
78   When Others Then Raise;
79 
80 END put_log_msg;
81 
82 --
83 --
84 PROCEDURE log(status_string  VarChar2 )is
85 
86 BEGIN
87 
88   Fnd_File.Put_Line ( Fnd_File.Log,  status_string );
89 
90   IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
91     FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'PN' , status_string );
92   END IF;
93 
94 EXCEPTION
95   When Others Then Raise;
96 
97 END log;
98 
99 END PNP_DEBUG_PKG;