DBA Data[Home] [Help]

APPS.LNS_BUS_EVENT_SUB_PVT dependencies on FND_LOG

Line 45: FND_LOG.STRING(p_msg_level, G_PKG_NAME, p_msg);

41: IS
42: BEGIN
43: if (p_msg_level >= G_MSG_LEVEL) then
44:
45: FND_LOG.STRING(p_msg_level, G_PKG_NAME, p_msg);
46:
47: end if;
48:
49: EXCEPTION

Line 51: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR in LogMessage: ' || sqlerrm);

47: end if;
48:
49: EXCEPTION
50: WHEN OTHERS THEN
51: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR in LogMessage: ' || sqlerrm);
52: END;
53:
54:
55:

Line 138: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');

134: from LNS_LOAN_HEADERS_ALL
135: where LOAN_ID = P_LOAN_ID;
136:
137: BEGIN
138: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
139: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'Received event ' || p_event.getEventName());
140:
141: /* Established savepoint */
142: SAVEPOINT Delinquency_Create;

Line 139: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'Received event ' || p_event.getEventName());

135: where LOAN_ID = P_LOAN_ID;
136:
137: BEGIN
138: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
139: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'Received event ' || p_event.getEventName());
140:
141: /* Established savepoint */
142: SAVEPOINT Delinquency_Create;
143: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Established savepoint');

Line 143: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Established savepoint');

139: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'Received event ' || p_event.getEventName());
140:
141: /* Established savepoint */
142: SAVEPOINT Delinquency_Create;
143: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Established savepoint');
144:
145: l_request_id := p_event.GetValueForParameter('REQUEST_ID');
146: l_num_del_cr := p_event.GetValueForParameter('NOOFDELCREATED');
147: l_num_del_upd := p_event.GetValueForParameter('NOOFDELUPDATED');

Line 149: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'Event parameters:');

145: l_request_id := p_event.GetValueForParameter('REQUEST_ID');
146: l_num_del_cr := p_event.GetValueForParameter('NOOFDELCREATED');
147: l_num_del_upd := p_event.GetValueForParameter('NOOFDELUPDATED');
148:
149: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'Event parameters:');
150: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'request id: ' || l_request_id);
151: LogMessage(FND_LOG.LEVEL_STATEMENT, 'number of created del: ' || l_num_del_cr);
152: LogMessage(FND_LOG.LEVEL_STATEMENT, 'number of updated del: ' || l_num_del_upd);
153:

Line 150: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'request id: ' || l_request_id);

146: l_num_del_cr := p_event.GetValueForParameter('NOOFDELCREATED');
147: l_num_del_upd := p_event.GetValueForParameter('NOOFDELUPDATED');
148:
149: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'Event parameters:');
150: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'request id: ' || l_request_id);
151: LogMessage(FND_LOG.LEVEL_STATEMENT, 'number of created del: ' || l_num_del_cr);
152: LogMessage(FND_LOG.LEVEL_STATEMENT, 'number of updated del: ' || l_num_del_upd);
153:
154: if l_request_id is not null then

Line 151: LogMessage(FND_LOG.LEVEL_STATEMENT, 'number of created del: ' || l_num_del_cr);

147: l_num_del_upd := p_event.GetValueForParameter('NOOFDELUPDATED');
148:
149: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'Event parameters:');
150: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'request id: ' || l_request_id);
151: LogMessage(FND_LOG.LEVEL_STATEMENT, 'number of created del: ' || l_num_del_cr);
152: LogMessage(FND_LOG.LEVEL_STATEMENT, 'number of updated del: ' || l_num_del_upd);
153:
154: if l_request_id is not null then
155:

Line 152: LogMessage(FND_LOG.LEVEL_STATEMENT, 'number of updated del: ' || l_num_del_upd);

