[Home] [Help]
1: PACKAGE BODY BSC_MESSAGE AS
2: /* $Header: BSCUMSGB.pls 120.0 2005/06/01 16:02:21 appldev noship $ */
3:
4: -- Global Variables
5: --
80: x_debug_flag IN Varchar2 := NULL
81: ) Is
82: Begin
83:
84: BSC_Message.init(x_debug_flag);
85:
86: End Reset;
87:
88: Function Count (
146: end if;
147:
148: if (x_mode = 'I') then
149:
150: Insert Into BSC_MESSAGE_LOGS(
151: Source,
152: Type,
153: Message,
154: Creation_Date, Created_By,
170:
171: For i In 1 .. G_Msg_Count
172: Loop
173:
174: Insert Into BSC_MESSAGE_LOGS(
175: Source,
176: Type,
177: Message,
178: Creation_Date, Created_By,
187: );
188:
189: End Loop;
190:
191: BSC_Message.Reset(
192: x_debug_flag => G_debug_flag
193: );
194:
195: End Flush;
195: End Flush;
196:
197: --
198: -- Name: Clean
199: -- Desc: Delete message from BSC_MESSAGE_LOGS if debug_flag is 'NO'
200: --
201: Procedure Clean Is
202: Begin
203:
203:
204: if (G_debug_flag = 'NO') then
205:
206: delete
207: from BSC_MESSAGE_LOGS
208: where
209: last_update_login = G_session_id;
210: end if;
211:
210: end if;
211:
212: Exception
213: When Others Then
214: BSC_MESSAGE.add(
215: x_message => sqlerrm,
216: x_source => 'BSC_MESSAGE.Clean'
217: );
218: End Clean;
212: Exception
213: When Others Then
214: BSC_MESSAGE.add(
215: x_message => sqlerrm,
216: x_source => 'BSC_MESSAGE.Clean'
217: );
218: End Clean;
219:
220:
223: Begin
224:
225: l_count := G_Msg_Tbl.Count;
226:
227: --dbms_output.put_line('OBSC Message Stacks: ' || to_char(l_count) || '/' ||
228: -- to_char(G_Msg_Count) || ' Messages.');
229:
230: For i In 1 .. l_count
231: Loop
243: --dbms_output.put_line('Fatal Error - ' || SQLERRM);
244:
245: End Show;
246:
247: END BSC_MESSAGE;