[Home] [Help]
PACKAGE: APPS.GMD_DEBUG
Source
1 PACKAGE GMD_DEBUG AUTHID CURRENT_USER AS
2 /* $Header: GMDUDBGS.pls 115.1 2002/11/08 16:26:03 txdaniel noship $ */
3 /*
4 REM *********************************************************************
5 REM *
6 REM * FILE: GMDUDBGS.pls
7 REM * PURPOSE: Package Specification for the GMD degug utilities
8 REM * AUTHOR: Olivier DABOVAL, OPM Development
9 REM * DATE: 27th May 2001
10 REM *
11 REM * PROCEDURE log_initialize
12 REM * PROCEDURE put_line
13 REM *
14 REM *
15 REM * HISTORY:
16 REM * ========
17 REM *
18 REM **********************************************************************
19 */
20
21 --===================
22 -- CONSTANTS
23 --===================
24
25 G_LOG_ERROR CONSTANT NUMBER := 5;
26 G_LOG_EXCEPTION CONSTANT NUMBER := 4;
27 G_LOG_EVENT CONSTANT NUMBER := 3;
28 G_LOG_PROCEDURE CONSTANT NUMBER := 2;
29 G_LOG_STATEMENT CONSTANT NUMBER := 1;
30
31 G_LOG_LEVEL NUMBER := NULL;
32 G_LOG_ENABLED VARCHAR2(1) := 'N';
33 G_LOG_MODE VARCHAR2(3) := 'OFF'; -- possible values: OFF, SQL, SRS
34 G_LOG_LOCATION VARCHAR2(500) := '.';
35 G_LOG_USERNAME VARCHAR2(50);
36 G_FILE_NAME VARCHAR2(50) := 'DEBUGLOG';
37
38 --========================================================================
39 -- PROCEDURE : Log_Initialize PUBLIC
40 -- COMMENT : Initializes the log facility. It should be called from
41 -- the top level procedure of each concurrent program
42 --=======================================================================--
43 PROCEDURE Log_Initialize
44 ( p_file_name IN VARCHAR2 DEFAULT '0'
45 );
46
47 --========================================================================
48 -- PROCEDURE : Log PUBLIC
49 -- PARAMETERS: p_level IN priority of the message - from
50 -- highest to lowest:
51 -- -- G_LOG_ERROR
52 -- -- G_LOG_EXCEPTION
53 -- -- G_LOG_EVENT
54 -- -- G_LOG_PROCEDURE
55 -- -- G_LOG_STATEMENT
56 -- p_msg IN message to be print on the log
57 -- file
58 -- COMMENT : Add an entry to the log
59 --=======================================================================--
60 PROCEDURE put_line
61 ( p_msg IN VARCHAR2
62 , p_priority IN NUMBER DEFAULT 100
63 , p_file_name IN VARCHAR2 DEFAULT '0'
64 );
65
66 PROCEDURE display_messages
67 ( p_msg_count IN NUMBER
68 );
69
70 END GMD_DEBUG;