148:
149: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'Event parameters:');
150: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'request id: ' || l_request_id);
151: LogMessage(FND_LOG.LEVEL_STATEMENT, 'number of created del: ' || l_num_del_cr);
152: LogMessage(FND_LOG.LEVEL_STATEMENT, 'number of updated del: ' || l_num_del_upd);
153:
154: if l_request_id is not null then
155:
156: l_count := 0;

Line 170: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Found trx #' || l_count);

166: l_cust_trx_id;
167: exit when loan_trx_cur%NOTFOUND;
168:
169: l_count := l_count + 1;
170: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Found trx #' || l_count);
171: LogMessage(FND_LOG.LEVEL_STATEMENT, 'cust_trx_id: ' || l_cust_trx_id);
172: LogMessage(FND_LOG.LEVEL_STATEMENT, 'amortization_schedule_id: ' || l_amortization_schedule_id);
173: LogMessage(FND_LOG.LEVEL_STATEMENT, 'loan_id: ' || l_loan_id);
174: LogMessage(FND_LOG.LEVEL_STATEMENT, 'loan_number: ' || l_loan_number);

Line 171: LogMessage(FND_LOG.LEVEL_STATEMENT, 'cust_trx_id: ' || l_cust_trx_id);

167: exit when loan_trx_cur%NOTFOUND;
168:
169: l_count := l_count + 1;
170: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Found trx #' || l_count);
171: LogMessage(FND_LOG.LEVEL_STATEMENT, 'cust_trx_id: ' || l_cust_trx_id);
172: LogMessage(FND_LOG.LEVEL_STATEMENT, 'amortization_schedule_id: ' || l_amortization_schedule_id);
173: LogMessage(FND_LOG.LEVEL_STATEMENT, 'loan_id: ' || l_loan_id);
174: LogMessage(FND_LOG.LEVEL_STATEMENT, 'loan_number: ' || l_loan_number);
175: LogMessage(FND_LOG.LEVEL_STATEMENT, 'org_id: ' || l_org_id);

Line 172: LogMessage(FND_LOG.LEVEL_STATEMENT, 'amortization_schedule_id: ' || l_amortization_schedule_id);

168:
169: l_count := l_count + 1;
170: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Found trx #' || l_count);
171: LogMessage(FND_LOG.LEVEL_STATEMENT, 'cust_trx_id: ' || l_cust_trx_id);
172: LogMessage(FND_LOG.LEVEL_STATEMENT, 'amortization_schedule_id: ' || l_amortization_schedule_id);
173: LogMessage(FND_LOG.LEVEL_STATEMENT, 'loan_id: ' || l_loan_id);
174: LogMessage(FND_LOG.LEVEL_STATEMENT, 'loan_number: ' || l_loan_number);
175: LogMessage(FND_LOG.LEVEL_STATEMENT, 'org_id: ' || l_org_id);
176:

Line 173: LogMessage(FND_LOG.LEVEL_STATEMENT, 'loan_id: ' || l_loan_id);

169: l_count := l_count + 1;
170: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Found trx #' || l_count);
171: LogMessage(FND_LOG.LEVEL_STATEMENT, 'cust_trx_id: ' || l_cust_trx_id);
172: LogMessage(FND_LOG.LEVEL_STATEMENT, 'amortization_schedule_id: ' || l_amortization_schedule_id);
173: LogMessage(FND_LOG.LEVEL_STATEMENT, 'loan_id: ' || l_loan_id);
174: LogMessage(FND_LOG.LEVEL_STATEMENT, 'loan_number: ' || l_loan_number);
175: LogMessage(FND_LOG.LEVEL_STATEMENT, 'org_id: ' || l_org_id);
176:
177: /* calling scoring engine to get new loan status */

Line 174: LogMessage(FND_LOG.LEVEL_STATEMENT, 'loan_number: ' || l_loan_number);

