[Home] [Help]
PACKAGE BODY: APPS.INV_MGD_POS_UTIL
Source
1 PACKAGE BODY INV_MGD_POS_UTIL AS
2 /* $Header: INVUPOSB.pls 115.2 2002/12/24 23:33:29 vjavli ship $ */
3 --+=======================================================================+
4 --| Copyright (c) 2000 Oracle Corporation |
5 --| Redwood Shores, CA, USA |
6 --| All rights reserved. |
7 --+=======================================================================+
8 --| FILENAME |
9 --| INVUPOSB.pls |
10 --| |
11 --| PROCEDURE LIST |
12 --| Log_Initialize |
13 --| Log |
14 --| |
15 --| DESCRIPTION |
16 --| Utilities for Inventory Position View and Export |
17 --| |
18 --| HISTORY |
19 --| 09/01/2000 Paolo Juvara Created |
20 --+======================================================================*/
21
22 --===================
23 -- GLOBALS
24 --===================
25
26 G_PKG_NAME CONSTANT VARCHAR2(30) := 'INV_MGD_POS_UTIL';
27 g_log_level NUMBER := NULL;
28 g_log_mode VARCHAR2(3) := 'OFF'; -- values: OFF, SQL, SRS
29
30
31 --========================================================================
32 -- PROCEDURE : Log_Initialize PUBLIC
33 -- COMMENT : Initializes the log facility. It should be called from
34 -- the top level procedure of each concurrent program
35 --=======================================================================--
36 PROCEDURE Log_Initialize
37 IS
38 BEGIN
39 g_log_level := TO_NUMBER(FND_PROFILE.Value('AFLOG_LEVEL'));
40 IF g_log_level IS NULL THEN
41 g_log_mode := 'OFF';
42 ELSE
43 IF (TO_NUMBER(FND_PROFILE.Value('CONC_REQUEST_ID')) <> 0) THEN
44 g_log_mode := 'SRS';
45 ELSE
46 g_log_mode := 'SQL';
47 END IF;
48 END IF;
49
50 END Log_Initialize;
51
52
53 --========================================================================
54 -- PROCEDURE : Log PUBLIC
55 -- PARAMETERS: p_level IN priority of the message - from
56 -- highest to lowest:
57 -- -- G_LOG_ERROR
58 -- -- G_LOG_EXCEPTION
59 -- -- G_LOG_EVENT
60 -- -- G_LOG_PROCEDURE
61 -- -- G_LOG_STATEMENT
62 -- p_msg IN message to be print on the log
63 -- file
64 -- COMMENT : Add an entry to the log
65 --=======================================================================--
66 PROCEDURE Log
67 ( p_priority IN NUMBER
68 , p_msg IN VARCHAR2
69 )
70 IS
71 BEGIN
72 IF ((g_log_mode <> 'OFF') AND (p_priority >= g_log_level))
73 THEN
74 IF g_log_mode = 'SQL'
75 THEN
76 -- SQL*Plus session: uncomment the next line during unit test
77 -- DBMS_OUTPUT.put_line(p_msg);
78 NULL;
79 ELSE
80 -- Concurrent request
81 FND_FILE.put_line
82 ( FND_FILE.log
83 , p_msg
84 );
85 END IF;
86 END IF;
87 EXCEPTION
88 WHEN OTHERS THEN
89 NULL;
90 END Log;
91
92
93 END INV_MGD_POS_UTIL;