[Home] [Help]
PACKAGE BODY: APPS.GMF_UTIL
Source
1 PACKAGE BODY gmf_util AS
2 /* $Header: gmfutilb.pls 115.1 1999/11/11 14:40:05 pkm ship $ */
3
4 /*****************************************************************************
5 * PROCEDURE
6 * trace
7 *
8 * PARAMETERS
9 * msg IN VARCHAR2 - Message to be printed
10 * trace_level IN NUMBER - Trace Level, 1 by default
11 *
12 * DESCRIPTION
13 * trace() prints messages to the log file FND_FILE.LOG when called
14 * from a concurrent pl/sql program. Trace will get the debug level via
15 * the profile option GMF_CONC_DEBUG. Messages that are passed with a
16 * trace level lesser or equal to the profile value will be printed.
17 * By default a debug level of 0 will be assumed if the profile
18 * does not exist.
19 *
20 * HISTORY
21 * 13-Oct-1999 Rajesh Seshadri
22 * 10-Nov-1999 Rajesh Seshadri - Added another default parameter to specify
23 * whether the msg is to be printed to the log ( = 1, default) or the
24 * output ( = 2 ) file.
25 *
26 ******************************************************************************/
27
28 PROCEDURE trace (
29 pi_emsg IN VARCHAR2,
30 pi_trace_level IN NUMBER DEFAULT 1,
31 pi_trace_file IN NUMBER DEFAULT 1
32 )
33 IS
34 l_profile_value VARCHAR2(10);
35 l_profile_level NUMBER := 0;
36 l_dt VARCHAR2(31);
37 BEGIN
38 l_dt := TO_CHAR( SYSDATE, 'YYYY-MM-DD HH24:MI:SS' );
39 l_profile_level := 0;
40
41 BEGIN
42 l_profile_value := FND_PROFILE.VALUE( 'GMF_CONC_DEBUG' );
43 IF( l_profile_value IS NOT NULL ) THEN
44 l_profile_level := TO_NUMBER( l_profile_value );
45 END IF;
46 EXCEPTION
47 WHEN others THEN
48 l_profile_level := 0;
49 END;
50
51 IF( pi_trace_level > l_profile_level ) THEN
52 RETURN;
53 ELSE
54 IF( pi_trace_file = 2 )
55 THEN
56 FND_FILE.PUT_LINE( FND_FILE.OUTPUT, pi_emsg || ' ' || l_dt );
57 ELSE
58 FND_FILE.PUT_LINE( FND_FILE.LOG, pi_emsg || ' ' || l_dt );
59 END IF;
60 END IF;
61
62 END trace;
63
64 /*****************************************************************************
65 * PROCEDURE
66 * log
67 *
68 * PARAMETERS
69 * log_msg IN VARCHAR2 - Message to be printed
70 *
71 * DESCRIPTION
72 * Prints the log message passed in to FND_FILE.LOG with timestamp
73 *
74 * HISTORY
75 * 13-Oct-1999 Rajesh Seshadri
76 *
77 ******************************************************************************/
78
79 PROCEDURE log (
80 pi_log_msg IN VARCHAR2
81 )
82 IS
83 l_dt VARCHAR2(64);
84 BEGIN
85 l_dt := TO_CHAR( SYSDATE, 'YYYY-MM-DD HH24:MI:SS' );
86
87 IF( pi_log_msg IS NOT NULL ) THEN
88 FND_FILE.PUT_LINE( FND_FILE.LOG, pi_log_msg || ' ' || l_dt );
89 ELSE
90 FND_FILE.NEW_LINE( FND_FILE.LOG, 1 );
91 END IF;
92
93 END log;
94
95 /*****************************************************************************
96 * PROCEDURE
97 * log
98 *
99 * PARAMETERS
100 * NONE
101 *
102 * DESCRIPTION
103 * Prints a new line in FND_FILE.LOG
104 *
105 * HISTORY
106 * 13-Oct-1999 Rajesh Seshadri
107 *
108 ******************************************************************************/
109
110 PROCEDURE log
111 IS
112 BEGIN
113 log( null );
114 END log;
115
116 /*****************************************************************************
117 * PROCEDURE
118 * msg_log
119 *
120 * PARAMETERS
121 * message_name, value1 thru 5 (defaulted to NULL)
122 *
123 * DESCRIPTION
124 * Retrieves the message from msg dictionary and substitutes the tokens
125 * with the non-null values passed.
126 *
127 * HISTORY
128 * 13-Oct-1999 Rajesh Seshadri
129 *
130 ******************************************************************************/
131
132 PROCEDURE msg_log(
133 pi_message_name IN VARCHAR2,
134 pi_value1 IN VARCHAR2 DEFAULT NULL,
135 pi_value2 IN VARCHAR2 DEFAULT NULL,
136 pi_value3 IN VARCHAR2 DEFAULT NULL,
137 pi_value4 IN VARCHAR2 DEFAULT NULL,
138 pi_value5 IN VARCHAR2 DEFAULT NULL
139 )
140 IS
141
142 l_msg_text VARCHAR2(2000);
143
144 BEGIN
145
146 FND_MESSAGE.SET_NAME( 'GMF', pi_message_name );
147
148 IF( pi_value1 IS NOT NULL ) THEN
149 FND_MESSAGE.SET_TOKEN( 'S1', pi_value1 );
150 END IF;
151
152 IF( pi_value2 IS NOT NULL ) THEN
153 FND_MESSAGE.SET_TOKEN( 'S2', pi_value2 );
154 END IF;
155
156 IF( pi_value3 IS NOT NULL ) THEN
157 FND_MESSAGE.SET_TOKEN( 'S3', pi_value3 );
158 END IF;
159
160 IF( pi_value4 IS NOT NULL ) THEN
161 FND_MESSAGE.SET_TOKEN( 'S4', pi_value4 );
162 END IF;
163
164 IF( pi_value5 IS NOT NULL ) THEN
165 FND_MESSAGE.SET_TOKEN( 'S5', pi_value5 );
166 END IF;
167
168 l_msg_text := FND_MESSAGE.GET;
169
170 log( l_msg_text );
171
172 END msg_log;
173
174 END gmf_util;