[Home] [Help]
PACKAGE BODY: APPS.FII_CHANGE_LOG_PKG
Source
1 package body FII_CHANGE_LOG_PKG as
2 /*$Header: FIIFLOGB.pls 120.1 2005/10/30 05:14:11 appldev ship $*/
3
4 g_debug_flag VARCHAR2(1) := NVL(FND_PROFILE.value('FII_DEBUG_MODE'), 'N');
5
6
7 procedure update_change_log(p_log_item in varchar2,
8 p_item_value in varchar2,
9 x_status out nocopy varchar2,
10 x_message_count out nocopy number,
11 x_error_message out nocopy varchar2) is
12 begin
13 if g_debug_flag = 'Y' then
14 fii_util.debug_line('FII_CHANGE_LOG_PKG.update_change_log(+)');
15 end if;
16
17 update fii_change_log
18 set item_value = p_item_value,
19 last_update_date = sysdate,
20 last_updated_by = fnd_global.user_id,
21 last_update_login = fnd_global.user_id
22 where log_item = p_log_item;
23
24 x_status := FND_API.G_RET_STS_SUCCESS;
25 if g_debug_flag = 'Y' then
26 fii_util.debug_line('FII_CHANGE_LOG_PKG.update_change_log(-)');
27 end if;
28
29 exception
30 when others then
31 x_status := FND_API.G_RET_STS_ERROR;
32 x_message_count := 1;
33 FND_MESSAGE.SET_NAME ('FII','FII_ERROR');
34 FND_MESSAGE.SET_TOKEN('FUNCTION', 'FII_CHANGE_LOG_PKG.update_change_log');
35 FND_MESSAGE.SET_TOKEN('SQLERRMC', sqlerrm);
36 FND_MSG_PUB.ADD;
37 FND_MSG_PUB.Count_And_Get(p_count => x_message_count, p_data => x_error_message);
38 if g_debug_flag = 'Y' then
39 fii_util.debug_line('FII_CHANGE_LOG_PKG.update_change_log(EXCEPTION)');
40 fii_util.debug_line(sqlerrm);
41 end if;
42 end;
43
44
45 procedure set_recollection_for_fii(x_status out nocopy varchar2,
46 x_message_count out nocopy number,
47 x_error_message out nocopy varchar2) is
48 begin
49 if g_debug_flag = 'Y' then
50 fii_util.debug_line('FII_CHANGE_LOG_PKG.set_recollection_for_fii(+)');
51 end if;
52
53 UPDATE FII_CHANGE_LOG
54 SET item_value = 'Y',
55 last_update_date = sysdate,
56 last_updated_by = fnd_global.user_id,
57 last_update_login = fnd_global.user_id
58 WHERE log_item IN
59 ('GL_RESUMMARIZE',
60 'AP_RESUMMARIZE',
61 'AR_RESUMMARIZE',
62 'CCID_RELOAD',
63 'FA_RESUMMARIZE');
64
65 if g_debug_flag = 'Y' then
66 fii_util.debug_line('FII_CHANGE_LOG_PKG.set_recollection_for_fii(-)');
67 end if;
68 x_status := FND_API.G_RET_STS_SUCCESS;
69
70 exception
71 when others then
72 x_status := FND_API.G_RET_STS_ERROR;
73 x_message_count := 1;
74 FND_MESSAGE.SET_NAME ('FII','FII_ERROR');
75 FND_MESSAGE.SET_TOKEN('FUNCTION', 'FII_CHANGE_LOG_PKG.set_recollection_for_fii');
76 FND_MESSAGE.SET_TOKEN('SQLERRMC', sqlerrm);
77 FND_MSG_PUB.ADD;
78 FND_MSG_PUB.Count_And_Get(p_count => x_message_count, p_data => x_error_message);
79 if g_debug_flag = 'Y' then
80 fii_util.debug_line('FII_CHANGE_LOG_PKG.set_recollection_for_fii(EXCEPTION)');
81 fii_util.debug_line(sqlerrm);
82 end if;
83
84 end;
85
86
87 procedure add_change_log_item(p_log_item in varchar2,
88 p_item_value in varchar2,
89 x_status out nocopy varchar2,
90 x_message_count out nocopy number,
91 x_error_message out nocopy varchar2) is
92 l_item_count NUMBER(15);
93
94 begin
95 if g_debug_flag = 'Y' then
96 fii_util.debug_line('FII_CHANGE_LOG_PKG.add_change_log_item(+)');
97 end if;
98
99 --Check if this item exists in fii_change_log table.
100 --Add item only if it doesn't already exist.
101
102 Select count(*) into l_item_count from fii_change_log where log_item = p_log_item;
103 IF l_item_count = 0 THEN
104
105 INSERT INTO FII_CHANGE_LOG
106 (log_item,
107 item_value,
108 creation_date,
109 created_by,
110 last_update_date,
111 last_update_login,
112 last_updated_by)
113 VALUES (p_log_item,
114 p_item_value,
115 sysdate,
116 fnd_global.user_id,
117 sysdate,
118 fnd_global.login_Id,
119 fnd_global.user_id);
120
121 END IF;
122
123 if g_debug_flag = 'Y' then
124 fii_util.debug_line('FII_CHANGE_LOG_PKG.add_change_log_item(-)');
125 end if;
126 x_status := FND_API.G_RET_STS_SUCCESS;
127
128 exception
129 when others then
130 x_status := FND_API.G_RET_STS_ERROR;
131 x_message_count := 1;
132 FND_MESSAGE.SET_NAME ('FII','FII_ERROR');
133 FND_MESSAGE.SET_TOKEN('FUNCTION', 'FII_CHANGE_LOG_PKG.add_change_log_item');
134 FND_MESSAGE.SET_TOKEN('SQLERRMC', sqlerrm);
135 FND_MSG_PUB.ADD;
136 FND_MSG_PUB.Count_And_Get(p_count => x_message_count, p_data => x_error_message);
137 if g_debug_flag = 'Y' then
138 fii_util.debug_line('FII_CHANGE_LOG_PKG.add_change_log_item(EXCEPTION)');
139 fii_util.debug_line(sqlerrm);
140 end if;
141
142 end;
143
144 end FII_CHANGE_LOG_PKG;