21: is
22:
23: begin
24:
25: IF log_level >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
26: FND_LOG.STRING(log_level, module, message);
27: if FND_GLOBAL.Conc_Request_Id is not null then
28: fnd_file.put_line(FND_FILE.LOG, message);
29: end if;
22:
23: begin
24:
25: IF log_level >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
26: FND_LOG.STRING(log_level, module, message);
27: if FND_GLOBAL.Conc_Request_Id is not null then
28: fnd_file.put_line(FND_FILE.LOG, message);
29: end if;
30: END IF;
124:
125: begin
126:
127: l_api_name := 'create_event';
128: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
129:
130: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Input:');
131: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan_id = ' || p_loan_id);
132: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_disb_header_id = ' || p_disb_header_id);
126:
127: l_api_name := 'create_event';
128: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
129:
130: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Input:');
131: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan_id = ' || p_loan_id);
132: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_disb_header_id = ' || p_disb_header_id);
133: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_event_type_code = ' || p_event_type_code);
134: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_event_date = ' || p_event_date);
127: l_api_name := 'create_event';
128: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
129:
130: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Input:');
131: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan_id = ' || p_loan_id);
132: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_disb_header_id = ' || p_disb_header_id);
133: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_event_type_code = ' || p_event_type_code);
134: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_event_date = ' || p_event_date);
135: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_event_status = ' || p_event_status);
128: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
129:
130: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Input:');
131: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan_id = ' || p_loan_id);
132: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_disb_header_id = ' || p_disb_header_id);
133: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_event_type_code = ' || p_event_type_code);
134: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_event_date = ' || p_event_date);
135: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_event_status = ' || p_event_status);
136: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_bc_flag = ' || p_bc_flag);
129:
130: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Input:');
131: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan_id = ' || p_loan_id);
132: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_disb_header_id = ' || p_disb_header_id);
133: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_event_type_code = ' || p_event_type_code);
134: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_event_date = ' || p_event_date);
135: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_event_status = ' || p_event_status);
136: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_bc_flag = ' || p_bc_flag);
137:
130: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Input:');
131: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan_id = ' || p_loan_id);
132: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_disb_header_id = ' || p_disb_header_id);
133: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_event_type_code = ' || p_event_type_code);
134: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_event_date = ' || p_event_date);
135: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_event_status = ' || p_event_status);
136: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_bc_flag = ' || p_bc_flag);
137:
138: -- Standard Start of API savepoint
131: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan_id = ' || p_loan_id);
132: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_disb_header_id = ' || p_disb_header_id);
133: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_event_type_code = ' || p_event_type_code);
134: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_event_date = ' || p_event_date);
135: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_event_status = ' || p_event_status);
136: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_bc_flag = ' || p_bc_flag);
137:
138: -- Standard Start of API savepoint
139: SAVEPOINT create_event;
132: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_disb_header_id = ' || p_disb_header_id);
133: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_event_type_code = ' || p_event_type_code);
134: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_event_date = ' || p_event_date);
135: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_event_status = ' || p_event_status);
136: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_bc_flag = ' || p_bc_flag);
137:
138: -- Standard Start of API savepoint
139: SAVEPOINT create_event;
140:
157: open c_sob_id;
158: fetch c_sob_id into l_sob_id;
159: close c_sob_id;
160:
161: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_number = ' || l_loan_number);
162: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_legal_entity_id = ' || l_legal_entity_id);
163: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_sob_id = ' || l_sob_id);
164:
165: -- force caller to pass disbursement_id
158: fetch c_sob_id into l_sob_id;
159: close c_sob_id;
160:
161: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_number = ' || l_loan_number);
162: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_legal_entity_id = ' || l_legal_entity_id);
163: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_sob_id = ' || l_sob_id);
164:
165: -- force caller to pass disbursement_id
166: if p_disb_header_id is null then
159: close c_sob_id;
160:
161: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_number = ' || l_loan_number);
162: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_legal_entity_id = ' || l_legal_entity_id);
163: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_sob_id = ' || l_sob_id);
164:
165: -- force caller to pass disbursement_id
166: if p_disb_header_id is null then
167: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
179: l_loan_details.transaction_number := l_loan_number;
180: l_loan_details.source_id_int_2 := p_disb_header_id; -- disb_header_id
181: l_loan_details.source_application_id := 206; -- XLA registered application
182:
183: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_details.source_id_int_1 = ' || l_loan_details.source_id_int_1);
184: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_details.source_id_int_2 = ' || l_loan_details.source_id_int_2);
185: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_details.transaction_number = ' || l_loan_details.transaction_number);
186: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_details.source_application_id = ' || l_loan_details.source_application_id);
187: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_details.entity_type_code = ' || l_loan_details.entity_type_code);
180: l_loan_details.source_id_int_2 := p_disb_header_id; -- disb_header_id
181: l_loan_details.source_application_id := 206; -- XLA registered application
182:
183: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_details.source_id_int_1 = ' || l_loan_details.source_id_int_1);
184: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_details.source_id_int_2 = ' || l_loan_details.source_id_int_2);
185: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_details.transaction_number = ' || l_loan_details.transaction_number);
186: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_details.source_application_id = ' || l_loan_details.source_application_id);
187: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_details.entity_type_code = ' || l_loan_details.entity_type_code);
188:
181: l_loan_details.source_application_id := 206; -- XLA registered application
182:
183: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_details.source_id_int_1 = ' || l_loan_details.source_id_int_1);
184: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_details.source_id_int_2 = ' || l_loan_details.source_id_int_2);
185: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_details.transaction_number = ' || l_loan_details.transaction_number);
186: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_details.source_application_id = ' || l_loan_details.source_application_id);
187: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_details.entity_type_code = ' || l_loan_details.entity_type_code);
188:
189:
182:
183: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_details.source_id_int_1 = ' || l_loan_details.source_id_int_1);
184: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_details.source_id_int_2 = ' || l_loan_details.source_id_int_2);
185: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_details.transaction_number = ' || l_loan_details.transaction_number);
186: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_details.source_application_id = ' || l_loan_details.source_application_id);
187: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_details.entity_type_code = ' || l_loan_details.entity_type_code);
188:
189:
190: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Checking if event already exists...');
183: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_details.source_id_int_1 = ' || l_loan_details.source_id_int_1);
184: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_details.source_id_int_2 = ' || l_loan_details.source_id_int_2);
185: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_details.transaction_number = ' || l_loan_details.transaction_number);
186: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_details.source_application_id = ' || l_loan_details.source_application_id);
187: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_details.entity_type_code = ' || l_loan_details.entity_type_code);
188:
189:
190: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Checking if event already exists...');
191: l_event_exists := xla_events_pub_pkg.event_exists (p_event_source_info => l_loan_details
186: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_details.source_application_id = ' || l_loan_details.source_application_id);
187: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_details.entity_type_code = ' || l_loan_details.entity_type_code);
188:
189:
190: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Checking if event already exists...');
191: l_event_exists := xla_events_pub_pkg.event_exists (p_event_source_info => l_loan_details
192: ,p_event_type_code => p_event_type_code
193: ,p_valuation_method => null
194: ,p_security_context => l_security_context);
192: ,p_event_type_code => p_event_type_code
193: ,p_valuation_method => null
194: ,p_security_context => l_security_context);
195: if not l_event_exists then
196: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Event doesnt exist');
197: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling XLA_EVENTS_PUB_PKG.create_event...');
198: x_event_id := XLA_EVENTS_PUB_PKG.create_event(p_event_source_info => l_loan_details
199: ,p_event_type_code => p_event_type_code -- event type code
200: ,p_event_date => p_event_date -- gl date
193: ,p_valuation_method => null
194: ,p_security_context => l_security_context);
195: if not l_event_exists then
196: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Event doesnt exist');
197: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling XLA_EVENTS_PUB_PKG.create_event...');
198: x_event_id := XLA_EVENTS_PUB_PKG.create_event(p_event_source_info => l_loan_details
199: ,p_event_type_code => p_event_type_code -- event type code
200: ,p_event_date => p_event_date -- gl date
201: ,p_event_status_code => p_event_status -- event status
203: ,p_reference_info => null
204: ,p_valuation_method => null
205: ,p_security_context => l_security_context
206: ,p_budgetary_control_flag => p_bc_flag);
207: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'x_event_id = ' || x_event_id);
208: if x_event_id is null then
209: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
210: FND_MESSAGE.SET_TOKEN('ERROR' ,'Failed to create Loans XLA event ' || p_event_type_code);
211: FND_MSG_PUB.ADD;
208: if x_event_id is null then
209: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
210: FND_MESSAGE.SET_TOKEN('ERROR' ,'Failed to create Loans XLA event ' || p_event_type_code);
211: FND_MSG_PUB.ADD;
212: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
213: RAISE FND_API.G_EXC_ERROR;
214: end if;
215: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Successfully created Loans XLA event ' || p_event_type_code);
216: else
211: FND_MSG_PUB.ADD;
212: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
213: RAISE FND_API.G_EXC_ERROR;
214: end if;
215: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Successfully created Loans XLA event ' || p_event_type_code);
216: else
217: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Event already exists');
218:
219: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Querying event_id...');
213: RAISE FND_API.G_EXC_ERROR;
214: end if;
215: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Successfully created Loans XLA event ' || p_event_type_code);
216: else
217: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Event already exists');
218:
219: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Querying event_id...');
220: OPEN C_Get_Event (p_application_id => l_loan_details.application_id,
221: p_ledger_id => l_sob_id,
215: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Successfully created Loans XLA event ' || p_event_type_code);
216: else
217: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Event already exists');
218:
219: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Querying event_id...');
220: OPEN C_Get_Event (p_application_id => l_loan_details.application_id,
221: p_ledger_id => l_sob_id,
222: p_entity_type_code => l_loan_details.entity_type_code,
223: p_source_id_int_1 => l_loan_details.source_id_int_1,
224: p_source_id_int_2 => l_loan_details.source_id_int_2,
225: p_valuation_method => null);
226: fetch C_Get_Event into x_event_id;
227: CLOSE C_Get_Event;
228: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'x_event_id = ' || x_event_id);
229:
230: if x_event_id is null then
231: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
232: FND_MESSAGE.SET_TOKEN('ERROR' ,'Failed to find Loans XLA event ' || p_event_type_code);
230: if x_event_id is null then
231: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
232: FND_MESSAGE.SET_TOKEN('ERROR' ,'Failed to find Loans XLA event ' || p_event_type_code);
233: FND_MSG_PUB.ADD;
234: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
235: RAISE FND_API.G_EXC_ERROR;
236: end if;
237: end if;
238:
240: -- End of API body
241: -- ---------------------------------------------------------------------
242: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
243:
244: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
245:
246: EXCEPTION
247: WHEN FND_API.G_EXC_ERROR THEN
248: x_return_status := FND_API.G_RET_STS_ERROR;
248: x_return_status := FND_API.G_RET_STS_ERROR;
249: x_msg_count := l_msg_count;
250: x_msg_data := l_msg_data;
251: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
252: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
253: ROLLBACK TO create_event;
254:
255: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
256: x_return_status := FND_API.G_RET_STS_ERROR;
256: x_return_status := FND_API.G_RET_STS_ERROR;
257: x_msg_count := l_msg_count;
258: x_msg_data := l_msg_data;
259: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
260: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
261: ROLLBACK TO create_event;
262:
263: WHEN OTHERS THEN
264: x_return_status := FND_API.G_RET_STS_ERROR;
264: x_return_status := FND_API.G_RET_STS_ERROR;
265: x_msg_count := l_msg_count;
266: x_msg_data := l_msg_data;
267: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
268: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
269: ROLLBACK TO create_event;
270:
271: end create_event;
272:
333: where sb.set_of_books_id = so.set_of_books_id;
334:
335: begin
336: l_api_name := 'update_event';
337: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
338: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Input:');
339: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'event_id ' || p_event_id);
340: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_event_type_code ' || p_event_type_code);
341: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_event_date ' || p_event_date);
334:
335: begin
336: l_api_name := 'update_event';
337: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
338: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Input:');
339: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'event_id ' || p_event_id);
340: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_event_type_code ' || p_event_type_code);
341: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_event_date ' || p_event_date);
342: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_event_status ' || p_event_status);
335: begin
336: l_api_name := 'update_event';
337: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
338: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Input:');
339: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'event_id ' || p_event_id);
340: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_event_type_code ' || p_event_type_code);
341: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_event_date ' || p_event_date);
342: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_event_status ' || p_event_status);
343:
336: l_api_name := 'update_event';
337: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
338: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Input:');
339: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'event_id ' || p_event_id);
340: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_event_type_code ' || p_event_type_code);
341: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_event_date ' || p_event_date);
342: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_event_status ' || p_event_status);
343:
344: -- Standard Start of API savepoint
337: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
338: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Input:');
339: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'event_id ' || p_event_id);
340: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_event_type_code ' || p_event_type_code);
341: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_event_date ' || p_event_date);
342: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_event_status ' || p_event_status);
343:
344: -- Standard Start of API savepoint
345: SAVEPOINT update_event;
338: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Input:');
339: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'event_id ' || p_event_id);
340: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_event_type_code ' || p_event_type_code);
341: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_event_date ' || p_event_date);
342: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_event_status ' || p_event_status);
343:
344: -- Standard Start of API savepoint
345: SAVEPOINT update_event;
346:
362: open c_sob_id;
363: fetch c_sob_id into l_sob_id;
364: close c_sob_id;
365:
366: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_legal_entity_id = ' || l_legal_entity_id);
367: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_sob_id = ' || l_sob_id);
368:
369: -- initialize any variables here
370: l_loan_details.application_id := 206; -- XLA registered application
363: fetch c_sob_id into l_sob_id;
364: close c_sob_id;
365:
366: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_legal_entity_id = ' || l_legal_entity_id);
367: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_sob_id = ' || l_sob_id);
368:
369: -- initialize any variables here
370: l_loan_details.application_id := 206; -- XLA registered application
371: l_loan_details.legal_entity_id := l_legal_entity_id; --
373: l_loan_details.source_id_int_1 := p_loan_id; -- loan_id
374: l_loan_details.entity_type_code := 'LOANS';
375: l_loan_details.source_id_int_2 := p_disb_header_id; -- loan_id
376:
377: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_details.source_id_int_1 = ' || l_loan_details.source_id_int_1);
378: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_details.source_id_int_2 = ' || l_loan_details.source_id_int_2);
379: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_details.entity_type_code = ' || l_loan_details.entity_type_code);
380:
381: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling XLA_EVENTS_PUB_PKG.Update_event...');
374: l_loan_details.entity_type_code := 'LOANS';
375: l_loan_details.source_id_int_2 := p_disb_header_id; -- loan_id
376:
377: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_details.source_id_int_1 = ' || l_loan_details.source_id_int_1);
378: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_details.source_id_int_2 = ' || l_loan_details.source_id_int_2);
379: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_details.entity_type_code = ' || l_loan_details.entity_type_code);
380:
381: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling XLA_EVENTS_PUB_PKG.Update_event...');
382: XLA_EVENTS_PUB_PKG.Update_event(p_event_source_info => l_loan_details
375: l_loan_details.source_id_int_2 := p_disb_header_id; -- loan_id
376:
377: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_details.source_id_int_1 = ' || l_loan_details.source_id_int_1);
378: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_details.source_id_int_2 = ' || l_loan_details.source_id_int_2);
379: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_details.entity_type_code = ' || l_loan_details.entity_type_code);
380:
381: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling XLA_EVENTS_PUB_PKG.Update_event...');
382: XLA_EVENTS_PUB_PKG.Update_event(p_event_source_info => l_loan_details
383: ,p_event_id => p_event_id
377: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_details.source_id_int_1 = ' || l_loan_details.source_id_int_1);
378: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_details.source_id_int_2 = ' || l_loan_details.source_id_int_2);
379: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_details.entity_type_code = ' || l_loan_details.entity_type_code);
380:
381: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling XLA_EVENTS_PUB_PKG.Update_event...');
382: XLA_EVENTS_PUB_PKG.Update_event(p_event_source_info => l_loan_details
383: ,p_event_id => p_event_id
384: ,p_event_type_code => p_event_type_code
385: ,p_event_date => p_event_date
391: -- End of API body
392: -- ---------------------------------------------------------------------
393: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
394:
395: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
396:
397: EXCEPTION
398: WHEN FND_API.G_EXC_ERROR THEN
399: x_return_status := FND_API.G_RET_STS_ERROR;
399: x_return_status := FND_API.G_RET_STS_ERROR;
400: x_msg_count := l_msg_count;
401: x_msg_data := l_msg_data;
402: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
403: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
404: ROLLBACK TO update_event;
405:
406: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
407: x_return_status := FND_API.G_RET_STS_ERROR;
407: x_return_status := FND_API.G_RET_STS_ERROR;
408: x_msg_count := l_msg_count;
409: x_msg_data := l_msg_data;
410: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
411: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
412: ROLLBACK TO update_event;
413:
414: WHEN OTHERS THEN
415: x_return_status := FND_API.G_RET_STS_ERROR;
415: x_return_status := FND_API.G_RET_STS_ERROR;
416: x_msg_count := l_msg_count;
417: x_msg_data := l_msg_data;
418: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
419: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
420: ROLLBACK TO update_event;
421:
422: end update_event;
423:
474: l_sob_id number;
475:
476: begin
477: l_api_name := 'delete_event';
478: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
479: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - event_id ' || p_event_id);
480:
481: -- Standard Start of API savepoint
482: SAVEPOINT delete_event;
475:
476: begin
477: l_api_name := 'delete_event';
478: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
479: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - event_id ' || p_event_id);
480:
481: -- Standard Start of API savepoint
482: SAVEPOINT delete_event;
483:
500: open c_sob_id;
501: fetch c_sob_id into l_sob_id;
502: close c_sob_id;
503:
504: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_legal_entity_id = ' || l_legal_entity_id);
505: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_sob_id = ' || l_sob_id);
506:
507: -- initialize any variables here
508: l_loan_details.application_id := 206; -- XLA registered application
501: fetch c_sob_id into l_sob_id;
502: close c_sob_id;
503:
504: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_legal_entity_id = ' || l_legal_entity_id);
505: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_sob_id = ' || l_sob_id);
506:
507: -- initialize any variables here
508: l_loan_details.application_id := 206; -- XLA registered application
509: l_loan_details.legal_entity_id := l_legal_entity_id; --
511: l_loan_details.source_id_int_1 := p_loan_id; -- loan_id
512: l_loan_details.entity_type_code := 'LOANS';
513: l_loan_details.source_id_int_2 := p_disb_header_id; -- loan_id
514:
515: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_details.source_id_int_1 = ' || l_loan_details.source_id_int_1);
516: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_details.source_id_int_2 = ' || l_loan_details.source_id_int_2);
517: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_details.entity_type_code = ' || l_loan_details.entity_type_code);
518:
519: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling XLA_EVENTS_PUB_PKG.delete_event...');
512: l_loan_details.entity_type_code := 'LOANS';
513: l_loan_details.source_id_int_2 := p_disb_header_id; -- loan_id
514:
515: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_details.source_id_int_1 = ' || l_loan_details.source_id_int_1);
516: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_details.source_id_int_2 = ' || l_loan_details.source_id_int_2);
517: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_details.entity_type_code = ' || l_loan_details.entity_type_code);
518:
519: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling XLA_EVENTS_PUB_PKG.delete_event...');
520: XLA_EVENTS_PUB_PKG.delete_event
513: l_loan_details.source_id_int_2 := p_disb_header_id; -- loan_id
514:
515: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_details.source_id_int_1 = ' || l_loan_details.source_id_int_1);
516: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_details.source_id_int_2 = ' || l_loan_details.source_id_int_2);
517: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_details.entity_type_code = ' || l_loan_details.entity_type_code);
518:
519: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling XLA_EVENTS_PUB_PKG.delete_event...');
520: XLA_EVENTS_PUB_PKG.delete_event
521: (p_event_source_info => l_loan_details
515: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_details.source_id_int_1 = ' || l_loan_details.source_id_int_1);
516: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_details.source_id_int_2 = ' || l_loan_details.source_id_int_2);
517: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_details.entity_type_code = ' || l_loan_details.entity_type_code);
518:
519: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling XLA_EVENTS_PUB_PKG.delete_event...');
520: XLA_EVENTS_PUB_PKG.delete_event
521: (p_event_source_info => l_loan_details
522: ,p_event_id => p_event_id
523: ,p_valuation_method => null
527: -- End of API body
528: -- ---------------------------------------------------------------------
529: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
530:
531: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
532:
533: EXCEPTION
534: WHEN FND_API.G_EXC_ERROR THEN
535: x_return_status := FND_API.G_RET_STS_ERROR;
535: x_return_status := FND_API.G_RET_STS_ERROR;
536: x_msg_count := l_msg_count;
537: x_msg_data := l_msg_data;
538: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
539: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
540: ROLLBACK TO delete_event;
541:
542: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
543: x_return_status := FND_API.G_RET_STS_ERROR;
543: x_return_status := FND_API.G_RET_STS_ERROR;
544: x_msg_count := l_msg_count;
545: x_msg_data := l_msg_data;
546: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
547: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
548: ROLLBACK TO delete_event;
549:
550: WHEN OTHERS THEN
551: x_return_status := FND_API.G_RET_STS_ERROR;
551: x_return_status := FND_API.G_RET_STS_ERROR;
552: x_msg_count := l_msg_count;
553: x_msg_data := l_msg_data;
554: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
555: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
556: ROLLBACK TO delete_event;
557:
558: end delete_event;
559: