PACKAGE BODY: APPS.CN_DEBUG

Source

1 PACKAGE BODY cn_debug AS
2 -- $Header: cnsydbgb.pls 115.1 99/07/16 07:17:15 porting ship $
3 
4 
5 --
6 -- Private package variables
7 --
8   debug_level	NUMBER := 0;	-- the current debug level; 0 = off.
9   pipename	VARCHAR2(20) := NULL;
10 
11 --
12 -- Public Procedures
13 --
14 
15   PROCEDURE print_msg (
16 	X_message	VARCHAR2,
17 	debug_code	NUMBER) IS
18     status	integer;
19   BEGIN
20 
21     IF ((debug_level > 0) AND (debug_code <= debug_level) AND
22 	(pipename IS NOT NULL)) THEN
23 
24 null;
25 --       dbms_output.put_line(X_message);
26 --      dbms_pipe.pack_message(X_message);
27 --      status := dbms_pipe.send_message(pipename);
28 
29     END IF;
30 
31   END print_msg;
32 
33 
34   PROCEDURE set_debug_level (new_level	NUMBER) IS
35   BEGIN
36     debug_level := new_level;
37   END set_debug_level;
38 
39 
40   PROCEDURE set_pipename (name	VARCHAR2) IS
41   BEGIN
42     pipename := name;
43   END set_pipename;
44 
45 
46   PROCEDURE init_pipe (name	VARCHAR2, new_level	NUMBER) IS
47   BEGIN
48     pipename := name;
49     debug_level := new_level;
50   END init_pipe;
51 
52 
53 END cn_debug;