[Home] [Help]
PACKAGE BODY: APPS.ARP_UTIL_TAX
Source
1 PACKAGE BODY ARP_UTIL_TAX AS
2 /*$Header: ARPUTAXB.pls 120.3 2005/02/23 18:36:46 lxzhang ship $ */
3
4 /*
5 definition of log level in FND_LOG package.
6 LEVEL_UNEXPECTED CONSTANT NUMBER := 6;
7 LEVEL_ERROR CONSTANT NUMBER := 5;
8 LEVEL_EXCEPTION CONSTANT NUMBER := 4;
9 LEVEL_EVENT CONSTANT NUMBER := 3;
10 LEVEL_PROCEDURE CONSTANT NUMBER := 2;
11 LEVEL_STATEMENT CONSTANT NUMBER := 1;
12 */
13
14 l_line varchar2(1999) ;
15 pg_debug_level NUMBER ;
16 /* ---------------------------------------------------------------------*
17 |Public Procedure |
18 | debug Write the text message in log file |
19 | if the debug is set "Yes". |
20 | Description |
21 | Old Behavior: This procedure will generate the standard debug |
22 | information in to the log file.User can open the |
23 | log file <user name.log> at specified location. |
24 | New Behavior: This procedure will call FND_LOG to generate the |
25 | debug messages into FND_LOG_MESSAGES Table. |
26 | |
27 | Requires |
28 | p_line The line of debug messages that will be writen |
29 | in the log file. |
30 | Exception Raised |
31 | |
32 | Known Bugs |
33 | |
34 | Notes |
35 | |
36 | History Nov-11-2003 Ling Zhang Bug fix 3062098 |
37 | |
38 *-----------------------------------------------------------------------*/
39 PROCEDURE debug(
40 p_line IN VARCHAR2,
41 p_module_name IN VARCHAR2 DEFAULT 'TAX',
42 p_log_level IN NUMBER DEFAULT FND_LOG.LEVEL_STATEMENT
43 ) IS
44 BEGIN
45
46 IF p_log_level >=pg_debug_level THEN
47 IF lengthb(p_line) > 1999 THEN
48 l_line := substrb(p_line,1,1999) ;
49 ELSE
50 l_line := p_line ;
51 END IF;
52
53 fnd_log.string(
54 LOG_LEVEL => p_log_level,
55 MODULE => p_module_name,
56 MESSAGE => l_line);
57 END IF;
58
59 EXCEPTION
60 WHEN others THEN
61 IF (FND_LOG.LEVEL_UNEXPECTED >= pg_debug_level ) THEN
62 fnd_log.string(
63 LOG_LEVEL => FND_LOG.LEVEL_UNEXPECTED,
64 MODULE => 'TAX',
65 MESSAGE => 'Unexpected Error When Logging Debug Messages.');
66 END IF;
67 END debug;
68
69
70 FUNCTION is_debug_enabled return VARCHAR2 IS
71 BEGIN
72 -- bug fix 3062098. this procedure is not used by any othe pkg,
73 -- so comment out
74 -- return NVL(FND_PROFILE.value('AFLOG_ENABLED'), 'N');
75 NULL;
76 END is_debug_enabled;
77
78
79 PROCEDURE initialize IS
80 BEGIN
81 debug('ARP_UTIL_TAX Initialize()+');
82 pg_debug_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
83 debug('ARP_UTIL_TAX Initialize()-');
84 EXCEPTION
85 WHEN others THEN
86 null;
87 END;
88
89 /*------------------ Package Constructor --------------------------------*/
90
91 BEGIN
92
93 -- ARP_UTIL.DEBUG('ARP_UTIL_TAX COSTRUCTOR(+)');
94
95 initialize;
96
97 END ARP_UTIL_TAX ;