PACKAGE BODY: APPS.EAM_API_LOG_PVT

Source

1 PACKAGE BODY EAM_API_Log_PVT AS
2 /* $Header: EAMVLOGB.pls 115.1 2003/01/06 21:36:44 chrng noship $ */
3 
4 G_PKG_NAME 	CONSTANT VARCHAR2(30):='EAM_API_Log_PVT';
5 
6 PROCEDURE Open_Log_Session(
7 	p_log_file_dir	IN	VARCHAR2,
8 	p_log_file_name	IN	VARCHAR2,
9 
10 	x_is_logged	IN OUT NOCOPY	NUMBER,
11 	x_log_file	IN OUT NOCOPY	UTL_FILE.FILE_TYPE
12 )
13 IS
14 BEGIN
15 	IF x_is_logged = g_YES
16 	THEN
17 		IF utl_file.is_open(x_log_file)
18 		THEN
19 			-- file already opened, nothing more to do
20 			NULL;
21 		ELSE
22 			x_log_file := utl_file.fopen(p_log_file_dir,
23 							p_log_file_name,
24 							'w');
25 			utl_file.put_line(x_log_file, 'Created ' || TO_CHAR(sysdate, 'DD MON YYYY HH12:MI:SS AM') ||
26 						'; Log file dir=' || p_log_file_dir ||
27 						'; Log file name=' || p_log_file_name
28 						);
29 			utl_file.fflush(x_log_file);
30 		END IF;
31 	END IF;
32 
33 EXCEPTION
34 	WHEN OTHERS THEN
35 
36 		x_is_logged := g_NO;
37 
38 		IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
39 			FND_MESSAGE.SET_NAME('EAM', 'EAM_ABO_CANNOT_CREATE_LOG_FILE');
40 			FND_MSG_PUB.ADD;
41 		END IF;
42 END Open_Log_Session;
43 
44 
45 PROCEDURE Write_Log(
46 	x_is_logged	IN OUT NOCOPY NUMBER,
47 	p_log_file	IN	UTL_FILE.FILE_TYPE,
48 	p_log_message	IN	VARCHAR2
49 )
50 IS
51 BEGIN
52 	IF x_is_logged = g_YES
53 	THEN
54 		IF utl_file.is_open(p_log_file)
55 		THEN
56 			utl_file.put_line(p_log_file, '> ' || p_log_message);
57 			utl_file.fflush(p_log_file);
58 		END IF;
59 	END IF;
60 
61 EXCEPTION
62 	WHEN OTHERS THEN
63 		x_is_logged := g_NO;
64 
65 		IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
66 			FND_MESSAGE.SET_NAME('EAM', 'EAM_ABO_ERROR_WRITING_TO_LOG');
67 			FND_MSG_PUB.ADD;
68 		END IF;
69 END Write_Log;
70 
71 PROCEDURE Close_Log_Session(
72 	p_log_file	IN OUT NOCOPY	UTL_FILE.FILE_TYPE
73 )
74 IS
75 BEGIN
76 	IF utl_file.is_open(p_log_file)
77 	THEN
78 		utl_file.fclose(p_log_file);
79 	END IF;
80 END Close_Log_Session;
81 
82 END EAM_API_Log_PVT;