PACKAGE BODY: APPS.BIL_DO_UTIL_PKG

Source

1 PACKAGE BODY BIL_DO_UTIL_PKG AS
2 /* $Header: bildoutb.pls 115.8 2002/01/29 13:55:53 pkm ship      $ */
3 
4 
5 
6 -- Write message in debug mode
7 PROCEDURE Write_Log (
8       p_msg      VARCHAR2
9      ,p_stime    DATE DEFAULT NULL
10      ,p_etime    DATE DEFAULT NULL
11      ,p_debug    VARCHAR2 DEFAULT 'N'
12      ,p_force    VARCHAR2 DEFAULT 'N'
13     ) IS
14     l_msg         VARCHAR2(255);
15     l_length      NUMBER;
16     l_start       NUMBER    := 1;
17     l_substring   VARCHAR2(234);
18     l_prefix      VARCHAR2(21)  := '                     ';
19   BEGIN
20     -- p_force writes to log even if debug is No. Used in case of abnormal exceptions.
21     IF (p_Debug='Y') OR (p_force='Y') THEN
22       l_msg := TO_CHAR(SYSDATE,'DD-MON-YYYY HH24:MI:SS') || '  ' || substr(p_msg, l_start, 234);
23       FND_FILE.PUT_LINE(FND_FILE.LOG, l_msg);
24       l_length := length(p_msg)-255;
25       l_start  := l_start + 234;
26       WHILE l_length > 234 LOOP
27          l_substring := substr(p_msg, l_start, 234);
28          --DBMS_OUTPUT.PUT_LINE(l_substring);
29          FND_FILE.PUT_LINE(FND_FILE.LOG, l_prefix || l_substring);
30          l_start := l_start + 234;
31          l_length := l_length - 234;
32        END LOOP;
33           --DBMS_OUTPUT.PUT_LINE(l_substring);
34          FND_FILE.PUT_LINE(FND_FILE.LOG, l_substring);
35      END IF;
36 
37      EXCEPTION
38       WHEN others THEN
39        FND_FILE.PUT_LINE(FND_FILE.LOG, 'Exception: others in Write_log');
40        FND_FILE.PUT_LINE(FND_FILE.LOG,
41                'SQLCODE ' || to_char(SQLCODE) ||
42                ' SQLERRM ' || substr(SQLERRM, 1, 100));
43 
44   END Write_Log;
45 
46 
47  END BIL_DO_UTIL_PKG;
48