170: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Found trx #' || l_count);
171: LogMessage(FND_LOG.LEVEL_STATEMENT, 'cust_trx_id: ' || l_cust_trx_id);
172: LogMessage(FND_LOG.LEVEL_STATEMENT, 'amortization_schedule_id: ' || l_amortization_schedule_id);
173: LogMessage(FND_LOG.LEVEL_STATEMENT, 'loan_id: ' || l_loan_id);
174: LogMessage(FND_LOG.LEVEL_STATEMENT, 'loan_number: ' || l_loan_number);
175: LogMessage(FND_LOG.LEVEL_STATEMENT, 'org_id: ' || l_org_id);
176:
177: /* calling scoring engine to get new loan status */
178: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Calling collections scoring engine to get new loan status...');

Line 175: LogMessage(FND_LOG.LEVEL_STATEMENT, 'org_id: ' || l_org_id);

171: LogMessage(FND_LOG.LEVEL_STATEMENT, 'cust_trx_id: ' || l_cust_trx_id);
172: LogMessage(FND_LOG.LEVEL_STATEMENT, 'amortization_schedule_id: ' || l_amortization_schedule_id);
173: LogMessage(FND_LOG.LEVEL_STATEMENT, 'loan_id: ' || l_loan_id);
174: LogMessage(FND_LOG.LEVEL_STATEMENT, 'loan_number: ' || l_loan_number);
175: LogMessage(FND_LOG.LEVEL_STATEMENT, 'org_id: ' || l_org_id);
176:
177: /* calling scoring engine to get new loan status */
178: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Calling collections scoring engine to get new loan status...');
179:

Line 178: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Calling collections scoring engine to get new loan status...');

174: LogMessage(FND_LOG.LEVEL_STATEMENT, 'loan_number: ' || l_loan_number);
175: LogMessage(FND_LOG.LEVEL_STATEMENT, 'org_id: ' || l_org_id);
176:
177: /* calling scoring engine to get new loan status */
178: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Calling collections scoring engine to get new loan status...');
179:
180: BEGIN
181:
182: MO_GLOBAL.INIT('LNS');

Line 198: LogMessage(FND_LOG.LEVEL_ERROR, 'Collections scoring engine API is not installed. Please install it first.');

194: X_MSG_DATA => l_msg_data);
195:
196: EXCEPTION
197: WHEN OTHERS THEN
198: LogMessage(FND_LOG.LEVEL_ERROR, 'Collections scoring engine API is not installed. Please install it first.');
199: RAISE FND_API.G_EXC_ERROR;
200: END;
201:
202: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_return_status: ' || l_return_status);

Line 202: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_return_status: ' || l_return_status);

198: LogMessage(FND_LOG.LEVEL_ERROR, 'Collections scoring engine API is not installed. Please install it first.');
199: RAISE FND_API.G_EXC_ERROR;
200: END;
201:
202: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_return_status: ' || l_return_status);
203:
204: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
205:
206: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Call to collections scoring engine failed with following error:');

Line 206: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Call to collections scoring engine failed with following error:');

202: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_return_status: ' || l_return_status);
203:
204: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
205:
206: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Call to collections scoring engine failed with following error:');
207: while (l_indexNo <= l_msg_Count ) loop
208: fnd_msg_pub.get(l_indexNo, 'F', l_msg, l_index);
209: LogMessage(FND_LOG.LEVEL_UNEXPECTED, l_msg);
210: l_indexNo := l_indexNo + 1;

Line 209: LogMessage(FND_LOG.LEVEL_UNEXPECTED, l_msg);

205:
206: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Call to collections scoring engine failed with following error:');
207: while (l_indexNo <= l_msg_Count ) loop
208: fnd_msg_pub.get(l_indexNo, 'F', l_msg, l_index);
209: LogMessage(FND_LOG.LEVEL_UNEXPECTED, l_msg);
210: l_indexNo := l_indexNo + 1;
211: End Loop;
212:
213: RAISE FND_API.G_EXC_ERROR;

Line 217: LogMessage(FND_LOG.LEVEL_STATEMENT, 'New score: ' || l_score);

