PACKAGE BODY: APPS.INV_MOBILE_HELPER_FUNCTIONS

Source

1 PACKAGE BODY inv_mobile_helper_functions AS
2 /* $Header: INVMTXHB.pls 120.1 2005/06/17 09:52:21 appldev  $*/
3 
4 --  Global constant holding the package name
5 G_PKG_NAME      CONSTANT VARCHAR2(30) := 'inv_mobile_helper_functions';
6 
7 g_debug_init                  BOOLEAN := FALSE;
8 g_fd                          utl_file.file_type;
9 g_trace_on                    NUMBER := 0;          -- Log ON state
10 
11 
12 PROCEDURE tracelog (p_err_msg IN VARCHAR2,
13 		    p_module IN VARCHAR2,
14 		    p_level IN NUMBER := 9)
15   IS
16     l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
17 BEGIN
18   -- Consolidated to one trace log api
19   IF (l_debug = 1) THEN
20      INV_LOG_UTIL.TRACE(p_err_msg, p_module, p_level);
21   END IF;
22 END TraceLog;
23 
24 
25 
26 
27 PROCEDURE SQL_ERROR(routine IN varchar2 ,
28                     location IN varchar2,
29                     error_code IN number) IS
30     l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
31 BEGIN
32    FND_MESSAGE.set_name('INV', 'INV_ALL_SQL_ERROR');
33    FND_MESSAGE.set_token('ROUTINE', routine);
34    FND_MESSAGE.set_token('ERR_NUMBER', location);
35    FND_MESSAGE.set_token('SQL_ERR', SQLERRM(error_code));
36    fnd_msg_pub.ADD;
37 EXCEPTION
38    WHEN OTHERS THEN
39       NULL;
40 END SQL_ERROR;
41 
42 
43 PROCEDURE get_stacked_messages(x_message OUT NOCOPY /* file.sql.39 change */ VARCHAR2)
44   IS
45      l_message VARCHAR2(2000);
46      l_msg_count NUMBER;
47     l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
48 BEGIN
49    fnd_msg_pub.Count_And_Get
50      (p_encoded	=> FND_API.g_false,
51       p_count => l_msg_count,
52       p_data => l_message
53       );
54 
55    IF l_msg_count > 1 THEN
56       FOR i IN 1..l_msg_count LOOP
57 	 l_message := substr((l_message || '|' || FND_MSG_PUB.GET(p_msg_index => l_msg_count - i + 1,
58 							  p_encoded	=> FND_API.g_false)),1,2000);
59       END LOOP;
60    END IF;
61 
62    fnd_msg_pub.delete_msg;
63 
64    x_message := l_message;
65 
66 EXCEPTION
67    WHEN OTHERS THEN
68       NULL;
69 END get_stacked_messages;
70 
71 
72 END inv_mobile_helper_functions;