1: PACKAGE BODY WSH_UTIL AS
2: /* $Header: WSHUUTLB.pls 115.5 99/08/18 12:37:18 porting ship $ */
3:
4:
5: --
106: current_line := current_line + 1;
107:
108: EXCEPTION
109: WHEN OTHERS THEN
110: Default_Handler('WSH_UTIL.Write_Line','Error in Write_Line');
111: END Write_Line;
112:
113: --
114: -- This function writes a line of text to the log file (less than
175: p_log := log_char_buffer;
176:
177: EXCEPTION
178: WHEN OTHERS THEN
179: Default_Handler('WSH_UTIL.Get_Log','Error in Get_Log');
180: END Get_Log;
181:
182: --
183: -- This function gets the number of lines entered as log information
188: RETURN log_buffer.COUNT;
189:
190: EXCEPTION
191: WHEN OTHERS THEN
192: Default_Handler('WSH_UTIL.Get_Size','Error in Get_Size');
193: RETURN FAILURE;
194: END Get_Size;
195:
196: --
209: IF (p_line > 0) AND (p_line < current_line) THEN
210: p_text := log_buffer(p_line).text_line;
211: p_status := SUCCESS;
212: ELSE
213: p_text := 'WSH_UTIL: Invalid Index ' || to_char(p_line);
214: p_status := FAILURE;
215: END IF;
216:
217: EXCEPTION
215: END IF;
216:
217: EXCEPTION
218: WHEN OTHERS THEN
219: Default_Handler('WSH_UTIL.Get_Line','Error in Get_Line');
220: p_status := FAILURE;
221: END Get_Line;
222:
223: --
242: p_status := SUCCESS;
243: END IF;
244: END LOOP;
245: IF found = 0 THEN
246: p_text := 'WSH_UTIL: Token (' || p_token || ') not found';
247: p_status := FAILURE;
248: END IF;
249:
250: EXCEPTION
248: END IF;
249:
250: EXCEPTION
251: WHEN OTHERS THEN
252: Default_Handler('WSH_UTIL.Get_Line','Error in Get_Line');
253: p_status := FAILURE;
254: END Get_Line;
255:
256: --
265: RETURN SUCCESS;
266:
267: EXCEPTION
268: WHEN OTHERS THEN
269: Default_Handler('WSH_UTIL.Clear_Log','Error in Clear_Log');
270: RETURN FAILURE;
271: END Clear_Log;
272:
273: --
302: RETURN SUCCESS;
303:
304: EXCEPTION
305: WHEN OTHERS THEN
306: Default_Handler('WSH_UTIL.Flush_Log','Error in Flush_Log');
307: RETURN FAILURE;
308: END Flush_Log;
309:
310: --
428: RETURN TRUE;
429:
430: EXCEPTION
431: WHEN others THEN
432: Default_Handler('WSH_UTIL.update_locator_flex',SQLERRM);
433: END update_locator_flex;
434:
435: FUNCTION sc_online( departure_id IN NUMBER,
436: delivery_id IN NUMBER,
507: EXCEPTION
508:
509: WHEN OTHERS THEN
510: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
511: FND_MESSAGE.Set_Token('PACKAGE','WSH_UTIL.sc_online');
512: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
513: FND_MESSAGE.Set_Token('ORA_TEXT','Unexpected exception');
514: RETURN FALSE;
515:
534:
535: EXCEPTION
536: WHEN OTHERS THEN
537: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
538: FND_MESSAGE.Set_Token('PACKAGE','WSH_UTIL');
539: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
540: FND_MESSAGE.Set_Token('ORA_TEXT','Failure initializing package');
541: APP_EXCEPTION.Raise_Exception;
542:
539: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
540: FND_MESSAGE.Set_Token('ORA_TEXT','Failure initializing package');
541: APP_EXCEPTION.Raise_Exception;
542:
543: END WSH_UTIL;