[Home] [Help]
PACKAGE BODY: APPS.MSD_CONC_LOG_UTIL
Source
1 package body MSD_CONC_LOG_UTIL as
2 /* $Header: msdclutb.pls 115.4 2002/11/06 22:59:44 pinamati ship $ */
3 --
4 --
5 -- variables
6 --
7 g_last_msg_type varchar2(30);
8 g_ret_code number;
9 g_result varchar2(30);
10 g_output_to varchar2(30);
11 --
12 -- Local Procedure and Packages
13 --
14 Procedure calc_result ( p_msg_type in varchar2);
15 --
16
17 Procedure calc_result ( p_msg_type in varchar2) is
18 Begin
19 --
20 if p_msg_type = C_FATAL_ERROR then
21 g_ret_code := 4;
22 g_result := C_FATAL_ERROR;
23 elsif p_msg_type = C_ERROR then
24 g_ret_code := 2;
25 g_result := p_msg_type;
26 elsif p_msg_type = C_WARNING then
27 g_ret_code := 1;
28 g_result := p_msg_type;
29 end if;
30 End;
31 --
32 Procedure show_message(p_text in varchar2) is
33 Begin
34 --
35 -- Output to FNDFILE or SERVER depending on the user settings
36 --
37 -- if g_output_to = C_OUTPUT_TO_FNDFILE then
38 fnd_file.put_line(fnd_file.log, p_text);
39 -- else
40 -- dbms_output.put_line(p_text);
41 -- end if;
42 end;
43 --
44 Procedure Initilize is
45 Begin
46 --
47 g_last_msg_type := null;
48 g_ret_code := null;
49 g_result := C_SUCCESS;
50 g_output_to := C_OUTPUT_TO_FNDFILE;
51 --
52 End;
53 --
54 Procedure Initilize(p_output_to in varchar2) is
55 Begin
56 --
57 Initilize;
58 --
59 if p_output_to in (C_OUTPUT_TO_FNDFILE, C_OUTPUT_TO_SERVER) then
60 g_output_to := p_output_to;
61 end if;
62 End;
63 Procedure display_message(p_text varchar2, msg_type varchar2) is
64 l_tab varchar2(4):=' ';
65 L_MAX_LENGTH number:=90;
66 Begin
67 if msg_type = C_SECTION then
68 if nvl(g_last_msg_type, 'xx') <> C_SECTION then
69 show_message('');
70 end if;
71 --
72 show_message( substr(p_text, 1, L_MAX_LENGTH) );
73 --
74 elsif msg_type in (C_INFORMATION, C_HEADING) then
75 show_message( l_tab || substr(p_text, 1, L_MAX_LENGTH));
76 else
77 show_message( l_tab || rpad(p_text, L_MAX_LENGTH) || ' ' || msg_type );
78 end if;
79 --
80 if msg_type in (C_ERROR, C_WARNING, C_FATAL_ERROR) then
81 calc_result (msg_type);
82 end if;
83 --
84 if msg_type = C_FATAL_ERROR then
85 show_message(' ');
86 show_message( l_tab || 'Exiting Demand Plan validation process with FATAL ERROR');
87 raise EX_FATAL_ERROR;
88 end if;
89 --
90 g_last_msg_type := msg_type;
91 End;
92 --
93 Function Result return varchar2 is
94 Begin
95 return g_result;
96 End;
97 --
98 Function retcode return number is
99 Begin
100 return g_ret_code;
101 End;
102
103 End;