213: RAISE FND_API.G_EXC_ERROR;
214:
215: END IF;
216:
217: LogMessage(FND_LOG.LEVEL_STATEMENT, 'New score: ' || l_score);
218: LogMessage(FND_LOG.LEVEL_STATEMENT, 'New status: ' || l_status);
219:
220: -- updating loan header table
221: l_loan_header_rec.loan_id := l_loan_id;

Line 218: LogMessage(FND_LOG.LEVEL_STATEMENT, 'New status: ' || l_status);

214:
215: END IF;
216:
217: LogMessage(FND_LOG.LEVEL_STATEMENT, 'New score: ' || l_score);
218: LogMessage(FND_LOG.LEVEL_STATEMENT, 'New status: ' || l_status);
219:
220: -- updating loan header table
221: l_loan_header_rec.loan_id := l_loan_id;
222: l_loan_header_rec.LOAN_STATUS := l_status;

Line 229: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Updating loan header...');

225: open loan_version_cur(l_loan_header_rec.loan_id);
226: fetch loan_version_cur into l_version_number;
227: close loan_version_cur;
228:
229: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Updating loan header...');
230:
231: LNS_LOAN_HEADER_PUB.UPDATE_LOAN(P_OBJECT_VERSION_NUMBER => l_version_number,
232: P_LOAN_HEADER_REC => l_loan_header_rec,
233: P_INIT_MSG_LIST => FND_API.G_TRUE,

Line 238: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_return_status: ' || l_return_status);

234: X_RETURN_STATUS => l_return_status,
235: X_MSG_COUNT => l_msg_count,
236: X_MSG_DATA => l_msg_data);
237:
238: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_return_status: ' || l_return_status);
239:
240: IF l_return_status = 'S' THEN
241: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_LOAN_HEADERS_ALL with status ' || l_status);
242: ELSE

Line 241: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_LOAN_HEADERS_ALL with status ' || l_status);

237:
238: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_return_status: ' || l_return_status);
239:
240: IF l_return_status = 'S' THEN
241: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_LOAN_HEADERS_ALL with status ' || l_status);
242: ELSE
243: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_LOAN_FAIL');
244: FND_MSG_PUB.Add;
245: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));

Line 245: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));

241: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_LOAN_HEADERS_ALL with status ' || l_status);
242: ELSE
243: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_LOAN_FAIL');
244: FND_MSG_PUB.Add;
245: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
246: RAISE FND_API.G_EXC_ERROR;
247: END IF;
248:
249: END LOOP;

Line 258: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Commited');

254:
255: -- commiting
256: if l_count > 0 then
257: COMMIT WORK;
258: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Commited');
259: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Total processed ' || l_count || ' transactions');
260: else
261: LogMessage(FND_LOG.LEVEL_STATEMENT, 'No loan invoices found - no actions will be performed');
262: end if;

Line 259: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Total processed ' || l_count || ' transactions');

255: -- commiting
256: if l_count > 0 then
257: COMMIT WORK;
258: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Commited');
259: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Total processed ' || l_count || ' transactions');
260: else
261: LogMessage(FND_LOG.LEVEL_STATEMENT, 'No loan invoices found - no actions will be performed');
262: end if;
263:

Line 261: LogMessage(FND_LOG.LEVEL_STATEMENT, 'No loan invoices found - no actions will be performed');

257: COMMIT WORK;
258: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Commited');
259: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Total processed ' || l_count || ' transactions');
260: else
261: LogMessage(FND_LOG.LEVEL_STATEMENT, 'No loan invoices found - no actions will be performed');
262: end if;
263:
264: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully processed event ' || p_event.getEventName());
265: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' -');

Line 264: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully processed event ' || p_event.getEventName());

260: else
261: LogMessage(FND_LOG.LEVEL_STATEMENT, 'No loan invoices found - no actions will be performed');
262: end if;
263:
264: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully processed event ' || p_event.getEventName());
265: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' -');
266: RETURN 'SUCCESS';
267:
268: EXCEPTION

Line 265: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' -');

261: LogMessage(FND_LOG.LEVEL_STATEMENT, 'No loan invoices found - no actions will be performed');
262: end if;
263:
264: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully processed event ' || p_event.getEventName());
265: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' -');
266: RETURN 'SUCCESS';
267:
268: EXCEPTION
269: WHEN OTHERS THEN

Line 274: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Failed to process event ' || p_event.getEventName());

270: ROLLBACK TO Delinquency_Create;
271:
272: WF_CORE.CONTEXT('LNS_BUS_EVENT_SUB_PVT', 'Delinquency_Create', p_event.getEventName(), p_subscription_guid);
273: WF_EVENT.setErrorInfo(p_event, 'ERROR');
274: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Failed to process event ' || p_event.getEventName());
275:
276: RETURN 'ERROR';
277:
278: END Delinquency_Create;

Line 284: G_MSG_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;

280:
281: BEGIN
282:
283: G_LOG_ENABLED := 'N';
284: G_MSG_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
285:
286: /* getting msg logging info */
287: G_LOG_ENABLED := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'), 'N');
288: /*

Line 290: G_MSG_LEVEL := FND_LOG.LEVEL_UNEXPECTED;

286: /* getting msg logging info */
287: G_LOG_ENABLED := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'), 'N');
288: /*
289: if (G_LOG_ENABLED = 'N') then
290: G_MSG_LEVEL := FND_LOG.LEVEL_UNEXPECTED;
291: else
292: G_MSG_LEVEL := NVL(to_number(FND_PROFILE.VALUE('AFLOG_LEVEL')), FND_LOG.LEVEL_UNEXPECTED);
293: end if;
294: */

Line 292: G_MSG_LEVEL := NVL(to_number(FND_PROFILE.VALUE('AFLOG_LEVEL')), FND_LOG.LEVEL_UNEXPECTED);

288: /*
289: if (G_LOG_ENABLED = 'N') then
290: G_MSG_LEVEL := FND_LOG.LEVEL_UNEXPECTED;
291: else
292: G_MSG_LEVEL := NVL(to_number(FND_PROFILE.VALUE('AFLOG_LEVEL')), FND_LOG.LEVEL_UNEXPECTED);
293: end if;
294: */
295: LogMessage(FND_LOG.LEVEL_STATEMENT, 'G_LOG_ENABLED: ' || G_LOG_ENABLED);
296: LogMessage(FND_LOG.LEVEL_STATEMENT, 'G_MSG_LEVEL: ' || G_MSG_LEVEL);

Line 295: LogMessage(FND_LOG.LEVEL_STATEMENT, 'G_LOG_ENABLED: ' || G_LOG_ENABLED);

291: else
292: G_MSG_LEVEL := NVL(to_number(FND_PROFILE.VALUE('AFLOG_LEVEL')), FND_LOG.LEVEL_UNEXPECTED);
293: end if;
294: */
295: LogMessage(FND_LOG.LEVEL_STATEMENT, 'G_LOG_ENABLED: ' || G_LOG_ENABLED);
296: LogMessage(FND_LOG.LEVEL_STATEMENT, 'G_MSG_LEVEL: ' || G_MSG_LEVEL);
297:
298: END LNS_BUS_EVENT_SUB_PVT; -- Package body

Line 296: LogMessage(FND_LOG.LEVEL_STATEMENT, 'G_MSG_LEVEL: ' || G_MSG_LEVEL);

292: G_MSG_LEVEL := NVL(to_number(FND_PROFILE.VALUE('AFLOG_LEVEL')), FND_LOG.LEVEL_UNEXPECTED);
293: end if;
294: */
295: LogMessage(FND_LOG.LEVEL_STATEMENT, 'G_LOG_ENABLED: ' || G_LOG_ENABLED);
296: LogMessage(FND_LOG.LEVEL_STATEMENT, 'G_MSG_LEVEL: ' || G_MSG_LEVEL);
297:
298: END LNS_BUS_EVENT_SUB_PVT; -- Package body