[Home] [Help]
25: is
26:
27: begin
28:
29: IF log_level >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
30: FND_LOG.STRING(log_level, module, message);
31: if FND_GLOBAL.Conc_Request_Id is not null then
32: fnd_file.put_line(FND_FILE.LOG, message);
33: end if;
26:
27: begin
28:
29: IF log_level >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
30: FND_LOG.STRING(log_level, module, message);
31: if FND_GLOBAL.Conc_Request_Id is not null then
32: fnd_file.put_line(FND_FILE.LOG, message);
33: end if;
34: END IF;
91: begin
92:
93: SAVEPOINT cancel_disbursements;
94: l_api_name := 'cancel_disbursements';
95: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
96: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id ' || p_loan_id);
97:
98: -- Initialize message list IF p_init_msg_list is set to TRUE.
99: IF FND_API.to_Boolean( p_init_msg_list ) THEN
92:
93: SAVEPOINT cancel_disbursements;
94: l_api_name := 'cancel_disbursements';
95: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
96: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id ' || p_loan_id);
97:
98: -- Initialize message list IF p_init_msg_list is set to TRUE.
99: IF FND_API.to_Boolean( p_init_msg_list ) THEN
100: FND_MSG_PUB.initialize;
103: -- Initialize API return status to SUCCESS
104: x_return_status := FND_API.G_RET_STS_SUCCESS;
105:
106: -- first complete accounting for any unprocessed events / documents for the loan transaction
107: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling lns_distributions_pub.onlineAccounting...');
108: lns_distributions_pub.onlineAccounting(p_loan_id => p_loan_id
109: ,p_init_msg_list => fnd_api.g_false
110: ,p_accounting_mode => 'F'
111: ,p_transfer_flag => 'Y'
113: ,p_gl_posting_flag => 'N'
114: ,x_return_status => l_return_status
115: ,x_msg_count => l_msg_count
116: ,x_msg_data => l_msg_data);
117: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_return_status = ' || l_return_status);
118: if l_return_status <> 'S' then
119: RAISE FND_API.G_EXC_ERROR;
120: end if;
121:
120: end if;
121:
122:
123:
124: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fetching l_disbusement_id ');
125: open c_disbursements(p_loan_id);
126: fetch c_disbursements into l_disbursement_id;
127: close c_disbursements;
128: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || 'l_disbusement_id ' || l_disbursement_id);
124: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fetching l_disbusement_id ');
125: open c_disbursements(p_loan_id);
126: fetch c_disbursements into l_disbursement_id;
127: close c_disbursements;
128: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || 'l_disbusement_id ' || l_disbursement_id);
129:
130: if (lns_utility_pub.IS_FED_FIN_ENABLED = 'Y' OR LNS_UTILITY_PUB.IS_ENCUM_FIN_ENABLED = 'Y') then
131:
132: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Invoking LNS_DISTRIBUTIONS_PUB.generateCancelDistributions...');
128: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || 'l_disbusement_id ' || l_disbursement_id);
129:
130: if (lns_utility_pub.IS_FED_FIN_ENABLED = 'Y' OR LNS_UTILITY_PUB.IS_ENCUM_FIN_ENABLED = 'Y') then
131:
132: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Invoking LNS_DISTRIBUTIONS_PUB.generateCancelDistributions...');
133: LNS_DISTRIBUTIONS_PUB.generateCancelDistributions(p_api_version => 1
134: ,p_init_msg_list => 'F'
135: ,p_commit => 'F'
136: ,p_loan_id => p_loan_id
137: ,x_return_status => l_return_status
138: ,x_msg_count => l_msg_count
139: ,x_msg_data => l_msg_data);
140:
141: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'GenerateCancelDistribs - l_return_status = ' || l_return_status);
142:
143: IF l_return_status <> 'S' THEN
144: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' generateCancelDistributions failed with error '||l_msg_data);
145: RAISE FND_API.G_EXC_ERROR;
140:
141: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'GenerateCancelDistribs - l_return_status = ' || l_return_status);
142:
143: IF l_return_status <> 'S' THEN
144: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' generateCancelDistributions failed with error '||l_msg_data);
145: RAISE FND_API.G_EXC_ERROR;
146: END IF;
147:
148: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'federal enabled');
144: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' generateCancelDistributions failed with error '||l_msg_data);
145: RAISE FND_API.G_EXC_ERROR;
146: END IF;
147:
148: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'federal enabled');
149: open c_budget_req(p_loan_id);
150: fetch c_budget_req into l_budget_req_approval, l_funds_reserved_flag, l_gl_date;
151: close c_budget_req;
152: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_budget_req_approval ' || l_budget_req_approval);
148: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'federal enabled');
149: open c_budget_req(p_loan_id);
150: fetch c_budget_req into l_budget_req_approval, l_funds_reserved_flag, l_gl_date;
151: close c_budget_req;
152: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_budget_req_approval ' || l_budget_req_approval);
153: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_funds_reserved_flag ' || l_funds_reserved_flag);
154:
155: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling LNS_XLA_EVENTS.create_event...');
156:
149: open c_budget_req(p_loan_id);
150: fetch c_budget_req into l_budget_req_approval, l_funds_reserved_flag, l_gl_date;
151: close c_budget_req;
152: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_budget_req_approval ' || l_budget_req_approval);
153: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_funds_reserved_flag ' || l_funds_reserved_flag);
154:
155: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling LNS_XLA_EVENTS.create_event...');
156:
157: LNS_XLA_EVENTS.create_event(p_loan_id => p_loan_id
151: close c_budget_req;
152: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_budget_req_approval ' || l_budget_req_approval);
153: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_funds_reserved_flag ' || l_funds_reserved_flag);
154:
155: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling LNS_XLA_EVENTS.create_event...');
156:
157: LNS_XLA_EVENTS.create_event(p_loan_id => p_loan_id
158: ,p_disb_header_id => -1
159: ,p_loan_amount_adj_id => -1
166: ,x_event_id => l_event_id
167: ,x_return_status => l_return_status
168: ,x_msg_count => l_msg_count
169: ,x_msg_data => l_msg_data);
170: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_return_status = ' || l_return_status);
171: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_event_id = ' || l_event_id);
172:
173: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
174: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACCOUNTING_EVENT_ERROR');
167: ,x_return_status => l_return_status
168: ,x_msg_count => l_msg_count
169: ,x_msg_data => l_msg_data);
170: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_return_status = ' || l_return_status);
171: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_event_id = ' || l_event_id);
172:
173: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
174: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACCOUNTING_EVENT_ERROR');
175: FND_MSG_PUB.ADD;
172:
173: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
174: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACCOUNTING_EVENT_ERROR');
175: FND_MSG_PUB.ADD;
176: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
177: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
178: END IF;
179:
180: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'stamping new event_id on distributions');
176: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
177: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
178: END IF;
179:
180: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'stamping new event_id on distributions');
181: update lns_distributions
182: set event_id = l_event_id
183: ,last_update_date = sysdate
184: ,object_Version_number = object_version_number + 1
185: where distribution_type = 'ORIGINATION'
186: and loan_id = p_loan_id
187: and activity = 'LNS_REMAIN_DISB_CANCEL';
188:
189: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Updated event_id '||l_event_id||' succesfully for '||SQL%ROWCOUNT||' rows');
190:
191: if (l_funds_reserved_flag = 'Y') then
192:
193: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'inserting into PSA_BC_XLA_EVENTS_GT - event => ' || l_event_id);
189: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Updated event_id '||l_event_id||' succesfully for '||SQL%ROWCOUNT||' rows');
190:
191: if (l_funds_reserved_flag = 'Y') then
192:
193: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'inserting into PSA_BC_XLA_EVENTS_GT - event => ' || l_event_id);
194: insert into PSA_BC_XLA_EVENTS_GT (event_id, result_code)
195: values (l_event_id, 'FAIL');
196:
197: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling PSA_BC_XLA_PUB.Budgetary_Control ' || l_event_id);
193: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'inserting into PSA_BC_XLA_EVENTS_GT - event => ' || l_event_id);
194: insert into PSA_BC_XLA_EVENTS_GT (event_id, result_code)
195: values (l_event_id, 'FAIL');
196:
197: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling PSA_BC_XLA_PUB.Budgetary_Control ' || l_event_id);
198: -- always pass P_BC_MODE = reserve as per shaniqua williams
199: PSA_BC_XLA_PUB.Budgetary_Control(p_api_version => 1.0
200: ,p_init_msg_list => FND_API.G_FALSE
201: ,x_return_status => l_return_status
208: ,p_user_resp_id => null
209: ,x_status_code => l_status_code
210: ,x_packet_ID => l_packet_id);
211:
212: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' BC status is = ' || l_return_status);
213: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' l_status_code = ' || l_status_code);
214: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' l_packet_id = ' || l_packet_id);
215:
216: -- we want to commit ONLY in the case of SUCCESS or ADVISORY
209: ,x_status_code => l_status_code
210: ,x_packet_ID => l_packet_id);
211:
212: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' BC status is = ' || l_return_status);
213: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' l_status_code = ' || l_status_code);
214: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' l_packet_id = ' || l_packet_id);
215:
216: -- we want to commit ONLY in the case of SUCCESS or ADVISORY
217: if (l_return_status <> 'S') then
210: ,x_packet_ID => l_packet_id);
211:
212: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' BC status is = ' || l_return_status);
213: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' l_status_code = ' || l_status_code);
214: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' l_packet_id = ' || l_packet_id);
215:
216: -- we want to commit ONLY in the case of SUCCESS or ADVISORY
217: if (l_return_status <> 'S') then
218:
219: x_return_status := FND_API.G_RET_STS_ERROR;
220: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
221: FND_MESSAGE.SET_TOKEN('ERROR' ,'Call to PSA_BC_XLA_PUB.Budgetary_Control failed with Status Code = ' || l_status_code);
222: FND_MSG_PUB.ADD;
223: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
224: RAISE FND_API.G_EXC_ERROR;
225:
226: else
227: -- caller handle success status
238: THEN
239: COMMIT WORK;
240: END IF;
241:
242: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
243:
244: EXCEPTION
245:
246: WHEN FND_API.G_EXC_ERROR THEN
245:
246: WHEN FND_API.G_EXC_ERROR THEN
247: ROLLBACK TO cancel_disbursements;
248: x_return_status := FND_API.G_RET_STS_ERROR;
249: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
250: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
251:
252: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
253: ROLLBACK TO cancel_disbursements;
251:
252: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
253: ROLLBACK TO cancel_disbursements;
254: x_return_status := FND_API.G_RET_STS_ERROR;
255: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
256: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
257:
258: WHEN OTHERS THEN
259: ROLLBACK TO cancel_disbursements;
257:
258: WHEN OTHERS THEN
259: ROLLBACK TO cancel_disbursements;
260: x_return_status := FND_API.G_RET_STS_ERROR;
261: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
262: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
263:
264: end cancel_disbursements;
265:
341: l_application_id := 206;
342: l_event_flag := 'E';
343: l_api_name := 'generate_bc_report';
344:
345: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
346: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id ' || p_loan_id);
347: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_amount_adj_id ' || p_loan_amount_adj_id);
348: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_source ' || p_source);
349:
342: l_event_flag := 'E';
343: l_api_name := 'generate_bc_report';
344:
345: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
346: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id ' || p_loan_id);
347: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_amount_adj_id ' || p_loan_amount_adj_id);
348: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_source ' || p_source);
349:
350: -- steps 1. delete from PSA_BC_REPORT_EVENTS_GT
343: l_api_name := 'generate_bc_report';
344:
345: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
346: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id ' || p_loan_id);
347: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_amount_adj_id ' || p_loan_amount_adj_id);
348: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_source ' || p_source);
349:
350: -- steps 1. delete from PSA_BC_REPORT_EVENTS_GT
351: -- 2. insert into PSA_BC_REPORT_EVENTS_GT
344:
345: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
346: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id ' || p_loan_id);
347: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_amount_adj_id ' || p_loan_amount_adj_id);
348: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_source ' || p_source);
349:
350: -- steps 1. delete from PSA_BC_REPORT_EVENTS_GT
351: -- 2. insert into PSA_BC_REPORT_EVENTS_GT
352: -- 3. generate sequence
350: -- steps 1. delete from PSA_BC_REPORT_EVENTS_GT
351: -- 2. insert into PSA_BC_REPORT_EVENTS_GT
352: -- 3. generate sequence
353: -- 4. call Create_BC_Transaction_report API
354: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'deleting from PSA_BC_REPORT_EVENTS_GT');
355: DELETE FROM PSA_BC_REPORT_EVENTS_GT;
356:
357: IF p_source = 'LOAN_AMOUNT_ADJUSTMENT' THEN
358: IF p_loan_amount_adj_id IS NULL THEN
356:
357: IF p_source = 'LOAN_AMOUNT_ADJUSTMENT' THEN
358: IF p_loan_amount_adj_id IS NULL THEN
359: -- Retrieve the Pending Loan Amount Adjustment Id of the loan
360: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Retrieve the pending loan_amount_adj_id based on the input loan_id');
361:
362: lns_utility_pub.validate_any_id(p_api_version => 1.0
363: ,p_init_msg_list => 'F'
364: ,x_msg_count => l_msg_count
379: OPEN c_loan_adj(p_loan_id);
380: FETCH c_loan_adj INTO l_loan_amount_adj_id;
381: CLOSE c_loan_adj;
382:
383: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || 'l_loan_amount_adj_id = ' || l_loan_amount_adj_id);
384:
385: -- if l_loan_amount_adj_id IS NULL then no adjustment fundsCheck happened till now and so generate the report
386: -- for the Direct Loan Approved
387:
386: -- for the Direct Loan Approved
387:
388:
389: ELSE -- ELSE IF p_loan_amount_adj_id IS NOT NULL
390: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Validating input p_loan_amount_adj_id');
391:
392: lns_utility_pub.validate_any_id(p_api_version => 1.0
393: ,p_init_msg_list => 'F'
394: ,x_msg_count => l_msg_count
413: END IF;
414:
415:
416:
417: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'opening c_event...');
418: open c_event(p_loan_id, l_loan_amount_adj_id);
419: LOOP
420: fetch c_event into
421: l_event_id
422: ,l_distribution_id
423: ,l_ledger_id;
424: EXIT WHEN c_event%NOTFOUND;
425:
426: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_event_id = ' || l_event_id);
427: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_id = ' || l_distribution_id);
428: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_ledger_id = ' || l_ledger_id);
429:
430: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'inserting into psa table...');
423: ,l_ledger_id;
424: EXIT WHEN c_event%NOTFOUND;
425:
426: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_event_id = ' || l_event_id);
427: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_id = ' || l_distribution_id);
428: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_ledger_id = ' || l_ledger_id);
429:
430: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'inserting into psa table...');
431: INSERT INTO PSA_BC_REPORT_EVENTS_GT
424: EXIT WHEN c_event%NOTFOUND;
425:
426: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_event_id = ' || l_event_id);
427: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_id = ' || l_distribution_id);
428: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_ledger_id = ' || l_ledger_id);
429:
430: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'inserting into psa table...');
431: INSERT INTO PSA_BC_REPORT_EVENTS_GT
432: (event_id
426: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_event_id = ' || l_event_id);
427: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_id = ' || l_distribution_id);
428: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_ledger_id = ' || l_ledger_id);
429:
430: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'inserting into psa table...');
431: INSERT INTO PSA_BC_REPORT_EVENTS_GT
432: (event_id
433: ,SOURCE_DISTRIBUTION_ID_NUM_1
434: ,SOURCE_DISTRIBUTION_ID_NUM_2)
434: ,SOURCE_DISTRIBUTION_ID_NUM_2)
435: values(l_event_id
436: ,l_distribution_id
437: ,null);
438: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Done');
439: end loop;
440: close c_event;
441:
442: select PSA_BC_XML_REPORT_S.nextval
444: from dual;
445:
446: SELECT count(*) INTO l_count
447: FROM PSA_BC_REPORT_EVENTS_GT;
448: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'rows found ' || l_count);
449:
450: IF l_count > 0 then
451:
452: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'calling PSA_BC_XML_REPORT_PUB.Create_BC_Transaction_Report...');
448: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'rows found ' || l_count);
449:
450: IF l_count > 0 then
451:
452: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'calling PSA_BC_XML_REPORT_PUB.Create_BC_Transaction_Report...');
453: -- Call the XML Genertion Procedure
454: PSA_BC_XML_REPORT_PUB.Create_BC_Transaction_Report(l_errbuf
455: ,l_retcode
456: ,l_ledger_id
456: ,l_ledger_id
457: ,l_application_id
458: ,l_event_flag
459: ,l_sequence_id);
460: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_errbuf = ' || l_errbuf);
461: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_retcode = ' || l_retcode);
462: END IF;
463:
464: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_sequence_id = ' || l_sequence_id);
457: ,l_application_id
458: ,l_event_flag
459: ,l_sequence_id);
460: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_errbuf = ' || l_errbuf);
461: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_retcode = ' || l_retcode);
462: END IF;
463:
464: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_sequence_id = ' || l_sequence_id);
465: return l_sequence_id;
460: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_errbuf = ' || l_errbuf);
461: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_retcode = ' || l_retcode);
462: END IF;
463:
464: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_sequence_id = ' || l_sequence_id);
465: return l_sequence_id;
466:
467: END GENERATE_BC_REPORT;
468:
562: begin
563:
564: SAVEPOINT budgetary_control_pvt;
565: l_api_name := 'budgetary_control';
566: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
567: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id = ' || p_loan_id);
568: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_budgetary_control_mode = ' || p_budgetary_control_mode);
569:
570: -- Initialize message list IF p_init_msg_list is set to TRUE.
563:
564: SAVEPOINT budgetary_control_pvt;
565: l_api_name := 'budgetary_control';
566: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
567: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id = ' || p_loan_id);
568: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_budgetary_control_mode = ' || p_budgetary_control_mode);
569:
570: -- Initialize message list IF p_init_msg_list is set to TRUE.
571: IF FND_API.to_Boolean( p_init_msg_list ) THEN
564: SAVEPOINT budgetary_control_pvt;
565: l_api_name := 'budgetary_control';
566: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
567: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id = ' || p_loan_id);
568: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_budgetary_control_mode = ' || p_budgetary_control_mode);
569:
570: -- Initialize message list IF p_init_msg_list is set to TRUE.
571: IF FND_API.to_Boolean( p_init_msg_list ) THEN
572: FND_MSG_PUB.initialize;
574:
575: -- Initialize API return status to SUCCESS
576: x_return_status := FND_API.G_RET_STS_SUCCESS;
577:
578: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fetching l_disbusement_id ');
579: open c_disbursements(p_loan_id);
580: fetch c_disbursements into l_disbursement_id;
581: close c_disbursements;
582: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || 'l_disbusement_id = ' || l_disbursement_id);
578: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fetching l_disbusement_id ');
579: open c_disbursements(p_loan_id);
580: fetch c_disbursements into l_disbursement_id;
581: close c_disbursements;
582: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || 'l_disbusement_id = ' || l_disbursement_id);
583:
584: -- Bug#6711479 We can't check funds without valid disbursement
585: IF (l_disbursement_id IS NULL) THEN
586: FND_MESSAGE.SET_NAME('LNS', 'LNS_CHK_FUND_DISB_INVALID');
584: -- Bug#6711479 We can't check funds without valid disbursement
585: IF (l_disbursement_id IS NULL) THEN
586: FND_MESSAGE.SET_NAME('LNS', 'LNS_CHK_FUND_DISB_INVALID');
587: FND_MSG_PUB.ADD;
588: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
589: FND_MESSAGE.SET_NAME('LNS', 'LNS_CREATE_DISB_SCHED');
590: FND_MSG_PUB.ADD;
591: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
592: RAISE FND_API.G_EXC_ERROR;
587: FND_MSG_PUB.ADD;
588: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
589: FND_MESSAGE.SET_NAME('LNS', 'LNS_CREATE_DISB_SCHED');
590: FND_MSG_PUB.ADD;
591: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
592: RAISE FND_API.G_EXC_ERROR;
593: END IF;
594:
595: if ((lns_utility_pub.IS_FED_FIN_ENABLED = 'Y' OR lns_utility_pub.IS_ENCUM_FIN_ENABLED = 'Y') AND l_disbursement_id IS NOT NULL) then
598: -- find if budgetary event already exists, if not, create the event
599: open c_budget_event(p_loan_id);
600: fetch c_budget_event into l_budget_event_exists;
601: close c_budget_event;
602: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || 'l_budget_event_exists = ' || l_budget_event_exists);
603:
604: open c_budget_req(p_loan_id);
605: fetch c_budget_req into l_budget_req_approval, l_funds_reserved_flag, l_gl_date;
606: close c_budget_req;
603:
604: open c_budget_req(p_loan_id);
605: fetch c_budget_req into l_budget_req_approval, l_funds_reserved_flag, l_gl_date;
606: close c_budget_req;
607: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_budget_req_approval = ' || l_budget_req_approval);
608: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_funds_reserved_flag = ' || l_funds_reserved_flag);
609:
610: if l_budget_event_exists = 0 then
611: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling LNS_XLA_EVENTS.create_event...');
604: open c_budget_req(p_loan_id);
605: fetch c_budget_req into l_budget_req_approval, l_funds_reserved_flag, l_gl_date;
606: close c_budget_req;
607: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_budget_req_approval = ' || l_budget_req_approval);
608: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_funds_reserved_flag = ' || l_funds_reserved_flag);
609:
610: if l_budget_event_exists = 0 then
611: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling LNS_XLA_EVENTS.create_event...');
612:
607: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_budget_req_approval = ' || l_budget_req_approval);
608: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_funds_reserved_flag = ' || l_funds_reserved_flag);
609:
610: if l_budget_event_exists = 0 then
611: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling LNS_XLA_EVENTS.create_event...');
612:
613: LNS_XLA_EVENTS.create_event(p_loan_id => p_loan_id
614: ,p_disb_header_id => -1
615: ,p_loan_amount_adj_id => -1
622: ,x_event_id => x_event_id
623: ,x_return_status => x_return_status
624: ,x_msg_count => x_msg_count
625: ,x_msg_data => x_msg_data);
626: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'x_return_status = ' || x_return_status);
627: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'x_event_id ' || x_event_id);
628:
629: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
630: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACCOUNTING_EVENT_ERROR');
623: ,x_return_status => x_return_status
624: ,x_msg_count => x_msg_count
625: ,x_msg_data => x_msg_data);
626: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'x_return_status = ' || x_return_status);
627: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'x_event_id ' || x_event_id);
628:
629: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
630: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACCOUNTING_EVENT_ERROR');
631: FND_MSG_PUB.ADD;
628:
629: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
630: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACCOUNTING_EVENT_ERROR');
631: FND_MSG_PUB.ADD;
632: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
633: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
634: END IF;
635:
636: -- stamp the eventID onto the lns_distributions table
633: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
634: END IF;
635:
636: -- stamp the eventID onto the lns_distributions table
637: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'stamping eventID on lns_distributions');
638:
639: update lns_distributions
640: set event_id = x_event_id
641: ,last_update_date = sysdate
643: and loan_id = p_loan_id
644: -- and loan_amount_adj_id IS NULL;
645: and activity = 'LNS_APPROVAL';
646:
647: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Updated event_id succesfully for '||SQL%ROWCOUNT||' rows');
648:
649: end if; -- budget event already created
650:
651: -- now process the event
650:
651: -- now process the event
652: if l_funds_reserved_flag <> 'Y' then
653: --and p_budgetary_control_mode = 'R' then
654: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'getting events');
655:
656: open c_events(p_loan_id);
657: -- LOOP
658: fetch c_events into l_event_id;
658: fetch c_events into l_event_id;
659: -- EXIT WHEN c_events%NOTFOUND;
660: IF l_event_id IS NOT NULL THEN
661:
662: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_event_id = ' || l_event_id);
663:
664: -- Bug#9328437, First time, when we do fundsCheck, the event_id creates and updates in lns_distributions table.
665: -- However if we do fundsCheck/fundsReserver later, existed distribtuions are deleted and again
666: -- defaulted, which has event_id as NULL. So, update the event_id if it is already created whose event_id is NULL
663:
664: -- Bug#9328437, First time, when we do fundsCheck, the event_id creates and updates in lns_distributions table.
665: -- However if we do fundsCheck/fundsReserver later, existed distribtuions are deleted and again
666: -- defaulted, which has event_id as NULL. So, update the event_id if it is already created whose event_id is NULL
667: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'stamping eventID on lns_distributions whose eventID is NULL');
668: update lns_distributions
669: set event_id = l_event_id
670: ,last_update_date = sysdate
671: where distribution_type = 'ORIGINATION'
671: where distribution_type = 'ORIGINATION'
672: and event_id IS NULL
673: and loan_id = p_loan_id;
674:
675: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Updated event_id succesfully for '||SQL%ROWCOUNT||' rows');
676: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'inserting into PSA_BC_XLA_EVENTS_GT ');
677: insert
678: into PSA_BC_XLA_EVENTS_GT (event_id, result_code)
679: values (l_event_id, 'FAIL');
672: and event_id IS NULL
673: and loan_id = p_loan_id;
674:
675: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Updated event_id succesfully for '||SQL%ROWCOUNT||' rows');
676: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'inserting into PSA_BC_XLA_EVENTS_GT ');
677: insert
678: into PSA_BC_XLA_EVENTS_GT (event_id, result_code)
679: values (l_event_id, 'FAIL');
680:
677: insert
678: into PSA_BC_XLA_EVENTS_GT (event_id, result_code)
679: values (l_event_id, 'FAIL');
680:
681: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling PSA_BC_XLA_PUB.Budgetary_Control ' || l_event_id);
682: PSA_BC_XLA_PUB.Budgetary_Control(p_api_version => 1.0
683: ,p_init_msg_list => FND_API.G_FALSE
684: ,x_return_status => l_return_status
685: ,x_msg_count => l_msg_count
694: -- end loop;
695: END IF;
696: close c_events;
697:
698: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' BC status is = ' || l_return_status);
699: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' l_status_code = ' || l_status_code);
700: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' l_packet_id = ' || l_packet_id);
701:
702: if (l_return_status <> 'S' ) then
695: END IF;
696: close c_events;
697:
698: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' BC status is = ' || l_return_status);
699: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' l_status_code = ' || l_status_code);
700: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' l_packet_id = ' || l_packet_id);
701:
702: if (l_return_status <> 'S' ) then
703:
696: close c_events;
697:
698: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' BC status is = ' || l_return_status);
699: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' l_status_code = ' || l_status_code);
700: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' l_packet_id = ' || l_packet_id);
701:
702: if (l_return_status <> 'S' ) then
703:
704: l_return_status := FND_API.G_RET_STS_ERROR;
704: l_return_status := FND_API.G_RET_STS_ERROR;
705: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
706: FND_MESSAGE.SET_TOKEN('ERROR' ,'Call to PSA_BC_XLA_PUB.Budgetary_Control failed with Status Code = ' || l_status_code);
707: FND_MSG_PUB.ADD;
708: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
709: RAISE FND_API.G_EXC_ERROR;
710:
711: else
712: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_budget_req_approval = ' || l_budget_req_approval);
708: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
709: RAISE FND_API.G_EXC_ERROR;
710:
711: else
712: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_budget_req_approval = ' || l_budget_req_approval);
713:
714: if ( l_budget_req_approval = 'N' and p_budgetary_control_mode = 'R'
715: and (l_status_code = 'FAIL' or l_status_code = 'PARTIAL' or l_status_code = 'XLA_ERROR')) then
716:
719:
720: /*
721: FND_MESSAGE.SET_NAME('LNS', 'LNS_APPROVAL_NO_BUDGET');
722: FND_MSG_PUB.ADD_DETAIL(p_message_type => FND_MSG_PUB.G_WARNING_MSG );
723: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
724: */
725:
726: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, ' BudgetReserve is not mandatory for LoanApproval, so returning to invoked method');
727:
722: FND_MSG_PUB.ADD_DETAIL(p_message_type => FND_MSG_PUB.G_WARNING_MSG );
723: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
724: */
725:
726: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, ' BudgetReserve is not mandatory for LoanApproval, so returning to invoked method');
727:
728: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
729:
730: return;
735: if l_status_code NOT IN ('SUCCESS','ADVISORY') then
736: IF (l_status_code = 'PARTIAL') THEN
737: FND_MESSAGE.SET_NAME('LNS', 'LNS_FUND_CHK_PARTIAL');
738: FND_MSG_PUB.ADD;
739: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
740: RAISE FND_API.G_EXC_ERROR;
741: ELSE
742: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
743: FND_MESSAGE.SET_TOKEN('ERROR' ,'Call to PSA_BC_XLA_PUB.Budgetary_Control failed with Status Code = ' || l_status_code);
741: ELSE
742: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
743: FND_MESSAGE.SET_TOKEN('ERROR' ,'Call to PSA_BC_XLA_PUB.Budgetary_Control failed with Status Code = ' || l_status_code);
744: FND_MSG_PUB.ADD;
745: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
746: RAISE FND_API.G_EXC_ERROR;
747: END IF;
748: end if;
749: */
752: l_loan_header_rec.FUNDS_RESERVED_FLAG := 'Y';
753: else
754: FND_MESSAGE.SET_NAME('LNS', 'LNS_FUND_RSRV_FAILED');
755: FND_MSG_PUB.ADD;
756: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
757: end if;
758: end if;
759:
760: open c_obj_vers(p_loan_id);
762: close c_obj_vers;
763:
764: l_loan_header_rec.loan_id := p_loan_id;
765: l_loan_header_rec.FUNDS_CHECK_DATE := sysdate;
766: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - updating loan');
767: LNS_LOAN_HEADER_PUB.UPDATE_LOAN(P_OBJECT_VERSION_NUMBER => l_version
768: ,P_LOAN_HEADER_REC => l_loan_header_rec
769: ,P_INIT_MSG_LIST => FND_API.G_FALSE
770: ,X_RETURN_STATUS => l_return_status
769: ,P_INIT_MSG_LIST => FND_API.G_FALSE
770: ,X_RETURN_STATUS => l_return_status
771: ,X_MSG_COUNT => l_msg_count
772: ,X_MSG_DATA => l_msg_data);
773: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'update loan status = ' || l_return_status);
774:
775: if l_return_status <> 'S' then
776: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_LOAN_FAIL');
777: FND_MSG_PUB.ADD;
774:
775: if l_return_status <> 'S' then
776: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_LOAN_FAIL');
777: FND_MSG_PUB.ADD;
778: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
779: RAISE FND_API.G_EXC_ERROR;
780: end if;
781:
782: end if; -- BC_API.RETURN_STATUS
791: END IF;
792:
793: end if; -- no budgetary control-- end if (lns_utility_pub.IS_FED_FIN_ENABLED = 'Y' AND l_disbursement_id IS NOT NULL) then
794:
795: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
796:
797: EXCEPTION
798:
799: WHEN FND_API.G_EXC_ERROR THEN
798:
799: WHEN FND_API.G_EXC_ERROR THEN
800: ROLLBACK TO budgetary_control_pvt;
801: x_return_status := FND_API.G_RET_STS_ERROR;
802: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
803: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
804:
805: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
806: ROLLBACK TO budgetary_control_pvt;
804:
805: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
806: ROLLBACK TO budgetary_control_pvt;
807: x_return_status := FND_API.G_RET_STS_ERROR;
808: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
809: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
810:
811: WHEN OTHERS THEN
812: ROLLBACK TO budgetary_control_pvt;
810:
811: WHEN OTHERS THEN
812: ROLLBACK TO budgetary_control_pvt;
813: x_return_status := FND_API.G_RET_STS_ERROR;
814: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
815: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
816:
817: end budgetary_control;
818:
847: l_api_name varchar2(25);
848: begin
849: l_api_name := 'do_insert_distributions';
850:
851: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
852: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'rows received = ' || p_distributions_tbl.count);
853:
854: l_total_distributions := p_distributions_tbl.count;
855:
848: begin
849: l_api_name := 'do_insert_distributions';
850:
851: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
852: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'rows received = ' || p_distributions_tbl.count);
853:
854: l_total_distributions := p_distributions_tbl.count;
855:
856: if l_total_distributions > 0 then
856: if l_total_distributions > 0 then
857:
858: for k in 1..l_total_distributions
859: loop
860: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Inserting row : ' || k);
861: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'LINE_TYPE = ' || p_distributions_tbl(k).line_type);
862: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ACC_NAME = ' || p_distributions_tbl(k).account_name);
863: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CC_ID = ' || p_distributions_tbl(k).code_combination_id);
864: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ACC_TYPE = ' || p_distributions_tbl(k).account_type);
857:
858: for k in 1..l_total_distributions
859: loop
860: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Inserting row : ' || k);
861: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'LINE_TYPE = ' || p_distributions_tbl(k).line_type);
862: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ACC_NAME = ' || p_distributions_tbl(k).account_name);
863: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CC_ID = ' || p_distributions_tbl(k).code_combination_id);
864: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ACC_TYPE = ' || p_distributions_tbl(k).account_type);
865: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERCENT = ' || p_distributions_tbl(k).distribution_percent);
858: for k in 1..l_total_distributions
859: loop
860: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Inserting row : ' || k);
861: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'LINE_TYPE = ' || p_distributions_tbl(k).line_type);
862: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ACC_NAME = ' || p_distributions_tbl(k).account_name);
863: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CC_ID = ' || p_distributions_tbl(k).code_combination_id);
864: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ACC_TYPE = ' || p_distributions_tbl(k).account_type);
865: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERCENT = ' || p_distributions_tbl(k).distribution_percent);
866: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'AMOUNT = ' || p_distributions_tbl(k).distribution_amount);
859: loop
860: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Inserting row : ' || k);
861: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'LINE_TYPE = ' || p_distributions_tbl(k).line_type);
862: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ACC_NAME = ' || p_distributions_tbl(k).account_name);
863: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CC_ID = ' || p_distributions_tbl(k).code_combination_id);
864: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ACC_TYPE = ' || p_distributions_tbl(k).account_type);
865: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERCENT = ' || p_distributions_tbl(k).distribution_percent);
866: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'AMOUNT = ' || p_distributions_tbl(k).distribution_amount);
867: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'DIST_TYPE = ' || p_distributions_tbl(k).distribution_type);
860: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Inserting row : ' || k);
861: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'LINE_TYPE = ' || p_distributions_tbl(k).line_type);
862: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ACC_NAME = ' || p_distributions_tbl(k).account_name);
863: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CC_ID = ' || p_distributions_tbl(k).code_combination_id);
864: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ACC_TYPE = ' || p_distributions_tbl(k).account_type);
865: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERCENT = ' || p_distributions_tbl(k).distribution_percent);
866: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'AMOUNT = ' || p_distributions_tbl(k).distribution_amount);
867: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'DIST_TYPE = ' || p_distributions_tbl(k).distribution_type);
868: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'DISB_HEADER_ID = ' || p_distributions_tbl(k).disb_header_id);
861: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'LINE_TYPE = ' || p_distributions_tbl(k).line_type);
862: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ACC_NAME = ' || p_distributions_tbl(k).account_name);
863: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CC_ID = ' || p_distributions_tbl(k).code_combination_id);
864: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ACC_TYPE = ' || p_distributions_tbl(k).account_type);
865: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERCENT = ' || p_distributions_tbl(k).distribution_percent);
866: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'AMOUNT = ' || p_distributions_tbl(k).distribution_amount);
867: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'DIST_TYPE = ' || p_distributions_tbl(k).distribution_type);
868: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'DISB_HEADER_ID = ' || p_distributions_tbl(k).disb_header_id);
869: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'LOAN_AMOUNT_ADJ_ID = ' || p_distributions_tbl(k).loan_amount_adj_id);
862: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ACC_NAME = ' || p_distributions_tbl(k).account_name);
863: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CC_ID = ' || p_distributions_tbl(k).code_combination_id);
864: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ACC_TYPE = ' || p_distributions_tbl(k).account_type);
865: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERCENT = ' || p_distributions_tbl(k).distribution_percent);
866: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'AMOUNT = ' || p_distributions_tbl(k).distribution_amount);
867: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'DIST_TYPE = ' || p_distributions_tbl(k).distribution_type);
868: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'DISB_HEADER_ID = ' || p_distributions_tbl(k).disb_header_id);
869: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'LOAN_AMOUNT_ADJ_ID = ' || p_distributions_tbl(k).loan_amount_adj_id);
870: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'LOAN_LINE_ID = ' || p_distributions_tbl(k).loan_line_id);
863: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CC_ID = ' || p_distributions_tbl(k).code_combination_id);
864: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ACC_TYPE = ' || p_distributions_tbl(k).account_type);
865: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERCENT = ' || p_distributions_tbl(k).distribution_percent);
866: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'AMOUNT = ' || p_distributions_tbl(k).distribution_amount);
867: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'DIST_TYPE = ' || p_distributions_tbl(k).distribution_type);
868: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'DISB_HEADER_ID = ' || p_distributions_tbl(k).disb_header_id);
869: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'LOAN_AMOUNT_ADJ_ID = ' || p_distributions_tbl(k).loan_amount_adj_id);
870: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'LOAN_LINE_ID = ' || p_distributions_tbl(k).loan_line_id);
871: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ACTIVITY = ' || p_distributions_tbl(k).activity);
864: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ACC_TYPE = ' || p_distributions_tbl(k).account_type);
865: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERCENT = ' || p_distributions_tbl(k).distribution_percent);
866: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'AMOUNT = ' || p_distributions_tbl(k).distribution_amount);
867: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'DIST_TYPE = ' || p_distributions_tbl(k).distribution_type);
868: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'DISB_HEADER_ID = ' || p_distributions_tbl(k).disb_header_id);
869: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'LOAN_AMOUNT_ADJ_ID = ' || p_distributions_tbl(k).loan_amount_adj_id);
870: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'LOAN_LINE_ID = ' || p_distributions_tbl(k).loan_line_id);
871: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ACTIVITY = ' || p_distributions_tbl(k).activity);
872: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ACCRUAL_PERIOD = ' || p_distributions_tbl(k).accrual_period);
865: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERCENT = ' || p_distributions_tbl(k).distribution_percent);
866: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'AMOUNT = ' || p_distributions_tbl(k).distribution_amount);
867: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'DIST_TYPE = ' || p_distributions_tbl(k).distribution_type);
868: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'DISB_HEADER_ID = ' || p_distributions_tbl(k).disb_header_id);
869: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'LOAN_AMOUNT_ADJ_ID = ' || p_distributions_tbl(k).loan_amount_adj_id);
870: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'LOAN_LINE_ID = ' || p_distributions_tbl(k).loan_line_id);
871: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ACTIVITY = ' || p_distributions_tbl(k).activity);
872: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ACCRUAL_PERIOD = ' || p_distributions_tbl(k).accrual_period);
873: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ACCRUAL_DATE = ' || p_distributions_tbl(k).accrual_date);
866: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'AMOUNT = ' || p_distributions_tbl(k).distribution_amount);
867: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'DIST_TYPE = ' || p_distributions_tbl(k).distribution_type);
868: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'DISB_HEADER_ID = ' || p_distributions_tbl(k).disb_header_id);
869: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'LOAN_AMOUNT_ADJ_ID = ' || p_distributions_tbl(k).loan_amount_adj_id);
870: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'LOAN_LINE_ID = ' || p_distributions_tbl(k).loan_line_id);
871: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ACTIVITY = ' || p_distributions_tbl(k).activity);
872: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ACCRUAL_PERIOD = ' || p_distributions_tbl(k).accrual_period);
873: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ACCRUAL_DATE = ' || p_distributions_tbl(k).accrual_date);
874: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PROJECT_ID = ' || p_distributions_tbl(k).project_id);
867: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'DIST_TYPE = ' || p_distributions_tbl(k).distribution_type);
868: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'DISB_HEADER_ID = ' || p_distributions_tbl(k).disb_header_id);
869: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'LOAN_AMOUNT_ADJ_ID = ' || p_distributions_tbl(k).loan_amount_adj_id);
870: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'LOAN_LINE_ID = ' || p_distributions_tbl(k).loan_line_id);
871: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ACTIVITY = ' || p_distributions_tbl(k).activity);
872: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ACCRUAL_PERIOD = ' || p_distributions_tbl(k).accrual_period);
873: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ACCRUAL_DATE = ' || p_distributions_tbl(k).accrual_date);
874: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PROJECT_ID = ' || p_distributions_tbl(k).project_id);
875: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'AWARD_ID = ' || p_distributions_tbl(k).award_id);
868: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'DISB_HEADER_ID = ' || p_distributions_tbl(k).disb_header_id);
869: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'LOAN_AMOUNT_ADJ_ID = ' || p_distributions_tbl(k).loan_amount_adj_id);
870: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'LOAN_LINE_ID = ' || p_distributions_tbl(k).loan_line_id);
871: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ACTIVITY = ' || p_distributions_tbl(k).activity);
872: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ACCRUAL_PERIOD = ' || p_distributions_tbl(k).accrual_period);
873: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ACCRUAL_DATE = ' || p_distributions_tbl(k).accrual_date);
874: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PROJECT_ID = ' || p_distributions_tbl(k).project_id);
875: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'AWARD_ID = ' || p_distributions_tbl(k).award_id);
876: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'TASK_ID = ' || p_distributions_tbl(k).task_id);
869: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'LOAN_AMOUNT_ADJ_ID = ' || p_distributions_tbl(k).loan_amount_adj_id);
870: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'LOAN_LINE_ID = ' || p_distributions_tbl(k).loan_line_id);
871: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ACTIVITY = ' || p_distributions_tbl(k).activity);
872: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ACCRUAL_PERIOD = ' || p_distributions_tbl(k).accrual_period);
873: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ACCRUAL_DATE = ' || p_distributions_tbl(k).accrual_date);
874: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PROJECT_ID = ' || p_distributions_tbl(k).project_id);
875: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'AWARD_ID = ' || p_distributions_tbl(k).award_id);
876: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'TASK_ID = ' || p_distributions_tbl(k).task_id);
877: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'EXPENDITURE_TYPE = ' || p_distributions_tbl(k).expenditure_type);
870: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'LOAN_LINE_ID = ' || p_distributions_tbl(k).loan_line_id);
871: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ACTIVITY = ' || p_distributions_tbl(k).activity);
872: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ACCRUAL_PERIOD = ' || p_distributions_tbl(k).accrual_period);
873: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ACCRUAL_DATE = ' || p_distributions_tbl(k).accrual_date);
874: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PROJECT_ID = ' || p_distributions_tbl(k).project_id);
875: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'AWARD_ID = ' || p_distributions_tbl(k).award_id);
876: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'TASK_ID = ' || p_distributions_tbl(k).task_id);
877: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'EXPENDITURE_TYPE = ' || p_distributions_tbl(k).expenditure_type);
878: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'EXPENDITURE_DATE = ' || p_distributions_tbl(k).EXPENDITURE_ITEM_DATE);
871: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ACTIVITY = ' || p_distributions_tbl(k).activity);
872: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ACCRUAL_PERIOD = ' || p_distributions_tbl(k).accrual_period);
873: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ACCRUAL_DATE = ' || p_distributions_tbl(k).accrual_date);
874: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PROJECT_ID = ' || p_distributions_tbl(k).project_id);
875: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'AWARD_ID = ' || p_distributions_tbl(k).award_id);
876: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'TASK_ID = ' || p_distributions_tbl(k).task_id);
877: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'EXPENDITURE_TYPE = ' || p_distributions_tbl(k).expenditure_type);
878: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'EXPENDITURE_DATE = ' || p_distributions_tbl(k).EXPENDITURE_ITEM_DATE);
879:
872: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ACCRUAL_PERIOD = ' || p_distributions_tbl(k).accrual_period);
873: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ACCRUAL_DATE = ' || p_distributions_tbl(k).accrual_date);
874: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PROJECT_ID = ' || p_distributions_tbl(k).project_id);
875: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'AWARD_ID = ' || p_distributions_tbl(k).award_id);
876: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'TASK_ID = ' || p_distributions_tbl(k).task_id);
877: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'EXPENDITURE_TYPE = ' || p_distributions_tbl(k).expenditure_type);
878: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'EXPENDITURE_DATE = ' || p_distributions_tbl(k).EXPENDITURE_ITEM_DATE);
879:
880:
873: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ACCRUAL_DATE = ' || p_distributions_tbl(k).accrual_date);
874: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PROJECT_ID = ' || p_distributions_tbl(k).project_id);
875: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'AWARD_ID = ' || p_distributions_tbl(k).award_id);
876: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'TASK_ID = ' || p_distributions_tbl(k).task_id);
877: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'EXPENDITURE_TYPE = ' || p_distributions_tbl(k).expenditure_type);
878: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'EXPENDITURE_DATE = ' || p_distributions_tbl(k).EXPENDITURE_ITEM_DATE);
879:
880:
881:
874: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PROJECT_ID = ' || p_distributions_tbl(k).project_id);
875: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'AWARD_ID = ' || p_distributions_tbl(k).award_id);
876: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'TASK_ID = ' || p_distributions_tbl(k).task_id);
877: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'EXPENDITURE_TYPE = ' || p_distributions_tbl(k).expenditure_type);
878: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'EXPENDITURE_DATE = ' || p_distributions_tbl(k).EXPENDITURE_ITEM_DATE);
879:
880:
881:
882: Insert into lns_distributions
935: ,p_distributions_tbl(k).task_id
936: ,p_distributions_tbl(k).expenditure_type
937: ,p_distributions_tbl(k).EXPENDITURE_ITEM_DATE);
938:
939: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '****************************************** ');
940: end loop;
941:
942: else
943:
942: else
943:
944: FND_MESSAGE.SET_NAME('LNS', 'LNS_DEFAULT_DIST_NOT_FOUND');
945: FND_MSG_PUB.ADD;
946: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
947: RAISE FND_API.G_EXC_ERROR;
948:
949: end if;
950: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
946: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
947: RAISE FND_API.G_EXC_ERROR;
948:
949: end if;
950: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
951:
952: end do_insert_distributions;
953:
954: /*=========================================================================
1103:
1104: begin
1105: SAVEPOINT defaultDistributionsCatch;
1106: l_api_name := 'defaultDistributionsCatch';
1107: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1108:
1109: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id = ' || p_loan_id);
1110: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_disb_header_id = ' || p_disb_header_id);
1111: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_amount_adj_id = ' || p_loan_amount_adj_id);
1105: SAVEPOINT defaultDistributionsCatch;
1106: l_api_name := 'defaultDistributionsCatch';
1107: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1108:
1109: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id = ' || p_loan_id);
1110: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_disb_header_id = ' || p_disb_header_id);
1111: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_amount_adj_id = ' || p_loan_amount_adj_id);
1112: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_include_loan_receivables = ' || p_include_loan_receivables);
1113: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_distribution_type = ' || p_distribution_type);
1106: l_api_name := 'defaultDistributionsCatch';
1107: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1108:
1109: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id = ' || p_loan_id);
1110: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_disb_header_id = ' || p_disb_header_id);
1111: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_amount_adj_id = ' || p_loan_amount_adj_id);
1112: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_include_loan_receivables = ' || p_include_loan_receivables);
1113: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_distribution_type = ' || p_distribution_type);
1114:
1107: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1108:
1109: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id = ' || p_loan_id);
1110: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_disb_header_id = ' || p_disb_header_id);
1111: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_amount_adj_id = ' || p_loan_amount_adj_id);
1112: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_include_loan_receivables = ' || p_include_loan_receivables);
1113: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_distribution_type = ' || p_distribution_type);
1114:
1115: -- Initialize message list IF p_init_msg_list is set to TRUE.
1108:
1109: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id = ' || p_loan_id);
1110: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_disb_header_id = ' || p_disb_header_id);
1111: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_amount_adj_id = ' || p_loan_amount_adj_id);
1112: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_include_loan_receivables = ' || p_include_loan_receivables);
1113: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_distribution_type = ' || p_distribution_type);
1114:
1115: -- Initialize message list IF p_init_msg_list is set to TRUE.
1116: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1109: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id = ' || p_loan_id);
1110: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_disb_header_id = ' || p_disb_header_id);
1111: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_amount_adj_id = ' || p_loan_amount_adj_id);
1112: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_include_loan_receivables = ' || p_include_loan_receivables);
1113: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_distribution_type = ' || p_distribution_type);
1114:
1115: -- Initialize message list IF p_init_msg_list is set to TRUE.
1116: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1117: FND_MSG_PUB.initialize;
1136: OPEN c_loan_info3(p_loan_id, p_loan_amount_adj_id);
1137: FETCH c_loan_info3 INTO l_class, l_loan_type_id, l_funded_amount;
1138: close c_loan_info3;
1139: if l_funded_amount < 0 then
1140: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Before reversal, l_funded_amount = ' || l_funded_amount);
1141: l_adj_reversal := 'Y';
1142: l_funded_amount := -(l_funded_amount);
1143: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'After reversal, l_funded_amount = ' || l_funded_amount);
1144: end if;
1139: if l_funded_amount < 0 then
1140: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Before reversal, l_funded_amount = ' || l_funded_amount);
1141: l_adj_reversal := 'Y';
1142: l_funded_amount := -(l_funded_amount);
1143: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'After reversal, l_funded_amount = ' || l_funded_amount);
1144: end if;
1145: elsif p_disb_header_id is null then
1146: OPEN c_loan_info(p_loan_id);
1147: FETCH c_loan_info INTO l_class, l_loan_type_id, l_funded_amount;
1150: OPEN c_loan_info2(p_loan_id, p_disb_header_id);
1151: FETCH c_loan_info2 INTO l_class, l_loan_type_id, l_funded_amount;
1152: close c_loan_info2;
1153: end if;
1154: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_class = ' || l_class);
1155: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_type_id = ' || l_loan_type_id);
1156: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_funded_amount = ' || l_funded_amount);
1157:
1158: open c_num_receivables(l_class, l_loan_type_id);
1151: FETCH c_loan_info2 INTO l_class, l_loan_type_id, l_funded_amount;
1152: close c_loan_info2;
1153: end if;
1154: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_class = ' || l_class);
1155: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_type_id = ' || l_loan_type_id);
1156: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_funded_amount = ' || l_funded_amount);
1157:
1158: open c_num_receivables(l_class, l_loan_type_id);
1159: fetch c_num_receivables into l_loan_receivables_count;
1152: close c_loan_info2;
1153: end if;
1154: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_class = ' || l_class);
1155: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_type_id = ' || l_loan_type_id);
1156: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_funded_amount = ' || l_funded_amount);
1157:
1158: open c_num_receivables(l_class, l_loan_type_id);
1159: fetch c_num_receivables into l_loan_receivables_count;
1160: close c_num_receivables;
1157:
1158: open c_num_receivables(l_class, l_loan_type_id);
1159: fetch c_num_receivables into l_loan_receivables_count;
1160: close c_num_receivables;
1161: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_receivables_count = ' || l_loan_receivables_count);
1162:
1163: open c_num_payables(l_class, l_loan_type_id);
1164: fetch c_num_payables into l_loan_payables_count;
1165: close c_num_payables;
1163: open c_num_payables(l_class, l_loan_type_id);
1164: fetch c_num_payables into l_loan_payables_count;
1165: close c_num_payables;
1166:
1167: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_payables_count = ' || l_loan_payables_count);
1168:
1169: -- now see if any default distributions exist for this loan
1170: -- 2-24-2005 raverma -- add loan_payable IF loan_class = DIRECT OR
1171: -- loan is not MFAR
1189: 'FROM lns_default_distribs d ' ||
1190: 'WHERE ((d.loan_class = :p_loan_class_code AND d.loan_type_id = :p_loan_type_id) ) ' ||
1191: ' AND account_name IN (''PRINCIPAL_RECEIVABLE'', ''INTEREST_RECEIVABLE'', ''INTEREST_INCOME'' ';
1192:
1193: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'include receivabvles ' || p_include_loan_receivables);
1194: -- these are only appropriate for class=DIRECT or loan <> MFAR
1195: if p_include_loan_receivables = 'Y' then
1196: vPLSQL := vPLSQL || ' ,''LOAN_RECEIVABLE'', ''LOAN_CLEARING'', ''LOAN_LIABILITY'', ''LOAN_PAYABLE'')';
1197: else
1208: end if;
1209:
1210: end if;
1211:
1212: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'sql: ' || vPLSQL);
1213:
1214: open sql_cur for
1215: vPLSQL
1216: using l_class, l_loan_type_id;
1227: ,l_expenditure_type
1228: ,l_expenditure_item_date;
1229: exit when sql_cur%NOTFOUND;
1230:
1231: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_adj_reversal = ' || l_adj_reversal);
1232:
1233:
1234: if (l_adj_reversal = 'Y' and l_distribution_type = 'ORIGINATION') then
1235: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_type = ' || l_account_type);
1231: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_adj_reversal = ' || l_adj_reversal);
1232:
1233:
1234: if (l_adj_reversal = 'Y' and l_distribution_type = 'ORIGINATION') then
1235: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_type = ' || l_account_type);
1236: if l_account_type = 'DR' then
1237: l_account_type := 'CR';
1238: elsif l_account_type = 'CR' then
1239: l_account_type := 'DR';
1241: end if;
1242:
1243: i := i + 1;
1244:
1245: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Record ' || i);
1246: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_line_type = ' || l_line_type);
1247: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_name = ' || l_account_name);
1248: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
1249: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_type = ' || l_account_type);
1242:
1243: i := i + 1;
1244:
1245: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Record ' || i);
1246: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_line_type = ' || l_line_type);
1247: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_name = ' || l_account_name);
1248: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
1249: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_type = ' || l_account_type);
1250: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_percent = ' || l_distribution_percent);
1243: i := i + 1;
1244:
1245: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Record ' || i);
1246: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_line_type = ' || l_line_type);
1247: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_name = ' || l_account_name);
1248: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
1249: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_type = ' || l_account_type);
1250: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_percent = ' || l_distribution_percent);
1251: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_type = ' || l_distribution_type);
1244:
1245: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Record ' || i);
1246: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_line_type = ' || l_line_type);
1247: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_name = ' || l_account_name);
1248: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
1249: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_type = ' || l_account_type);
1250: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_percent = ' || l_distribution_percent);
1251: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_type = ' || l_distribution_type);
1252: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_project_id = ' || l_project_id);
1245: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Record ' || i);
1246: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_line_type = ' || l_line_type);
1247: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_name = ' || l_account_name);
1248: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
1249: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_type = ' || l_account_type);
1250: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_percent = ' || l_distribution_percent);
1251: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_type = ' || l_distribution_type);
1252: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_project_id = ' || l_project_id);
1253: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_award_id = ' || l_award_id);
1246: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_line_type = ' || l_line_type);
1247: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_name = ' || l_account_name);
1248: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
1249: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_type = ' || l_account_type);
1250: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_percent = ' || l_distribution_percent);
1251: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_type = ' || l_distribution_type);
1252: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_project_id = ' || l_project_id);
1253: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_award_id = ' || l_award_id);
1254: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_task_id = ' || l_task_id);
1247: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_name = ' || l_account_name);
1248: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
1249: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_type = ' || l_account_type);
1250: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_percent = ' || l_distribution_percent);
1251: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_type = ' || l_distribution_type);
1252: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_project_id = ' || l_project_id);
1253: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_award_id = ' || l_award_id);
1254: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_task_id = ' || l_task_id);
1255: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_expenditure_type = ' || l_expenditure_type);
1248: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
1249: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_type = ' || l_account_type);
1250: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_percent = ' || l_distribution_percent);
1251: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_type = ' || l_distribution_type);
1252: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_project_id = ' || l_project_id);
1253: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_award_id = ' || l_award_id);
1254: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_task_id = ' || l_task_id);
1255: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_expenditure_type = ' || l_expenditure_type);
1256: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_expenditure_item_date = ' || l_expenditure_item_date);
1249: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_type = ' || l_account_type);
1250: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_percent = ' || l_distribution_percent);
1251: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_type = ' || l_distribution_type);
1252: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_project_id = ' || l_project_id);
1253: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_award_id = ' || l_award_id);
1254: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_task_id = ' || l_task_id);
1255: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_expenditure_type = ' || l_expenditure_type);
1256: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_expenditure_item_date = ' || l_expenditure_item_date);
1257:
1250: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_percent = ' || l_distribution_percent);
1251: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_type = ' || l_distribution_type);
1252: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_project_id = ' || l_project_id);
1253: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_award_id = ' || l_award_id);
1254: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_task_id = ' || l_task_id);
1255: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_expenditure_type = ' || l_expenditure_type);
1256: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_expenditure_item_date = ' || l_expenditure_item_date);
1257:
1258:
1251: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_type = ' || l_distribution_type);
1252: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_project_id = ' || l_project_id);
1253: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_award_id = ' || l_award_id);
1254: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_task_id = ' || l_task_id);
1255: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_expenditure_type = ' || l_expenditure_type);
1256: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_expenditure_item_date = ' || l_expenditure_item_date);
1257:
1258:
1259:
1252: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_project_id = ' || l_project_id);
1253: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_award_id = ' || l_award_id);
1254: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_task_id = ' || l_task_id);
1255: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_expenditure_type = ' || l_expenditure_type);
1256: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_expenditure_item_date = ' || l_expenditure_item_date);
1257:
1258:
1259:
1260: l_distributions(i).line_type := l_line_type;
1272:
1273: if l_account_name = 'LOAN_RECEIVABLE' and l_distribution_type = 'ORIGINATION' then
1274:
1275: k := k + 1;
1276: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan receivables line ' || k);
1277:
1278: if k <> l_loan_receivables_count then
1279: l_distributions(i).distribution_amount := round(l_distribution_percent * l_funded_amount, l_ledger_details.currency_precision) / 100;
1280: l_running_amount1 := l_running_amount1 + l_distributions(i).distribution_amount;
1281: else
1282: l_distributions(i).distribution_amount := l_funded_amount - l_running_amount1;
1283: end if;
1284:
1285: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distributions(i).distribution_amount = ' || l_distributions(i).distribution_amount);
1286: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_running_amount1 = ' || l_running_amount1);
1287:
1288: end if;
1289:
1282: l_distributions(i).distribution_amount := l_funded_amount - l_running_amount1;
1283: end if;
1284:
1285: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distributions(i).distribution_amount = ' || l_distributions(i).distribution_amount);
1286: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_running_amount1 = ' || l_running_amount1);
1287:
1288: end if;
1289:
1290: if (l_account_name = 'LOAN_CLEARING' or l_account_name = 'LOAN_PAYABLE') and l_distribution_type = 'ORIGINATION' then
1289:
1290: if (l_account_name = 'LOAN_CLEARING' or l_account_name = 'LOAN_PAYABLE') and l_distribution_type = 'ORIGINATION' then
1291:
1292: n := n + 1;
1293: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan clearing line ' || n);
1294:
1295: if n <> l_loan_receivables_count then
1296: l_distributions(i).distribution_amount := round(l_distribution_percent * l_funded_amount, l_ledger_details.currency_precision) / 100;
1297: l_running_amount2 := l_running_amount2 + l_distributions(i).distribution_amount;
1298: else
1299: l_distributions(i).distribution_amount := l_funded_amount - l_running_amount2;
1300: end if;
1301:
1302: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distributions(i).distribution_amount = ' || l_distributions(i).distribution_amount);
1303: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_running_amount2 = ' || l_running_amount2);
1304:
1305: end if;
1306:
1299: l_distributions(i).distribution_amount := l_funded_amount - l_running_amount2;
1300: end if;
1301:
1302: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distributions(i).distribution_amount = ' || l_distributions(i).distribution_amount);
1303: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_running_amount2 = ' || l_running_amount2);
1304:
1305: end if;
1306:
1307: if (l_account_name = 'LOAN_PAYABLE' and l_distribution_type = 'FUNDING') then
1306:
1307: if (l_account_name = 'LOAN_PAYABLE' and l_distribution_type = 'FUNDING') then
1308:
1309: l := l + 1;
1310: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan payable funding line ' || l);
1311:
1312: if l <> l_loan_payables_count then
1313: l_distributions(i).distribution_amount := round(l_distribution_percent * l_funded_amount, l_ledger_details.currency_precision) / 100;
1314: l_running_amount3 := l_running_amount3 + l_distributions(i).distribution_amount;
1315: else
1316: l_distributions(i).distribution_amount := l_funded_amount - l_running_amount3;
1317: end if;
1318:
1319: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distributions(i).distribution_amount = ' || l_distributions(i).distribution_amount);
1320: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_running_amount3 = ' || l_running_amount3);
1321:
1322: end if;
1323:
1316: l_distributions(i).distribution_amount := l_funded_amount - l_running_amount3;
1317: end if;
1318:
1319: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distributions(i).distribution_amount = ' || l_distributions(i).distribution_amount);
1320: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_running_amount3 = ' || l_running_amount3);
1321:
1322: end if;
1323:
1324: if (l_account_name = 'LOAN_LIABILITY' and l_distribution_type = 'FUNDING') then
1322: end if;
1323:
1324: if (l_account_name = 'LOAN_LIABILITY' and l_distribution_type = 'FUNDING') then
1325: --if (l_line_type = 'PRIN' and l_distribution_type = 'FUNDING') then
1326: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - loan liability funding line found');
1327: l_distributions(i).distribution_amount := l_funded_amount;
1328: end if;
1329:
1330: end loop;
1333: exception
1334: when no_data_found then
1335: FND_MESSAGE.SET_NAME('LNS', 'LNS_DEFAULT_DIST_NOT_FOUND');
1336: FND_MSG_PUB.ADD;
1337: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
1338: RAISE FND_API.G_EXC_ERROR;
1339: End; -- c_default_info cursor
1340:
1341: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'distribs2 count is ' || l_distributions.count);
1337: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
1338: RAISE FND_API.G_EXC_ERROR;
1339: End; -- c_default_info cursor
1340:
1341: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'distribs2 count is ' || l_distributions.count);
1342: x_distribution_tbl := l_distributions;
1343:
1344: IF FND_API.to_Boolean(p_commit)
1345: THEN
1347: END IF;
1348:
1349: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1350:
1351: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
1352:
1353: EXCEPTION
1354: WHEN FND_API.G_EXC_ERROR THEN
1355: ROLLBACK TO defaultDistributionsCatch;
1353: EXCEPTION
1354: WHEN FND_API.G_EXC_ERROR THEN
1355: ROLLBACK TO defaultDistributionsCatch;
1356: x_return_status := FND_API.G_RET_STS_ERROR;
1357: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
1358: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1359:
1360: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1361: ROLLBACK TO defaultDistributionsCatch;
1359:
1360: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1361: ROLLBACK TO defaultDistributionsCatch;
1362: x_return_status := FND_API.G_RET_STS_ERROR;
1363: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
1364: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1365:
1366: WHEN OTHERS THEN
1367: ROLLBACK TO defaultDistributionsCatch;
1365:
1366: WHEN OTHERS THEN
1367: ROLLBACK TO defaultDistributionsCatch;
1368: x_return_status := FND_API.G_RET_STS_ERROR;
1369: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
1370: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1371:
1372: end defaultDistributionsCatch;
1373:
1430: where h.loan_id = p_loan_id;
1431:
1432: begin
1433: l_api_name := 'create_event';
1434: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1435: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_acc_event_tbl count = ' || p_acc_event_tbl.count);
1436:
1437: -- Standard Start of API savepoint
1438: SAVEPOINT create_event;
1431:
1432: begin
1433: l_api_name := 'create_event';
1434: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1435: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_acc_event_tbl count = ' || p_acc_event_tbl.count);
1436:
1437: -- Standard Start of API savepoint
1438: SAVEPOINT create_event;
1439:
1449: -- Api body
1450: -- ---------------------------------------------------------------------
1451: for k in 1..p_acc_event_tbl.count loop
1452:
1453: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan_id = ' || p_acc_event_tbl(k).loan_id);
1454: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_event_type_code = ' || p_acc_event_tbl(k).event_type_code);
1455: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_acc_event_tbl('||k||').disb_header_id = ' || p_acc_event_tbl(k).disb_header_id);
1456: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_acc_event_tbl('||k||').loan_amount_adj_id = ' || p_acc_event_tbl(k).loan_amount_adj_id);
1457: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_acc_event_tbl('||k||').loan_line_id = ' || p_acc_event_tbl(k).loan_line_id);
1450: -- ---------------------------------------------------------------------
1451: for k in 1..p_acc_event_tbl.count loop
1452:
1453: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan_id = ' || p_acc_event_tbl(k).loan_id);
1454: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_event_type_code = ' || p_acc_event_tbl(k).event_type_code);
1455: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_acc_event_tbl('||k||').disb_header_id = ' || p_acc_event_tbl(k).disb_header_id);
1456: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_acc_event_tbl('||k||').loan_amount_adj_id = ' || p_acc_event_tbl(k).loan_amount_adj_id);
1457: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_acc_event_tbl('||k||').loan_line_id = ' || p_acc_event_tbl(k).loan_line_id);
1458: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_event_date = ' || p_acc_event_tbl(k).event_date);
1451: for k in 1..p_acc_event_tbl.count loop
1452:
1453: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan_id = ' || p_acc_event_tbl(k).loan_id);
1454: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_event_type_code = ' || p_acc_event_tbl(k).event_type_code);
1455: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_acc_event_tbl('||k||').disb_header_id = ' || p_acc_event_tbl(k).disb_header_id);
1456: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_acc_event_tbl('||k||').loan_amount_adj_id = ' || p_acc_event_tbl(k).loan_amount_adj_id);
1457: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_acc_event_tbl('||k||').loan_line_id = ' || p_acc_event_tbl(k).loan_line_id);
1458: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_event_date = ' || p_acc_event_tbl(k).event_date);
1459: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_event_status = ' || p_acc_event_tbl(k).event_status);
1452:
1453: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan_id = ' || p_acc_event_tbl(k).loan_id);
1454: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_event_type_code = ' || p_acc_event_tbl(k).event_type_code);
1455: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_acc_event_tbl('||k||').disb_header_id = ' || p_acc_event_tbl(k).disb_header_id);
1456: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_acc_event_tbl('||k||').loan_amount_adj_id = ' || p_acc_event_tbl(k).loan_amount_adj_id);
1457: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_acc_event_tbl('||k||').loan_line_id = ' || p_acc_event_tbl(k).loan_line_id);
1458: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_event_date = ' || p_acc_event_tbl(k).event_date);
1459: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_event_status = ' || p_acc_event_tbl(k).event_status);
1460: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_bc_flag = ' || p_acc_event_tbl(k).budgetary_control_flag);
1453: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan_id = ' || p_acc_event_tbl(k).loan_id);
1454: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_event_type_code = ' || p_acc_event_tbl(k).event_type_code);
1455: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_acc_event_tbl('||k||').disb_header_id = ' || p_acc_event_tbl(k).disb_header_id);
1456: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_acc_event_tbl('||k||').loan_amount_adj_id = ' || p_acc_event_tbl(k).loan_amount_adj_id);
1457: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_acc_event_tbl('||k||').loan_line_id = ' || p_acc_event_tbl(k).loan_line_id);
1458: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_event_date = ' || p_acc_event_tbl(k).event_date);
1459: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_event_status = ' || p_acc_event_tbl(k).event_status);
1460: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_bc_flag = ' || p_acc_event_tbl(k).budgetary_control_flag);
1461:
1454: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_event_type_code = ' || p_acc_event_tbl(k).event_type_code);
1455: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_acc_event_tbl('||k||').disb_header_id = ' || p_acc_event_tbl(k).disb_header_id);
1456: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_acc_event_tbl('||k||').loan_amount_adj_id = ' || p_acc_event_tbl(k).loan_amount_adj_id);
1457: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_acc_event_tbl('||k||').loan_line_id = ' || p_acc_event_tbl(k).loan_line_id);
1458: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_event_date = ' || p_acc_event_tbl(k).event_date);
1459: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_event_status = ' || p_acc_event_tbl(k).event_status);
1460: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_bc_flag = ' || p_acc_event_tbl(k).budgetary_control_flag);
1461:
1462:
1455: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_acc_event_tbl('||k||').disb_header_id = ' || p_acc_event_tbl(k).disb_header_id);
1456: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_acc_event_tbl('||k||').loan_amount_adj_id = ' || p_acc_event_tbl(k).loan_amount_adj_id);
1457: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_acc_event_tbl('||k||').loan_line_id = ' || p_acc_event_tbl(k).loan_line_id);
1458: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_event_date = ' || p_acc_event_tbl(k).event_date);
1459: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_event_status = ' || p_acc_event_tbl(k).event_status);
1460: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_bc_flag = ' || p_acc_event_tbl(k).budgetary_control_flag);
1461:
1462:
1463: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling LNS_XLA_EVENTS.create_event...');
1456: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_acc_event_tbl('||k||').loan_amount_adj_id = ' || p_acc_event_tbl(k).loan_amount_adj_id);
1457: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_acc_event_tbl('||k||').loan_line_id = ' || p_acc_event_tbl(k).loan_line_id);
1458: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_event_date = ' || p_acc_event_tbl(k).event_date);
1459: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_event_status = ' || p_acc_event_tbl(k).event_status);
1460: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_bc_flag = ' || p_acc_event_tbl(k).budgetary_control_flag);
1461:
1462:
1463: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling LNS_XLA_EVENTS.create_event...');
1464: LNS_XLA_EVENTS.create_event(p_loan_id => p_acc_event_tbl(k).loan_id
1459: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_event_status = ' || p_acc_event_tbl(k).event_status);
1460: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_bc_flag = ' || p_acc_event_tbl(k).budgetary_control_flag);
1461:
1462:
1463: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling LNS_XLA_EVENTS.create_event...');
1464: LNS_XLA_EVENTS.create_event(p_loan_id => p_acc_event_tbl(k).loan_id
1465: ,p_disb_header_id => p_acc_event_tbl(k).disb_header_id
1466: ,p_loan_amount_adj_id => p_acc_event_tbl(k).loan_amount_adj_id
1467: ,p_loan_line_id => p_acc_event_tbl(k).loan_line_id
1474: ,x_event_id => l_event_id
1475: ,x_return_status => x_return_status
1476: ,x_msg_count => x_msg_count
1477: ,x_msg_data => x_msg_data);
1478: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_event_id = ' || l_event_id);
1479: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'x_return_status = ' || x_return_status);
1480:
1481: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1482: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACCOUNTING_EVENT_ERROR');
1475: ,x_return_status => x_return_status
1476: ,x_msg_count => x_msg_count
1477: ,x_msg_data => x_msg_data);
1478: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_event_id = ' || l_event_id);
1479: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'x_return_status = ' || x_return_status);
1480:
1481: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1482: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACCOUNTING_EVENT_ERROR');
1483: FND_MSG_PUB.ADD;
1480:
1481: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1482: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACCOUNTING_EVENT_ERROR');
1483: FND_MSG_PUB.ADD;
1484: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
1485: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1486: ELSE
1487: -- update the distributions table with proper event_id for valid disb_header_id/loan_amount_adj_id
1488: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Updating lns_distributions...');
1484: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
1485: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1486: ELSE
1487: -- update the distributions table with proper event_id for valid disb_header_id/loan_amount_adj_id
1488: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Updating lns_distributions...');
1489:
1490: l_event_type_code := p_acc_event_tbl(k).event_type_code;
1491:
1492: IF (l_event_type_code = 'DIRECT_LOAN_APPROVED' OR l_event_type_code = 'APPROVED') THEN
1500: ELSIF l_event_type_code = 'ERS_LOAN_ADD_REC_APPROVED' THEN
1501: l_activity := 'ERS_ADD_REC';
1502: END IF;
1503:
1504: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_activity is '||l_activity);
1505:
1506: update lns_distributions
1507: set event_id = l_event_id
1508: ,last_update_date = sysdate
1511: and activity = l_activity
1512: and nvl(disb_header_id, -1) = nvl(p_acc_event_tbl(k).disb_header_id,-1)
1513: and nvl(loan_amount_adj_id, -1) = nvl(p_acc_event_tbl(k).loan_amount_adj_id, -1);
1514:
1515: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'In LNS_DISTRIBUTIONS_PUB.createEvent(), updation of event_id is done for '||SQL%ROWCOUNT||' rows');
1516:
1517: end if;
1518:
1519: end loop;
1521: -- End of API body
1522: -- ---------------------------------------------------------------------
1523: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1524:
1525: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
1526:
1527: EXCEPTION
1528: WHEN FND_API.G_EXC_ERROR THEN
1529: ROLLBACK TO create_event;
1530: x_return_status := FND_API.G_RET_STS_ERROR;
1531: x_msg_count := l_msg_count;
1532: x_msg_data := l_msg_data;
1533: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1534: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
1535:
1536: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1537: ROLLBACK TO create_event;
1538: x_return_status := FND_API.G_RET_STS_ERROR;
1538: x_return_status := FND_API.G_RET_STS_ERROR;
1539: x_msg_count := l_msg_count;
1540: x_msg_data := l_msg_data;
1541: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1542: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
1543:
1544: WHEN OTHERS THEN
1545: ROLLBACK TO create_event;
1546: x_return_status := FND_API.G_RET_STS_ERROR;
1546: x_return_status := FND_API.G_RET_STS_ERROR;
1547: x_msg_count := l_msg_count;
1548: x_msg_data := l_msg_data;
1549: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1550: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
1551:
1552: end create_event;
1553:
1554:
1595: l_segment_value varchar2(60);
1596:
1597: begin
1598:
1599: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Opening c_mfar_nat_acct...');
1600: open c_mfar_nat_acct(p_loan_id);
1601: fetch c_mfar_nat_acct into l_segment_value;
1602: close c_mfar_nat_acct;
1603: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Done');
1599: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Opening c_mfar_nat_acct...');
1600: open c_mfar_nat_acct(p_loan_id);
1601: fetch c_mfar_nat_acct into l_segment_value;
1602: close c_mfar_nat_acct;
1603: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Done');
1604: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_segment_value = ' || l_segment_value);
1605:
1606: return l_segment_value;
1607:
1600: open c_mfar_nat_acct(p_loan_id);
1601: fetch c_mfar_nat_acct into l_segment_value;
1602: close c_mfar_nat_acct;
1603: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Done');
1604: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_segment_value = ' || l_segment_value);
1605:
1606: return l_segment_value;
1607:
1608: Exception
1606: return l_segment_value;
1607:
1608: Exception
1609: When others then
1610: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, 'failed to retrieve replacement natural account');
1611: FND_MESSAGE.SET_NAME('LNS', 'LNS_MFAR_CONFIGURATION_ERROR');
1612: FND_MSG_PUB.ADD;
1613: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
1614: RAISE FND_API.G_EXC_ERROR;
1609: When others then
1610: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, 'failed to retrieve replacement natural account');
1611: FND_MESSAGE.SET_NAME('LNS', 'LNS_MFAR_CONFIGURATION_ERROR');
1612: FND_MSG_PUB.ADD;
1613: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
1614: RAISE FND_API.G_EXC_ERROR;
1615:
1616: end getNaturalSwapAccount;
1617:
1659: begin
1660: l_api_name := 'swap_code_combination';
1661: l_new_cc_id := -1;
1662:
1663: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1664: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_chart_of_accounts_id = ' || p_chart_of_accounts_id);
1665: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_original_cc_id = ' || p_original_cc_id);
1666: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_swap_segment_number = ' || p_swap_segment_number);
1667: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_swap_segment_value = ' || p_swap_segment_value);
1660: l_api_name := 'swap_code_combination';
1661: l_new_cc_id := -1;
1662:
1663: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1664: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_chart_of_accounts_id = ' || p_chart_of_accounts_id);
1665: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_original_cc_id = ' || p_original_cc_id);
1666: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_swap_segment_number = ' || p_swap_segment_number);
1667: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_swap_segment_value = ' || p_swap_segment_value);
1668:
1661: l_new_cc_id := -1;
1662:
1663: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1664: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_chart_of_accounts_id = ' || p_chart_of_accounts_id);
1665: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_original_cc_id = ' || p_original_cc_id);
1666: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_swap_segment_number = ' || p_swap_segment_number);
1667: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_swap_segment_value = ' || p_swap_segment_value);
1668:
1669: -- build the original code combination segments into array
1662:
1663: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1664: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_chart_of_accounts_id = ' || p_chart_of_accounts_id);
1665: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_original_cc_id = ' || p_original_cc_id);
1666: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_swap_segment_number = ' || p_swap_segment_number);
1667: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_swap_segment_value = ' || p_swap_segment_value);
1668:
1669: -- build the original code combination segments into array
1670: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling FND_FLEX_EXT.GET_SEGMENTS...');
1663: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1664: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_chart_of_accounts_id = ' || p_chart_of_accounts_id);
1665: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_original_cc_id = ' || p_original_cc_id);
1666: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_swap_segment_number = ' || p_swap_segment_number);
1667: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_swap_segment_value = ' || p_swap_segment_value);
1668:
1669: -- build the original code combination segments into array
1670: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling FND_FLEX_EXT.GET_SEGMENTS...');
1671: IF (NOT FND_FLEX_EXT.GET_SEGMENTS('SQLGL'
1666: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_swap_segment_number = ' || p_swap_segment_number);
1667: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_swap_segment_value = ' || p_swap_segment_value);
1668:
1669: -- build the original code combination segments into array
1670: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling FND_FLEX_EXT.GET_SEGMENTS...');
1671: IF (NOT FND_FLEX_EXT.GET_SEGMENTS('SQLGL'
1672: ,'GL#'
1673: ,p_chart_of_accounts_id
1674: ,p_original_cc_id
1676: ,l_original_segments))
1677: Then
1678: FND_MESSAGE.SET_NAME('LNS', 'LNS_ERR_BUILDING_SEGMENTS');
1679: FND_MSG_PUB.ADD;
1680: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
1681: RAISE FND_API.G_EXC_ERROR;
1682: END IF;
1683:
1684: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Original segments:');
1680: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
1681: RAISE FND_API.G_EXC_ERROR;
1682: END IF;
1683:
1684: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Original segments:');
1685: for n in 1..l_num_segments loop
1686: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'seg#' || n || ' = ' || l_original_segments(n));
1687: end loop;
1688:
1682: END IF;
1683:
1684: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Original segments:');
1685: for n in 1..l_num_segments loop
1686: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'seg#' || n || ' = ' || l_original_segments(n));
1687: end loop;
1688:
1689: -- get the replacement accounts from lns_default_distribs
1690: FOR n IN 1..l_num_segments LOOP
1688:
1689: -- get the replacement accounts from lns_default_distribs
1690: FOR n IN 1..l_num_segments LOOP
1691: IF (n = p_swap_segment_number) THEN
1692: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'found the account to swap = ' || l_original_segments(n));
1693: l_new_segments(n) := p_swap_segment_value;
1694: else
1695: l_new_segments(n) := l_original_segments(n);
1696: END IF;
1695: l_new_segments(n) := l_original_segments(n);
1696: END IF;
1697: END LOOP;
1698:
1699: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'New segments:');
1700: for n in 1..l_num_segments loop
1701: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'seg#' || n || ' = ' || l_new_segments(n));
1702: end loop;
1703:
1697: END LOOP;
1698:
1699: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'New segments:');
1700: for n in 1..l_num_segments loop
1701: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'seg#' || n || ' = ' || l_new_segments(n));
1702: end loop;
1703:
1704: -------------------------- Get new ccid -------------------------------
1705: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling FND_FLEX_EXT.GET_COMBINATION_ID...');
1701: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'seg#' || n || ' = ' || l_new_segments(n));
1702: end loop;
1703:
1704: -------------------------- Get new ccid -------------------------------
1705: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling FND_FLEX_EXT.GET_COMBINATION_ID...');
1706: iF (NOT FND_FLEX_EXT.GET_COMBINATION_ID(
1707: 'SQLGL',
1708: 'GL#',
1709: p_chart_of_accounts_id,
1713: l_new_cc_id))
1714: Then
1715: FND_MESSAGE.SET_NAME('LNS', 'LNS_CODE_COMBINATION_ERROR');
1716: FND_MSG_PUB.ADD;
1717: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
1718: RAISE FND_API.G_EXC_ERROR;
1719:
1720: END IF;
1721: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'new cc_id = ' || l_new_cc_id);
1717: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
1718: RAISE FND_API.G_EXC_ERROR;
1719:
1720: END IF;
1721: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'new cc_id = ' || l_new_cc_id);
1722: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
1723:
1724: return l_new_cc_id;
1725:
1718: RAISE FND_API.G_EXC_ERROR;
1719:
1720: END IF;
1721: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'new cc_id = ' || l_new_cc_id);
1722: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
1723:
1724: return l_new_cc_id;
1725:
1726: exception
1724: return l_new_cc_id;
1725:
1726: exception
1727: when others then
1728: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, 'failed to create new code combination');
1729: RAISE FND_API.G_EXC_ERROR;
1730: end swap_code_combination;
1731:
1732:
1793: Exception
1794: When others then
1795: FND_MESSAGE.SET_NAME('LNS', 'LNS_MFAR_CONFIGURATION_ERROR');
1796: FND_MSG_PUB.ADD;
1797: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
1798: RAISE FND_API.G_EXC_ERROR;
1799: End;
1800: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'swap natural account with ' || l_natural_account_rec);
1801: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'COA ' || l_ledger_details.chart_of_accounts_id);
1796: FND_MSG_PUB.ADD;
1797: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
1798: RAISE FND_API.G_EXC_ERROR;
1799: End;
1800: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'swap natural account with ' || l_natural_account_rec);
1801: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'COA ' || l_ledger_details.chart_of_accounts_id);
1802:
1803: -- Get natural account segment number to swap
1804: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling FND_FLEX_APIS.GET_QUALIFIER_SEGNUM...');
1797: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
1798: RAISE FND_API.G_EXC_ERROR;
1799: End;
1800: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'swap natural account with ' || l_natural_account_rec);
1801: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'COA ' || l_ledger_details.chart_of_accounts_id);
1802:
1803: -- Get natural account segment number to swap
1804: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling FND_FLEX_APIS.GET_QUALIFIER_SEGNUM...');
1805: IF (NOT FND_FLEX_APIS.GET_QUALIFIER_SEGNUM(appl_id => 101
1800: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'swap natural account with ' || l_natural_account_rec);
1801: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'COA ' || l_ledger_details.chart_of_accounts_id);
1802:
1803: -- Get natural account segment number to swap
1804: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling FND_FLEX_APIS.GET_QUALIFIER_SEGNUM...');
1805: IF (NOT FND_FLEX_APIS.GET_QUALIFIER_SEGNUM(appl_id => 101
1806: ,key_flex_code => 'GL#'
1807: ,structure_number=> l_ledger_details.chart_of_accounts_id
1808: ,flex_qual_name => 'GL_ACCOUNT'
1809: ,segment_number => l_nat_acct_seg_number))
1810: THEN
1811: FND_MESSAGE.SET_NAME('LNS', 'LNS_NO_NATURAL_ACCOUNT_SEGMENT');
1812: FND_MSG_PUB.ADD;
1813: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
1814: RAISE FND_API.G_EXC_ERROR;
1815:
1816: END IF;
1817: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'natural acct segment is ' || l_nat_acct_seg_number);
1813: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
1814: RAISE FND_API.G_EXC_ERROR;
1815:
1816: END IF;
1817: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'natural acct segment is ' || l_nat_acct_seg_number);
1818:
1819: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling swap_code_combination...');
1820: l_new_cc_id := swap_code_combination(p_chart_of_accounts_id => l_ledger_details.chart_of_accounts_id
1821: ,p_original_cc_id => p_distribution_id
1815:
1816: END IF;
1817: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'natural acct segment is ' || l_nat_acct_seg_number);
1818:
1819: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling swap_code_combination...');
1820: l_new_cc_id := swap_code_combination(p_chart_of_accounts_id => l_ledger_details.chart_of_accounts_id
1821: ,p_original_cc_id => p_distribution_id
1822: ,p_swap_segment_number => l_nat_acct_seg_number
1823: ,p_swap_segment_value => l_natural_account_rec);
1826: -- get adjustment cc_id
1827: l_new_cc_id := 123;
1828: end if;
1829:
1830: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_new_cc_id = ' || l_new_cc_id);
1831: return l_new_cc_id;
1832:
1833: end transformDistribution;
1834:
1930:
1931: begin
1932:
1933: l_api_name := 'getDefaultDistributions';
1934: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1935: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan_class = ' || p_loan_class);
1936: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan typeID = ' || p_loan_type_id);
1937: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'account type = ' || p_account_type);
1938: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'account name = ' || p_account_name);
1931: begin
1932:
1933: l_api_name := 'getDefaultDistributions';
1934: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1935: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan_class = ' || p_loan_class);
1936: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan typeID = ' || p_loan_type_id);
1937: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'account type = ' || p_account_type);
1938: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'account name = ' || p_account_name);
1939: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'line tpye = ' || p_line_type);
1932:
1933: l_api_name := 'getDefaultDistributions';
1934: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1935: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan_class = ' || p_loan_class);
1936: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan typeID = ' || p_loan_type_id);
1937: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'account type = ' || p_account_type);
1938: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'account name = ' || p_account_name);
1939: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'line tpye = ' || p_line_type);
1940: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'distribution type = ' || p_distribution_type);
1933: l_api_name := 'getDefaultDistributions';
1934: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1935: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan_class = ' || p_loan_class);
1936: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan typeID = ' || p_loan_type_id);
1937: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'account type = ' || p_account_type);
1938: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'account name = ' || p_account_name);
1939: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'line tpye = ' || p_line_type);
1940: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'distribution type = ' || p_distribution_type);
1941:
1934: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1935: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan_class = ' || p_loan_class);
1936: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan typeID = ' || p_loan_type_id);
1937: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'account type = ' || p_account_type);
1938: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'account name = ' || p_account_name);
1939: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'line tpye = ' || p_line_type);
1940: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'distribution type = ' || p_distribution_type);
1941:
1942: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'opening c_get_distribution...');
1935: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan_class = ' || p_loan_class);
1936: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan typeID = ' || p_loan_type_id);
1937: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'account type = ' || p_account_type);
1938: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'account name = ' || p_account_name);
1939: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'line tpye = ' || p_line_type);
1940: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'distribution type = ' || p_distribution_type);
1941:
1942: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'opening c_get_distribution...');
1943: OPEN c_get_distribution (p_loan_class
1936: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan typeID = ' || p_loan_type_id);
1937: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'account type = ' || p_account_type);
1938: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'account name = ' || p_account_name);
1939: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'line tpye = ' || p_line_type);
1940: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'distribution type = ' || p_distribution_type);
1941:
1942: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'opening c_get_distribution...');
1943: OPEN c_get_distribution (p_loan_class
1944: ,p_loan_type_id
1938: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'account name = ' || p_account_name);
1939: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'line tpye = ' || p_line_type);
1940: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'distribution type = ' || p_distribution_type);
1941:
1942: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'opening c_get_distribution...');
1943: OPEN c_get_distribution (p_loan_class
1944: ,p_loan_type_id
1945: ,p_account_type
1946: ,p_account_name
1964: ,l_expenditure_type
1965: ,l_expenditure_item_date;
1966: EXIT WHEN C_Get_Distribution%NOTFOUND;
1967:
1968: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Record ' || l_index);
1969: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_class = ' || l_loan_class);
1970: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_type_id = ' || l_loan_type_id);
1971: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_line_type = ' || l_line_type);
1972: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_name = ' || l_account_name);
1965: ,l_expenditure_item_date;
1966: EXIT WHEN C_Get_Distribution%NOTFOUND;
1967:
1968: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Record ' || l_index);
1969: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_class = ' || l_loan_class);
1970: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_type_id = ' || l_loan_type_id);
1971: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_line_type = ' || l_line_type);
1972: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_name = ' || l_account_name);
1973: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
1966: EXIT WHEN C_Get_Distribution%NOTFOUND;
1967:
1968: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Record ' || l_index);
1969: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_class = ' || l_loan_class);
1970: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_type_id = ' || l_loan_type_id);
1971: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_line_type = ' || l_line_type);
1972: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_name = ' || l_account_name);
1973: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
1974: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_percent = ' || l_distribution_percent);
1967:
1968: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Record ' || l_index);
1969: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_class = ' || l_loan_class);
1970: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_type_id = ' || l_loan_type_id);
1971: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_line_type = ' || l_line_type);
1972: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_name = ' || l_account_name);
1973: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
1974: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_percent = ' || l_distribution_percent);
1975: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_type = ' || l_distribution_type);
1968: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Record ' || l_index);
1969: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_class = ' || l_loan_class);
1970: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_type_id = ' || l_loan_type_id);
1971: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_line_type = ' || l_line_type);
1972: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_name = ' || l_account_name);
1973: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
1974: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_percent = ' || l_distribution_percent);
1975: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_type = ' || l_distribution_type);
1976: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_fee_id = ' || l_fee_id);
1969: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_class = ' || l_loan_class);
1970: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_type_id = ' || l_loan_type_id);
1971: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_line_type = ' || l_line_type);
1972: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_name = ' || l_account_name);
1973: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
1974: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_percent = ' || l_distribution_percent);
1975: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_type = ' || l_distribution_type);
1976: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_fee_id = ' || l_fee_id);
1977: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_org_id = ' || l_org_id);
1970: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_type_id = ' || l_loan_type_id);
1971: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_line_type = ' || l_line_type);
1972: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_name = ' || l_account_name);
1973: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
1974: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_percent = ' || l_distribution_percent);
1975: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_type = ' || l_distribution_type);
1976: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_fee_id = ' || l_fee_id);
1977: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_org_id = ' || l_org_id);
1978: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_mfar_natural_account_rec = ' || l_mfar_natural_account_rec);
1971: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_line_type = ' || l_line_type);
1972: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_name = ' || l_account_name);
1973: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
1974: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_percent = ' || l_distribution_percent);
1975: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_type = ' || l_distribution_type);
1976: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_fee_id = ' || l_fee_id);
1977: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_org_id = ' || l_org_id);
1978: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_mfar_natural_account_rec = ' || l_mfar_natural_account_rec);
1979: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_project_id = ' || l_project_id);
1972: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_name = ' || l_account_name);
1973: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
1974: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_percent = ' || l_distribution_percent);
1975: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_type = ' || l_distribution_type);
1976: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_fee_id = ' || l_fee_id);
1977: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_org_id = ' || l_org_id);
1978: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_mfar_natural_account_rec = ' || l_mfar_natural_account_rec);
1979: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_project_id = ' || l_project_id);
1980: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_award_id = ' || l_award_id);
1973: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
1974: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_percent = ' || l_distribution_percent);
1975: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_type = ' || l_distribution_type);
1976: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_fee_id = ' || l_fee_id);
1977: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_org_id = ' || l_org_id);
1978: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_mfar_natural_account_rec = ' || l_mfar_natural_account_rec);
1979: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_project_id = ' || l_project_id);
1980: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_award_id = ' || l_award_id);
1981: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_task_id = ' || l_task_id);
1974: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_percent = ' || l_distribution_percent);
1975: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_type = ' || l_distribution_type);
1976: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_fee_id = ' || l_fee_id);
1977: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_org_id = ' || l_org_id);
1978: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_mfar_natural_account_rec = ' || l_mfar_natural_account_rec);
1979: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_project_id = ' || l_project_id);
1980: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_award_id = ' || l_award_id);
1981: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_task_id = ' || l_task_id);
1982: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_expenditure_type = ' || l_expenditure_type);
1975: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_type = ' || l_distribution_type);
1976: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_fee_id = ' || l_fee_id);
1977: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_org_id = ' || l_org_id);
1978: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_mfar_natural_account_rec = ' || l_mfar_natural_account_rec);
1979: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_project_id = ' || l_project_id);
1980: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_award_id = ' || l_award_id);
1981: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_task_id = ' || l_task_id);
1982: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_expenditure_type = ' || l_expenditure_type);
1983: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_expenditure_item_date = ' || l_expenditure_item_date);
1976: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_fee_id = ' || l_fee_id);
1977: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_org_id = ' || l_org_id);
1978: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_mfar_natural_account_rec = ' || l_mfar_natural_account_rec);
1979: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_project_id = ' || l_project_id);
1980: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_award_id = ' || l_award_id);
1981: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_task_id = ' || l_task_id);
1982: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_expenditure_type = ' || l_expenditure_type);
1983: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_expenditure_item_date = ' || l_expenditure_item_date);
1984:
1977: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_org_id = ' || l_org_id);
1978: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_mfar_natural_account_rec = ' || l_mfar_natural_account_rec);
1979: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_project_id = ' || l_project_id);
1980: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_award_id = ' || l_award_id);
1981: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_task_id = ' || l_task_id);
1982: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_expenditure_type = ' || l_expenditure_type);
1983: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_expenditure_item_date = ' || l_expenditure_item_date);
1984:
1985: x_distribution_tbl(l_index).line_type := l_line_type;
1978: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_mfar_natural_account_rec = ' || l_mfar_natural_account_rec);
1979: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_project_id = ' || l_project_id);
1980: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_award_id = ' || l_award_id);
1981: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_task_id = ' || l_task_id);
1982: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_expenditure_type = ' || l_expenditure_type);
1983: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_expenditure_item_date = ' || l_expenditure_item_date);
1984:
1985: x_distribution_tbl(l_index).line_type := l_line_type;
1986: x_distribution_tbl(l_index).account_name := l_account_name;
1979: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_project_id = ' || l_project_id);
1980: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_award_id = ' || l_award_id);
1981: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_task_id = ' || l_task_id);
1982: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_expenditure_type = ' || l_expenditure_type);
1983: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_expenditure_item_date = ' || l_expenditure_item_date);
1984:
1985: x_distribution_tbl(l_index).line_type := l_line_type;
1986: x_distribution_tbl(l_index).account_name := l_account_name;
1987: x_distribution_tbl(l_index).code_combination_id := l_code_combination_id;
2015: END LOOP;
2016:
2017: CLOSE C_Get_Distribution;
2018:
2019: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'found: ' || x_distribution_tbl.count || ' distributions');
2020: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
2021: return x_distribution_tbl;
2022:
2023: end getDefaultDistributions;
2016:
2017: CLOSE C_Get_Distribution;
2018:
2019: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'found: ' || x_distribution_tbl.count || ' distributions');
2020: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
2021: return x_distribution_tbl;
2022:
2023: end getDefaultDistributions;
2024:
2114:
2115: l_api_name := 'getDistributions';
2116: l_index := 0;
2117:
2118: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
2119: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id = ' || p_loan_id);
2120: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_account_type = ' || p_account_type);
2121: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_account_name = ' || p_account_name);
2122: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_line_type = ' || p_line_type);
2115: l_api_name := 'getDistributions';
2116: l_index := 0;
2117:
2118: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
2119: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id = ' || p_loan_id);
2120: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_account_type = ' || p_account_type);
2121: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_account_name = ' || p_account_name);
2122: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_line_type = ' || p_line_type);
2123: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_distribution_type = ' || p_distribution_type);
2116: l_index := 0;
2117:
2118: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
2119: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id = ' || p_loan_id);
2120: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_account_type = ' || p_account_type);
2121: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_account_name = ' || p_account_name);
2122: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_line_type = ' || p_line_type);
2123: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_distribution_type = ' || p_distribution_type);
2124: x_distribution_tbl.delete;
2117:
2118: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
2119: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id = ' || p_loan_id);
2120: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_account_type = ' || p_account_type);
2121: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_account_name = ' || p_account_name);
2122: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_line_type = ' || p_line_type);
2123: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_distribution_type = ' || p_distribution_type);
2124: x_distribution_tbl.delete;
2125:
2118: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
2119: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id = ' || p_loan_id);
2120: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_account_type = ' || p_account_type);
2121: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_account_name = ' || p_account_name);
2122: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_line_type = ' || p_line_type);
2123: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_distribution_type = ' || p_distribution_type);
2124: x_distribution_tbl.delete;
2125:
2126: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'opening c_get_distribution...');
2119: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id = ' || p_loan_id);
2120: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_account_type = ' || p_account_type);
2121: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_account_name = ' || p_account_name);
2122: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_line_type = ' || p_line_type);
2123: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_distribution_type = ' || p_distribution_type);
2124: x_distribution_tbl.delete;
2125:
2126: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'opening c_get_distribution...');
2127: OPEN c_get_distribution (p_loan_id
2122: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_line_type = ' || p_line_type);
2123: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_distribution_type = ' || p_distribution_type);
2124: x_distribution_tbl.delete;
2125:
2126: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'opening c_get_distribution...');
2127: OPEN c_get_distribution (p_loan_id
2128: ,p_account_type
2129: ,p_account_name
2130: ,p_line_type
2147: ,l_expenditure_item_date;
2148: EXIT WHEN C_Get_Distribution%NOTFOUND;
2149: l_index := l_index + 1;
2150:
2151: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Record ' || l_index);
2152: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_id = ' || l_distribution_id);
2153: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_id = ' || l_loan_id);
2154: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_line_type = ' || l_line_type);
2155: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_name = ' || l_account_name);
2148: EXIT WHEN C_Get_Distribution%NOTFOUND;
2149: l_index := l_index + 1;
2150:
2151: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Record ' || l_index);
2152: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_id = ' || l_distribution_id);
2153: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_id = ' || l_loan_id);
2154: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_line_type = ' || l_line_type);
2155: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_name = ' || l_account_name);
2156: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
2149: l_index := l_index + 1;
2150:
2151: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Record ' || l_index);
2152: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_id = ' || l_distribution_id);
2153: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_id = ' || l_loan_id);
2154: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_line_type = ' || l_line_type);
2155: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_name = ' || l_account_name);
2156: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
2157: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_percent = ' || l_distribution_percent);
2150:
2151: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Record ' || l_index);
2152: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_id = ' || l_distribution_id);
2153: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_id = ' || l_loan_id);
2154: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_line_type = ' || l_line_type);
2155: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_name = ' || l_account_name);
2156: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
2157: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_percent = ' || l_distribution_percent);
2158: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_amount = ' || l_distribution_amount);
2151: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Record ' || l_index);
2152: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_id = ' || l_distribution_id);
2153: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_id = ' || l_loan_id);
2154: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_line_type = ' || l_line_type);
2155: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_name = ' || l_account_name);
2156: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
2157: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_percent = ' || l_distribution_percent);
2158: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_amount = ' || l_distribution_amount);
2159: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_type = ' || l_distribution_type);
2152: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_id = ' || l_distribution_id);
2153: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_id = ' || l_loan_id);
2154: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_line_type = ' || l_line_type);
2155: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_name = ' || l_account_name);
2156: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
2157: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_percent = ' || l_distribution_percent);
2158: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_amount = ' || l_distribution_amount);
2159: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_type = ' || l_distribution_type);
2160: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_event_id = ' || l_event_id);
2153: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_id = ' || l_loan_id);
2154: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_line_type = ' || l_line_type);
2155: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_name = ' || l_account_name);
2156: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
2157: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_percent = ' || l_distribution_percent);
2158: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_amount = ' || l_distribution_amount);
2159: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_type = ' || l_distribution_type);
2160: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_event_id = ' || l_event_id);
2161: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_project_id = ' || l_project_id);
2154: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_line_type = ' || l_line_type);
2155: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_name = ' || l_account_name);
2156: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
2157: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_percent = ' || l_distribution_percent);
2158: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_amount = ' || l_distribution_amount);
2159: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_type = ' || l_distribution_type);
2160: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_event_id = ' || l_event_id);
2161: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_project_id = ' || l_project_id);
2162: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_award_id = ' || l_award_id);
2155: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_name = ' || l_account_name);
2156: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
2157: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_percent = ' || l_distribution_percent);
2158: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_amount = ' || l_distribution_amount);
2159: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_type = ' || l_distribution_type);
2160: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_event_id = ' || l_event_id);
2161: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_project_id = ' || l_project_id);
2162: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_award_id = ' || l_award_id);
2163: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_task_id = ' || l_task_id);
2156: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
2157: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_percent = ' || l_distribution_percent);
2158: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_amount = ' || l_distribution_amount);
2159: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_type = ' || l_distribution_type);
2160: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_event_id = ' || l_event_id);
2161: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_project_id = ' || l_project_id);
2162: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_award_id = ' || l_award_id);
2163: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_task_id = ' || l_task_id);
2164: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_expenditure_type = ' || l_expenditure_type);
2157: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_percent = ' || l_distribution_percent);
2158: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_amount = ' || l_distribution_amount);
2159: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_type = ' || l_distribution_type);
2160: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_event_id = ' || l_event_id);
2161: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_project_id = ' || l_project_id);
2162: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_award_id = ' || l_award_id);
2163: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_task_id = ' || l_task_id);
2164: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_expenditure_type = ' || l_expenditure_type);
2165: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_expenditure_item_date = ' || l_expenditure_item_date);
2158: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_amount = ' || l_distribution_amount);
2159: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_type = ' || l_distribution_type);
2160: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_event_id = ' || l_event_id);
2161: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_project_id = ' || l_project_id);
2162: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_award_id = ' || l_award_id);
2163: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_task_id = ' || l_task_id);
2164: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_expenditure_type = ' || l_expenditure_type);
2165: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_expenditure_item_date = ' || l_expenditure_item_date);
2166:
2159: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_type = ' || l_distribution_type);
2160: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_event_id = ' || l_event_id);
2161: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_project_id = ' || l_project_id);
2162: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_award_id = ' || l_award_id);
2163: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_task_id = ' || l_task_id);
2164: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_expenditure_type = ' || l_expenditure_type);
2165: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_expenditure_item_date = ' || l_expenditure_item_date);
2166:
2167: x_distribution_tbl(l_index).distribution_id := l_distribution_id;
2160: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_event_id = ' || l_event_id);
2161: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_project_id = ' || l_project_id);
2162: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_award_id = ' || l_award_id);
2163: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_task_id = ' || l_task_id);
2164: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_expenditure_type = ' || l_expenditure_type);
2165: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_expenditure_item_date = ' || l_expenditure_item_date);
2166:
2167: x_distribution_tbl(l_index).distribution_id := l_distribution_id;
2168: x_distribution_tbl(l_index).loan_id := l_loan_id;
2161: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_project_id = ' || l_project_id);
2162: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_award_id = ' || l_award_id);
2163: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_task_id = ' || l_task_id);
2164: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_expenditure_type = ' || l_expenditure_type);
2165: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_expenditure_item_date = ' || l_expenditure_item_date);
2166:
2167: x_distribution_tbl(l_index).distribution_id := l_distribution_id;
2168: x_distribution_tbl(l_index).loan_id := l_loan_id;
2169: x_distribution_tbl(l_index).line_type := l_line_type;
2197: END LOOP;
2198:
2199: CLOSE C_Get_Distribution;
2200:
2201: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'found: ' || x_distribution_tbl.count || ' distributions');
2202: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
2203: return x_distribution_tbl;
2204:
2205: end getDistributions;
2198:
2199: CLOSE C_Get_Distribution;
2200:
2201: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'found: ' || x_distribution_tbl.count || ' distributions');
2202: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
2203: return x_distribution_tbl;
2204:
2205: end getDistributions;
2206:
2234:
2235: begin
2236: l_api_name := 'getDistributions';
2237:
2238: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
2239: OPEN c_get_distribution (p_distribution_id);
2240: FETCH C_Get_Distribution into
2241: x_distribution_rec.distribution_id
2242: ,x_distribution_rec.loan_id
2255: ,x_distribution_rec.expenditure_type
2256: ,x_distribution_rec.expenditure_item_date ;
2257: CLOSE C_Get_Distribution;
2258:
2259: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'distribution_id = ' || x_distribution_rec.distribution_id);
2260: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan_id = ' || x_distribution_rec.loan_id);
2261: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'line_type = ' || x_distribution_rec.line_type);
2262: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'account_name = ' || x_distribution_rec.account_name);
2263: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'code_combination_id = ' || x_distribution_rec.code_combination_id);
2256: ,x_distribution_rec.expenditure_item_date ;
2257: CLOSE C_Get_Distribution;
2258:
2259: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'distribution_id = ' || x_distribution_rec.distribution_id);
2260: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan_id = ' || x_distribution_rec.loan_id);
2261: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'line_type = ' || x_distribution_rec.line_type);
2262: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'account_name = ' || x_distribution_rec.account_name);
2263: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'code_combination_id = ' || x_distribution_rec.code_combination_id);
2264: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'distribution_percent = ' || x_distribution_rec.distribution_percent);
2257: CLOSE C_Get_Distribution;
2258:
2259: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'distribution_id = ' || x_distribution_rec.distribution_id);
2260: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan_id = ' || x_distribution_rec.loan_id);
2261: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'line_type = ' || x_distribution_rec.line_type);
2262: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'account_name = ' || x_distribution_rec.account_name);
2263: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'code_combination_id = ' || x_distribution_rec.code_combination_id);
2264: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'distribution_percent = ' || x_distribution_rec.distribution_percent);
2265: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'distribution_amount = ' || x_distribution_rec.distribution_amount);
2258:
2259: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'distribution_id = ' || x_distribution_rec.distribution_id);
2260: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan_id = ' || x_distribution_rec.loan_id);
2261: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'line_type = ' || x_distribution_rec.line_type);
2262: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'account_name = ' || x_distribution_rec.account_name);
2263: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'code_combination_id = ' || x_distribution_rec.code_combination_id);
2264: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'distribution_percent = ' || x_distribution_rec.distribution_percent);
2265: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'distribution_amount = ' || x_distribution_rec.distribution_amount);
2266: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'distribution_type = ' || x_distribution_rec.distribution_type);
2259: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'distribution_id = ' || x_distribution_rec.distribution_id);
2260: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan_id = ' || x_distribution_rec.loan_id);
2261: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'line_type = ' || x_distribution_rec.line_type);
2262: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'account_name = ' || x_distribution_rec.account_name);
2263: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'code_combination_id = ' || x_distribution_rec.code_combination_id);
2264: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'distribution_percent = ' || x_distribution_rec.distribution_percent);
2265: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'distribution_amount = ' || x_distribution_rec.distribution_amount);
2266: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'distribution_type = ' || x_distribution_rec.distribution_type);
2267: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'account_type = ' || x_distribution_rec.account_type);
2260: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan_id = ' || x_distribution_rec.loan_id);
2261: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'line_type = ' || x_distribution_rec.line_type);
2262: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'account_name = ' || x_distribution_rec.account_name);
2263: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'code_combination_id = ' || x_distribution_rec.code_combination_id);
2264: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'distribution_percent = ' || x_distribution_rec.distribution_percent);
2265: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'distribution_amount = ' || x_distribution_rec.distribution_amount);
2266: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'distribution_type = ' || x_distribution_rec.distribution_type);
2267: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'account_type = ' || x_distribution_rec.account_type);
2268: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'account_name = ' || x_distribution_rec.account_name);
2261: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'line_type = ' || x_distribution_rec.line_type);
2262: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'account_name = ' || x_distribution_rec.account_name);
2263: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'code_combination_id = ' || x_distribution_rec.code_combination_id);
2264: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'distribution_percent = ' || x_distribution_rec.distribution_percent);
2265: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'distribution_amount = ' || x_distribution_rec.distribution_amount);
2266: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'distribution_type = ' || x_distribution_rec.distribution_type);
2267: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'account_type = ' || x_distribution_rec.account_type);
2268: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'account_name = ' || x_distribution_rec.account_name);
2269: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'event_id = ' || x_distribution_rec.event_id);
2262: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'account_name = ' || x_distribution_rec.account_name);
2263: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'code_combination_id = ' || x_distribution_rec.code_combination_id);
2264: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'distribution_percent = ' || x_distribution_rec.distribution_percent);
2265: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'distribution_amount = ' || x_distribution_rec.distribution_amount);
2266: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'distribution_type = ' || x_distribution_rec.distribution_type);
2267: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'account_type = ' || x_distribution_rec.account_type);
2268: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'account_name = ' || x_distribution_rec.account_name);
2269: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'event_id = ' || x_distribution_rec.event_id);
2270: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_project_id = ' || x_distribution_rec.project_id);
2263: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'code_combination_id = ' || x_distribution_rec.code_combination_id);
2264: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'distribution_percent = ' || x_distribution_rec.distribution_percent);
2265: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'distribution_amount = ' || x_distribution_rec.distribution_amount);
2266: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'distribution_type = ' || x_distribution_rec.distribution_type);
2267: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'account_type = ' || x_distribution_rec.account_type);
2268: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'account_name = ' || x_distribution_rec.account_name);
2269: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'event_id = ' || x_distribution_rec.event_id);
2270: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_project_id = ' || x_distribution_rec.project_id);
2271: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_award_id = ' || x_distribution_rec.award_id);
2264: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'distribution_percent = ' || x_distribution_rec.distribution_percent);
2265: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'distribution_amount = ' || x_distribution_rec.distribution_amount);
2266: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'distribution_type = ' || x_distribution_rec.distribution_type);
2267: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'account_type = ' || x_distribution_rec.account_type);
2268: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'account_name = ' || x_distribution_rec.account_name);
2269: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'event_id = ' || x_distribution_rec.event_id);
2270: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_project_id = ' || x_distribution_rec.project_id);
2271: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_award_id = ' || x_distribution_rec.award_id);
2272: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_task_id = ' || x_distribution_rec.task_id);
2265: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'distribution_amount = ' || x_distribution_rec.distribution_amount);
2266: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'distribution_type = ' || x_distribution_rec.distribution_type);
2267: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'account_type = ' || x_distribution_rec.account_type);
2268: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'account_name = ' || x_distribution_rec.account_name);
2269: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'event_id = ' || x_distribution_rec.event_id);
2270: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_project_id = ' || x_distribution_rec.project_id);
2271: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_award_id = ' || x_distribution_rec.award_id);
2272: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_task_id = ' || x_distribution_rec.task_id);
2273: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_expenditure_type = ' || x_distribution_rec.expenditure_type);
2266: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'distribution_type = ' || x_distribution_rec.distribution_type);
2267: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'account_type = ' || x_distribution_rec.account_type);
2268: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'account_name = ' || x_distribution_rec.account_name);
2269: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'event_id = ' || x_distribution_rec.event_id);
2270: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_project_id = ' || x_distribution_rec.project_id);
2271: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_award_id = ' || x_distribution_rec.award_id);
2272: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_task_id = ' || x_distribution_rec.task_id);
2273: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_expenditure_type = ' || x_distribution_rec.expenditure_type);
2274: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_expenditure_item_date = ' || x_distribution_rec.expenditure_item_date);
2267: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'account_type = ' || x_distribution_rec.account_type);
2268: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'account_name = ' || x_distribution_rec.account_name);
2269: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'event_id = ' || x_distribution_rec.event_id);
2270: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_project_id = ' || x_distribution_rec.project_id);
2271: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_award_id = ' || x_distribution_rec.award_id);
2272: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_task_id = ' || x_distribution_rec.task_id);
2273: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_expenditure_type = ' || x_distribution_rec.expenditure_type);
2274: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_expenditure_item_date = ' || x_distribution_rec.expenditure_item_date);
2275:
2268: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'account_name = ' || x_distribution_rec.account_name);
2269: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'event_id = ' || x_distribution_rec.event_id);
2270: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_project_id = ' || x_distribution_rec.project_id);
2271: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_award_id = ' || x_distribution_rec.award_id);
2272: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_task_id = ' || x_distribution_rec.task_id);
2273: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_expenditure_type = ' || x_distribution_rec.expenditure_type);
2274: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_expenditure_item_date = ' || x_distribution_rec.expenditure_item_date);
2275:
2276: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
2269: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'event_id = ' || x_distribution_rec.event_id);
2270: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_project_id = ' || x_distribution_rec.project_id);
2271: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_award_id = ' || x_distribution_rec.award_id);
2272: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_task_id = ' || x_distribution_rec.task_id);
2273: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_expenditure_type = ' || x_distribution_rec.expenditure_type);
2274: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_expenditure_item_date = ' || x_distribution_rec.expenditure_item_date);
2275:
2276: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
2277: return x_distribution_rec;
2270: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_project_id = ' || x_distribution_rec.project_id);
2271: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_award_id = ' || x_distribution_rec.award_id);
2272: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_task_id = ' || x_distribution_rec.task_id);
2273: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_expenditure_type = ' || x_distribution_rec.expenditure_type);
2274: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_expenditure_item_date = ' || x_distribution_rec.expenditure_item_date);
2275:
2276: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
2277: return x_distribution_rec;
2278:
2272: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_task_id = ' || x_distribution_rec.task_id);
2273: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_expenditure_type = ' || x_distribution_rec.expenditure_type);
2274: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_expenditure_item_date = ' || x_distribution_rec.expenditure_item_date);
2275:
2276: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
2277: return x_distribution_rec;
2278:
2279: end getDistributions;
2280:
2376:
2377: l_api_name := 'getDistributions';
2378: l_index := 0;
2379:
2380: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
2381: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id = ' || p_loan_id);
2382: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_line_id = ' || p_loan_line_id);
2383: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_account_type = ' || p_account_type);
2384: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_account_name = ' || p_account_name);
2377: l_api_name := 'getDistributions';
2378: l_index := 0;
2379:
2380: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
2381: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id = ' || p_loan_id);
2382: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_line_id = ' || p_loan_line_id);
2383: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_account_type = ' || p_account_type);
2384: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_account_name = ' || p_account_name);
2385: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_line_type = ' || p_line_type);
2378: l_index := 0;
2379:
2380: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
2381: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id = ' || p_loan_id);
2382: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_line_id = ' || p_loan_line_id);
2383: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_account_type = ' || p_account_type);
2384: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_account_name = ' || p_account_name);
2385: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_line_type = ' || p_line_type);
2386: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_distribution_type = ' || p_distribution_type);
2379:
2380: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
2381: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id = ' || p_loan_id);
2382: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_line_id = ' || p_loan_line_id);
2383: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_account_type = ' || p_account_type);
2384: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_account_name = ' || p_account_name);
2385: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_line_type = ' || p_line_type);
2386: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_distribution_type = ' || p_distribution_type);
2387: x_distribution_tbl.delete;
2380: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
2381: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id = ' || p_loan_id);
2382: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_line_id = ' || p_loan_line_id);
2383: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_account_type = ' || p_account_type);
2384: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_account_name = ' || p_account_name);
2385: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_line_type = ' || p_line_type);
2386: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_distribution_type = ' || p_distribution_type);
2387: x_distribution_tbl.delete;
2388:
2381: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id = ' || p_loan_id);
2382: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_line_id = ' || p_loan_line_id);
2383: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_account_type = ' || p_account_type);
2384: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_account_name = ' || p_account_name);
2385: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_line_type = ' || p_line_type);
2386: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_distribution_type = ' || p_distribution_type);
2387: x_distribution_tbl.delete;
2388:
2389: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'opening c_get_distribution...');
2382: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_line_id = ' || p_loan_line_id);
2383: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_account_type = ' || p_account_type);
2384: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_account_name = ' || p_account_name);
2385: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_line_type = ' || p_line_type);
2386: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_distribution_type = ' || p_distribution_type);
2387: x_distribution_tbl.delete;
2388:
2389: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'opening c_get_distribution...');
2390: OPEN c_get_distribution (p_loan_id
2385: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_line_type = ' || p_line_type);
2386: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_distribution_type = ' || p_distribution_type);
2387: x_distribution_tbl.delete;
2388:
2389: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'opening c_get_distribution...');
2390: OPEN c_get_distribution (p_loan_id
2391: ,p_loan_line_id
2392: ,p_account_type
2393: ,p_account_name
2412: ,l_expenditure_item_date;
2413: EXIT WHEN C_Get_Distribution%NOTFOUND;
2414: l_index := l_index + 1;
2415:
2416: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Record ' || l_index);
2417: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_id = ' || l_distribution_id);
2418: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_id = ' || l_loan_id);
2419: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_line_type = ' || l_line_type);
2420: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_name = ' || l_account_name);
2413: EXIT WHEN C_Get_Distribution%NOTFOUND;
2414: l_index := l_index + 1;
2415:
2416: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Record ' || l_index);
2417: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_id = ' || l_distribution_id);
2418: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_id = ' || l_loan_id);
2419: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_line_type = ' || l_line_type);
2420: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_name = ' || l_account_name);
2421: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_type = ' || l_account_type);
2414: l_index := l_index + 1;
2415:
2416: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Record ' || l_index);
2417: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_id = ' || l_distribution_id);
2418: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_id = ' || l_loan_id);
2419: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_line_type = ' || l_line_type);
2420: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_name = ' || l_account_name);
2421: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_type = ' || l_account_type);
2422: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
2415:
2416: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Record ' || l_index);
2417: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_id = ' || l_distribution_id);
2418: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_id = ' || l_loan_id);
2419: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_line_type = ' || l_line_type);
2420: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_name = ' || l_account_name);
2421: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_type = ' || l_account_type);
2422: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
2423: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_percent = ' || l_distribution_percent);
2416: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Record ' || l_index);
2417: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_id = ' || l_distribution_id);
2418: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_id = ' || l_loan_id);
2419: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_line_type = ' || l_line_type);
2420: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_name = ' || l_account_name);
2421: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_type = ' || l_account_type);
2422: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
2423: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_percent = ' || l_distribution_percent);
2424: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_amount = ' || l_distribution_amount);
2417: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_id = ' || l_distribution_id);
2418: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_id = ' || l_loan_id);
2419: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_line_type = ' || l_line_type);
2420: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_name = ' || l_account_name);
2421: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_type = ' || l_account_type);
2422: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
2423: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_percent = ' || l_distribution_percent);
2424: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_amount = ' || l_distribution_amount);
2425: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_type = ' || l_distribution_type);
2418: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_id = ' || l_loan_id);
2419: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_line_type = ' || l_line_type);
2420: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_name = ' || l_account_name);
2421: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_type = ' || l_account_type);
2422: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
2423: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_percent = ' || l_distribution_percent);
2424: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_amount = ' || l_distribution_amount);
2425: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_type = ' || l_distribution_type);
2426: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_event_id = ' || l_event_id);
2419: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_line_type = ' || l_line_type);
2420: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_name = ' || l_account_name);
2421: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_type = ' || l_account_type);
2422: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
2423: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_percent = ' || l_distribution_percent);
2424: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_amount = ' || l_distribution_amount);
2425: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_type = ' || l_distribution_type);
2426: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_event_id = ' || l_event_id);
2427: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_project_id = ' || l_project_id);
2420: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_name = ' || l_account_name);
2421: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_type = ' || l_account_type);
2422: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
2423: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_percent = ' || l_distribution_percent);
2424: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_amount = ' || l_distribution_amount);
2425: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_type = ' || l_distribution_type);
2426: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_event_id = ' || l_event_id);
2427: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_project_id = ' || l_project_id);
2428: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_award_id = ' || l_award_id);
2421: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_type = ' || l_account_type);
2422: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
2423: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_percent = ' || l_distribution_percent);
2424: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_amount = ' || l_distribution_amount);
2425: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_type = ' || l_distribution_type);
2426: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_event_id = ' || l_event_id);
2427: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_project_id = ' || l_project_id);
2428: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_award_id = ' || l_award_id);
2429: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_task_id = ' || l_task_id);
2422: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
2423: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_percent = ' || l_distribution_percent);
2424: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_amount = ' || l_distribution_amount);
2425: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_type = ' || l_distribution_type);
2426: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_event_id = ' || l_event_id);
2427: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_project_id = ' || l_project_id);
2428: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_award_id = ' || l_award_id);
2429: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_task_id = ' || l_task_id);
2430: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_expenditure_type = ' || l_expenditure_type);
2423: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_percent = ' || l_distribution_percent);
2424: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_amount = ' || l_distribution_amount);
2425: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_type = ' || l_distribution_type);
2426: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_event_id = ' || l_event_id);
2427: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_project_id = ' || l_project_id);
2428: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_award_id = ' || l_award_id);
2429: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_task_id = ' || l_task_id);
2430: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_expenditure_type = ' || l_expenditure_type);
2431: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_expenditure_item_date = ' || l_expenditure_item_date);
2424: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_amount = ' || l_distribution_amount);
2425: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_type = ' || l_distribution_type);
2426: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_event_id = ' || l_event_id);
2427: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_project_id = ' || l_project_id);
2428: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_award_id = ' || l_award_id);
2429: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_task_id = ' || l_task_id);
2430: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_expenditure_type = ' || l_expenditure_type);
2431: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_expenditure_item_date = ' || l_expenditure_item_date);
2432:
2425: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_type = ' || l_distribution_type);
2426: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_event_id = ' || l_event_id);
2427: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_project_id = ' || l_project_id);
2428: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_award_id = ' || l_award_id);
2429: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_task_id = ' || l_task_id);
2430: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_expenditure_type = ' || l_expenditure_type);
2431: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_expenditure_item_date = ' || l_expenditure_item_date);
2432:
2433:
2426: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_event_id = ' || l_event_id);
2427: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_project_id = ' || l_project_id);
2428: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_award_id = ' || l_award_id);
2429: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_task_id = ' || l_task_id);
2430: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_expenditure_type = ' || l_expenditure_type);
2431: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_expenditure_item_date = ' || l_expenditure_item_date);
2432:
2433:
2434: x_distribution_tbl(l_index).distribution_id := l_distribution_id;
2427: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_project_id = ' || l_project_id);
2428: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_award_id = ' || l_award_id);
2429: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_task_id = ' || l_task_id);
2430: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_expenditure_type = ' || l_expenditure_type);
2431: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_expenditure_item_date = ' || l_expenditure_item_date);
2432:
2433:
2434: x_distribution_tbl(l_index).distribution_id := l_distribution_id;
2435: x_distribution_tbl(l_index).loan_id := l_loan_id;
2467: END LOOP;
2468:
2469: CLOSE C_Get_Distribution;
2470:
2471: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'found: ' || x_distribution_tbl.count || ' distributions');
2472: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
2473: return x_distribution_tbl;
2474:
2475: end getDistributions;
2468:
2469: CLOSE C_Get_Distribution;
2470:
2471: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'found: ' || x_distribution_tbl.count || ' distributions');
2472: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
2473: return x_distribution_tbl;
2474:
2475: end getDistributions;
2476:
2539: ,l_ledger_details.currency_code
2540: ,l_ledger_details.currency_precision;
2541: close c_ledger;
2542:
2543: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Ledger details:');
2544: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'set_of_books_id = ' || l_ledger_details.set_of_books_id);
2545: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'name = ' || l_ledger_details.name);
2546: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'short_name = ' || l_ledger_details.short_name);
2547: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'chart_of_accounts_id = ' || l_ledger_details.chart_of_accounts_id);
2540: ,l_ledger_details.currency_precision;
2541: close c_ledger;
2542:
2543: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Ledger details:');
2544: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'set_of_books_id = ' || l_ledger_details.set_of_books_id);
2545: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'name = ' || l_ledger_details.name);
2546: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'short_name = ' || l_ledger_details.short_name);
2547: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'chart_of_accounts_id = ' || l_ledger_details.chart_of_accounts_id);
2548: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'period_set_name = ' || l_ledger_details.period_set_name);
2541: close c_ledger;
2542:
2543: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Ledger details:');
2544: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'set_of_books_id = ' || l_ledger_details.set_of_books_id);
2545: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'name = ' || l_ledger_details.name);
2546: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'short_name = ' || l_ledger_details.short_name);
2547: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'chart_of_accounts_id = ' || l_ledger_details.chart_of_accounts_id);
2548: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'period_set_name = ' || l_ledger_details.period_set_name);
2549: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'currency_code = ' || l_ledger_details.currency_code);
2542:
2543: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Ledger details:');
2544: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'set_of_books_id = ' || l_ledger_details.set_of_books_id);
2545: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'name = ' || l_ledger_details.name);
2546: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'short_name = ' || l_ledger_details.short_name);
2547: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'chart_of_accounts_id = ' || l_ledger_details.chart_of_accounts_id);
2548: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'period_set_name = ' || l_ledger_details.period_set_name);
2549: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'currency_code = ' || l_ledger_details.currency_code);
2550: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'currency_precision = ' || l_ledger_details.currency_precision);
2543: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Ledger details:');
2544: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'set_of_books_id = ' || l_ledger_details.set_of_books_id);
2545: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'name = ' || l_ledger_details.name);
2546: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'short_name = ' || l_ledger_details.short_name);
2547: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'chart_of_accounts_id = ' || l_ledger_details.chart_of_accounts_id);
2548: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'period_set_name = ' || l_ledger_details.period_set_name);
2549: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'currency_code = ' || l_ledger_details.currency_code);
2550: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'currency_precision = ' || l_ledger_details.currency_precision);
2551:
2544: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'set_of_books_id = ' || l_ledger_details.set_of_books_id);
2545: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'name = ' || l_ledger_details.name);
2546: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'short_name = ' || l_ledger_details.short_name);
2547: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'chart_of_accounts_id = ' || l_ledger_details.chart_of_accounts_id);
2548: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'period_set_name = ' || l_ledger_details.period_set_name);
2549: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'currency_code = ' || l_ledger_details.currency_code);
2550: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'currency_precision = ' || l_ledger_details.currency_precision);
2551:
2552: return l_ledger_details;
2545: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'name = ' || l_ledger_details.name);
2546: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'short_name = ' || l_ledger_details.short_name);
2547: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'chart_of_accounts_id = ' || l_ledger_details.chart_of_accounts_id);
2548: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'period_set_name = ' || l_ledger_details.period_set_name);
2549: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'currency_code = ' || l_ledger_details.currency_code);
2550: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'currency_precision = ' || l_ledger_details.currency_precision);
2551:
2552: return l_ledger_details;
2553:
2546: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'short_name = ' || l_ledger_details.short_name);
2547: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'chart_of_accounts_id = ' || l_ledger_details.chart_of_accounts_id);
2548: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'period_set_name = ' || l_ledger_details.period_set_name);
2549: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'currency_code = ' || l_ledger_details.currency_code);
2550: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'currency_precision = ' || l_ledger_details.currency_precision);
2551:
2552: return l_ledger_details;
2553:
2554: exception
2554: exception
2555: when others then
2556: FND_MESSAGE.SET_NAME('LNS', 'LNS_LEDGER_DETAILS_FAIL');
2557: FND_MSG_PUB.ADD;
2558: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
2559: RAISE FND_API.G_EXC_ERROR;
2560: end;
2561:
2562: end getLedgerDetails;
2645:
2646: begin
2647:
2648: l_api_name := 'calculateDistributionAmount';
2649: --logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
2650: l_ledger_details := lns_distributions_pub.getLedgerDetails;
2651: l_distribution_rec := lns_distributions_pub.getDistributions(p_distribution_id);
2652:
2653: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loanID = ' || l_distribution_rec.loan_id);
2649: --logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
2650: l_ledger_details := lns_distributions_pub.getLedgerDetails;
2651: l_distribution_rec := lns_distributions_pub.getDistributions(p_distribution_id);
2652:
2653: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loanID = ' || l_distribution_rec.loan_id);
2654: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'DIST_ID = ' || p_distribution_id);
2655: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'disttype = ' || l_distribution_rec.distribution_type);
2656: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'accounttype = ' || l_distribution_rec.account_type);
2657:
2650: l_ledger_details := lns_distributions_pub.getLedgerDetails;
2651: l_distribution_rec := lns_distributions_pub.getDistributions(p_distribution_id);
2652:
2653: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loanID = ' || l_distribution_rec.loan_id);
2654: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'DIST_ID = ' || p_distribution_id);
2655: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'disttype = ' || l_distribution_rec.distribution_type);
2656: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'accounttype = ' || l_distribution_rec.account_type);
2657:
2658: if l_distribution_rec.distribution_amount is null then
2651: l_distribution_rec := lns_distributions_pub.getDistributions(p_distribution_id);
2652:
2653: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loanID = ' || l_distribution_rec.loan_id);
2654: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'DIST_ID = ' || p_distribution_id);
2655: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'disttype = ' || l_distribution_rec.distribution_type);
2656: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'accounttype = ' || l_distribution_rec.account_type);
2657:
2658: if l_distribution_rec.distribution_amount is null then
2659: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling lns_distributions_pub.getDistributions...');
2652:
2653: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loanID = ' || l_distribution_rec.loan_id);
2654: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'DIST_ID = ' || p_distribution_id);
2655: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'disttype = ' || l_distribution_rec.distribution_type);
2656: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'accounttype = ' || l_distribution_rec.account_type);
2657:
2658: if l_distribution_rec.distribution_amount is null then
2659: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling lns_distributions_pub.getDistributions...');
2660: l_distribution_tbl := lns_distributions_pub.getDistributions(p_loan_id => l_distribution_rec.loan_id
2655: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'disttype = ' || l_distribution_rec.distribution_type);
2656: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'accounttype = ' || l_distribution_rec.account_type);
2657:
2658: if l_distribution_rec.distribution_amount is null then
2659: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling lns_distributions_pub.getDistributions...');
2660: l_distribution_tbl := lns_distributions_pub.getDistributions(p_loan_id => l_distribution_rec.loan_id
2661: ,p_account_type => l_distribution_rec.account_type
2662: ,p_account_name => l_distribution_rec.account_name
2663: ,p_line_type => l_distribution_rec.line_type
2667: ,l_distribution_rec.account_type);
2668: fetch c_max_dist into l_max_distribution_id;
2669: close c_max_dist;
2670:
2671: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_max_distribution_id = ' ||l_max_distribution_id);
2672:
2673: -- check to see if this is the last distribution
2674: if l_max_distribution_id = p_distribution_id and l_distribution_tbl.count > 1 then
2675: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'last distribution');
2671: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_max_distribution_id = ' ||l_max_distribution_id);
2672:
2673: -- check to see if this is the last distribution
2674: if l_max_distribution_id = p_distribution_id and l_distribution_tbl.count > 1 then
2675: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'last distribution');
2676: open c_last_distribution(l_distribution_rec.loan_id
2677: ,l_distribution_rec.distribution_id
2678: ,l_distribution_rec.distribution_type
2679: ,l_distribution_rec.account_type);
2679: ,l_distribution_rec.account_type);
2680: fetch c_last_distribution into l_distribution_amount;
2681: close c_last_distribution;
2682: else
2683: --logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
2684: open c_get_distribution(p_distribution_id);
2685: fetch c_get_distribution into l_distribution_amount;
2686: close c_get_distribution;
2687:
2689: else
2690: l_distribution_amount := l_distribution_rec.distribution_amount;
2691: end if;
2692:
2693: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_amount = ' ||l_distribution_amount);
2694: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
2695: return l_distribution_amount;
2696:
2697: end calculateDistributionAmount;
2690: l_distribution_amount := l_distribution_rec.distribution_amount;
2691: end if;
2692:
2693: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_amount = ' ||l_distribution_amount);
2694: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
2695: return l_distribution_amount;
2696:
2697: end calculateDistributionAmount;
2698:
2785: begin
2786:
2787: l_api_name := 'calculateDistributionAmount';
2788:
2789: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
2790: l_ledger_details := lns_distributions_pub.getLedgerDetails;
2791: l_distribution_rec := lns_distributions_pub.getDistributions(p_distribution_id);
2792:
2793: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loanID = ' || l_distribution_rec.loan_id);
2789: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
2790: l_ledger_details := lns_distributions_pub.getLedgerDetails;
2791: l_distribution_rec := lns_distributions_pub.getDistributions(p_distribution_id);
2792:
2793: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loanID = ' || l_distribution_rec.loan_id);
2794: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'DIST_ID = ' || p_distribution_id);
2795: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'disttype = ' || l_distribution_rec.distribution_type);
2796: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'accounttype = ' || l_distribution_rec.account_type);
2797: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'accounted flag = ' || p_accounted_flag);
2790: l_ledger_details := lns_distributions_pub.getLedgerDetails;
2791: l_distribution_rec := lns_distributions_pub.getDistributions(p_distribution_id);
2792:
2793: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loanID = ' || l_distribution_rec.loan_id);
2794: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'DIST_ID = ' || p_distribution_id);
2795: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'disttype = ' || l_distribution_rec.distribution_type);
2796: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'accounttype = ' || l_distribution_rec.account_type);
2797: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'accounted flag = ' || p_accounted_flag);
2798:
2791: l_distribution_rec := lns_distributions_pub.getDistributions(p_distribution_id);
2792:
2793: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loanID = ' || l_distribution_rec.loan_id);
2794: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'DIST_ID = ' || p_distribution_id);
2795: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'disttype = ' || l_distribution_rec.distribution_type);
2796: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'accounttype = ' || l_distribution_rec.account_type);
2797: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'accounted flag = ' || p_accounted_flag);
2798:
2799: if p_accounted_flag = 'Y' then
2792:
2793: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loanID = ' || l_distribution_rec.loan_id);
2794: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'DIST_ID = ' || p_distribution_id);
2795: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'disttype = ' || l_distribution_rec.distribution_type);
2796: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'accounttype = ' || l_distribution_rec.account_type);
2797: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'accounted flag = ' || p_accounted_flag);
2798:
2799: if p_accounted_flag = 'Y' then
2800:
2793: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loanID = ' || l_distribution_rec.loan_id);
2794: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'DIST_ID = ' || p_distribution_id);
2795: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'disttype = ' || l_distribution_rec.distribution_type);
2796: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'accounttype = ' || l_distribution_rec.account_type);
2797: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'accounted flag = ' || p_accounted_flag);
2798:
2799: if p_accounted_flag = 'Y' then
2800:
2801: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loanID = ' || l_distribution_rec.loan_id);
2797: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'accounted flag = ' || p_accounted_flag);
2798:
2799: if p_accounted_flag = 'Y' then
2800:
2801: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loanID = ' || l_distribution_rec.loan_id);
2802: open c_exchange_info(l_distribution_rec.loan_id);
2803: fetch c_exchange_info into
2804: l_exchange_rate_type
2805: ,l_exchange_rate
2805: ,l_exchange_rate
2806: ,l_exchange_date
2807: ,l_currency_code;
2808: close c_exchange_info;
2809: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'exchange rate type = ' || l_exchange_rate_type);
2810: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'exchange rate = ' || l_exchange_rate);
2811: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'exchange date = ' || l_exchange_date);
2812: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'currency = ' || l_currency_code);
2813: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'currency2 = ' || l_ledger_details.CURRENCY_CODE);
2806: ,l_exchange_date
2807: ,l_currency_code;
2808: close c_exchange_info;
2809: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'exchange rate type = ' || l_exchange_rate_type);
2810: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'exchange rate = ' || l_exchange_rate);
2811: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'exchange date = ' || l_exchange_date);
2812: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'currency = ' || l_currency_code);
2813: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'currency2 = ' || l_ledger_details.CURRENCY_CODE);
2814: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'amount = ' || l_distribution_rec.distribution_amount);
2807: ,l_currency_code;
2808: close c_exchange_info;
2809: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'exchange rate type = ' || l_exchange_rate_type);
2810: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'exchange rate = ' || l_exchange_rate);
2811: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'exchange date = ' || l_exchange_date);
2812: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'currency = ' || l_currency_code);
2813: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'currency2 = ' || l_ledger_details.CURRENCY_CODE);
2814: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'amount = ' || l_distribution_rec.distribution_amount);
2815:
2808: close c_exchange_info;
2809: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'exchange rate type = ' || l_exchange_rate_type);
2810: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'exchange rate = ' || l_exchange_rate);
2811: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'exchange date = ' || l_exchange_date);
2812: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'currency = ' || l_currency_code);
2813: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'currency2 = ' || l_ledger_details.CURRENCY_CODE);
2814: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'amount = ' || l_distribution_rec.distribution_amount);
2815:
2816: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling lns_utility_pub.convertAmount...');
2809: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'exchange rate type = ' || l_exchange_rate_type);
2810: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'exchange rate = ' || l_exchange_rate);
2811: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'exchange date = ' || l_exchange_date);
2812: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'currency = ' || l_currency_code);
2813: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'currency2 = ' || l_ledger_details.CURRENCY_CODE);
2814: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'amount = ' || l_distribution_rec.distribution_amount);
2815:
2816: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling lns_utility_pub.convertAmount...');
2817: l_return := lns_utility_pub.convertAmount(p_from_amount => l_distribution_rec.distribution_amount
2810: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'exchange rate = ' || l_exchange_rate);
2811: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'exchange date = ' || l_exchange_date);
2812: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'currency = ' || l_currency_code);
2813: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'currency2 = ' || l_ledger_details.CURRENCY_CODE);
2814: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'amount = ' || l_distribution_rec.distribution_amount);
2815:
2816: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling lns_utility_pub.convertAmount...');
2817: l_return := lns_utility_pub.convertAmount(p_from_amount => l_distribution_rec.distribution_amount
2818: ,p_from_currency => l_currency_code -- loan currency
2812: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'currency = ' || l_currency_code);
2813: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'currency2 = ' || l_ledger_details.CURRENCY_CODE);
2814: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'amount = ' || l_distribution_rec.distribution_amount);
2815:
2816: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling lns_utility_pub.convertAmount...');
2817: l_return := lns_utility_pub.convertAmount(p_from_amount => l_distribution_rec.distribution_amount
2818: ,p_from_currency => l_currency_code -- loan currency
2819: ,p_to_currency => l_ledger_details.CURRENCY_CODE -- set of books currency
2820: ,p_exchange_type => l_exchange_rate_type
2823: else
2824: l_return := l_distribution_rec.distribution_amount;
2825: end if;
2826:
2827: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'accounted amount = ' || l_return);
2828: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
2829:
2830: return l_return;
2831:
2824: l_return := l_distribution_rec.distribution_amount;
2825: end if;
2826:
2827: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'accounted amount = ' || l_return);
2828: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
2829:
2830: return l_return;
2831:
2832: end calculateDistributionAmount;
2856: WHERE sb.set_of_books_id = so.set_of_books_id;
2857:
2858: begin
2859: l_api_name := 'calculateDistAmount';
2860: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
2861: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'DIST_ID = ' || p_distribution_id);
2862:
2863: if p_accounted_flag = 'Y' then
2864: open c_currency2;
2857:
2858: begin
2859: l_api_name := 'calculateDistAmount';
2860: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
2861: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'DIST_ID = ' || p_distribution_id);
2862:
2863: if p_accounted_flag = 'Y' then
2864: open c_currency2;
2865: fetch c_currency2 into l_currency;
2874: ,p_accounted_flag => p_accounted_flag);
2875: l_char := to_char(l_amount, fnd_currency.safe_get_format_mask(l_currency,25));
2876:
2877: l_return := l_char || ' ' || l_currency;
2878: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'returned amount = ' || l_return);
2879: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
2880:
2881: return l_return;
2882: end;
2875: l_char := to_char(l_amount, fnd_currency.safe_get_format_mask(l_currency,25));
2876:
2877: l_return := l_char || ' ' || l_currency;
2878: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'returned amount = ' || l_return);
2879: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
2880:
2881: return l_return;
2882: end;
2883:
2946:
2947: open c_segmentNumber(p_flex_code , p_application_id , p_segment_attribute_type );
2948: fetch c_segmentNumber into l_flex_seg_num;
2949: close c_segmentNumber;
2950: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_flex_seg_num = ' || l_flex_seg_num);
2951:
2952: return l_flex_seg_num;
2953:
2954: end getFlexSegmentNumber;
3012: begin
3013: open c_valueSetID(p_segment_attribute_type);
3014: fetch c_valueSetID into l_value_set_id;
3015: close c_valueSetID;
3016: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_value_set_id = ' || l_value_set_id);
3017:
3018: return l_value_set_id;
3019:
3020: end getValueSetID;
3121:
3122: begin
3123:
3124: l_api_name := 'validateAccounting1';
3125: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
3126:
3127: -- Initialize message list IF p_init_msg_list is set to TRUE.
3128: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3129: FND_MSG_PUB.initialize;
3140: open c_loan_class(p_loan_id);
3141: fetch c_loan_class into l_loan_class, l_loan_status;
3142: close c_loan_class;
3143:
3144: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_class = ' || l_loan_class);
3145: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_status = ' || l_loan_status);
3146: -- get the distributions details
3147: /*
3148: l_loan_liability_fund := LNS_DISTRIBUTIONS_PUB.getDistributions(p_loan_id => p_loan_id
3141: fetch c_loan_class into l_loan_class, l_loan_status;
3142: close c_loan_class;
3143:
3144: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_class = ' || l_loan_class);
3145: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_status = ' || l_loan_status);
3146: -- get the distributions details
3147: /*
3148: l_loan_liability_fund := LNS_DISTRIBUTIONS_PUB.getDistributions(p_loan_id => p_loan_id
3149: ,p_account_type => 'DR'
3152: ,p_distribution_type => 'FUNDING');
3153: */
3154: if l_loan_class = 'ERS' then
3155:
3156: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling LNS_DISTRIBUTIONS_PUB.getDistributions 1...');
3157: l_loan_clearing_orig := LNS_DISTRIBUTIONS_PUB.getDistributions(p_loan_id => p_loan_id
3158: ,p_account_type => 'CR'
3159: ,p_account_name => 'LOAN_CLEARING'
3160: ,p_line_type => 'CLEAR'
3160: ,p_line_type => 'CLEAR'
3161: ,p_distribution_type => 'ORIGINATION');
3162: elsif l_loan_class = 'DIRECT' then
3163:
3164: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling LNS_DISTRIBUTIONS_PUB.getDistributions 2...');
3165: l_loan_clearing_orig := LNS_DISTRIBUTIONS_PUB.getDistributions(p_loan_id => p_loan_id
3166: ,p_account_type => 'CR'
3167: ,p_account_name => 'LOAN_PAYABLE'
3168: ,p_line_type => 'CLEAR'
3168: ,p_line_type => 'CLEAR'
3169: ,p_distribution_type => 'ORIGINATION');
3170: end if;
3171:
3172: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling LNS_DISTRIBUTIONS_PUB.getDistributions 3...');
3173: l_loan_receivables_orig := LNS_DISTRIBUTIONS_PUB.getDistributions(p_loan_id => p_loan_id
3174: ,p_account_type => 'DR'
3175: ,p_account_name => 'LOAN_RECEIVABLE'
3176: ,p_line_type => 'ORIG'
3175: ,p_account_name => 'LOAN_RECEIVABLE'
3176: ,p_line_type => 'ORIG'
3177: ,p_distribution_type => 'ORIGINATION');
3178:
3179: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling LNS_DISTRIBUTIONS_PUB.getDistributions 4...');
3180: IF ((l_loan_class = 'ERS') AND (l_loan_status NOT IN ('INCOMPLETE', 'PENDING', 'APPROVED')) ) THEN
3181: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'FETCH ERS ACTIVE distributions');
3182: l_index := 0;
3183: OPEN c_get_prin_distr(p_loan_id);
3177: ,p_distribution_type => 'ORIGINATION');
3178:
3179: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling LNS_DISTRIBUTIONS_PUB.getDistributions 4...');
3180: IF ((l_loan_class = 'ERS') AND (l_loan_status NOT IN ('INCOMPLETE', 'PENDING', 'APPROVED')) ) THEN
3181: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'FETCH ERS ACTIVE distributions');
3182: l_index := 0;
3183: OPEN c_get_prin_distr(p_loan_id);
3184: LOOP
3185: FETCH c_get_prin_distr INTO
3208:
3209: END LOOP;
3210: CLOSE c_get_prin_distr;
3211:
3212: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Fetched ' || l_loan_receivables_bill.count || ' records');
3213:
3214: ELSE
3215: l_loan_receivables_bill := LNS_DISTRIBUTIONS_PUB.getDistributions(p_loan_id => p_loan_id
3216: ,p_account_type => 'CR'
3218: ,p_line_type => 'PRIN'
3219: ,p_distribution_type => 'BILLING');
3220: END IF;
3221:
3222: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling LNS_DISTRIBUTIONS_PUB.getDistributions 5...');
3223: l_prin_receivables_bill := LNS_DISTRIBUTIONS_PUB.getDistributions(p_loan_id => p_loan_id
3224: ,p_account_type => 'DR'
3225: ,p_account_name => 'PRINCIPAL_RECEIVABLE'
3226: ,p_line_type => 'PRIN'
3225: ,p_account_name => 'PRINCIPAL_RECEIVABLE'
3226: ,p_line_type => 'PRIN'
3227: ,p_distribution_type => 'BILLING');
3228:
3229: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling LNS_DISTRIBUTIONS_PUB.getDistributions 6...');
3230: l_int_receivables_bill := LNS_DISTRIBUTIONS_PUB.getDistributions(p_loan_id => p_loan_id
3231: ,p_account_type => 'DR'
3232: ,p_account_name => 'INTEREST_RECEIVABLE'
3233: ,p_line_type => 'INT'
3232: ,p_account_name => 'INTEREST_RECEIVABLE'
3233: ,p_line_type => 'INT'
3234: ,p_distribution_type => 'BILLING');
3235:
3236: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling LNS_DISTRIBUTIONS_PUB.getDistributions 7...');
3237: l_int_income_bill := LNS_DISTRIBUTIONS_PUB.getDistributions(p_loan_id => p_loan_id
3238: ,p_account_type => 'CR'
3239: ,p_account_name => 'INTEREST_INCOME'
3240: ,p_line_type => 'INT'
3241: ,p_distribution_type => 'BILLING');
3242:
3243: if l_loan_class = 'ERS' then
3244:
3245: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ERS VALIDATION');
3246:
3247: /*
3248: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'getting number of receivables on ers loan');
3249: open c_num_receivables_ers(p_loan_id);
3244:
3245: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ERS VALIDATION');
3246:
3247: /*
3248: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'getting number of receivables on ers loan');
3249: open c_num_receivables_ers(p_loan_id);
3250: fetch c_num_receivables_ers into l_num_receivables_ers;
3251: close c_num_receivables_ers;
3252: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'num is: ' || l_num_receivables_ers);
3248: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'getting number of receivables on ers loan');
3249: open c_num_receivables_ers(p_loan_id);
3250: fetch c_num_receivables_ers into l_num_receivables_ers;
3251: close c_num_receivables_ers;
3252: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'num is: ' || l_num_receivables_ers);
3253:
3254: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'getting number of receivables ACCOUNTED');
3255: open c_num_receivables_acc(p_loan_id);
3256: fetch c_num_receivables_acc into l_num_receivables_acc;
3250: fetch c_num_receivables_ers into l_num_receivables_ers;
3251: close c_num_receivables_ers;
3252: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'num is: ' || l_num_receivables_ers);
3253:
3254: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'getting number of receivables ACCOUNTED');
3255: open c_num_receivables_acc(p_loan_id);
3256: fetch c_num_receivables_acc into l_num_receivables_acc;
3257: close c_num_receivables_acc;
3258: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'num is: ' || l_num_receivables_acc);
3254: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'getting number of receivables ACCOUNTED');
3255: open c_num_receivables_acc(p_loan_id);
3256: fetch c_num_receivables_acc into l_num_receivables_acc;
3257: close c_num_receivables_acc;
3258: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'num is: ' || l_num_receivables_acc);
3259:
3260: if l_num_receivables_acc <> l_num_receivables_ers then
3261: FND_MESSAGE.Set_Name('LNS', 'LNS_AR_RECEIVABLES_UNACC');
3262: FND_MSG_PUB.Add;
3268: -- Bug#7406404 - Once the loan becomes active, and after adding 'Additonal Receivables', then Prin Loan Receivable
3269: -- new distributions might add and so these distributions can be different from Origination LoanReceivable
3270: -- distributions. So once the loan becomes active, no need to compare Origination and Principal Loan Receivable dist.
3271: IF l_loan_status IN ('INCOMPLETE', 'PENDING', 'APPROVED') THEN
3272: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'comparing origination receivables to billing receivables count');
3273: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan recivables origination Count = ' || l_loan_receivables_orig.count );
3274: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan recivables billing Count = ' || l_loan_receivables_bill.count);
3275: if l_loan_receivables_orig.count <> l_loan_receivables_bill.count then
3276: FND_MESSAGE.Set_Name('LNS', 'LNS_ACC_INVALID_RECEIVABLES');
3269: -- new distributions might add and so these distributions can be different from Origination LoanReceivable
3270: -- distributions. So once the loan becomes active, no need to compare Origination and Principal Loan Receivable dist.
3271: IF l_loan_status IN ('INCOMPLETE', 'PENDING', 'APPROVED') THEN
3272: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'comparing origination receivables to billing receivables count');
3273: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan recivables origination Count = ' || l_loan_receivables_orig.count );
3274: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan recivables billing Count = ' || l_loan_receivables_bill.count);
3275: if l_loan_receivables_orig.count <> l_loan_receivables_bill.count then
3276: FND_MESSAGE.Set_Name('LNS', 'LNS_ACC_INVALID_RECEIVABLES');
3277: FND_MSG_PUB.Add;
3270: -- distributions. So once the loan becomes active, no need to compare Origination and Principal Loan Receivable dist.
3271: IF l_loan_status IN ('INCOMPLETE', 'PENDING', 'APPROVED') THEN
3272: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'comparing origination receivables to billing receivables count');
3273: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan recivables origination Count = ' || l_loan_receivables_orig.count );
3274: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan recivables billing Count = ' || l_loan_receivables_bill.count);
3275: if l_loan_receivables_orig.count <> l_loan_receivables_bill.count then
3276: FND_MESSAGE.Set_Name('LNS', 'LNS_ACC_INVALID_RECEIVABLES');
3277: FND_MSG_PUB.Add;
3278: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
3274: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan recivables billing Count = ' || l_loan_receivables_bill.count);
3275: if l_loan_receivables_orig.count <> l_loan_receivables_bill.count then
3276: FND_MESSAGE.Set_Name('LNS', 'LNS_ACC_INVALID_RECEIVABLES');
3277: FND_MSG_PUB.Add;
3278: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
3279: RAISE FND_API.G_EXC_ERROR;
3280: end if;
3281:
3282: -- B. The account code combinations for the Loans Receivable accounts within
3283: -- Origination must be the same as the account code combinations for the Loans
3284: -- Receivable accounts within Billing
3285: for j in 1..l_loan_receivables_orig.count loop
3286:
3287: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'comparing origination receivables to billing receivables cc_ids');
3288: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan recivables origination cc_id = ' || l_loan_receivables_orig(j).code_combination_id );
3289: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan recivables billing cc_id = ' || l_loan_receivables_bill(j).code_combination_id);
3290: if l_loan_receivables_orig(j).code_combination_id <> l_loan_receivables_bill(j).code_combination_id then
3291: FND_MESSAGE.Set_Name('LNS', 'LNS_ACC_LOAN_REC_CCIDS_UNMATCH');
3284: -- Receivable accounts within Billing
3285: for j in 1..l_loan_receivables_orig.count loop
3286:
3287: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'comparing origination receivables to billing receivables cc_ids');
3288: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan recivables origination cc_id = ' || l_loan_receivables_orig(j).code_combination_id );
3289: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan recivables billing cc_id = ' || l_loan_receivables_bill(j).code_combination_id);
3290: if l_loan_receivables_orig(j).code_combination_id <> l_loan_receivables_bill(j).code_combination_id then
3291: FND_MESSAGE.Set_Name('LNS', 'LNS_ACC_LOAN_REC_CCIDS_UNMATCH');
3292: FND_MSG_PUB.Add;
3285: for j in 1..l_loan_receivables_orig.count loop
3286:
3287: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'comparing origination receivables to billing receivables cc_ids');
3288: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan recivables origination cc_id = ' || l_loan_receivables_orig(j).code_combination_id );
3289: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan recivables billing cc_id = ' || l_loan_receivables_bill(j).code_combination_id);
3290: if l_loan_receivables_orig(j).code_combination_id <> l_loan_receivables_bill(j).code_combination_id then
3291: FND_MESSAGE.Set_Name('LNS', 'LNS_ACC_LOAN_REC_CCIDS_UNMATCH');
3292: FND_MSG_PUB.Add;
3293: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
3289: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan recivables billing cc_id = ' || l_loan_receivables_bill(j).code_combination_id);
3290: if l_loan_receivables_orig(j).code_combination_id <> l_loan_receivables_bill(j).code_combination_id then
3291: FND_MESSAGE.Set_Name('LNS', 'LNS_ACC_LOAN_REC_CCIDS_UNMATCH');
3292: FND_MSG_PUB.Add;
3293: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
3294: RAISE FND_API.G_EXC_ERROR;
3295: end if;
3296:
3297: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'checking for duplicate IDs');
3293: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
3294: RAISE FND_API.G_EXC_ERROR;
3295: end if;
3296:
3297: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'checking for duplicate IDs');
3298: if j < l_loan_receivables_orig.count then
3299: if (l_loan_receivables_orig(j).code_combination_id = l_loan_receivables_orig(j+1).code_combination_id)
3300: then
3301: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'found duplicate IDs');
3297: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'checking for duplicate IDs');
3298: if j < l_loan_receivables_orig.count then
3299: if (l_loan_receivables_orig(j).code_combination_id = l_loan_receivables_orig(j+1).code_combination_id)
3300: then
3301: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'found duplicate IDs');
3302: FND_MESSAGE.Set_Name('LNS', 'LNS_UNIQUE_CC_IDS');
3303: FND_MSG_PUB.Add;
3304: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
3305: RAISE FND_API.G_EXC_ERROR;
3300: then
3301: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'found duplicate IDs');
3302: FND_MESSAGE.Set_Name('LNS', 'LNS_UNIQUE_CC_IDS');
3303: FND_MSG_PUB.Add;
3304: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
3305: RAISE FND_API.G_EXC_ERROR;
3306: end if;
3307: end if;
3308:
3308:
3309: -- F. The code combinations distribution percentages for each Loans Receivable
3310: -- within Origination must equal the distribution percentage for each Loans
3311: -- Receivable within Billing
3312: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'comparing origination receivables to billing receivables percentages');
3313: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan recivables origination percent = ' || l_loan_receivables_orig(j).distribution_percent );
3314: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan recivables billing percent = ' || l_loan_receivables_bill(j).distribution_percent);
3315: if l_loan_receivables_orig(j).distribution_percent <> l_loan_receivables_bill(j).distribution_percent then
3316: FND_MESSAGE.Set_Name('LNS', 'LNS_ACC_LOAN_REC_PER_UNMATCH');
3309: -- F. The code combinations distribution percentages for each Loans Receivable
3310: -- within Origination must equal the distribution percentage for each Loans
3311: -- Receivable within Billing
3312: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'comparing origination receivables to billing receivables percentages');
3313: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan recivables origination percent = ' || l_loan_receivables_orig(j).distribution_percent );
3314: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan recivables billing percent = ' || l_loan_receivables_bill(j).distribution_percent);
3315: if l_loan_receivables_orig(j).distribution_percent <> l_loan_receivables_bill(j).distribution_percent then
3316: FND_MESSAGE.Set_Name('LNS', 'LNS_ACC_LOAN_REC_PER_UNMATCH');
3317: FND_MSG_PUB.Add;
3310: -- within Origination must equal the distribution percentage for each Loans
3311: -- Receivable within Billing
3312: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'comparing origination receivables to billing receivables percentages');
3313: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan recivables origination percent = ' || l_loan_receivables_orig(j).distribution_percent );
3314: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan recivables billing percent = ' || l_loan_receivables_bill(j).distribution_percent);
3315: if l_loan_receivables_orig(j).distribution_percent <> l_loan_receivables_bill(j).distribution_percent then
3316: FND_MESSAGE.Set_Name('LNS', 'LNS_ACC_LOAN_REC_PER_UNMATCH');
3317: FND_MSG_PUB.Add;
3318: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
3314: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan recivables billing percent = ' || l_loan_receivables_bill(j).distribution_percent);
3315: if l_loan_receivables_orig(j).distribution_percent <> l_loan_receivables_bill(j).distribution_percent then
3316: FND_MESSAGE.Set_Name('LNS', 'LNS_ACC_LOAN_REC_PER_UNMATCH');
3317: FND_MSG_PUB.Add;
3318: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
3319: RAISE FND_API.G_EXC_ERROR;
3320: end if;
3321:
3322: l_dist_percent_rec_orig := l_dist_percent_rec_orig + l_loan_receivables_orig(j).distribution_percent;
3330: /*
3331: for j in 1..l_loan_receivables_orig.count loop
3332: l_dist_percent_rec_orig := l_dist_percent_rec_orig + l_loan_receivables_orig(j).distribution_percent;
3333: end loop;
3334: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Origination LoanRec TotPercent: ' || l_dist_percent_rec_orig);
3335: */
3336:
3337: for j in 1..l_loan_receivables_bill.count loop
3338: l_dist_percent_rec_bill := l_dist_percent_rec_bill + l_loan_receivables_bill(j).distribution_percent;
3337: for j in 1..l_loan_receivables_bill.count loop
3338: l_dist_percent_rec_bill := l_dist_percent_rec_bill + l_loan_receivables_bill(j).distribution_percent;
3339: end loop;
3340:
3341: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'checking ERS Prin Billing receivables total percentages');
3342: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Prin Billing loan recivables total percent: ' || l_dist_percent_rec_bill);
3343: if l_dist_percent_rec_bill <> 100 then
3344: FND_MESSAGE.Set_Name('LNS', 'LNS_ACC_BILL_REC_PER_INVALID');
3345: FND_MSG_PUB.Add;
3338: l_dist_percent_rec_bill := l_dist_percent_rec_bill + l_loan_receivables_bill(j).distribution_percent;
3339: end loop;
3340:
3341: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'checking ERS Prin Billing receivables total percentages');
3342: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Prin Billing loan recivables total percent: ' || l_dist_percent_rec_bill);
3343: if l_dist_percent_rec_bill <> 100 then
3344: FND_MESSAGE.Set_Name('LNS', 'LNS_ACC_BILL_REC_PER_INVALID');
3345: FND_MSG_PUB.Add;
3346: RAISE FND_API.G_EXC_ERROR;
3354: IF (l_loan_status IN ('INCOMPLETE', 'PENDING', 'APPROVED')) THEN
3355:
3356: -- Bug#10266158 - If the no. of Receivables and no. of Clear records are different then
3357: -- check duplicate Id's separately for receivables and clear records
3358: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'checking for duplicate IDs for CLEAR records');
3359: for p in 1..l_loan_clearing_orig.count loop
3360: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan clear origination cc_id at '||p||' = ' || l_loan_clearing_orig(p).code_combination_id );
3361: if p < l_loan_clearing_orig.count then
3362: if (l_loan_clearing_orig(p).code_combination_id = l_loan_clearing_orig(p+1).code_combination_id) then
3356: -- Bug#10266158 - If the no. of Receivables and no. of Clear records are different then
3357: -- check duplicate Id's separately for receivables and clear records
3358: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'checking for duplicate IDs for CLEAR records');
3359: for p in 1..l_loan_clearing_orig.count loop
3360: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan clear origination cc_id at '||p||' = ' || l_loan_clearing_orig(p).code_combination_id );
3361: if p < l_loan_clearing_orig.count then
3362: if (l_loan_clearing_orig(p).code_combination_id = l_loan_clearing_orig(p+1).code_combination_id) then
3363: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'found duplicate IDs');
3364: FND_MESSAGE.Set_Name('LNS', 'LNS_UNIQUE_CC_IDS');
3359: for p in 1..l_loan_clearing_orig.count loop
3360: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan clear origination cc_id at '||p||' = ' || l_loan_clearing_orig(p).code_combination_id );
3361: if p < l_loan_clearing_orig.count then
3362: if (l_loan_clearing_orig(p).code_combination_id = l_loan_clearing_orig(p+1).code_combination_id) then
3363: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'found duplicate IDs');
3364: FND_MESSAGE.Set_Name('LNS', 'LNS_UNIQUE_CC_IDS');
3365: FND_MSG_PUB.Add;
3366: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
3367: RAISE FND_API.G_EXC_ERROR;
3362: if (l_loan_clearing_orig(p).code_combination_id = l_loan_clearing_orig(p+1).code_combination_id) then
3363: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'found duplicate IDs');
3364: FND_MESSAGE.Set_Name('LNS', 'LNS_UNIQUE_CC_IDS');
3365: FND_MSG_PUB.Add;
3366: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
3367: RAISE FND_API.G_EXC_ERROR;
3368: end if;
3369: end if;
3370: l_dist_percent_clear_orig := l_dist_percent_clear_orig + l_loan_clearing_orig(p).distribution_percent;
3374:
3375: -- C. The distribution percentage for the Loans Receivable accounts in both
3376: -- Origination and Billing must add to 100%
3377:
3378: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'checking origination receivables total percentages');
3379: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan recivables total percent = ' || l_dist_percent_rec_orig);
3380: if l_dist_percent_rec_orig <> 100 then
3381: FND_MESSAGE.Set_Name('LNS', 'LNS_ACC_ORIG_REC_PER_INVALID');
3382: FND_MSG_PUB.Add;
3375: -- C. The distribution percentage for the Loans Receivable accounts in both
3376: -- Origination and Billing must add to 100%
3377:
3378: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'checking origination receivables total percentages');
3379: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan recivables total percent = ' || l_dist_percent_rec_orig);
3380: if l_dist_percent_rec_orig <> 100 then
3381: FND_MESSAGE.Set_Name('LNS', 'LNS_ACC_ORIG_REC_PER_INVALID');
3382: FND_MSG_PUB.Add;
3383: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
3379: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan recivables total percent = ' || l_dist_percent_rec_orig);
3380: if l_dist_percent_rec_orig <> 100 then
3381: FND_MESSAGE.Set_Name('LNS', 'LNS_ACC_ORIG_REC_PER_INVALID');
3382: FND_MSG_PUB.Add;
3383: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
3384: RAISE FND_API.G_EXC_ERROR;
3385: end if;
3386:
3387: -- D. The distribution percentage for the Loans Clearing accounts in Origination must add to 100%
3385: end if;
3386:
3387: -- D. The distribution percentage for the Loans Clearing accounts in Origination must add to 100%
3388:
3389: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'checking origination clearing total percentages');
3390: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan clearing total percent = ' || l_dist_percent_clear_orig);
3391: if l_dist_percent_clear_orig <> 100 then
3392: FND_MESSAGE.Set_Name('LNS', 'LNS_ACC_ORIG_CLR_PER_INVALID');
3393: FND_MSG_PUB.Add;
3386:
3387: -- D. The distribution percentage for the Loans Clearing accounts in Origination must add to 100%
3388:
3389: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'checking origination clearing total percentages');
3390: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan clearing total percent = ' || l_dist_percent_clear_orig);
3391: if l_dist_percent_clear_orig <> 100 then
3392: FND_MESSAGE.Set_Name('LNS', 'LNS_ACC_ORIG_CLR_PER_INVALID');
3393: FND_MSG_PUB.Add;
3394: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
3390: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan clearing total percent = ' || l_dist_percent_clear_orig);
3391: if l_dist_percent_clear_orig <> 100 then
3392: FND_MESSAGE.Set_Name('LNS', 'LNS_ACC_ORIG_CLR_PER_INVALID');
3393: FND_MSG_PUB.Add;
3394: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
3395: RAISE FND_API.G_EXC_ERROR;
3396: end if;
3397: END IF; -- IF (l_loan_status IN ('INCOMPLETE', 'PENDING', 'APPROVED'))
3398:
3398:
3399: end if; -- if loan_class = 'ERS'
3400:
3401: /*
3402: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'checking billing receivables total percentages');
3403: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan recivables total percent: ' || l_dist_percent_rec_bill);
3404: if l_dist_percent_rec_bill <> 100 then
3405: FND_MESSAGE.Set_Name('LNS', 'LNS_ACC_BILL_REC_PER_INVALID');
3406: FND_MSG_PUB.Add;
3399: end if; -- if loan_class = 'ERS'
3400:
3401: /*
3402: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'checking billing receivables total percentages');
3403: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan recivables total percent: ' || l_dist_percent_rec_bill);
3404: if l_dist_percent_rec_bill <> 100 then
3405: FND_MESSAGE.Set_Name('LNS', 'LNS_ACC_BILL_REC_PER_INVALID');
3406: FND_MSG_PUB.Add;
3407: RAISE FND_API.G_EXC_ERROR;
3407: RAISE FND_API.G_EXC_ERROR;
3408: end if;
3409:
3410:
3411: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'checking origination clearing total percentages');
3412: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan clearing total percent = ' || l_dist_percent_clear_orig);
3413:
3414:
3415: if l_dist_percent_clear_orig <> 100 then
3408: end if;
3409:
3410:
3411: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'checking origination clearing total percentages');
3412: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan clearing total percent = ' || l_dist_percent_clear_orig);
3413:
3414:
3415: if l_dist_percent_clear_orig <> 100 then
3416: FND_MESSAGE.Set_Name('LNS', 'LNS_ACC_ORIG_CLR_PER_INVALID');
3419: end if;
3420: */
3421: -- G. In the current release of 11i, there must be only one Principal Receivable
3422: -- account
3423: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'checking principal receivables count');
3424: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'principal receivables count = ' || l_prin_receivables_bill.count);
3425: if l_prin_receivables_bill.count <> 1 then
3426: FND_MESSAGE.Set_Name('LNS', 'LNS_ACC_MULT_PRIN_RECEIVABLE');
3427: FND_MSG_PUB.Add;
3420: */
3421: -- G. In the current release of 11i, there must be only one Principal Receivable
3422: -- account
3423: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'checking principal receivables count');
3424: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'principal receivables count = ' || l_prin_receivables_bill.count);
3425: if l_prin_receivables_bill.count <> 1 then
3426: FND_MESSAGE.Set_Name('LNS', 'LNS_ACC_MULT_PRIN_RECEIVABLE');
3427: FND_MSG_PUB.Add;
3428: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
3424: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'principal receivables count = ' || l_prin_receivables_bill.count);
3425: if l_prin_receivables_bill.count <> 1 then
3426: FND_MESSAGE.Set_Name('LNS', 'LNS_ACC_MULT_PRIN_RECEIVABLE');
3427: FND_MSG_PUB.Add;
3428: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
3429: RAISE FND_API.G_EXC_ERROR;
3430: end if;
3431:
3432: -- H. In the current release of 11i, there must be only one Interest Receivable
3430: end if;
3431:
3432: -- H. In the current release of 11i, there must be only one Interest Receivable
3433: -- account
3434: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'checking Interest receivables count');
3435: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Interest receivables count = ' || l_int_receivables_bill.count);
3436: if l_int_receivables_bill.count <> 1 then
3437: FND_MESSAGE.Set_Name('LNS', 'LNS_ACC_MULT_INT_RECEIVABLE');
3438: FND_MSG_PUB.Add;
3431:
3432: -- H. In the current release of 11i, there must be only one Interest Receivable
3433: -- account
3434: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'checking Interest receivables count');
3435: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Interest receivables count = ' || l_int_receivables_bill.count);
3436: if l_int_receivables_bill.count <> 1 then
3437: FND_MESSAGE.Set_Name('LNS', 'LNS_ACC_MULT_INT_RECEIVABLE');
3438: FND_MSG_PUB.Add;
3439: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
3435: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Interest receivables count = ' || l_int_receivables_bill.count);
3436: if l_int_receivables_bill.count <> 1 then
3437: FND_MESSAGE.Set_Name('LNS', 'LNS_ACC_MULT_INT_RECEIVABLE');
3438: FND_MSG_PUB.Add;
3439: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
3440: RAISE FND_API.G_EXC_ERROR;
3441: end if;
3442:
3443: -- I. There may be multiple Interest Income accounts
3440: RAISE FND_API.G_EXC_ERROR;
3441: end if;
3442:
3443: -- I. There may be multiple Interest Income accounts
3444: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'checking Interest Income count');
3445: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Interest Income count = ' || l_int_income_bill.count);
3446: if l_int_income_bill.count < 1 then
3447: FND_MESSAGE.Set_Name('LNS', 'LNS_ACC_NO_INTEREST_INCOME');
3448: FND_MSG_PUB.Add;
3441: end if;
3442:
3443: -- I. There may be multiple Interest Income accounts
3444: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'checking Interest Income count');
3445: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Interest Income count = ' || l_int_income_bill.count);
3446: if l_int_income_bill.count < 1 then
3447: FND_MESSAGE.Set_Name('LNS', 'LNS_ACC_NO_INTEREST_INCOME');
3448: FND_MSG_PUB.Add;
3449: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
3445: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Interest Income count = ' || l_int_income_bill.count);
3446: if l_int_income_bill.count < 1 then
3447: FND_MESSAGE.Set_Name('LNS', 'LNS_ACC_NO_INTEREST_INCOME');
3448: FND_MSG_PUB.Add;
3449: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
3450: RAISE FND_API.G_EXC_ERROR;
3451: end if;
3452:
3453: -- J. The distribution percentages for Interest Income must add to 100%
3454: for j in 1..l_int_income_bill.count loop
3455: l_dist_percent_int_income := l_dist_percent_int_income + l_int_income_bill(j).distribution_percent;
3456: end loop;
3457:
3458: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'checking Interest Income percentage');
3459: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Interest Income percentage = ' || l_dist_percent_int_income);
3460: if l_dist_percent_int_income <> 100 then
3461: FND_MESSAGE.Set_Name('LNS', 'LNS_ACC_INT_INCOME_PER_INVALID');
3462: FND_MSG_PUB.Add;
3455: l_dist_percent_int_income := l_dist_percent_int_income + l_int_income_bill(j).distribution_percent;
3456: end loop;
3457:
3458: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'checking Interest Income percentage');
3459: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Interest Income percentage = ' || l_dist_percent_int_income);
3460: if l_dist_percent_int_income <> 100 then
3461: FND_MESSAGE.Set_Name('LNS', 'LNS_ACC_INT_INCOME_PER_INVALID');
3462: FND_MSG_PUB.Add;
3463: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
3459: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Interest Income percentage = ' || l_dist_percent_int_income);
3460: if l_dist_percent_int_income <> 100 then
3461: FND_MESSAGE.Set_Name('LNS', 'LNS_ACC_INT_INCOME_PER_INVALID');
3462: FND_MSG_PUB.Add;
3463: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
3464: RAISE FND_API.G_EXC_ERROR;
3465: end if;
3466:
3467: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
3466:
3467: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
3468: ,p_data => x_msg_data);
3469:
3470: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
3471:
3472: Exception
3473: WHEN FND_API.G_EXC_ERROR THEN
3474: x_return_status := FND_API.G_RET_STS_ERROR;
3473: WHEN FND_API.G_EXC_ERROR THEN
3474: x_return_status := FND_API.G_RET_STS_ERROR;
3475: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
3476: ,p_data => x_msg_data);
3477: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
3478:
3479: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3480: x_return_status := FND_API.G_RET_STS_ERROR;
3481: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
3479: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3480: x_return_status := FND_API.G_RET_STS_ERROR;
3481: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
3482: ,p_data => x_msg_data);
3483: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
3484:
3485: WHEN OTHERS THEN
3486: x_return_status := FND_API.G_RET_STS_ERROR;
3487: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
3485: WHEN OTHERS THEN
3486: x_return_status := FND_API.G_RET_STS_ERROR;
3487: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
3488: ,p_data => x_msg_data);
3489: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
3490:
3491: end validateAccounting;
3492:
3493:
3619:
3620: begin
3621:
3622: l_api_name := 'validateLoanLines';
3623: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
3624:
3625: -- Standard Start of API savepoint
3626: SAVEPOINT validateLoanLines;
3627:
3642: open c_loan_lines(p_loan_id);
3643: fetch c_loan_lines into l_lines_count;
3644: close c_loan_lines;
3645:
3646: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'lines count is ' || l_lines_count);
3647: -- check if ALL are MFAR or all are NOT MFAR only if there is more
3648: -- than 1 line on the loan
3649: if l_lines_count > 1 then
3650:
3651: open c_validate_MFAR(p_loan_id);
3652: LOOP
3653:
3654: i := i + 1;
3655: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'processing ' || i || ' loan line');
3656: fetch c_validate_MFAR
3657: into l_trx_type_id
3658: ,l_psa_trx_type_id;
3659:
3656: fetch c_validate_MFAR
3657: into l_trx_type_id
3658: ,l_psa_trx_type_id;
3659:
3660: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'trx type ' || l_trx_type_id);
3661: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'psa trx type '|| l_psa_trx_type_id);
3662:
3663: exit when c_validate_MFAR%NOTFOUND;
3664:
3657: into l_trx_type_id
3658: ,l_psa_trx_type_id;
3659:
3660: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'trx type ' || l_trx_type_id);
3661: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'psa trx type '|| l_psa_trx_type_id);
3662:
3663: exit when c_validate_MFAR%NOTFOUND;
3664:
3665: if i <> 1 then
3676: if l_psa_trx_type_id = -1 then
3677: -- the first line on the loan is NOT MFAR
3678: -- all subsequent lines SHOULD be MFAR
3679: l_mfar := false;
3680: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NON-MFAR');
3681: else
3682: l_mfar := true;
3683: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'MFAR');
3684: end if;
3679: l_mfar := false;
3680: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NON-MFAR');
3681: else
3682: l_mfar := true;
3683: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'MFAR');
3684: end if;
3685:
3686: end if;
3687: end loop;
3689: else
3690: -- we only have 1 line on the loan...verify is it is MFAR or not
3691: -- check to see if trx_type is refered to in psa_trx_type
3692: -- if so this is a multi-fund receivable
3693: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'checking for MFAR');
3694: begin
3695:
3696: open c_multiFundTrx(p_loan_id) ;
3697: fetch c_multiFundTrx into l_multifund;
3698: close c_multiFundTrx;
3699:
3700: exception
3701: when others then
3702: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'no rows found');
3703: l_multifund := 0;
3704: end;
3705:
3706: if l_multifund = 1 then
3712: end if;
3713:
3714: -- this will be needed by defaultDistributions
3715: x_mfar := l_mfar;
3716: --logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'sql ' || vPLSQL);
3717:
3718: -- ---------------------------------------------------------------------
3719: -- End of API body
3720: -- ---------------------------------------------------------------------
3720: -- ---------------------------------------------------------------------
3721:
3722: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3723:
3724: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
3725:
3726: EXCEPTION
3727: WHEN FND_API.G_EXC_ERROR THEN
3728: ROLLBACK TO validateLoanLines;
3729: x_return_status := FND_API.G_RET_STS_ERROR;
3730: x_msg_count := l_msg_count;
3731: x_msg_data := l_msg_data;
3732: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3733: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
3734:
3735: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3736: ROLLBACK TO validateLoanLines;
3737: x_return_status := FND_API.G_RET_STS_ERROR;
3737: x_return_status := FND_API.G_RET_STS_ERROR;
3738: x_msg_count := l_msg_count;
3739: x_msg_data := l_msg_data;
3740: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3741: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
3742:
3743: WHEN OTHERS THEN
3744: ROLLBACK TO validateLoanLines;
3745: x_return_status := FND_API.G_RET_STS_ERROR;
3745: x_return_status := FND_API.G_RET_STS_ERROR;
3746: x_msg_count := l_msg_count;
3747: x_msg_data := l_msg_data;
3748: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3749: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
3750:
3751: end validateLoanLines;
3752:
3753:
3825:
3826: begin
3827:
3828: l_api_name := 'create_DisbursementDistribs';
3829: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - BEGIN');
3830:
3831: SAVEPOINT create_DisbursementDistribs;
3832:
3833: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id = ' || p_loan_id);
3829: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - BEGIN');
3830:
3831: SAVEPOINT create_DisbursementDistribs;
3832:
3833: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id = ' || p_loan_id);
3834: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_disb_header_id = ' || p_disb_header_id);
3835: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_amount_adj_id = ' || p_loan_amount_adj_id);
3836: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_activity_type = ' || p_activity_type);
3837:
3830:
3831: SAVEPOINT create_DisbursementDistribs;
3832:
3833: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id = ' || p_loan_id);
3834: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_disb_header_id = ' || p_disb_header_id);
3835: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_amount_adj_id = ' || p_loan_amount_adj_id);
3836: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_activity_type = ' || p_activity_type);
3837:
3838:
3831: SAVEPOINT create_DisbursementDistribs;
3832:
3833: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id = ' || p_loan_id);
3834: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_disb_header_id = ' || p_disb_header_id);
3835: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_amount_adj_id = ' || p_loan_amount_adj_id);
3836: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_activity_type = ' || p_activity_type);
3837:
3838:
3839: -- Initialize message list IF p_init_msg_list is set to TRUE.
3832:
3833: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id = ' || p_loan_id);
3834: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_disb_header_id = ' || p_disb_header_id);
3835: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_amount_adj_id = ' || p_loan_amount_adj_id);
3836: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_activity_type = ' || p_activity_type);
3837:
3838:
3839: -- Initialize message list IF p_init_msg_list is set to TRUE.
3840: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3848: l_activity := p_activity_type;
3849:
3850: IF l_activity = 'LOAN_AMOUNT_ADJUSTMENT' THEN
3851: if p_loan_amount_adj_id is not null then
3852: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_amt_adj_id = ' || p_loan_amount_adj_id);
3853: l_loan_amount_adj_id := p_loan_amount_adj_id;
3854: else
3855: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'finding Pending adjustment');
3856: open c_loan_adj(p_loan_id);
3851: if p_loan_amount_adj_id is not null then
3852: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_amt_adj_id = ' || p_loan_amount_adj_id);
3853: l_loan_amount_adj_id := p_loan_amount_adj_id;
3854: else
3855: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'finding Pending adjustment');
3856: open c_loan_adj(p_loan_id);
3857: fetch c_loan_adj into l_loan_amount_adj_id;
3858: close c_loan_adj;
3859: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Pending l_loan_amount_adj_id = ' || l_loan_amount_adj_id);
3855: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'finding Pending adjustment');
3856: open c_loan_adj(p_loan_id);
3857: fetch c_loan_adj into l_loan_amount_adj_id;
3858: close c_loan_adj;
3859: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Pending l_loan_amount_adj_id = ' || l_loan_amount_adj_id);
3860: end if;
3861:
3862: END IF;
3863:
3861:
3862: END IF;
3863:
3864:
3865: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'getting subsidy_rate ');
3866: open c_subsidy_rate(p_loan_id);
3867: fetch c_subsidy_rate into l_subsidy_rate;
3868: close c_subsidy_rate;
3869: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_subsidy_rate = ' || l_subsidy_rate);
3865: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'getting subsidy_rate ');
3866: open c_subsidy_rate(p_loan_id);
3867: fetch c_subsidy_rate into l_subsidy_rate;
3868: close c_subsidy_rate;
3869: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_subsidy_rate = ' || l_subsidy_rate);
3870:
3871: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_disb_header_id = ' || l_disb_header_id);
3872:
3873:
3867: fetch c_subsidy_rate into l_subsidy_rate;
3868: close c_subsidy_rate;
3869: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_subsidy_rate = ' || l_subsidy_rate);
3870:
3871: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_disb_header_id = ' || l_disb_header_id);
3872:
3873:
3874: OPEN c_distribs_exist(p_loan_id, l_disb_header_id, l_loan_amount_adj_id, l_activity);
3875: FETCH c_distribs_exist INTO l_exists;
3878: if l_exists = 0 then
3879:
3880:
3881: IF l_activity in ('DISBURSEMENT', 'LNS_SUBMIT_DISBURSEMENT', 'LNS_SUBMITTED_DISB_CANCEL', 'LOAN_AMOUNT_ADJUSTMENT') THEN
3882: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling defaultBookDistForActivity...');
3883: defaultBookDistForActivity(p_api_version => 1.0
3884: ,p_init_msg_list => FND_API.G_TRUE
3885: ,p_commit => p_commit
3886: ,p_loan_id => p_loan_id
3892: ,x_msg_count => l_msg_count
3893: ,x_msg_data => l_msg_data);
3894:
3895: if l_return_status <> 'S' then
3896: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Error Invoking defaultBookDistForActivity..');
3897: RAISE FND_API.G_EXC_ERROR;
3898: end if;
3899:
3900:
3901: ELSE
3902: -- get the cc_ids and percentages for the each loan_class_code and loan_type_id
3903: --break up the distribution amounts for the disbursement
3904: -- insert into the distributions table
3905: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling defaultDistributionsCatch...');
3906: defaultDistributionsCatch(p_api_version => 1.0
3907: ,p_init_msg_list => FND_API.G_TRUE
3908: ,p_commit => p_commit
3909: ,p_loan_id => p_loan_id
3920: RAISE FND_API.G_EXC_ERROR;
3921: end if;
3922: END IF;
3923:
3924: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distributionsCatch.count = ' || l_distributions.count);
3925: for j in 1..l_distributions.count loop
3926:
3927: if (l_distributions(j).distribution_type = 'ORIGINATION') THEN
3928:
3928:
3929: l_distributions(j).activity := l_activity;
3930:
3931: IF p_activity_type IN ('LNS_APPROVAL', 'DISBURSEMENT', 'LNS_SUBMIT_DISBURSEMENT', 'LNS_SUBMITTED_DISB_CANCEL') THEN -- Used for DirectLoanApproval and Disbursement
3932: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'adding disb_header_id ' ||p_disb_header_id ||' to '|| j);
3933: l_distributions(j).disb_header_id := p_disb_header_id;
3934:
3935: ELSIF p_activity_type = 'LOAN_AMOUNT_ADJUSTMENT' THEN
3936: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'adding l_loan_amount_adj_id ' ||l_loan_amount_adj_id ||' to '|| j);
3932: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'adding disb_header_id ' ||p_disb_header_id ||' to '|| j);
3933: l_distributions(j).disb_header_id := p_disb_header_id;
3934:
3935: ELSIF p_activity_type = 'LOAN_AMOUNT_ADJUSTMENT' THEN
3936: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'adding l_loan_amount_adj_id ' ||l_loan_amount_adj_id ||' to '|| j);
3937: l_distributions(j).loan_amount_adj_id := l_loan_amount_adj_id;
3938: END IF;
3939:
3940: end if;
3945: i := l_distributions.count;
3946:
3947: if ((lns_utility_pub.IS_FED_FIN_ENABLED = 'Y') and (lns_utility_pub.IS_ENCUM_FIN_ENABLED = 'N')) then
3948:
3949: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'checking for existing subsidy rows');
3950: open c_subsidy_rows_exist(p_loan_id);
3951: fetch c_subsidy_rows_exist into l_subsidy_exists;
3952: close c_subsidy_rows_exist;
3953:
3950: open c_subsidy_rows_exist(p_loan_id);
3951: fetch c_subsidy_rows_exist into l_subsidy_exists;
3952: close c_subsidy_rows_exist;
3953:
3954: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_subsidy_exists = ' || l_subsidy_exists);
3955: if l_subsidy_exists = 0 then
3956:
3957: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fed enabled adding subsidy rows ');
3958: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'subsidy rows do not exist ');
3953:
3954: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_subsidy_exists = ' || l_subsidy_exists);
3955: if l_subsidy_exists = 0 then
3956:
3957: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fed enabled adding subsidy rows ');
3958: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'subsidy rows do not exist ');
3959: for j in 1..l_distributions_count loop
3960:
3961: if (l_distributions(j).distribution_type = 'ORIGINATION') THEN
3954: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_subsidy_exists = ' || l_subsidy_exists);
3955: if l_subsidy_exists = 0 then
3956:
3957: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fed enabled adding subsidy rows ');
3958: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'subsidy rows do not exist ');
3959: for j in 1..l_distributions_count loop
3960:
3961: if (l_distributions(j).distribution_type = 'ORIGINATION') THEN
3962:
3962:
3963: -- if (l_distributions(j).ACCOUNT_TYPE = 'ORIGINATION' AND
3964: -- (l_distributions(j).ACCOUNT_NAME = 'LOAN_RECEIVABLE' OR
3965: -- l_distributions(j).ACCOUNT_NAME = 'LOAN_PAYABLE' )) then
3966: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'adding subsidy row # ' || j);
3967: i := i + 1;
3968: -- add rows for subsidy cost
3969:
3970: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'account_name = ' || l_distributions(j).account_name);
3966: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'adding subsidy row # ' || j);
3967: i := i + 1;
3968: -- add rows for subsidy cost
3969:
3970: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'account_name = ' || l_distributions(j).account_name);
3971: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CODE_COMBINATION_ID = ' || l_distributions(j).CODE_COMBINATION_ID);
3972: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'account_type = ' || l_distributions(j).account_type);
3973: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'DISTRIBUTION_PERCENT = ' || l_distributions(j).DISTRIBUTION_PERCENT);
3974: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'DISTRIBUTION_TYPE = ' || l_distributions(j).DISTRIBUTION_TYPE);
3967: i := i + 1;
3968: -- add rows for subsidy cost
3969:
3970: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'account_name = ' || l_distributions(j).account_name);
3971: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CODE_COMBINATION_ID = ' || l_distributions(j).CODE_COMBINATION_ID);
3972: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'account_type = ' || l_distributions(j).account_type);
3973: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'DISTRIBUTION_PERCENT = ' || l_distributions(j).DISTRIBUTION_PERCENT);
3974: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'DISTRIBUTION_TYPE = ' || l_distributions(j).DISTRIBUTION_TYPE);
3975: l_distributions(i).LOAN_ID := p_loan_id;
3968: -- add rows for subsidy cost
3969:
3970: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'account_name = ' || l_distributions(j).account_name);
3971: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CODE_COMBINATION_ID = ' || l_distributions(j).CODE_COMBINATION_ID);
3972: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'account_type = ' || l_distributions(j).account_type);
3973: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'DISTRIBUTION_PERCENT = ' || l_distributions(j).DISTRIBUTION_PERCENT);
3974: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'DISTRIBUTION_TYPE = ' || l_distributions(j).DISTRIBUTION_TYPE);
3975: l_distributions(i).LOAN_ID := p_loan_id;
3976: l_distributions(i).LINE_TYPE := 'SUBSIDY';
3969:
3970: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'account_name = ' || l_distributions(j).account_name);
3971: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CODE_COMBINATION_ID = ' || l_distributions(j).CODE_COMBINATION_ID);
3972: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'account_type = ' || l_distributions(j).account_type);
3973: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'DISTRIBUTION_PERCENT = ' || l_distributions(j).DISTRIBUTION_PERCENT);
3974: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'DISTRIBUTION_TYPE = ' || l_distributions(j).DISTRIBUTION_TYPE);
3975: l_distributions(i).LOAN_ID := p_loan_id;
3976: l_distributions(i).LINE_TYPE := 'SUBSIDY';
3977: l_distributions(i).ACCOUNT_NAME := l_distributions(j).account_name;
3970: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'account_name = ' || l_distributions(j).account_name);
3971: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CODE_COMBINATION_ID = ' || l_distributions(j).CODE_COMBINATION_ID);
3972: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'account_type = ' || l_distributions(j).account_type);
3973: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'DISTRIBUTION_PERCENT = ' || l_distributions(j).DISTRIBUTION_PERCENT);
3974: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'DISTRIBUTION_TYPE = ' || l_distributions(j).DISTRIBUTION_TYPE);
3975: l_distributions(i).LOAN_ID := p_loan_id;
3976: l_distributions(i).LINE_TYPE := 'SUBSIDY';
3977: l_distributions(i).ACCOUNT_NAME := l_distributions(j).account_name;
3978: l_distributions(i).CODE_COMBINATION_ID := l_distributions(j).CODE_COMBINATION_ID;
3982: l_distributions(i).DISTRIBUTION_TYPE := l_distributions(j).DISTRIBUTION_TYPE;
3983: l_distributions(i).EVENT_ID := null;
3984: l_distributions(i).ACTIVITY := 'LNS_APPROVAL';
3985:
3986: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'running count = ' || l_distributions.count);
3987: -- end if;
3988:
3989: end if;
3990:
3992:
3993: end if; -- l_subsidy_exists
3994:
3995: end if;
3996: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'total distributions adding = ' || l_distributions.count);
3997:
3998: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling do_insert_distributions...');
3999: do_insert_distributions(l_distributions, p_loan_id);
4000:
3994:
3995: end if;
3996: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'total distributions adding = ' || l_distributions.count);
3997:
3998: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling do_insert_distributions...');
3999: do_insert_distributions(l_distributions, p_loan_id);
4000:
4001: end if;
4002:
3999: do_insert_distributions(l_distributions, p_loan_id);
4000:
4001: end if;
4002:
4003: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || 'p_commit is '||p_commit);
4004: IF FND_API.to_Boolean(p_commit)
4005: THEN
4006: COMMIT;
4007: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || 'Commited');
4003: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || 'p_commit is '||p_commit);
4004: IF FND_API.to_Boolean(p_commit)
4005: THEN
4006: COMMIT;
4007: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || 'Commited');
4008: END IF;
4009:
4010: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
4011: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
4007: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || 'Commited');
4008: END IF;
4009:
4010: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
4011: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
4012:
4013: EXCEPTION
4014:
4015: WHEN FND_API.G_EXC_ERROR THEN
4014:
4015: WHEN FND_API.G_EXC_ERROR THEN
4016: ROLLBACK TO create_DisbursementDistribs;
4017: x_return_status := FND_API.G_RET_STS_ERROR;
4018: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
4019: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
4020:
4021: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4022: ROLLBACK TO create_DisbursementDistribs;
4020:
4021: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4022: ROLLBACK TO create_DisbursementDistribs;
4023: x_return_status := FND_API.G_RET_STS_ERROR;
4024: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
4025: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
4026:
4027: WHEN OTHERS THEN
4028: ROLLBACK TO create_DisbursementDistribs;
4026:
4027: WHEN OTHERS THEN
4028: ROLLBACK TO create_DisbursementDistribs;
4029: x_return_status := FND_API.G_RET_STS_ERROR;
4030: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
4031: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
4032:
4033: end create_DisbursementDistribs;
4034:
4319: begin
4320:
4321: SAVEPOINT defaultDistributions;
4322: l_api_name := 'defaultDistributions';
4323: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
4324: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'p_loan_id = ' || p_loan_id);
4325: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'p_loan_class_code = ' || p_loan_class_code);
4326:
4327: -- Initialize message list IF p_init_msg_list is set to TRUE.
4320:
4321: SAVEPOINT defaultDistributions;
4322: l_api_name := 'defaultDistributions';
4323: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
4324: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'p_loan_id = ' || p_loan_id);
4325: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'p_loan_class_code = ' || p_loan_class_code);
4326:
4327: -- Initialize message list IF p_init_msg_list is set to TRUE.
4328: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4321: SAVEPOINT defaultDistributions;
4322: l_api_name := 'defaultDistributions';
4323: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
4324: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'p_loan_id = ' || p_loan_id);
4325: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'p_loan_class_code = ' || p_loan_class_code);
4326:
4327: -- Initialize message list IF p_init_msg_list is set to TRUE.
4328: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4329: FND_MSG_PUB.initialize;
4356: l_subsidy_rate := 0;
4357: l_receivable_total_amount_due := 0;
4358: l_clearing_total_amount_due := 0;
4359:
4360: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Opening cursor c_loan_class...');
4361: open c_loan_class(p_loan_id);
4362: fetch c_loan_class
4363: into l_loan_class
4364: ,l_loan_type_id
4366: ,l_legal_entity_id
4367: ,l_loan_status;
4368: close c_loan_class;
4369:
4370: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_loan_class = ' || l_loan_class);
4371: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_loan_type_id = ' || l_loan_type_id);
4372: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_funded_amount = ' || l_funded_amount);
4373: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_legal_entity_id = ' || l_legal_entity_id);
4374: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_loan_status = ' || l_loan_status);
4367: ,l_loan_status;
4368: close c_loan_class;
4369:
4370: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_loan_class = ' || l_loan_class);
4371: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_loan_type_id = ' || l_loan_type_id);
4372: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_funded_amount = ' || l_funded_amount);
4373: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_legal_entity_id = ' || l_legal_entity_id);
4374: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_loan_status = ' || l_loan_status);
4375:
4368: close c_loan_class;
4369:
4370: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_loan_class = ' || l_loan_class);
4371: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_loan_type_id = ' || l_loan_type_id);
4372: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_funded_amount = ' || l_funded_amount);
4373: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_legal_entity_id = ' || l_legal_entity_id);
4374: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_loan_status = ' || l_loan_status);
4375:
4376: /*
4369:
4370: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_loan_class = ' || l_loan_class);
4371: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_loan_type_id = ' || l_loan_type_id);
4372: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_funded_amount = ' || l_funded_amount);
4373: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_legal_entity_id = ' || l_legal_entity_id);
4374: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_loan_status = ' || l_loan_status);
4375:
4376: /*
4377: IF (p_loan_class_code = 'ERS'AND l_loan_status = 'INCOMPLETE') THEN
4370: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_loan_class = ' || l_loan_class);
4371: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_loan_type_id = ' || l_loan_type_id);
4372: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_funded_amount = ' || l_funded_amount);
4373: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_legal_entity_id = ' || l_legal_entity_id);
4374: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_loan_status = ' || l_loan_status);
4375:
4376: /*
4377: IF (p_loan_class_code = 'ERS'AND l_loan_status = 'INCOMPLETE') THEN
4378: return;
4377: IF (p_loan_class_code = 'ERS'AND l_loan_status = 'INCOMPLETE') THEN
4378: return;
4379: END IF;
4380: */
4381: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Calling lns_distributions_pub.validateDefaultAccounting...');
4382: lns_distributions_pub.validateDefaultAccounting(p_loan_class => l_loan_class
4383: ,p_loan_type_id => l_loan_type_id
4384: ,p_init_msg_list => p_init_msg_list
4385: ,x_return_status => l_return_status
4385: ,x_return_status => l_return_status
4386: ,x_msg_count => l_msg_count
4387: ,x_msg_data => l_msg_data);
4388:
4389: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_return_status = ' || l_return_status);
4390: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
4391: FND_MESSAGE.SET_NAME('LNS', 'LNS_DEFAULT_DIST_NOT_FOUND');
4392: FND_MSG_PUB.ADD;
4393: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
4389: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_return_status = ' || l_return_status);
4390: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
4391: FND_MESSAGE.SET_NAME('LNS', 'LNS_DEFAULT_DIST_NOT_FOUND');
4392: FND_MSG_PUB.ADD;
4393: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
4394: RAISE FND_API.G_EXC_ERROR;
4395: end if;
4396:
4397: /* delete any rows for this loan before inheritance do not delete FEE_RECEIVABLE or FEE_INCOME rows*/
4395: end if;
4396:
4397: /* delete any rows for this loan before inheritance do not delete FEE_RECEIVABLE or FEE_INCOME rows*/
4398: /* Commented Bug#7406404 - Defaulting the laon distributions happens only at Loan Creation time and later only updation at loan level is changed.
4399: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Deleting any existing accounting rows except FEE_RECEIVABLE or FEE_INCOME...');
4400: delete from lns_distributions
4401: where loan_id = p_loan_id
4402: and account_name in ('PRINCIPAL_RECEIVABLE', 'INTEREST_RECEIVABLE', 'INTEREST_INCOME', 'LOAN_RECEIVABLE', 'LOAN_CLEARING', 'LOAN_LIABILITY', 'LOAN_PAYABLE');
4403: --and event_id is null; --fix for bug 8815841: delete all rows including rows with event_id not null
4400: delete from lns_distributions
4401: where loan_id = p_loan_id
4402: and account_name in ('PRINCIPAL_RECEIVABLE', 'INTEREST_RECEIVABLE', 'INTEREST_INCOME', 'LOAN_RECEIVABLE', 'LOAN_CLEARING', 'LOAN_LIABILITY', 'LOAN_PAYABLE');
4403: --and event_id is null; --fix for bug 8815841: delete all rows including rows with event_id not null
4404: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Done');
4405:
4406: */
4407:
4408: -- first check if we are creating accounting for an ERS or DIRECT loan
4413: -- Bug#6711399 Subsidy_rate defaulted from loanProduct to loan at the time of loanCreation
4414: -- in API LNS_LOAN_HEADER_PUB.do_create_loan.
4415:
4416: -- we are creating accounting for DIRECT loan class
4417: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' fetching subsidy rate');
4418: begin
4419: open c_subsidy_rate(p_loan_id);
4420: fetch c_subsidy_rate into l_subsidy_rate;
4421: close c_subsidy_rate;
4425: FND_MSG_PUB.ADD;
4426: RAISE FND_API.G_EXC_ERROR;
4427: end;
4428:
4429: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' l_subsidy_rate ' || l_subsidy_rate );
4430:
4431: open c_obj_vers(p_loan_id);
4432: fetch c_obj_vers into l_version;
4433: close c_obj_vers;
4433: close c_obj_vers;
4434:
4435: l_loan_header_rec.subsidy_rate := l_subsidy_rate;
4436: l_loan_header_rec.loan_id := p_loan_id;
4437: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || 'updating loan');
4438: LNS_LOAN_HEADER_PUB.UPDATE_LOAN(P_OBJECT_VERSION_NUMBER => l_version
4439: ,P_LOAN_HEADER_REC => l_loan_header_rec
4440: ,P_INIT_MSG_LIST => p_init_msg_list
4441: ,X_RETURN_STATUS => l_return_status
4440: ,P_INIT_MSG_LIST => p_init_msg_list
4441: ,X_RETURN_STATUS => l_return_status
4442: ,X_MSG_COUNT => l_msg_count
4443: ,X_MSG_DATA => l_msg_data);
4444: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' update loan status = ' || l_return_status);
4445: if l_return_status <> 'S' then
4446: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_LOAN_FAIL');
4447: FND_MSG_PUB.ADD;
4448: RAISE FND_API.G_EXC_ERROR;
4447: FND_MSG_PUB.ADD;
4448: RAISE FND_API.G_EXC_ERROR;
4449: end if;
4450: */
4451: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'DIRECT LOAN INHERITANCE');
4452:
4453: -- we establish BILING only for this procedure
4454: -- inherit based on loan class + type ONLY
4455: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Calling defaultDistributionsCatch...');
4451: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'DIRECT LOAN INHERITANCE');
4452:
4453: -- we establish BILING only for this procedure
4454: -- inherit based on loan class + type ONLY
4455: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Calling defaultDistributionsCatch...');
4456: defaultDistributionsCatch(p_api_version => 1.0
4457: ,p_init_msg_list => p_init_msg_list
4458: ,p_commit => FND_API.G_FALSE
4459: ,p_loan_id => p_loan_id
4464: ,x_distribution_tbl => l_distributionsCatch
4465: ,x_return_status => l_return_status
4466: ,x_msg_count => l_msg_count
4467: ,x_msg_data => l_msg_data);
4468: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_return_status = ' || l_return_status);
4469: if l_return_status <> 'S' then
4470: RAISE FND_API.G_EXC_ERROR;
4471: end if;
4472:
4472:
4473: -- we establish the distributions for the first DISBURSEMENT only
4474: -- in order to process Budgetary Control Information
4475: -- in SLA Transaction Line Object
4476: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Calling create_DisbursementDistribs...');
4477: create_DisbursementDistribs(p_api_version => 1.0
4478: ,p_init_msg_list => p_init_msg_list
4479: ,p_commit => FND_API.G_FALSE
4480: ,p_loan_id => p_loan_id
4483: ,p_activity_type => 'LNS_APPROVAL'
4484: ,x_return_status => l_return_status
4485: ,x_msg_count => l_msg_count
4486: ,x_msg_data => l_msg_data);
4487: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_return_status = ' || l_return_status);
4488: if l_return_status <> 'S' then
4489: RAISE FND_API.G_EXC_ERROR;
4490: end if;
4491:
4490: end if;
4491:
4492: elsif p_loan_class_code = 'ERS' then
4493:
4494: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'ERS LOAN INHERITANCE');
4495: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Deleting any existing ERS loan Booking distributions and Principal LOAN_RECEIVABLE');
4496:
4497: delete from lns_distributions
4498: where loan_id = p_loan_id
4491:
4492: elsif p_loan_class_code = 'ERS' then
4493:
4494: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'ERS LOAN INHERITANCE');
4495: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Deleting any existing ERS loan Booking distributions and Principal LOAN_RECEIVABLE');
4496:
4497: delete from lns_distributions
4498: where loan_id = p_loan_id
4499: and account_name in ('LOAN_RECEIVABLE', 'LOAN_CLEARING');
4497: delete from lns_distributions
4498: where loan_id = p_loan_id
4499: and account_name in ('LOAN_RECEIVABLE', 'LOAN_CLEARING');
4500:
4501: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Deleted '||SQL%ROWCOUNT||' rows');
4502:
4503: -- this switch is for the CatchAll Procedure
4504: l_include_receivables := 'N';
4505: l_ledger_details := lns_distributions_pub.getLedgerDetails;
4502:
4503: -- this switch is for the CatchAll Procedure
4504: l_include_receivables := 'N';
4505: l_ledger_details := lns_distributions_pub.getLedgerDetails;
4506: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'chart_of_accounts_id = ' || l_ledger_details.chart_of_accounts_id);
4507:
4508: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Fetching documents to account...');
4509: open c_get_loan_documents(p_loan_id);
4510: loop
4504: l_include_receivables := 'N';
4505: l_ledger_details := lns_distributions_pub.getLedgerDetails;
4506: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'chart_of_accounts_id = ' || l_ledger_details.chart_of_accounts_id);
4507:
4508: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Fetching documents to account...');
4509: open c_get_loan_documents(p_loan_id);
4510: loop
4511: fetch c_get_loan_documents into l_source_id_int_1, l_trx_number;
4512: exit when c_get_loan_documents%notfound;
4510: loop
4511: fetch c_get_loan_documents into l_source_id_int_1, l_trx_number;
4512: exit when c_get_loan_documents%notfound;
4513:
4514: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_source_id_int_1 = ' || l_source_id_int_1);
4515: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_trx_number = ' || l_trx_number);
4516:
4517: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Calling arp_acct_event_pkg.upgrade_status_per_doc...');
4518: -- check for upgrade status bug#4872154
4511: fetch c_get_loan_documents into l_source_id_int_1, l_trx_number;
4512: exit when c_get_loan_documents%notfound;
4513:
4514: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_source_id_int_1 = ' || l_source_id_int_1);
4515: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_trx_number = ' || l_trx_number);
4516:
4517: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Calling arp_acct_event_pkg.upgrade_status_per_doc...');
4518: -- check for upgrade status bug#4872154
4519: arp_acct_event_pkg.upgrade_status_per_doc(p_init_msg_list => p_init_msg_list
4513:
4514: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_source_id_int_1 = ' || l_source_id_int_1);
4515: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_trx_number = ' || l_trx_number);
4516:
4517: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Calling arp_acct_event_pkg.upgrade_status_per_doc...');
4518: -- check for upgrade status bug#4872154
4519: arp_acct_event_pkg.upgrade_status_per_doc(p_init_msg_list => p_init_msg_list
4520: ,p_entity_code => l_entity_code
4521: ,p_source_int_id => l_source_id_int_1
4522: ,x_upgrade_status => l_upgrade_status
4523: ,x_return_status => l_return_status
4524: ,x_msg_count => l_msg_count
4525: ,x_msg_data => l_msg_data);
4526: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_return_status = ' || l_return_status);
4527: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_upgrade_status = ' || l_upgrade_status);
4528:
4529: if l_return_status <> 'S' then
4530: FND_MESSAGE.SET_NAME('LNS', 'LNS_CHK_UPG_FAIL');
4523: ,x_return_status => l_return_status
4524: ,x_msg_count => l_msg_count
4525: ,x_msg_data => l_msg_data);
4526: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_return_status = ' || l_return_status);
4527: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_upgrade_status = ' || l_upgrade_status);
4528:
4529: if l_return_status <> 'S' then
4530: FND_MESSAGE.SET_NAME('LNS', 'LNS_CHK_UPG_FAIL');
4531: FND_MESSAGE.SET_TOKEN('DOC_NUM', l_trx_number);
4529: if l_return_status <> 'S' then
4530: FND_MESSAGE.SET_NAME('LNS', 'LNS_CHK_UPG_FAIL');
4531: FND_MESSAGE.SET_TOKEN('DOC_NUM', l_trx_number);
4532: FND_MSG_PUB.ADD;
4533: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
4534: RAISE FND_API.G_EXC_ERROR;
4535: else
4536: if l_upgrade_status <> 'Y' then
4537: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_TRX');
4536: if l_upgrade_status <> 'Y' then
4537: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_TRX');
4538: FND_MESSAGE.SET_TOKEN('DOC_NUM', l_trx_number);
4539: FND_MSG_PUB.ADD;
4540: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
4541: RAISE FND_API.G_EXC_ERROR;
4542: end if;
4543: end if;
4544:
4544:
4545: end loop;
4546: close c_get_loan_documents;
4547:
4548: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Fetching entities xla_transaction_entities...');
4549: l_transactions_count := 0;
4550: open c_entities(p_loan_id);
4551: loop
4552: fetch c_entities into l_entity_id, l_entity_code, l_source_id_int_1, l_transaction_number;
4552: fetch c_entities into l_entity_id, l_entity_code, l_source_id_int_1, l_transaction_number;
4553: exit when c_entities%notfound;
4554:
4555: l_transactions_count := l_transactions_count + 1;
4556: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Entity ' || l_transactions_count);
4557: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_entity_id = ' || l_entity_id);
4558: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_entity_code = ' || l_entity_code);
4559: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_source_id_int_1 = ' || l_source_id_int_1);
4560: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_transaction_number = ' || l_transaction_number);
4553: exit when c_entities%notfound;
4554:
4555: l_transactions_count := l_transactions_count + 1;
4556: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Entity ' || l_transactions_count);
4557: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_entity_id = ' || l_entity_id);
4558: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_entity_code = ' || l_entity_code);
4559: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_source_id_int_1 = ' || l_source_id_int_1);
4560: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_transaction_number = ' || l_transaction_number);
4561:
4554:
4555: l_transactions_count := l_transactions_count + 1;
4556: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Entity ' || l_transactions_count);
4557: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_entity_id = ' || l_entity_id);
4558: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_entity_code = ' || l_entity_code);
4559: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_source_id_int_1 = ' || l_source_id_int_1);
4560: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_transaction_number = ' || l_transaction_number);
4561:
4562: insert into XLA_ACCT_PROG_DOCS_GT (entity_id) VALUES (l_entity_id);
4555: l_transactions_count := l_transactions_count + 1;
4556: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Entity ' || l_transactions_count);
4557: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_entity_id = ' || l_entity_id);
4558: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_entity_code = ' || l_entity_code);
4559: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_source_id_int_1 = ' || l_source_id_int_1);
4560: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_transaction_number = ' || l_transaction_number);
4561:
4562: insert into XLA_ACCT_PROG_DOCS_GT (entity_id) VALUES (l_entity_id);
4563: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Inserted into XLA_ACCT_PROG_DOCS_GT');
4556: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Entity ' || l_transactions_count);
4557: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_entity_id = ' || l_entity_id);
4558: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_entity_code = ' || l_entity_code);
4559: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_source_id_int_1 = ' || l_source_id_int_1);
4560: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_transaction_number = ' || l_transaction_number);
4561:
4562: insert into XLA_ACCT_PROG_DOCS_GT (entity_id) VALUES (l_entity_id);
4563: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Inserted into XLA_ACCT_PROG_DOCS_GT');
4564:
4559: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_source_id_int_1 = ' || l_source_id_int_1);
4560: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_transaction_number = ' || l_transaction_number);
4561:
4562: insert into XLA_ACCT_PROG_DOCS_GT (entity_id) VALUES (l_entity_id);
4563: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Inserted into XLA_ACCT_PROG_DOCS_GT');
4564:
4565: end loop;
4566: close c_entities ;
4567:
4566: close c_entities ;
4567:
4568: select count(1) into l_transactions_count
4569: from XLA_ACCT_PROG_DOCS_GT;
4570: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Inserted transaction_entities = ' || l_transactions_count);
4571:
4572: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Calling XLA_ACCOUNTING_PUB_PKG.accounting_program_doc_batch...');
4573: XLA_ACCOUNTING_PUB_PKG.accounting_program_doc_batch(p_application_id => 222
4574: ,p_accounting_mode => 'F'
4568: select count(1) into l_transactions_count
4569: from XLA_ACCT_PROG_DOCS_GT;
4570: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Inserted transaction_entities = ' || l_transactions_count);
4571:
4572: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Calling XLA_ACCOUNTING_PUB_PKG.accounting_program_doc_batch...');
4573: XLA_ACCOUNTING_PUB_PKG.accounting_program_doc_batch(p_application_id => 222
4574: ,p_accounting_mode => 'F'
4575: ,p_gl_posting_flag => 'N'
4576: ,p_accounting_batch_id => l_accounting_batch_id
4575: ,p_gl_posting_flag => 'N'
4576: ,p_accounting_batch_id => l_accounting_batch_id
4577: ,p_errbuf => l_errbuf
4578: ,p_retcode => l_retcode);
4579: logMessage(FND_LOG.level_statement, G_PKG_NAME, ' l_retcode = ' || l_retcode);
4580: logMessage(FND_LOG.level_statement, G_PKG_NAME, ' l_accounting_batch_id = ' || l_accounting_batch_id);
4581:
4582: if l_retcode <> 0 then
4583:
4576: ,p_accounting_batch_id => l_accounting_batch_id
4577: ,p_errbuf => l_errbuf
4578: ,p_retcode => l_retcode);
4579: logMessage(FND_LOG.level_statement, G_PKG_NAME, ' l_retcode = ' || l_retcode);
4580: logMessage(FND_LOG.level_statement, G_PKG_NAME, ' l_accounting_batch_id = ' || l_accounting_batch_id);
4581:
4582: if l_retcode <> 0 then
4583:
4584: logMessage(FND_LOG.level_unexpected, G_PKG_NAME, 'Online accounting failed with error: ' || l_errbuf);
4580: logMessage(FND_LOG.level_statement, G_PKG_NAME, ' l_accounting_batch_id = ' || l_accounting_batch_id);
4581:
4582: if l_retcode <> 0 then
4583:
4584: logMessage(FND_LOG.level_unexpected, G_PKG_NAME, 'Online accounting failed with error: ' || l_errbuf);
4585:
4586: /* query XLA_ACCOUNTING_ERRORS */
4587: l_error_counter := 0;
4588: open c_acc_errors(p_loan_id, l_accounting_batch_id);
4599:
4600: if l_error_counter = 1 then
4601: FND_MESSAGE.SET_NAME('LNS', 'LNS_ONLINE_ACCOUNTING_FAILED');
4602: FND_MSG_PUB.Add;
4603: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
4604: end if;
4605:
4606: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACC_DOC_FAIL');
4607: FND_MESSAGE.SET_TOKEN('DOC_NUM', l_invoice_number);
4607: FND_MESSAGE.SET_TOKEN('DOC_NUM', l_invoice_number);
4608: FND_MESSAGE.SET_TOKEN('DOC_TYPE', l_entity_code);
4609: FND_MESSAGE.SET_TOKEN('ACC_ERR', l_error_message);
4610: FND_MSG_PUB.Add;
4611: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
4612:
4613: END LOOP;
4614:
4615: close c_acc_errors;
4615: close c_acc_errors;
4616:
4617: RAISE FND_API.G_EXC_ERROR;
4618: else
4619: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Online accounting SUCCESS! ');
4620: end if;
4621:
4622: -- get the swap segment value
4623: l_natural_account_rec := getNaturalSwapAccount(p_loan_id);
4620: end if;
4621:
4622: -- get the swap segment value
4623: l_natural_account_rec := getNaturalSwapAccount(p_loan_id);
4624: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Swap natural account with ' || l_natural_account_rec);
4625:
4626: -- Bug#7406404 - Make ERS 'Replacement Natural Account' optional
4627: l_is_natural_acct_exists := 'N';
4628: IF (l_natural_account_rec IS NOT NULL) THEN
4628: IF (l_natural_account_rec IS NOT NULL) THEN
4629: l_is_natural_acct_exists := 'Y';
4630: END IF;
4631:
4632: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_is_natural_acct_exists is '||l_is_natural_acct_exists);
4633:
4634: IF (l_is_natural_acct_exists = 'Y') THEN
4635: -- Get natural account segment number
4636: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Calling FND_FLEX_APIS.GET_QUALIFIER_SEGNUM...');
4632: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_is_natural_acct_exists is '||l_is_natural_acct_exists);
4633:
4634: IF (l_is_natural_acct_exists = 'Y') THEN
4635: -- Get natural account segment number
4636: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Calling FND_FLEX_APIS.GET_QUALIFIER_SEGNUM...');
4637: IF (NOT FND_FLEX_APIS.GET_QUALIFIER_SEGNUM(appl_id => 101
4638: ,key_flex_code => 'GL#'
4639: ,structure_number=> l_ledger_details.chart_of_accounts_id
4640: ,flex_qual_name => 'GL_ACCOUNT'
4641: ,segment_number => l_nat_acct_seg_number))
4642: THEN
4643: FND_MESSAGE.SET_NAME('LNS', 'LNS_NO_NATURAL_ACCOUNT_SEGMENT');
4644: FND_MSG_PUB.ADD;
4645: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
4646: RAISE FND_API.G_EXC_ERROR;
4647: END IF;
4648: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Natural acct segment = ' || l_nat_acct_seg_number);
4649: END IF;
4644: FND_MSG_PUB.ADD;
4645: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
4646: RAISE FND_API.G_EXC_ERROR;
4647: END IF;
4648: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Natural acct segment = ' || l_nat_acct_seg_number);
4649: END IF;
4650:
4651: -- here we establish the loan clearing first
4652: -- if adjustment activity is found in XLA then we take amounts, cc_ids from XLA tables for both CLEARING and RECEIVABLES
4650:
4651: -- here we establish the loan clearing first
4652: -- if adjustment activity is found in XLA then we take amounts, cc_ids from XLA tables for both CLEARING and RECEIVABLES
4653: Begin
4654: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Opening cursor C_ERS_LOAN_CLEARING...');
4655: i := 0;
4656: open C_ERS_LOAN_CLEARING(p_loan_id);
4657: Loop
4658: -- reintialize these
4667: -- bug #4313925 --
4668: l_adjustment_exists := true;
4669: i := i + 1;
4670:
4671: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Loan Clearing Record ' || i);
4672: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_ers_distribution_amount = ' || l_ers_distribution_amount);
4673: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
4674: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_clearing_total_amount_due = ' || l_clearing_total_amount_due);
4675:
4668: l_adjustment_exists := true;
4669: i := i + 1;
4670:
4671: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Loan Clearing Record ' || i);
4672: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_ers_distribution_amount = ' || l_ers_distribution_amount);
4673: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
4674: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_clearing_total_amount_due = ' || l_clearing_total_amount_due);
4675:
4676: l_distributionsCLEAR_ORIG(i).line_type := 'CLEAR';
4669: i := i + 1;
4670:
4671: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Loan Clearing Record ' || i);
4672: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_ers_distribution_amount = ' || l_ers_distribution_amount);
4673: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
4674: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_clearing_total_amount_due = ' || l_clearing_total_amount_due);
4675:
4676: l_distributionsCLEAR_ORIG(i).line_type := 'CLEAR';
4677: l_distributionsCLEAR_ORIG(i).account_name := 'LOAN_CLEARING';
4670:
4671: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Loan Clearing Record ' || i);
4672: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_ers_distribution_amount = ' || l_ers_distribution_amount);
4673: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
4674: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_clearing_total_amount_due = ' || l_clearing_total_amount_due);
4675:
4676: l_distributionsCLEAR_ORIG(i).line_type := 'CLEAR';
4677: l_distributionsCLEAR_ORIG(i).account_name := 'LOAN_CLEARING';
4678: l_distributionsCLEAR_ORIG(i).code_combination_id := l_code_combination_id;
4684:
4685: end loop; -- loan clearing loop
4686: exception
4687: when others then
4688: --logMessage(FND_LOG.LEVEL_UNEX, G_PKG_NAME, 'Failed to inherit receivables distributions');
4689: FND_MESSAGE.SET_NAME('LNS', 'LNS_INHERIT_DIST_NOT_FOUND');
4690: FND_MSG_PUB.ADD;
4691: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
4692: RAISE FND_API.G_EXC_ERROR;
4687: when others then
4688: --logMessage(FND_LOG.LEVEL_UNEX, G_PKG_NAME, 'Failed to inherit receivables distributions');
4689: FND_MESSAGE.SET_NAME('LNS', 'LNS_INHERIT_DIST_NOT_FOUND');
4690: FND_MSG_PUB.ADD;
4691: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
4692: RAISE FND_API.G_EXC_ERROR;
4693: end;
4694:
4695: --logMessage(FND_LOG.level_statement, G_PKG_NAME, 'After loan clearing lines calculated. total amount due = ' || l_total_amount_due);
4691: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
4692: RAISE FND_API.G_EXC_ERROR;
4693: end;
4694:
4695: --logMessage(FND_LOG.level_statement, G_PKG_NAME, 'After loan clearing lines calculated. total amount due = ' || l_total_amount_due);
4696:
4697: IF ((NOT l_adjustment_exists) AND l_loan_status in ('INCOMPLETE', 'PENDING')) THEN
4698: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'No adjustment, so consider default adjustment');
4699:
4694:
4695: --logMessage(FND_LOG.level_statement, G_PKG_NAME, 'After loan clearing lines calculated. total amount due = ' || l_total_amount_due);
4696:
4697: IF ((NOT l_adjustment_exists) AND l_loan_status in ('INCOMPLETE', 'PENDING')) THEN
4698: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'No adjustment, so consider default adjustment');
4699:
4700: l_adjustment_exists := true;
4701: i := i + 1;
4702:
4703: OPEN cur_default_ar_adj(p_loan_id);
4704: FETCH cur_default_ar_adj INTO l_code_combination_id;
4705: CLOSE cur_default_ar_adj;
4706:
4707: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Default Adjustment CCID is '||l_code_combination_id);
4708:
4709: IF l_code_combination_id IS NULL THEN
4710: FND_MESSAGE.SET_NAME('LNS', 'LNS_INHERIT_DIST_NOT_FOUND');
4711: FND_MSG_PUB.ADD;
4708:
4709: IF l_code_combination_id IS NULL THEN
4710: FND_MESSAGE.SET_NAME('LNS', 'LNS_INHERIT_DIST_NOT_FOUND');
4711: FND_MSG_PUB.ADD;
4712: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
4713: RAISE FND_API.G_EXC_ERROR;
4714: END IF;
4715:
4716: l_distributionsCLEAR_ORIG(i).line_type := 'CLEAR';
4723: l_distributionsCLEAR_ORIG(i).activity := 'LNS_APPROVAL';
4724:
4725: l_clearing_total_amount_due := l_funded_amount;
4726: END IF;
4727: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Manual After loan clearing lines calculated. total clearing amount due = ' || l_clearing_total_amount_due);
4728:
4729: -- if the adjustment exists in PSA table it means loan is approved and adjustment was created for receivables
4730: i := 0;
4731: if l_adjustment_exists then
4728:
4729: -- if the adjustment exists in PSA table it means loan is approved and adjustment was created for receivables
4730: i := 0;
4731: if l_adjustment_exists then
4732: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'ACCOUNTED ADJUSTMENT EXISTS');
4733: Begin
4734: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Opening cursor C_ERS_LOAN_RECEIVABLE...');
4735: open C_ERS_LOAN_RECEIVABLE(p_loan_id);
4736: Loop
4730: i := 0;
4731: if l_adjustment_exists then
4732: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'ACCOUNTED ADJUSTMENT EXISTS');
4733: Begin
4734: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Opening cursor C_ERS_LOAN_RECEIVABLE...');
4735: open C_ERS_LOAN_RECEIVABLE(p_loan_id);
4736: Loop
4737: -- reintialize these
4738: l_code_combination_id := null;
4743: EXIT WHEN C_ERS_LOAN_RECEIVABLE%NOTFOUND;
4744:
4745: l_receivable_total_amount_due := l_receivable_total_amount_due + l_ers_distribution_amount;
4746:
4747: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Record:');
4748: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_ers_distribution_amount = ' || l_ers_distribution_amount);
4749: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
4750: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_receivable_total_amount_due = ' || l_receivable_total_amount_due);
4751:
4744:
4745: l_receivable_total_amount_due := l_receivable_total_amount_due + l_ers_distribution_amount;
4746:
4747: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Record:');
4748: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_ers_distribution_amount = ' || l_ers_distribution_amount);
4749: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
4750: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_receivable_total_amount_due = ' || l_receivable_total_amount_due);
4751:
4752: if l_ers_distribution_amount > 0 then
4745: l_receivable_total_amount_due := l_receivable_total_amount_due + l_ers_distribution_amount;
4746:
4747: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Record:');
4748: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_ers_distribution_amount = ' || l_ers_distribution_amount);
4749: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
4750: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_receivable_total_amount_due = ' || l_receivable_total_amount_due);
4751:
4752: if l_ers_distribution_amount > 0 then
4753: -- Bug#7406404 - Make ERS 'Replacement Natural Account' optional
4746:
4747: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Record:');
4748: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_ers_distribution_amount = ' || l_ers_distribution_amount);
4749: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
4750: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_receivable_total_amount_due = ' || l_receivable_total_amount_due);
4751:
4752: if l_ers_distribution_amount > 0 then
4753: -- Bug#7406404 - Make ERS 'Replacement Natural Account' optional
4754: IF (l_is_natural_acct_exists = 'Y') THEN
4754: IF (l_is_natural_acct_exists = 'Y') THEN
4755: -- here we need to rebuild the code_Combination_id as per swapping rules
4756: -- replace the natual account segement with the natural account segment found in the set-up/configuration
4757:
4758: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Calling swap_code_combination...');
4759: l_code_combination_id_new_rec :=
4760: swap_code_combination(p_chart_of_accounts_id => l_ledger_details.chart_of_accounts_id
4761: ,p_original_cc_id => l_code_combination_id
4762: ,p_swap_segment_number => l_nat_acct_seg_number
4761: ,p_original_cc_id => l_code_combination_id
4762: ,p_swap_segment_number => l_nat_acct_seg_number
4763: ,p_swap_segment_value => l_natural_account_rec);
4764:
4765: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_code_combination_id_new_rec = ' || l_code_combination_id_new_Rec);
4766: ELSE
4767:
4768: l_code_combination_id_new_rec := l_code_combination_id;
4769: END IF;
4767:
4768: l_code_combination_id_new_rec := l_code_combination_id;
4769: END IF;
4770:
4771: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Assigning distributions...');
4772:
4773: -- Bug#10266158 (Handling Multi Receivable Invoices in a loan)
4774: -- After new cc_id, if it exists already in IF l_distributionsREC_ORIG then add the amount to the existed record
4775: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Add amount to the exist record if the new CC_ID already exists');
4771: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Assigning distributions...');
4772:
4773: -- Bug#10266158 (Handling Multi Receivable Invoices in a loan)
4774: -- After new cc_id, if it exists already in IF l_distributionsREC_ORIG then add the amount to the existed record
4775: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Add amount to the exist record if the new CC_ID already exists');
4776: l_new_ccid_already_exists := 'N';
4777: FOR p in 1..l_distributionsREC_ORIG.count LOOP
4778:
4779: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_distributionsREC_ORIG('||p||').code_combination_id: '||l_distributionsREC_ORIG(p).code_combination_id);
4775: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Add amount to the exist record if the new CC_ID already exists');
4776: l_new_ccid_already_exists := 'N';
4777: FOR p in 1..l_distributionsREC_ORIG.count LOOP
4778:
4779: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_distributionsREC_ORIG('||p||').code_combination_id: '||l_distributionsREC_ORIG(p).code_combination_id);
4780:
4781: IF (l_distributionsREC_ORIG(p).code_combination_id = l_code_combination_id_new_rec) THEN
4782: l_distributionsREC_ORIG(p).distribution_amount := l_distributionsREC_ORIG(p).distribution_amount + l_ers_distribution_amount;
4783: l_new_ccid_already_exists := 'Y';
4780:
4781: IF (l_distributionsREC_ORIG(p).code_combination_id = l_code_combination_id_new_rec) THEN
4782: l_distributionsREC_ORIG(p).distribution_amount := l_distributionsREC_ORIG(p).distribution_amount + l_ers_distribution_amount;
4783: l_new_ccid_already_exists := 'Y';
4784: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Total amount after adding this is '||l_distributionsREC_ORIG(p).distribution_amount||' to existed amount');
4785:
4786: EXIT;
4787: END IF;
4788:
4798: l_distributionsREC_ORIG(i).distribution_amount := l_ers_distribution_amount;
4799: l_distributionsREC_ORIG(i).distribution_type := 'ORIGINATION';
4800: l_distributionsREC_ORIG(i).activity := 'LNS_APPROVAL';
4801:
4802: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Added LOAN_RECEIVABLE FOR ORIGINATION ' || l_code_combination_id_new_rec);
4803: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_distributionsREC_ORIG.count = ' || l_distributionsREC_ORIG.count);
4804:
4805: l_distributionsREC_BILL(i).line_type := 'PRIN';
4806: l_distributionsREC_BILL(i).account_name := 'LOAN_RECEIVABLE';
4799: l_distributionsREC_ORIG(i).distribution_type := 'ORIGINATION';
4800: l_distributionsREC_ORIG(i).activity := 'LNS_APPROVAL';
4801:
4802: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Added LOAN_RECEIVABLE FOR ORIGINATION ' || l_code_combination_id_new_rec);
4803: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_distributionsREC_ORIG.count = ' || l_distributionsREC_ORIG.count);
4804:
4805: l_distributionsREC_BILL(i).line_type := 'PRIN';
4806: l_distributionsREC_BILL(i).account_name := 'LOAN_RECEIVABLE';
4807: l_distributionsREC_BILL(i).code_combination_id := l_code_combination_id_new_rec;
4808: l_distributionsREC_BILL(i).account_type := 'CR';
4809: l_distributionsREC_BILL(i).distribution_amount := null;
4810: l_distributionsREC_BILL(i).distribution_type := 'BILLING';
4811:
4812: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Added LOAN_RECEIVABLE FOR BILLING ' || l_code_combination_id_new_rec);
4813: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_distributionsREC_BILL.count = ' || l_distributionsREC_BILL.count);
4814: END IF; -- IF l_new_ccid_already_exists = 'N'
4815:
4816: l_sum := l_sum + l_ers_distribution_amount;
4809: l_distributionsREC_BILL(i).distribution_amount := null;
4810: l_distributionsREC_BILL(i).distribution_type := 'BILLING';
4811:
4812: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Added LOAN_RECEIVABLE FOR BILLING ' || l_code_combination_id_new_rec);
4813: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_distributionsREC_BILL.count = ' || l_distributionsREC_BILL.count);
4814: END IF; -- IF l_new_ccid_already_exists = 'N'
4815:
4816: l_sum := l_sum + l_ers_distribution_amount;
4817: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_sum = ' || l_sum);
4813: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_distributionsREC_BILL.count = ' || l_distributionsREC_BILL.count);
4814: END IF; -- IF l_new_ccid_already_exists = 'N'
4815:
4816: l_sum := l_sum + l_ers_distribution_amount;
4817: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_sum = ' || l_sum);
4818: end if;
4819:
4820: end loop;
4821:
4822: close C_ERS_LOAN_RECEIVABLE;
4823:
4824: exception
4825: when others then
4826: -- logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'failed to inherit receivables distributions');
4827: FND_MESSAGE.SET_NAME('LNS', 'LNS_INHERIT_DIST_NOT_FOUND');
4828: FND_MSG_PUB.ADD;
4829: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
4830: RAISE FND_API.G_EXC_ERROR;
4825: when others then
4826: -- logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'failed to inherit receivables distributions');
4827: FND_MESSAGE.SET_NAME('LNS', 'LNS_INHERIT_DIST_NOT_FOUND');
4828: FND_MSG_PUB.ADD;
4829: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
4830: RAISE FND_API.G_EXC_ERROR;
4831: end;
4832:
4833: else
4830: RAISE FND_API.G_EXC_ERROR;
4831: end;
4832:
4833: else
4834: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'NO ACCOUNTED ADJUSTMENT EXISTS');
4835: end if;
4836:
4837: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_distributionsREC_BILL.count = ' || l_distributionsREC_BILL.count);
4838: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_distributionsREC_ORIG.count = ' || l_distributionsREC_ORIG.count);
4833: else
4834: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'NO ACCOUNTED ADJUSTMENT EXISTS');
4835: end if;
4836:
4837: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_distributionsREC_BILL.count = ' || l_distributionsREC_BILL.count);
4838: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_distributionsREC_ORIG.count = ' || l_distributionsREC_ORIG.count);
4839: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_distributionsCLEAR_ORIG.count = ' || l_distributionsCLEAR_ORIG.count);
4840: --logMessage(FND_LOG.level_statement, G_PKG_NAME, 'TOTAL AMOUNT DUE = ' || l_total_amount_due);
4841: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_funded_amount = ' || l_funded_amount);
4834: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'NO ACCOUNTED ADJUSTMENT EXISTS');
4835: end if;
4836:
4837: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_distributionsREC_BILL.count = ' || l_distributionsREC_BILL.count);
4838: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_distributionsREC_ORIG.count = ' || l_distributionsREC_ORIG.count);
4839: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_distributionsCLEAR_ORIG.count = ' || l_distributionsCLEAR_ORIG.count);
4840: --logMessage(FND_LOG.level_statement, G_PKG_NAME, 'TOTAL AMOUNT DUE = ' || l_total_amount_due);
4841: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_funded_amount = ' || l_funded_amount);
4842:
4835: end if;
4836:
4837: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_distributionsREC_BILL.count = ' || l_distributionsREC_BILL.count);
4838: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_distributionsREC_ORIG.count = ' || l_distributionsREC_ORIG.count);
4839: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_distributionsCLEAR_ORIG.count = ' || l_distributionsCLEAR_ORIG.count);
4840: --logMessage(FND_LOG.level_statement, G_PKG_NAME, 'TOTAL AMOUNT DUE = ' || l_total_amount_due);
4841: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_funded_amount = ' || l_funded_amount);
4842:
4843: -- this logic is copied from PSA 04-19-2005
4836:
4837: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_distributionsREC_BILL.count = ' || l_distributionsREC_BILL.count);
4838: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_distributionsREC_ORIG.count = ' || l_distributionsREC_ORIG.count);
4839: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_distributionsCLEAR_ORIG.count = ' || l_distributionsCLEAR_ORIG.count);
4840: --logMessage(FND_LOG.level_statement, G_PKG_NAME, 'TOTAL AMOUNT DUE = ' || l_total_amount_due);
4841: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_funded_amount = ' || l_funded_amount);
4842:
4843: -- this logic is copied from PSA 04-19-2005
4844: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'CALCULATING %AGES FOR LOANS RECEIVABLE...');
4837: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_distributionsREC_BILL.count = ' || l_distributionsREC_BILL.count);
4838: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_distributionsREC_ORIG.count = ' || l_distributionsREC_ORIG.count);
4839: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_distributionsCLEAR_ORIG.count = ' || l_distributionsCLEAR_ORIG.count);
4840: --logMessage(FND_LOG.level_statement, G_PKG_NAME, 'TOTAL AMOUNT DUE = ' || l_total_amount_due);
4841: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_funded_amount = ' || l_funded_amount);
4842:
4843: -- this logic is copied from PSA 04-19-2005
4844: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'CALCULATING %AGES FOR LOANS RECEIVABLE...');
4845:
4840: --logMessage(FND_LOG.level_statement, G_PKG_NAME, 'TOTAL AMOUNT DUE = ' || l_total_amount_due);
4841: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_funded_amount = ' || l_funded_amount);
4842:
4843: -- this logic is copied from PSA 04-19-2005
4844: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'CALCULATING %AGES FOR LOANS RECEIVABLE...');
4845:
4846: for k in 1..l_distributionsREC_ORIG.count loop
4847:
4848: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Iteration ' || k);
4844: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'CALCULATING %AGES FOR LOANS RECEIVABLE...');
4845:
4846: for k in 1..l_distributionsREC_ORIG.count loop
4847:
4848: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Iteration ' || k);
4849: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Calculating %ages for a loan with ERS Adjustments...');
4850:
4851: if k <> l_distributionsREC_ORIG.count then
4852: -- use the adjustment amounts to calculate percentages -- this ensures percents but not cc_ids
4845:
4846: for k in 1..l_distributionsREC_ORIG.count loop
4847:
4848: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Iteration ' || k);
4849: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Calculating %ages for a loan with ERS Adjustments...');
4850:
4851: if k <> l_distributionsREC_ORIG.count then
4852: -- use the adjustment amounts to calculate percentages -- this ensures percents but not cc_ids
4853: -- this may or may not be an offending line karamach
4871:
4872: l_percent := 0;
4873: l_amount := 0;
4874:
4875: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'distribution_percent = ' || l_distributionsREC_ORIG(k).distribution_percent);
4876: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'distribution_amount = ' || l_distributionsREC_ORIG(k).distribution_amount);
4877: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_running_percent = ' || l_running_percent);
4878: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_running_amount = ' || l_running_amount);
4879:
4872: l_percent := 0;
4873: l_amount := 0;
4874:
4875: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'distribution_percent = ' || l_distributionsREC_ORIG(k).distribution_percent);
4876: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'distribution_amount = ' || l_distributionsREC_ORIG(k).distribution_amount);
4877: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_running_percent = ' || l_running_percent);
4878: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_running_amount = ' || l_running_amount);
4879:
4880: end loop;
4873: l_amount := 0;
4874:
4875: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'distribution_percent = ' || l_distributionsREC_ORIG(k).distribution_percent);
4876: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'distribution_amount = ' || l_distributionsREC_ORIG(k).distribution_amount);
4877: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_running_percent = ' || l_running_percent);
4878: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_running_amount = ' || l_running_amount);
4879:
4880: end loop;
4881:
4874:
4875: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'distribution_percent = ' || l_distributionsREC_ORIG(k).distribution_percent);
4876: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'distribution_amount = ' || l_distributionsREC_ORIG(k).distribution_amount);
4877: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_running_percent = ' || l_running_percent);
4878: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_running_amount = ' || l_running_amount);
4879:
4880: end loop;
4881:
4882: l_running_percent := 0;
4882: l_running_percent := 0;
4883: l_running_amount := 0;
4884:
4885: -- this logic is copied from PSA 04-19-2005
4886: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'CALCULATING %AGES FOR LOANS CLEARING...');
4887:
4888: for k in 1..l_distributionsCLEAR_ORIG.count loop
4889:
4890: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'iteration ' || k);
4886: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'CALCULATING %AGES FOR LOANS CLEARING...');
4887:
4888: for k in 1..l_distributionsCLEAR_ORIG.count loop
4889:
4890: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'iteration ' || k);
4891:
4892: if k <> l_distributionsCLEAR_ORIG.count then
4893: l_percent := round(l_distributionsCLEAR_ORIG(k).distribution_amount / l_clearing_total_amount_due * 100,4);
4894: l_distributionsCLEAR_ORIG(k).distribution_percent := l_percent;
4904:
4905: l_percent := 0;
4906: l_amount := 0;
4907:
4908: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'distribution_percent = ' || l_distributionsCLEAR_ORIG(k).distribution_percent);
4909: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'distribution_amount = ' || l_distributionsCLEAR_ORIG(k).distribution_amount);
4910: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_running_percent = ' || l_running_percent);
4911: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_running_amount = ' || l_running_amount);
4912:
4905: l_percent := 0;
4906: l_amount := 0;
4907:
4908: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'distribution_percent = ' || l_distributionsCLEAR_ORIG(k).distribution_percent);
4909: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'distribution_amount = ' || l_distributionsCLEAR_ORIG(k).distribution_amount);
4910: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_running_percent = ' || l_running_percent);
4911: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_running_amount = ' || l_running_amount);
4912:
4913: end loop;
4906: l_amount := 0;
4907:
4908: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'distribution_percent = ' || l_distributionsCLEAR_ORIG(k).distribution_percent);
4909: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'distribution_amount = ' || l_distributionsCLEAR_ORIG(k).distribution_amount);
4910: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_running_percent = ' || l_running_percent);
4911: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_running_amount = ' || l_running_amount);
4912:
4913: end loop;
4914:
4907:
4908: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'distribution_percent = ' || l_distributionsCLEAR_ORIG(k).distribution_percent);
4909: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'distribution_amount = ' || l_distributionsCLEAR_ORIG(k).distribution_amount);
4910: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_running_percent = ' || l_running_percent);
4911: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_running_amount = ' || l_running_amount);
4912:
4913: end loop;
4914:
4915: l_bill_dist_cnt := 0;
4916: OPEN cur_bill_dist_count(p_loan_id);
4917: FETCH cur_bill_dist_count INTO l_bill_dist_cnt;
4918: CLOSE cur_bill_dist_count;
4919:
4920: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_bill_dist_cnt is '||l_bill_dist_cnt);
4921: IF l_bill_dist_cnt < 3 THEN
4922: -- inherit remaining account_names based on loan class + type for
4923: -- principal / interest receivable, interest income
4924:
4925: delete from lns_distributions
4926: where loan_id = p_loan_id
4927: and account_name IN ('PRINCIPAL_RECEIVABLE', 'INTEREST_RECEIVABLE', 'INTEREST_INCOME');
4928:
4929: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Billing rows - deleted ||'||SQL%ROWCOUNT||' rows');
4930:
4931: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Calling defaultDistributionsCatch...');
4932: defaultDistributionsCatch(p_api_version => 1.0
4933: ,p_init_msg_list => FND_API.G_FALSE
4927: and account_name IN ('PRINCIPAL_RECEIVABLE', 'INTEREST_RECEIVABLE', 'INTEREST_INCOME');
4928:
4929: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Billing rows - deleted ||'||SQL%ROWCOUNT||' rows');
4930:
4931: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Calling defaultDistributionsCatch...');
4932: defaultDistributionsCatch(p_api_version => 1.0
4933: ,p_init_msg_list => FND_API.G_FALSE
4934: ,p_commit => FND_API.G_FALSE
4935: ,p_loan_id => p_loan_id
4940: ,x_distribution_tbl => l_distributionsCatch
4941: ,x_return_status => l_return_status
4942: ,x_msg_count => l_msg_count
4943: ,x_msg_data => l_msg_data);
4944: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_return_status = ' || l_return_status);
4945: if l_return_status <> 'S' then
4946: RAISE FND_API.G_EXC_ERROR;
4947: end if;
4948: END IF;
4949:
4950: End if; --loan class
4951:
4952: l_distributionsCatch_count := l_distributionsCatch.count;
4953: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_distributionsCatch_count = ' || l_distributionsCatch_count);
4954:
4955: l_total_distributions := l_distributions_count + l_distributionsCatch_count;
4956:
4957: n := 0;
4954:
4955: l_total_distributions := l_distributions_count + l_distributionsCatch_count;
4956:
4957: n := 0;
4958: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Copying l_distributionsREC_ORIG to l_distributionsALL...');
4959: for j in 1..l_distributionsREC_ORIG.count loop
4960: n := n + 1;
4961: l_distributionsALL(n) := l_distributionsREC_ORIG(j);
4962: end loop;
4959: for j in 1..l_distributionsREC_ORIG.count loop
4960: n := n + 1;
4961: l_distributionsALL(n) := l_distributionsREC_ORIG(j);
4962: end loop;
4963: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_distributionsALL.count = ' || l_distributionsALL.count);
4964:
4965: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Copying l_distributionsCLEAR_ORIG to l_distributionsALL...');
4966: for j in 1..l_distributionsCLEAR_ORIG.count loop
4967: n := n + 1;
4961: l_distributionsALL(n) := l_distributionsREC_ORIG(j);
4962: end loop;
4963: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_distributionsALL.count = ' || l_distributionsALL.count);
4964:
4965: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Copying l_distributionsCLEAR_ORIG to l_distributionsALL...');
4966: for j in 1..l_distributionsCLEAR_ORIG.count loop
4967: n := n + 1;
4968: l_distributionsALL(n) := l_distributionsCLEAR_ORIG(j);
4969: end loop;
4966: for j in 1..l_distributionsCLEAR_ORIG.count loop
4967: n := n + 1;
4968: l_distributionsALL(n) := l_distributionsCLEAR_ORIG(j);
4969: end loop;
4970: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_distributionsALL.count = ' || l_distributionsALL.count);
4971:
4972: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Copying l_distributionsREC_BILL to l_distributionsALL...');
4973: for j in 1..l_distributionsREC_BILL.count loop
4974: n := n + 1;
4968: l_distributionsALL(n) := l_distributionsCLEAR_ORIG(j);
4969: end loop;
4970: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_distributionsALL.count = ' || l_distributionsALL.count);
4971:
4972: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Copying l_distributionsREC_BILL to l_distributionsALL...');
4973: for j in 1..l_distributionsREC_BILL.count loop
4974: n := n + 1;
4975: l_distributionsALL(n) := l_distributionsREC_BILL(j);
4976: end loop;
4973: for j in 1..l_distributionsREC_BILL.count loop
4974: n := n + 1;
4975: l_distributionsALL(n) := l_distributionsREC_BILL(j);
4976: end loop;
4977: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_distributionsALL.count = ' || l_distributionsALL.count);
4978:
4979: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Copying l_distributionsCatch to l_distributionsALL...');
4980: for j in 1..l_distributionsCatch.count
4981: loop
4975: l_distributionsALL(n) := l_distributionsREC_BILL(j);
4976: end loop;
4977: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_distributionsALL.count = ' || l_distributionsALL.count);
4978:
4979: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Copying l_distributionsCatch to l_distributionsALL...');
4980: for j in 1..l_distributionsCatch.count
4981: loop
4982: n := n + 1;
4983: l_distributionsALL(n) := l_distributionsCatch(j);
4981: loop
4982: n := n + 1;
4983: l_distributionsALL(n) := l_distributionsCatch(j);
4984: end loop;
4985: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_distributionsALL.count = ' || l_distributionsALL.count);
4986:
4987: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Calling do_insert_distributions...');
4988: do_insert_distributions(p_distributions_tbl => l_distributionsALL
4989: ,p_loan_id => p_loan_id);
4983: l_distributionsALL(n) := l_distributionsCatch(j);
4984: end loop;
4985: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_distributionsALL.count = ' || l_distributionsALL.count);
4986:
4987: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Calling do_insert_distributions...');
4988: do_insert_distributions(p_distributions_tbl => l_distributionsALL
4989: ,p_loan_id => p_loan_id);
4990:
4991: -- validate the accounting rows here
4988: do_insert_distributions(p_distributions_tbl => l_distributionsALL
4989: ,p_loan_id => p_loan_id);
4990:
4991: -- validate the accounting rows here
4992: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Calling lns_distributions_pub.validateAccounting...');
4993: lns_distributions_pub.validateAccounting(p_loan_id => p_loan_id
4994: ,p_init_msg_list => p_init_msg_list
4995: ,x_return_status => l_return_status
4996: ,x_msg_count => l_msg_count
4995: ,x_return_status => l_return_status
4996: ,x_msg_count => l_msg_count
4997: ,x_msg_data => l_msg_data);
4998:
4999: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_return_status = ' || l_return_status);
5000: if l_return_status <> 'S' then
5001: FND_MESSAGE.SET_NAME('LNS', 'LNS_DEFAULT_DIST_NOT_FOUND');
5002: FND_MSG_PUB.ADD;
5003: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
4999: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_return_status = ' || l_return_status);
5000: if l_return_status <> 'S' then
5001: FND_MESSAGE.SET_NAME('LNS', 'LNS_DEFAULT_DIST_NOT_FOUND');
5002: FND_MSG_PUB.ADD;
5003: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
5004: RAISE FND_API.G_EXC_ERROR;
5005: end if;
5006:
5007: IF FND_API.to_Boolean(p_commit) THEN
5008: COMMIT WORK;
5009: END IF;
5010:
5011: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
5012: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
5013:
5014: EXCEPTION
5015:
5016: WHEN FND_API.G_EXC_ERROR THEN
5016: WHEN FND_API.G_EXC_ERROR THEN
5017: ROLLBACK TO defaultDistributions;
5018: x_return_status := FND_API.G_RET_STS_ERROR;
5019: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
5020: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
5021:
5022: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5023: ROLLBACK TO defaultDistributions;
5024: x_return_status := FND_API.G_RET_STS_ERROR;
5022: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5023: ROLLBACK TO defaultDistributions;
5024: x_return_status := FND_API.G_RET_STS_ERROR;
5025: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
5026: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
5027:
5028: WHEN OTHERS THEN
5029: ROLLBACK TO defaultDistributions;
5030: x_return_status := FND_API.G_RET_STS_ERROR;
5028: WHEN OTHERS THEN
5029: ROLLBACK TO defaultDistributions;
5030: x_return_status := FND_API.G_RET_STS_ERROR;
5031: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
5032: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
5033:
5034: end defaultDistributions;
5035:
5036: /*=========================================================================
5155:
5156: SAVEPOINT onlineAccounting;
5157: l_api_name := 'onlineAccounting';
5158:
5159: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
5160: -- Initialize API return status to SUCCESS
5161: x_return_status := FND_API.G_RET_STS_SUCCESS;
5162: -- Initialize message list IF p_init_msg_list is set to TRUE.
5163: IF FND_API.to_Boolean( p_init_msg_list ) THEN
5167: open c_loan_info(p_loan_id);
5168: fetch c_loan_info into l_legal_entity_id, l_loan_class;
5169: close c_loan_info;
5170:
5171: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'running on-line accounting for loan_id = ' || p_loan_id);
5172: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_accounting_mode = ' || p_accounting_mode);
5173: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_transfer_flag = ' || p_transfer_flag);
5174: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_gl_posting_flag = ' || p_gl_posting_flag);
5175: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_offline_flag = ' || p_offline_flag);
5168: fetch c_loan_info into l_legal_entity_id, l_loan_class;
5169: close c_loan_info;
5170:
5171: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'running on-line accounting for loan_id = ' || p_loan_id);
5172: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_accounting_mode = ' || p_accounting_mode);
5173: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_transfer_flag = ' || p_transfer_flag);
5174: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_gl_posting_flag = ' || p_gl_posting_flag);
5175: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_offline_flag = ' || p_offline_flag);
5176:
5169: close c_loan_info;
5170:
5171: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'running on-line accounting for loan_id = ' || p_loan_id);
5172: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_accounting_mode = ' || p_accounting_mode);
5173: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_transfer_flag = ' || p_transfer_flag);
5174: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_gl_posting_flag = ' || p_gl_posting_flag);
5175: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_offline_flag = ' || p_offline_flag);
5176:
5177: if l_loan_class = 'ERS' then
5170:
5171: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'running on-line accounting for loan_id = ' || p_loan_id);
5172: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_accounting_mode = ' || p_accounting_mode);
5173: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_transfer_flag = ' || p_transfer_flag);
5174: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_gl_posting_flag = ' || p_gl_posting_flag);
5175: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_offline_flag = ' || p_offline_flag);
5176:
5177: if l_loan_class = 'ERS' then
5178:
5171: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'running on-line accounting for loan_id = ' || p_loan_id);
5172: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_accounting_mode = ' || p_accounting_mode);
5173: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_transfer_flag = ' || p_transfer_flag);
5174: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_gl_posting_flag = ' || p_gl_posting_flag);
5175: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_offline_flag = ' || p_offline_flag);
5176:
5177: if l_loan_class = 'ERS' then
5178:
5179: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ERS loan accounting');
5175: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_offline_flag = ' || p_offline_flag);
5176:
5177: if l_loan_class = 'ERS' then
5178:
5179: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ERS loan accounting');
5180: -- at this point in time, the INVOICES and ADJUSTMENTS MUST have already been accounted for
5181: insert into XLA_ACCT_PROG_DOCS_GT
5182: (entity_id)
5183: select entity_id from xla_transaction_entities
5188: and nvl(source_id_int_3, -1) = -1;
5189:
5190: else
5191:
5192: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'DIRECT loan accounting');
5193:
5194: -- can we make join thru lns_distributions
5195: insert into XLA_ACCT_PROG_DOCS_GT
5196: (entity_id)
5221: end if;
5222:
5223: select count(1) into l_transactions_count
5224: from XLA_ACCT_PROG_DOCS_GT;
5225: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'inserted transaction_entities ' || l_transactions_count);
5226: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'calling XLA_ACCOUNTING_PUB_PKG.accounting_program_doc_batch ');
5227: XLA_ACCOUNTING_PUB_PKG.accounting_program_doc_batch(p_application_id => 206
5228: ,p_accounting_mode => p_accounting_mode
5229: ,p_gl_posting_flag => p_gl_posting_flag
5222:
5223: select count(1) into l_transactions_count
5224: from XLA_ACCT_PROG_DOCS_GT;
5225: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'inserted transaction_entities ' || l_transactions_count);
5226: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'calling XLA_ACCOUNTING_PUB_PKG.accounting_program_doc_batch ');
5227: XLA_ACCOUNTING_PUB_PKG.accounting_program_doc_batch(p_application_id => 206
5228: ,p_accounting_mode => p_accounting_mode
5229: ,p_gl_posting_flag => p_gl_posting_flag
5230: ,p_accounting_batch_id => l_accounting_batch_id
5229: ,p_gl_posting_flag => p_gl_posting_flag
5230: ,p_accounting_batch_id => l_accounting_batch_id
5231: ,p_errbuf => l_errbuf
5232: ,p_retcode => l_retcode);
5233: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_retcode = ' || l_retcode);
5234: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_accounting_batch_id = ' || l_accounting_batch_id);
5235:
5236: if l_retcode = 0 then
5237:
5230: ,p_accounting_batch_id => l_accounting_batch_id
5231: ,p_errbuf => l_errbuf
5232: ,p_retcode => l_retcode);
5233: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_retcode = ' || l_retcode);
5234: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_accounting_batch_id = ' || l_accounting_batch_id);
5235:
5236: if l_retcode = 0 then
5237:
5238: --FND_MESSAGE.SET_NAME('XLA', 'XLA_ONLINE_ACCT_SUCCESS');
5236: if l_retcode = 0 then
5237:
5238: --FND_MESSAGE.SET_NAME('XLA', 'XLA_ONLINE_ACCT_SUCCESS');
5239: --FND_MSG_PUB.Add;
5240: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'online accounting SUCCESS! ');
5241:
5242: elsif l_retcode = 2 then
5243:
5244: FND_MESSAGE.SET_NAME('XLA', 'XLA_ONLINE_ACCTG_ERROR');
5242: elsif l_retcode = 2 then
5243:
5244: FND_MESSAGE.SET_NAME('XLA', 'XLA_ONLINE_ACCTG_ERROR');
5245: FND_MSG_PUB.Add;
5246: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
5247: RAISE FND_API.G_EXC_ERROR;
5248:
5249: elsif l_retcode = 1 then
5250:
5247: RAISE FND_API.G_EXC_ERROR;
5248:
5249: elsif l_retcode = 1 then
5250:
5251: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'online accounting failed ' || l_errbuf);
5252: /* query XLA_ACCOUNTING_ERRORS */
5253: l_error_counter := 0;
5254: open c_acc_errors(p_loan_id, l_accounting_batch_id);
5255:
5265:
5266: if l_error_counter = 1 then
5267: FND_MESSAGE.SET_NAME('XLA', 'XLA_ONLINE_ACCT_WARNING');
5268: FND_MSG_PUB.Add;
5269: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
5270: end if;
5271:
5272: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACC_DOC_FAIL');
5273: FND_MESSAGE.SET_TOKEN('DOC_NUM', l_invoice_number);
5273: FND_MESSAGE.SET_TOKEN('DOC_NUM', l_invoice_number);
5274: FND_MESSAGE.SET_TOKEN('DOC_TYPE', l_entity_code);
5275: FND_MESSAGE.SET_TOKEN('ACC_ERR', l_error_message);
5276: FND_MSG_PUB.Add;
5277: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
5278:
5279: END LOOP;
5280:
5281: close c_acc_errors;
5284: end if;
5285:
5286: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
5287: commit;
5288: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
5289:
5290: EXCEPTION
5291:
5292: WHEN FND_API.G_EXC_ERROR THEN
5291:
5292: WHEN FND_API.G_EXC_ERROR THEN
5293: ROLLBACK TO onlineAccounting;
5294: x_return_status := FND_API.G_RET_STS_ERROR;
5295: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
5296: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
5297:
5298: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5299: ROLLBACK TO onlineAccounting;
5297:
5298: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5299: ROLLBACK TO onlineAccounting;
5300: x_return_status := FND_API.G_RET_STS_ERROR;
5301: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
5302: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
5303:
5304: WHEN OTHERS THEN
5305: ROLLBACK TO onlineAccounting;
5303:
5304: WHEN OTHERS THEN
5305: ROLLBACK TO onlineAccounting;
5306: x_return_status := FND_API.G_RET_STS_ERROR;
5307: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
5308: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
5309:
5310: end onlineAccounting;
5311:
5379: begin
5380:
5381: l_api_name := 'LNS_ACCOUNTING_CONCUR';
5382:
5383: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, 'Generate Distributions process has started');
5384:
5385: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'LOAN_ID = ' || P_LOAN_ID);
5386: if P_LOAN_ID is null then
5387:
5381: l_api_name := 'LNS_ACCOUNTING_CONCUR';
5382:
5383: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, 'Generate Distributions process has started');
5384:
5385: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'LOAN_ID = ' || P_LOAN_ID);
5386: if P_LOAN_ID is null then
5387:
5388: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: Loan must be set.');
5389: FND_MESSAGE.SET_NAME('LNS', 'LNS_NO_LOAN');
5384:
5385: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'LOAN_ID = ' || P_LOAN_ID);
5386: if P_LOAN_ID is null then
5387:
5388: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: Loan must be set.');
5389: FND_MESSAGE.SET_NAME('LNS', 'LNS_NO_LOAN');
5390: FND_MSG_PUB.Add;
5391: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
5392: RAISE FND_API.G_EXC_ERROR;
5387:
5388: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: Loan must be set.');
5389: FND_MESSAGE.SET_NAME('LNS', 'LNS_NO_LOAN');
5390: FND_MSG_PUB.Add;
5391: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
5392: RAISE FND_API.G_EXC_ERROR;
5393:
5394: end if;
5395:
5395:
5396: open c_loan_info(P_LOAN_ID);
5397: fetch c_loan_info into l_loan_class_code, l_gl_date, l_object_version_number, l_org_id;
5398: close c_loan_info;
5399: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_class_code = ' || l_loan_class_code);
5400: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_gl_date = ' || l_gl_date);
5401: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_object_version_number = ' || l_object_version_number);
5402: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_org_id = ' || l_org_id);
5403:
5396: open c_loan_info(P_LOAN_ID);
5397: fetch c_loan_info into l_loan_class_code, l_gl_date, l_object_version_number, l_org_id;
5398: close c_loan_info;
5399: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_class_code = ' || l_loan_class_code);
5400: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_gl_date = ' || l_gl_date);
5401: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_object_version_number = ' || l_object_version_number);
5402: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_org_id = ' || l_org_id);
5403:
5404:
5397: fetch c_loan_info into l_loan_class_code, l_gl_date, l_object_version_number, l_org_id;
5398: close c_loan_info;
5399: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_class_code = ' || l_loan_class_code);
5400: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_gl_date = ' || l_gl_date);
5401: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_object_version_number = ' || l_object_version_number);
5402: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_org_id = ' || l_org_id);
5403:
5404:
5405: IF ((l_loan_class_code IS NULL) OR (l_loan_class_code <> 'ERS')) THEN
5398: close c_loan_info;
5399: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_class_code = ' || l_loan_class_code);
5400: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_gl_date = ' || l_gl_date);
5401: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_object_version_number = ' || l_object_version_number);
5402: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_org_id = ' || l_org_id);
5403:
5404:
5405: IF ((l_loan_class_code IS NULL) OR (l_loan_class_code <> 'ERS')) THEN
5406: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - Only works for ERS loans.');
5402: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_org_id = ' || l_org_id);
5403:
5404:
5405: IF ((l_loan_class_code IS NULL) OR (l_loan_class_code <> 'ERS')) THEN
5406: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - Only works for ERS loans.');
5407: return;
5408: END IF;
5409:
5410: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling LNS_XLA_EVENTS.create_event...');
5406: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - Only works for ERS loans.');
5407: return;
5408: END IF;
5409:
5410: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling LNS_XLA_EVENTS.create_event...');
5411: LNS_XLA_EVENTS.create_event(p_loan_id => P_LOAN_ID
5412: ,p_disb_header_id => -1
5413: ,p_loan_amount_adj_id => -1
5414: ,p_event_type_code => 'APPROVED'
5420: ,x_event_id => x_event_id
5421: ,x_return_status => l_return_status
5422: ,x_msg_count => l_msg_count
5423: ,x_msg_data => l_msg_data);
5424: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'event_id = ' || x_event_id);
5425: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_return_status = ' || l_return_status);
5426:
5427: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5428: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACCOUNTING_EVENT_ERROR');
5421: ,x_return_status => l_return_status
5422: ,x_msg_count => l_msg_count
5423: ,x_msg_data => l_msg_data);
5424: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'event_id = ' || x_event_id);
5425: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_return_status = ' || l_return_status);
5426:
5427: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5428: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACCOUNTING_EVENT_ERROR');
5429: FND_MSG_PUB.ADD;
5427: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5428: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACCOUNTING_EVENT_ERROR');
5429: FND_MSG_PUB.ADD;
5430: --l_last_api_called := 'LNS_XLA_EVENTS.create_event';
5431: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
5432: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5433: END IF;
5434:
5435:
5434:
5435:
5436:
5437: -- we should do online accounting in batch mode here
5438: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling Lns_distributions_pub.defaultDistributions...');
5439: Lns_distributions_pub.defaultDistributions(p_api_version => 1.0
5440: ,p_init_msg_list => FND_API.G_TRUE
5441: ,p_commit => FND_API.G_FALSE
5442: ,p_loan_id => P_LOAN_ID
5443: ,p_loan_class_code => l_loan_class_code
5444: ,x_return_status => l_return_status
5445: ,x_msg_count => l_msg_count
5446: ,x_msg_data => l_msg_data);
5447: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_return_status = ' || l_return_status);
5448:
5449: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5450: -- logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Call to Lns_distributions_pub.defaultDistributions failed with status ' || l_return_status);
5451: -- fnd_file.put_line(FND_FILE.LOG, 'FAILED TO INHERIT DISTRIBUTIONS');
5446: ,x_msg_data => l_msg_data);
5447: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_return_status = ' || l_return_status);
5448:
5449: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5450: -- logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Call to Lns_distributions_pub.defaultDistributions failed with status ' || l_return_status);
5451: -- fnd_file.put_line(FND_FILE.LOG, 'FAILED TO INHERIT DISTRIBUTIONS');
5452: --l_last_api_called := 'Lns_distributions_pub.defaultDistributions';
5453: RAISE FND_API.G_EXC_ERROR;
5454: ELSE
5453: RAISE FND_API.G_EXC_ERROR;
5454: ELSE
5455:
5456: if x_event_id is not null then
5457: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Updating lns_distributions...');
5458: update lns_distributions
5459: set event_id = x_event_id
5460: where loan_id = P_LOAN_ID
5461: and account_name in ('LOAN_RECEIVABLE', 'LOAN_CLEARING')
5461: and account_name in ('LOAN_RECEIVABLE', 'LOAN_CLEARING')
5462: and distribution_type = 'ORIGINATION'
5463: and activity = 'LNS_APPROVAL'
5464: and loan_line_id IS NULL;
5465: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Done');
5466: end if;
5467:
5468: -- finally update the loan header
5469: l_loan_header_rec.loan_id := P_LOAN_ID;
5468: -- finally update the loan header
5469: l_loan_header_rec.loan_id := P_LOAN_ID;
5470: l_loan_header_rec.loan_status := 'ACTIVE';
5471: l_loan_header_rec.secondary_status := FND_API.G_MISS_CHAR;
5472: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Before call to LNS_LOAN_HEADER_PUB.update_loan');
5473: LNS_LOAN_HEADER_PUB.update_loan(p_init_msg_list => FND_API.G_FALSE
5474: ,p_loan_header_rec => l_loan_header_rec
5475: ,p_object_version_number => l_object_version_number
5476: ,x_return_status => l_return_status
5475: ,p_object_version_number => l_object_version_number
5476: ,x_return_status => l_return_status
5477: ,x_msg_count => l_msg_count
5478: ,x_msg_data => l_msg_data);
5479: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_return_status = ' || l_return_status);
5480: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_msg_data = ' || l_msg_data);
5481:
5482: END IF;
5483:
5476: ,x_return_status => l_return_status
5477: ,x_msg_count => l_msg_count
5478: ,x_msg_data => l_msg_data);
5479: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_return_status = ' || l_return_status);
5480: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_msg_data = ' || l_msg_data);
5481:
5482: END IF;
5483:
5484: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5489: /* check to start billing for 0-th installment */
5490: open do_billing_cur(l_loan_header_rec.loan_id);
5491: fetch do_billing_cur into l_do_billing;
5492: close do_billing_cur;
5493: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_do_billing = ' || l_do_billing);
5494:
5495: if l_do_billing > 0 then
5496:
5497: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Billing Concurrent Program to bill 0-th installment...');
5493: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_do_billing = ' || l_do_billing);
5494:
5495: if l_do_billing > 0 then
5496:
5497: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Billing Concurrent Program to bill 0-th installment...');
5498: FND_REQUEST.SET_ORG_ID(l_org_id);
5499:
5500: -- Bug#6313716 : Invoke the function add_layout to specify the template type,code etc., before submitting request
5501: SELECT
5533: FND_MSG_PUB.Add;
5534: l_last_api_called := 'FND_REQUEST.SUBMIT_REQUEST for 0th installment billing';
5535: RAISE FND_API.G_EXC_ERROR;
5536: else
5537: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Successfully submited Billing Concurrent Program to bill 0-th installment. Request id = ' || l_request_id);
5538: end if;
5539:
5540: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'After call to submit request');
5541:
5536: else
5537: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Successfully submited Billing Concurrent Program to bill 0-th installment. Request id = ' || l_request_id);
5538: end if;
5539:
5540: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'After call to submit request');
5541:
5542: end if;
5543:
5544: end if;
5542: end if;
5543:
5544: end if;
5545:
5546: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, ' ');
5547: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, '-------------------');
5548: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, 'Generate Distributions process has succeeded!');
5549:
5550: EXCEPTION
5543:
5544: end if;
5545:
5546: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, ' ');
5547: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, '-------------------');
5548: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, 'Generate Distributions process has succeeded!');
5549:
5550: EXCEPTION
5551: WHEN others THEN
5544: end if;
5545:
5546: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, ' ');
5547: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, '-------------------');
5548: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, 'Generate Distributions process has succeeded!');
5549:
5550: EXCEPTION
5551: WHEN others THEN
5552: l_return := FND_CONCURRENT.SET_COMPLETION_STATUS(
5553: status => 'ERROR',
5554: message => 'Generate Distributions process has failed. Please review log file.');
5555: RETCODE := FND_API.G_RET_STS_ERROR;
5556: fnd_msg_pub.count_and_get(p_count => l_msg_count, p_data => ERRBUF);
5557: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, ' ');
5558: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, '-------------------');
5559: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, 'Generate Distributions process has failed!');
5560:
5561: end LNS_ACCOUNTING_CONCUR;
5554: message => 'Generate Distributions process has failed. Please review log file.');
5555: RETCODE := FND_API.G_RET_STS_ERROR;
5556: fnd_msg_pub.count_and_get(p_count => l_msg_count, p_data => ERRBUF);
5557: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, ' ');
5558: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, '-------------------');
5559: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, 'Generate Distributions process has failed!');
5560:
5561: end LNS_ACCOUNTING_CONCUR;
5562:
5555: RETCODE := FND_API.G_RET_STS_ERROR;
5556: fnd_msg_pub.count_and_get(p_count => l_msg_count, p_data => ERRBUF);
5557: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, ' ');
5558: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, '-------------------');
5559: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, 'Generate Distributions process has failed!');
5560:
5561: end LNS_ACCOUNTING_CONCUR;
5562:
5563:
5593: begin
5594:
5595: SAVEPOINT createDistrForImport;
5596: l_api_name := 'createDistrForImport';
5597: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
5598:
5599: -- Initialize message list IF p_init_msg_list is set to TRUE.
5600: IF FND_API.to_Boolean( p_init_msg_list ) THEN
5601: FND_MSG_PUB.initialize;
5604: -- Initialize API return status to SUCCESS
5605: x_return_status := FND_API.G_RET_STS_SUCCESS;
5606:
5607: /* deleting any existing accounting rows */
5608: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' deleting any existing accounting rows');
5609: delete from lns_distributions
5610: where loan_id = p_loan_id;
5611:
5612: do_insert_distributions(p_distributions_tbl => x_distribution_tbl
5612: do_insert_distributions(p_distributions_tbl => x_distribution_tbl
5613: ,p_loan_id => p_loan_id);
5614:
5615: -- validate the accounting rows here
5616: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' validating Accounting');
5617: lns_distributions_pub.validateAccounting(p_loan_id => p_loan_id
5618: ,p_init_msg_list => p_init_msg_list
5619: ,x_return_status => l_return_status
5620: ,x_msg_count => l_msg_count
5619: ,x_return_status => l_return_status
5620: ,x_msg_count => l_msg_count
5621: ,x_msg_data => l_msg_data);
5622:
5623: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || 'Accounting status is ' || l_return_status);
5624: if l_return_status <> 'S' then
5625: FND_MESSAGE.SET_NAME('LNS', 'LNS_DEFAULT_DIST_NOT_FOUND');
5626: FND_MSG_PUB.ADD;
5627: RAISE FND_API.G_EXC_ERROR;
5632:
5633: open c_loan_info(P_LOAN_ID);
5634: fetch c_loan_info into l_gl_date;
5635: close c_loan_info;
5636: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_gl_date = ' || l_gl_date);
5637:
5638: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling LNS_XLA_EVENTS.create_event...');
5639: LNS_XLA_EVENTS.create_event(p_loan_id => P_LOAN_ID
5640: ,p_disb_header_id => -1
5634: fetch c_loan_info into l_gl_date;
5635: close c_loan_info;
5636: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_gl_date = ' || l_gl_date);
5637:
5638: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling LNS_XLA_EVENTS.create_event...');
5639: LNS_XLA_EVENTS.create_event(p_loan_id => P_LOAN_ID
5640: ,p_disb_header_id => -1
5641: ,p_loan_amount_adj_id => -1
5642: ,p_event_type_code => 'APPROVED'
5648: ,x_event_id => l_event_id
5649: ,x_return_status => l_return_status
5650: ,x_msg_count => l_msg_count
5651: ,x_msg_data => l_msg_data);
5652: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_event_id = ' || l_event_id);
5653: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_return_status = ' || l_return_status);
5654:
5655: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5656: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACCOUNTING_EVENT_ERROR');
5649: ,x_return_status => l_return_status
5650: ,x_msg_count => l_msg_count
5651: ,x_msg_data => l_msg_data);
5652: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_event_id = ' || l_event_id);
5653: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_return_status = ' || l_return_status);
5654:
5655: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5656: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACCOUNTING_EVENT_ERROR');
5657: FND_MSG_PUB.ADD;
5655: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5656: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACCOUNTING_EVENT_ERROR');
5657: FND_MSG_PUB.ADD;
5658: --l_last_api_called := 'LNS_XLA_EVENTS.create_event';
5659: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
5660: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5661: END IF;
5662:
5663: if l_event_id is not null then
5660: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5661: END IF;
5662:
5663: if l_event_id is not null then
5664: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Updating lns_distributions...');
5665: update lns_distributions
5666: set event_id = l_event_id
5667: where loan_id = P_LOAN_ID
5668: and account_name in ('LOAN_RECEIVABLE', 'LOAN_CLEARING')
5668: and account_name in ('LOAN_RECEIVABLE', 'LOAN_CLEARING')
5669: and distribution_type = 'ORIGINATION'
5670: and activity = 'LNS_APPROVAL'
5671: and loan_line_id IS NULL;
5672: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Done');
5673: end if;
5674:
5675: */
5676:
5680: END IF;
5681:
5682: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
5683:
5684: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
5685:
5686: EXCEPTION
5687:
5688: WHEN FND_API.G_EXC_ERROR THEN
5686: EXCEPTION
5687:
5688: WHEN FND_API.G_EXC_ERROR THEN
5689: x_return_status := FND_API.G_RET_STS_ERROR;
5690: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
5691: ROLLBACK TO createDistrForImport;
5692:
5693: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5694: x_return_status := FND_API.G_RET_STS_ERROR;
5691: ROLLBACK TO createDistrForImport;
5692:
5693: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5694: x_return_status := FND_API.G_RET_STS_ERROR;
5695: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
5696: ROLLBACK TO createDistrForImport;
5697:
5698: WHEN OTHERS THEN
5699: x_return_status := FND_API.G_RET_STS_ERROR;
5696: ROLLBACK TO createDistrForImport;
5697:
5698: WHEN OTHERS THEN
5699: x_return_status := FND_API.G_RET_STS_ERROR;
5700: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
5701: ROLLBACK TO createDistrForImport;
5702:
5703: end;
5704:
5758: BEGIN
5759:
5760: SAVEPOINT adjustment_distribs_pvt;
5761: l_api_name := 'DEFAULT_ADJUSTMENT_DISTRIBS';
5762: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
5763: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_amount_adj_id = ' || p_loan_amount_adj_id);
5764: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id = ' || p_loan_id);
5765:
5766: -- Initialize message list IF p_init_msg_list is set to TRUE.
5759:
5760: SAVEPOINT adjustment_distribs_pvt;
5761: l_api_name := 'DEFAULT_ADJUSTMENT_DISTRIBS';
5762: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
5763: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_amount_adj_id = ' || p_loan_amount_adj_id);
5764: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id = ' || p_loan_id);
5765:
5766: -- Initialize message list IF p_init_msg_list is set to TRUE.
5767: IF FND_API.to_Boolean( p_init_msg_list ) THEN
5760: SAVEPOINT adjustment_distribs_pvt;
5761: l_api_name := 'DEFAULT_ADJUSTMENT_DISTRIBS';
5762: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
5763: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_amount_adj_id = ' || p_loan_amount_adj_id);
5764: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id = ' || p_loan_id);
5765:
5766: -- Initialize message list IF p_init_msg_list is set to TRUE.
5767: IF FND_API.to_Boolean( p_init_msg_list ) THEN
5768: FND_MSG_PUB.initialize;
5773:
5774: -- We can't default distributions without valid loan adjustment
5775: IF p_loan_amount_adj_id IS NULL THEN
5776: -- Retrieve the Pending Loan Amount Adjustment Id of the loan
5777: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Retrieve the pending loan_amount_adj_id based on the input loan_id');
5778:
5779: lns_utility_pub.validate_any_id(p_api_version => 1.0
5780: ,p_init_msg_list => p_init_msg_list
5781: ,x_msg_count => l_msg_count
5796: OPEN c_loan_adj(p_loan_id);
5797: FETCH c_loan_adj INTO l_loan_amount_adj_id, l_adj_status, l_adj_amount;
5798: CLOSE c_loan_adj;
5799:
5800: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || 'l_loan_amount_adj_id = ' || l_loan_amount_adj_id);
5801: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || 'l_adj_status = ' || l_adj_status);
5802: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || 'l_adj_amount = ' || l_adj_amount);
5803:
5804:
5797: FETCH c_loan_adj INTO l_loan_amount_adj_id, l_adj_status, l_adj_amount;
5798: CLOSE c_loan_adj;
5799:
5800: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || 'l_loan_amount_adj_id = ' || l_loan_amount_adj_id);
5801: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || 'l_adj_status = ' || l_adj_status);
5802: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || 'l_adj_amount = ' || l_adj_amount);
5803:
5804:
5805: -- We can't default distributions without valid loan adjustment
5798: CLOSE c_loan_adj;
5799:
5800: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || 'l_loan_amount_adj_id = ' || l_loan_amount_adj_id);
5801: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || 'l_adj_status = ' || l_adj_status);
5802: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || 'l_adj_amount = ' || l_adj_amount);
5803:
5804:
5805: -- We can't default distributions without valid loan adjustment
5806: IF (l_loan_amount_adj_id IS NULL) THEN
5807: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
5808: FND_MESSAGE.SET_TOKEN('PARAMETER', 'LOAN_AMOUNT_ADJ_ID');
5809: FND_MESSAGE.SET_TOKEN('VALUE', l_loan_amount_adj_id);
5810: FND_MSG_PUB.ADD;
5811: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
5812: RAISE FND_API.G_EXC_ERROR;
5813: END IF;
5814:
5815:
5815:
5816: l_loan_id := p_loan_id;
5817:
5818: ELSE -- ELSE OF p_loan_amount_adj_id IS NULL
5819: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Validating input p_loan_amount_adj_id');
5820:
5821: lns_utility_pub.validate_any_id(p_api_version => 1.0
5822: ,p_init_msg_list => p_init_msg_list
5823: ,x_msg_count => l_msg_count
5835: RAISE FND_API.G_EXC_ERROR;
5836: end if;
5837:
5838:
5839: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fetching l_loan_adj details');
5840:
5841: open c_loan_adj_det(p_loan_amount_adj_id);
5842: fetch c_loan_adj_det into l_loan_id, l_adj_status, l_adj_amount;
5843: close c_loan_adj_det;
5841: open c_loan_adj_det(p_loan_amount_adj_id);
5842: fetch c_loan_adj_det into l_loan_id, l_adj_status, l_adj_amount;
5843: close c_loan_adj_det;
5844:
5845: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || 'l_loan_id = ' || l_loan_id);
5846: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || 'l_adj_status = ' || l_adj_status);
5847: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || 'l_adj_amount = ' || l_adj_amount);
5848:
5849: l_loan_amount_adj_id := p_loan_amount_adj_id;
5842: fetch c_loan_adj_det into l_loan_id, l_adj_status, l_adj_amount;
5843: close c_loan_adj_det;
5844:
5845: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || 'l_loan_id = ' || l_loan_id);
5846: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || 'l_adj_status = ' || l_adj_status);
5847: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || 'l_adj_amount = ' || l_adj_amount);
5848:
5849: l_loan_amount_adj_id := p_loan_amount_adj_id;
5850:
5843: close c_loan_adj_det;
5844:
5845: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || 'l_loan_id = ' || l_loan_id);
5846: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || 'l_adj_status = ' || l_adj_status);
5847: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || 'l_adj_amount = ' || l_adj_amount);
5848:
5849: l_loan_amount_adj_id := p_loan_amount_adj_id;
5850:
5851: END IF; -- IF p_loan_amount_adj_id IS NULL
5850:
5851: END IF; -- IF p_loan_amount_adj_id IS NULL
5852:
5853: IF l_adj_status in ('APPROVED', 'REJECTED', 'DELETED') THEN
5854: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'The distributions of adjustment with status '||l_adj_status||' cant be deleted');
5855:
5856: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
5857: FND_MESSAGE.SET_TOKEN('PARAMETER', 'LOAN_AMOUNT_ADJ_ID');
5858: FND_MESSAGE.SET_TOKEN('VALUE', l_loan_amount_adj_id);
5860: RAISE FND_API.G_EXC_ERROR;
5861:
5862: ELSE
5863: /* delete any rows for this loan before inheritance do not delete FEE_RECEIVABLE or FEE_INCOME rows*/
5864: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Deleting any existing adjustment accounting rows for '||l_loan_id||'-'||l_loan_amount_adj_id);
5865:
5866: delete from lns_distributions
5867: where loan_id = l_loan_id
5868: and loan_amount_adj_id = l_loan_amount_adj_id
5867: where loan_id = l_loan_id
5868: and loan_amount_adj_id = l_loan_amount_adj_id
5869: and account_name in ('LOAN_RECEIVABLE', 'LOAN_PAYABLE');
5870:
5871: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Deleted '||SQL%ROWCOUNT||' rows succesfully');
5872:
5873: END IF;
5874:
5875: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' Calling create_DisbursementDistribs');
5871: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Deleted '||SQL%ROWCOUNT||' rows succesfully');
5872:
5873: END IF;
5874:
5875: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' Calling create_DisbursementDistribs');
5876: LNS_DISTRIBUTIONS_PUB.create_DisbursementDistribs(p_api_version => 1
5877: ,p_init_msg_list => 'F'
5878: ,p_commit => 'T'
5879: ,p_loan_id => l_loan_id
5882: ,p_activity_type => 'LOAN_AMOUNT_ADJUSTMENT'
5883: ,x_return_status => l_return_status
5884: ,x_msg_count => l_msg_count
5885: ,x_msg_data => l_msg_data);
5886: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' The return status is '||l_return_status);
5887:
5888: IF l_return_status <> 'S' THEN
5889: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' CreationDisbursementDistribs failed with error '||l_msg_data);
5890: RAISE FND_API.G_EXC_ERROR;
5885: ,x_msg_data => l_msg_data);
5886: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' The return status is '||l_return_status);
5887:
5888: IF l_return_status <> 'S' THEN
5889: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' CreationDisbursementDistribs failed with error '||l_msg_data);
5890: RAISE FND_API.G_EXC_ERROR;
5891: END IF;
5892:
5893:
5890: RAISE FND_API.G_EXC_ERROR;
5891: END IF;
5892:
5893:
5894: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
5895:
5896: EXCEPTION
5897:
5898: WHEN FND_API.G_EXC_ERROR THEN
5897:
5898: WHEN FND_API.G_EXC_ERROR THEN
5899: ROLLBACK TO adjustment_distribs_pvt;
5900: x_return_status := FND_API.G_RET_STS_ERROR;
5901: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
5902: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
5903:
5904: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5905: ROLLBACK TO adjustment_distribs_pvt;
5903:
5904: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5905: ROLLBACK TO adjustment_distribs_pvt;
5906: x_return_status := FND_API.G_RET_STS_ERROR;
5907: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
5908: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
5909:
5910: WHEN OTHERS THEN
5911: ROLLBACK TO adjustment_distribs_pvt;
5909:
5910: WHEN OTHERS THEN
5911: ROLLBACK TO adjustment_distribs_pvt;
5912: x_return_status := FND_API.G_RET_STS_ERROR;
5913: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
5914: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
5915: END DEFAULT_ADJUSTMENT_DISTRIBS;
5916:
5917: /*=========================================================================
6032: begin
6033:
6034: SAVEPOINT loan_adj_reverse_bc_pvt;
6035: l_api_name := 'LOAN_ADJUSTMENT_BUDGET_CONTROL';
6036: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
6037: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_amount_adj_id = ' || p_loan_amount_adj_id);
6038: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id = ' || p_loan_id);
6039: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_budgetary_control_mode = ' || p_budgetary_control_mode);
6040:
6033:
6034: SAVEPOINT loan_adj_reverse_bc_pvt;
6035: l_api_name := 'LOAN_ADJUSTMENT_BUDGET_CONTROL';
6036: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
6037: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_amount_adj_id = ' || p_loan_amount_adj_id);
6038: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id = ' || p_loan_id);
6039: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_budgetary_control_mode = ' || p_budgetary_control_mode);
6040:
6041: -- Initialize message list IF p_init_msg_list is set to TRUE.
6034: SAVEPOINT loan_adj_reverse_bc_pvt;
6035: l_api_name := 'LOAN_ADJUSTMENT_BUDGET_CONTROL';
6036: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
6037: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_amount_adj_id = ' || p_loan_amount_adj_id);
6038: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id = ' || p_loan_id);
6039: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_budgetary_control_mode = ' || p_budgetary_control_mode);
6040:
6041: -- Initialize message list IF p_init_msg_list is set to TRUE.
6042: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6035: l_api_name := 'LOAN_ADJUSTMENT_BUDGET_CONTROL';
6036: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
6037: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_amount_adj_id = ' || p_loan_amount_adj_id);
6038: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id = ' || p_loan_id);
6039: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_budgetary_control_mode = ' || p_budgetary_control_mode);
6040:
6041: -- Initialize message list IF p_init_msg_list is set to TRUE.
6042: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6043: FND_MSG_PUB.initialize;
6048:
6049: -- We can't check funds without valid loan adjustment
6050: IF p_loan_amount_adj_id IS NULL THEN
6051: -- Retrieve the Pending Loan Amount Adjustment Id of the loan
6052: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Retrieve the pending loan_amount_adj_id based on the input loan_id');
6053:
6054: lns_utility_pub.validate_any_id(p_api_version => 1.0
6055: ,p_init_msg_list => p_init_msg_list
6056: ,x_msg_count => l_msg_count
6071: OPEN c_loan_adj(p_loan_id);
6072: FETCH c_loan_adj INTO l_loan_amount_adj_id, l_adj_status, l_adj_amount;
6073: CLOSE c_loan_adj;
6074:
6075: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || 'l_loan_amount_adj_id = ' || l_loan_amount_adj_id);
6076:
6077: -- We can't check funds without valid loan adjustment
6078: IF (l_loan_amount_adj_id IS NULL) THEN
6079: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
6079: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
6080: FND_MESSAGE.SET_TOKEN('PARAMETER', 'LOAN_AMOUNT_ADJ_ID');
6081: FND_MESSAGE.SET_TOKEN('VALUE', l_loan_amount_adj_id);
6082: FND_MSG_PUB.ADD;
6083: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
6084: RAISE FND_API.G_EXC_ERROR;
6085: END IF;
6086:
6087:
6087:
6088: l_loan_id := p_loan_id;
6089:
6090: ELSE -- ELSE OF p_loan_amount_adj_id IS NULL
6091: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Validating input p_loan_amount_adj_id');
6092:
6093: lns_utility_pub.validate_any_id(p_api_version => 1.0
6094: ,p_init_msg_list => p_init_msg_list
6095: ,x_msg_count => l_msg_count
6107: RAISE FND_API.G_EXC_ERROR;
6108: end if;
6109:
6110:
6111: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fetching l_loan_adj details');
6112:
6113: open c_loan_adj_det(p_loan_amount_adj_id);
6114: fetch c_loan_adj_det into l_loan_id, l_adj_status, l_adj_amount;
6115: close c_loan_adj_det;
6113: open c_loan_adj_det(p_loan_amount_adj_id);
6114: fetch c_loan_adj_det into l_loan_id, l_adj_status, l_adj_amount;
6115: close c_loan_adj_det;
6116:
6117: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || 'l_loan_id = ' || l_loan_id);
6118: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || 'l_adj_status = ' || l_adj_status);
6119: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || 'l_adj_amount = ' || l_adj_amount);
6120:
6121:
6114: fetch c_loan_adj_det into l_loan_id, l_adj_status, l_adj_amount;
6115: close c_loan_adj_det;
6116:
6117: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || 'l_loan_id = ' || l_loan_id);
6118: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || 'l_adj_status = ' || l_adj_status);
6119: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || 'l_adj_amount = ' || l_adj_amount);
6120:
6121:
6122: IF l_adj_status <> 'PENDING' THEN
6115: close c_loan_adj_det;
6116:
6117: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || 'l_loan_id = ' || l_loan_id);
6118: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || 'l_adj_status = ' || l_adj_status);
6119: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || 'l_adj_amount = ' || l_adj_amount);
6120:
6121:
6122: IF l_adj_status <> 'PENDING' THEN
6123: FND_MESSAGE.SET_NAME('LNS', 'LNS_CHK_PENDING_ADJ');
6136: IF l_adj_amount < 0 THEN
6137: l_event_type := 'DIRECT_LOAN_ADJ_REVERSED';
6138: END IF;
6139:
6140: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || 'l_event_type = ' || l_event_type);
6141:
6142: if ((lns_utility_pub.IS_FED_FIN_ENABLED = 'Y' or lns_utility_pub.IS_ENCUM_FIN_ENABLED = 'Y') AND l_loan_amount_adj_id IS NOT NULL) then
6143:
6144: -- check if budget event exists
6145: -- find if budgetary event already exists, if not, create the event
6146: open c_budget_event(l_loan_amount_adj_id, l_event_type);
6147: fetch c_budget_event into l_budget_event_exists;
6148: close c_budget_event;
6149: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || 'l_budget_event_exists = ' || l_budget_event_exists);
6150:
6151: open c_budget_req(l_loan_amount_adj_id);
6152: fetch c_budget_req into l_budget_req_approval, l_funds_reserved_flag, l_gl_date;
6153: close c_budget_req;
6151: open c_budget_req(l_loan_amount_adj_id);
6152: fetch c_budget_req into l_budget_req_approval, l_funds_reserved_flag, l_gl_date;
6153: close c_budget_req;
6154:
6155: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_budget_req_approval = ' || l_budget_req_approval);
6156: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_funds_reserved_flag = ' || l_funds_reserved_flag);
6157:
6158: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling LNS_XLA_EVENTS.create_event...');
6159:
6152: fetch c_budget_req into l_budget_req_approval, l_funds_reserved_flag, l_gl_date;
6153: close c_budget_req;
6154:
6155: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_budget_req_approval = ' || l_budget_req_approval);
6156: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_funds_reserved_flag = ' || l_funds_reserved_flag);
6157:
6158: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling LNS_XLA_EVENTS.create_event...');
6159:
6160: LNS_XLA_EVENTS.create_event(p_loan_id => p_loan_id
6154:
6155: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_budget_req_approval = ' || l_budget_req_approval);
6156: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_funds_reserved_flag = ' || l_funds_reserved_flag);
6157:
6158: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling LNS_XLA_EVENTS.create_event...');
6159:
6160: LNS_XLA_EVENTS.create_event(p_loan_id => p_loan_id
6161: ,p_disb_header_id => -1
6162: ,p_loan_amount_adj_id => l_loan_amount_adj_id
6169: ,x_event_id => l_event_id
6170: ,x_return_status => x_return_status
6171: ,x_msg_count => x_msg_count
6172: ,x_msg_data => x_msg_data);
6173: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'x_return_status = ' || x_return_status);
6174: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'x_event_id ' || l_event_id);
6175:
6176: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6177: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACCOUNTING_EVENT_ERROR');
6170: ,x_return_status => x_return_status
6171: ,x_msg_count => x_msg_count
6172: ,x_msg_data => x_msg_data);
6173: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'x_return_status = ' || x_return_status);
6174: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'x_event_id ' || l_event_id);
6175:
6176: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6177: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACCOUNTING_EVENT_ERROR');
6178: FND_MSG_PUB.ADD;
6175:
6176: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6177: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACCOUNTING_EVENT_ERROR');
6178: FND_MSG_PUB.ADD;
6179: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
6180: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6181: END IF;
6182:
6183: -- stamp the eventID onto the lns_distributions table
6180: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6181: END IF;
6182:
6183: -- stamp the eventID onto the lns_distributions table
6184: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'stamping eventID on lns_distributions');
6185:
6186:
6187:
6188: update lns_distributions
6192: and loan_id = p_loan_id
6193: and loan_amount_adj_id = l_loan_amount_adj_id
6194: and activity = 'LOAN_AMOUNT_ADJUSTMENT';
6195:
6196: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Updated event_id succesfully for '||SQL%ROWCOUNT||' rows');
6197:
6198: -- now process the event
6199: if (l_funds_reserved_flag <> 'Y')then
6200: --and p_budgetary_control_mode = 'R' then
6201:
6202:
6203: IF l_event_id IS NOT NULL THEN
6204:
6205: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_event_id = ' || l_event_id);
6206:
6207: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'inserting into PSA_BC_XLA_EVENTS_GT ');
6208: INSERT INTO PSA_BC_XLA_EVENTS_GT (event_id, result_code)
6209: values (l_event_id, 'FAIL');
6203: IF l_event_id IS NOT NULL THEN
6204:
6205: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_event_id = ' || l_event_id);
6206:
6207: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'inserting into PSA_BC_XLA_EVENTS_GT ');
6208: INSERT INTO PSA_BC_XLA_EVENTS_GT (event_id, result_code)
6209: values (l_event_id, 'FAIL');
6210:
6211: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling PSA_BC_XLA_PUB.Budgetary_Control ' || l_event_id);
6207: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'inserting into PSA_BC_XLA_EVENTS_GT ');
6208: INSERT INTO PSA_BC_XLA_EVENTS_GT (event_id, result_code)
6209: values (l_event_id, 'FAIL');
6210:
6211: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling PSA_BC_XLA_PUB.Budgetary_Control ' || l_event_id);
6212: PSA_BC_XLA_PUB.Budgetary_Control(p_api_version => 1.0
6213: ,p_init_msg_list => FND_API.G_FALSE
6214: ,x_return_status => l_return_status
6215: ,x_msg_count => l_msg_count
6222: ,x_status_code => l_status_code
6223: ,x_packet_ID => l_packet_id);
6224: END IF;
6225:
6226: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || 'BC status is = ' || l_return_status);
6227: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || 'l_status_code = ' || l_status_code);
6228: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || 'l_packet_id = ' || l_packet_id);
6229:
6230: if (l_return_status <> 'S' ) then
6223: ,x_packet_ID => l_packet_id);
6224: END IF;
6225:
6226: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || 'BC status is = ' || l_return_status);
6227: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || 'l_status_code = ' || l_status_code);
6228: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || 'l_packet_id = ' || l_packet_id);
6229:
6230: if (l_return_status <> 'S' ) then
6231:
6224: END IF;
6225:
6226: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || 'BC status is = ' || l_return_status);
6227: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || 'l_status_code = ' || l_status_code);
6228: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || 'l_packet_id = ' || l_packet_id);
6229:
6230: if (l_return_status <> 'S' ) then
6231:
6232: l_return_status := FND_API.G_RET_STS_ERROR;
6232: l_return_status := FND_API.G_RET_STS_ERROR;
6233: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
6234: FND_MESSAGE.SET_TOKEN('ERROR' ,'Call to PSA_BC_XLA_PUB.Budgetary_Control failed with Status Code = ' || l_status_code);
6235: FND_MSG_PUB.ADD;
6236: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
6237: RAISE FND_API.G_EXC_ERROR;
6238:
6239: else
6240: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_budget_req_approval = ' || l_budget_req_approval);
6236: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
6237: RAISE FND_API.G_EXC_ERROR;
6238:
6239: else
6240: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_budget_req_approval = ' || l_budget_req_approval);
6241:
6242: if ( l_budget_req_approval = 'N' and p_budgetary_control_mode = 'R'
6243: and (l_status_code = 'FAIL' or l_status_code = 'PARTIAL' or l_status_code = 'XLA_ERROR')) then
6244:
6244:
6245: x_budgetary_status_code := l_status_code;
6246: x_return_status := l_return_status;
6247:
6248: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' BudgetReserve is not mandatory for LoanAdjustment Approval, so returning to invoked method');
6249:
6250: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
6251:
6252: return;
6257: if l_status_code NOT IN ('SUCCESS','ADVISORY') then
6258: IF (l_status_code = 'PARTIAL') THEN
6259: FND_MESSAGE.SET_NAME('LNS', 'LNS_FUND_CHK_PARTIAL');
6260: FND_MSG_PUB.ADD;
6261: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
6262: RAISE FND_API.G_EXC_ERROR;
6263: ELSE
6264: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
6265: FND_MESSAGE.SET_TOKEN('ERROR' ,'Call to PSA_BC_XLA_PUB.Budgetary_Control failed with Status Code = ' || l_status_code);
6263: ELSE
6264: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
6265: FND_MESSAGE.SET_TOKEN('ERROR' ,'Call to PSA_BC_XLA_PUB.Budgetary_Control failed with Status Code = ' || l_status_code);
6266: FND_MSG_PUB.ADD;
6267: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
6268: RAISE FND_API.G_EXC_ERROR;
6269: END IF;
6270: end if;
6271: */
6276: close c_obj_vers;
6277:
6278: l_loan_header_rec.loan_id := p_loan_id;
6279: l_loan_header_rec.FUNDS_CHECK_DATE := sysdate;
6280: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || 'updating loan');
6281: LNS_LOAN_HEADER_PUB.UPDATE_LOAN(P_OBJECT_VERSION_NUMBER => l_version
6282: ,P_LOAN_HEADER_REC => l_loan_header_rec
6283: ,P_INIT_MSG_LIST => FND_API.G_FALSE
6284: ,X_RETURN_STATUS => l_return_status
6283: ,P_INIT_MSG_LIST => FND_API.G_FALSE
6284: ,X_RETURN_STATUS => l_return_status
6285: ,X_MSG_COUNT => l_msg_count
6286: ,X_MSG_DATA => l_msg_data);
6287: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'update loan status = ' || l_return_status);
6288:
6289: if l_return_status <> 'S' then
6290: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_LOAN_FAIL');
6291: FND_MSG_PUB.ADD;
6288:
6289: if l_return_status <> 'S' then
6290: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_LOAN_FAIL');
6291: FND_MSG_PUB.ADD;
6292: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
6293: RAISE FND_API.G_EXC_ERROR;
6294: end if;
6295: END IF;
6296:
6308: END IF;
6309:
6310: end if; -- no budgetary control-- end if (lns_utility_pub.IS_FED_FIN_ENABLED = 'Y' AND l_disbursement_id IS NOT NULL) then
6311:
6312: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
6313:
6314: EXCEPTION
6315:
6316: WHEN FND_API.G_EXC_ERROR THEN
6315:
6316: WHEN FND_API.G_EXC_ERROR THEN
6317: ROLLBACK TO loan_adj_reverse_bc_pvt;
6318: x_return_status := FND_API.G_RET_STS_ERROR;
6319: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
6320: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
6321:
6322: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6323: ROLLBACK TO loan_adj_reverse_bc_pvt;
6321:
6322: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6323: ROLLBACK TO loan_adj_reverse_bc_pvt;
6324: x_return_status := FND_API.G_RET_STS_ERROR;
6325: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
6326: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
6327:
6328: WHEN OTHERS THEN
6329: ROLLBACK TO loan_adj_reverse_bc_pvt;
6327:
6328: WHEN OTHERS THEN
6329: ROLLBACK TO loan_adj_reverse_bc_pvt;
6330: x_return_status := FND_API.G_RET_STS_ERROR;
6331: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
6332: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
6333:
6334: END LOAN_ADJUSTMENT_BUDGET_CONTROL;
6335:
6378:
6379: begin
6380:
6381: l_api_name := 'validateAddRecAccounting';
6382: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
6383:
6384: -- Initialize message list IF p_init_msg_list is set to TRUE.
6385: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6386: FND_MSG_PUB.initialize;
6390: x_return_status := FND_API.G_RET_STS_SUCCESS;
6391:
6392: l_dist_percent_rec_bill := 0;
6393:
6394: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling LNS_DISTRIBUTIONS_PUB.getDistributions 1...');
6395: l_loan_clearing_orig := LNS_DISTRIBUTIONS_PUB.getDistributions(p_loan_id => p_loan_id
6396: ,p_loan_line_id => p_loan_line_id
6397: ,p_account_type => 'CR'
6398: ,p_account_name => 'LOAN_CLEARING'
6397: ,p_account_type => 'CR'
6398: ,p_account_name => 'LOAN_CLEARING'
6399: ,p_line_type => 'CLEAR'
6400: ,p_distribution_type => 'ORIGINATION');
6401: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_clearing_orig count = ' || l_loan_clearing_orig.count);
6402:
6403: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling LNS_DISTRIBUTIONS_PUB.getDistributions 2...');
6404: l_loan_receivables_orig := LNS_DISTRIBUTIONS_PUB.getDistributions(p_loan_id => p_loan_id
6405: ,p_loan_line_id => p_loan_line_id
6399: ,p_line_type => 'CLEAR'
6400: ,p_distribution_type => 'ORIGINATION');
6401: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_clearing_orig count = ' || l_loan_clearing_orig.count);
6402:
6403: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling LNS_DISTRIBUTIONS_PUB.getDistributions 2...');
6404: l_loan_receivables_orig := LNS_DISTRIBUTIONS_PUB.getDistributions(p_loan_id => p_loan_id
6405: ,p_loan_line_id => p_loan_line_id
6406: ,p_account_type => 'DR'
6407: ,p_account_name => 'LOAN_RECEIVABLE'
6406: ,p_account_type => 'DR'
6407: ,p_account_name => 'LOAN_RECEIVABLE'
6408: ,p_line_type => 'ORIG'
6409: ,p_distribution_type => 'ORIGINATION');
6410: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_receivables_orig count = ' || l_loan_receivables_orig.count);
6411:
6412: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling LNS_DISTRIBUTIONS_PUB.getDistributions 3...');
6413: l_loan_receivables_bill := LNS_DISTRIBUTIONS_PUB.getDistributions(p_loan_id => p_loan_id
6414: ,p_loan_line_id => p_loan_line_id
6408: ,p_line_type => 'ORIG'
6409: ,p_distribution_type => 'ORIGINATION');
6410: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_receivables_orig count = ' || l_loan_receivables_orig.count);
6411:
6412: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling LNS_DISTRIBUTIONS_PUB.getDistributions 3...');
6413: l_loan_receivables_bill := LNS_DISTRIBUTIONS_PUB.getDistributions(p_loan_id => p_loan_id
6414: ,p_loan_line_id => p_loan_line_id
6415: ,p_account_type => 'CR'
6416: ,p_account_name => 'LOAN_RECEIVABLE'
6415: ,p_account_type => 'CR'
6416: ,p_account_name => 'LOAN_RECEIVABLE'
6417: ,p_line_type => 'PRIN'
6418: ,p_distribution_type => 'BILLING');
6419: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_receivables_bill count = ' || l_loan_receivables_bill.count);
6420:
6421: for j in 1..l_loan_receivables_bill.count loop
6422: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_loan_receivables_bill(j).CODE_COMBINATION_ID || ' - ' ||
6423: l_loan_receivables_bill(j).distribution_percent || '%');
6418: ,p_distribution_type => 'BILLING');
6419: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_receivables_bill count = ' || l_loan_receivables_bill.count);
6420:
6421: for j in 1..l_loan_receivables_bill.count loop
6422: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_loan_receivables_bill(j).CODE_COMBINATION_ID || ' - ' ||
6423: l_loan_receivables_bill(j).distribution_percent || '%');
6424: l_dist_percent_rec_bill := l_dist_percent_rec_bill + l_loan_receivables_bill(j).distribution_percent;
6425: end loop;
6426:
6423: l_loan_receivables_bill(j).distribution_percent || '%');
6424: l_dist_percent_rec_bill := l_dist_percent_rec_bill + l_loan_receivables_bill(j).distribution_percent;
6425: end loop;
6426:
6427: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_dist_percent_rec_bill = ' || l_dist_percent_rec_bill);
6428: if l_dist_percent_rec_bill <> 100 then
6429: FND_MESSAGE.Set_Name('LNS', 'LNS_ACC_BILL_REC_PER_INVALID');
6430: FND_MSG_PUB.Add;
6431: RAISE FND_API.G_EXC_ERROR;
6433:
6434: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
6435: ,p_data => x_msg_data);
6436:
6437: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
6438:
6439: Exception
6440: WHEN FND_API.G_EXC_ERROR THEN
6441: x_return_status := FND_API.G_RET_STS_ERROR;
6440: WHEN FND_API.G_EXC_ERROR THEN
6441: x_return_status := FND_API.G_RET_STS_ERROR;
6442: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
6443: ,p_data => x_msg_data);
6444: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
6445:
6446: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6447: x_return_status := FND_API.G_RET_STS_ERROR;
6448: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
6446: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6447: x_return_status := FND_API.G_RET_STS_ERROR;
6448: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
6449: ,p_data => x_msg_data);
6450: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
6451:
6452: WHEN OTHERS THEN
6453: x_return_status := FND_API.G_RET_STS_ERROR;
6454: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
6452: WHEN OTHERS THEN
6453: x_return_status := FND_API.G_RET_STS_ERROR;
6454: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
6455: ,p_data => x_msg_data);
6456: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
6457:
6458: end;
6459:
6460:
6720: begin
6721:
6722: SAVEPOINT createDistrForAddRec;
6723: l_api_name := 'createDistrForAddRec';
6724: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
6725:
6726: -- Initialize message list IF p_init_msg_list is set to TRUE.
6727: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6728: FND_MSG_PUB.initialize;
6730:
6731: -- Initialize API return status to SUCCESS
6732: x_return_status := FND_API.G_RET_STS_SUCCESS;
6733:
6734: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Input p_loan_id = ' || p_loan_id);
6735: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Input p_loan_line_id = ' || p_loan_line_id);
6736:
6737: if P_LOAN_ID is null then
6738:
6731: -- Initialize API return status to SUCCESS
6732: x_return_status := FND_API.G_RET_STS_SUCCESS;
6733:
6734: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Input p_loan_id = ' || p_loan_id);
6735: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Input p_loan_line_id = ' || p_loan_line_id);
6736:
6737: if P_LOAN_ID is null then
6738:
6739: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
6737: if P_LOAN_ID is null then
6738:
6739: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
6740: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'P_LOAN_ID' );
6741: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
6742: RAISE FND_API.G_EXC_ERROR;
6743:
6744: end if;
6745:
6746: if P_LOAN_LINE_ID is null then
6747:
6748: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
6749: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'P_LOAN_LINE_ID' );
6750: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
6751: RAISE FND_API.G_EXC_ERROR;
6752:
6753: end if;
6754:
6751: RAISE FND_API.G_EXC_ERROR;
6752:
6753: end if;
6754:
6755: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Starting ERS INHERITANCE');
6756:
6757: l_ledger_details := lns_distributions_pub.getLedgerDetails;
6758: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'chart_of_accounts_id = ' || l_ledger_details.chart_of_accounts_id);
6759:
6754:
6755: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Starting ERS INHERITANCE');
6756:
6757: l_ledger_details := lns_distributions_pub.getLedgerDetails;
6758: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'chart_of_accounts_id = ' || l_ledger_details.chart_of_accounts_id);
6759:
6760: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Fetching documents to account...');
6761: open c_get_line_documents(p_loan_line_id);
6762: loop
6756:
6757: l_ledger_details := lns_distributions_pub.getLedgerDetails;
6758: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'chart_of_accounts_id = ' || l_ledger_details.chart_of_accounts_id);
6759:
6760: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Fetching documents to account...');
6761: open c_get_line_documents(p_loan_line_id);
6762: loop
6763: fetch c_get_line_documents into l_source_id_int_1, l_trx_number;
6764: exit when c_get_line_documents%notfound;
6762: loop
6763: fetch c_get_line_documents into l_source_id_int_1, l_trx_number;
6764: exit when c_get_line_documents%notfound;
6765:
6766: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_source_id_int_1 = ' || l_source_id_int_1);
6767: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_trx_number = ' || l_trx_number);
6768:
6769: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Calling arp_acct_event_pkg.upgrade_status_per_doc...');
6770: -- check for upgrade status bug#4872154
6763: fetch c_get_line_documents into l_source_id_int_1, l_trx_number;
6764: exit when c_get_line_documents%notfound;
6765:
6766: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_source_id_int_1 = ' || l_source_id_int_1);
6767: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_trx_number = ' || l_trx_number);
6768:
6769: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Calling arp_acct_event_pkg.upgrade_status_per_doc...');
6770: -- check for upgrade status bug#4872154
6771: arp_acct_event_pkg.upgrade_status_per_doc(p_init_msg_list => p_init_msg_list
6765:
6766: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_source_id_int_1 = ' || l_source_id_int_1);
6767: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_trx_number = ' || l_trx_number);
6768:
6769: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Calling arp_acct_event_pkg.upgrade_status_per_doc...');
6770: -- check for upgrade status bug#4872154
6771: arp_acct_event_pkg.upgrade_status_per_doc(p_init_msg_list => p_init_msg_list
6772: ,p_entity_code => l_entity_code
6773: ,p_source_int_id => l_source_id_int_1
6774: ,x_upgrade_status => l_upgrade_status
6775: ,x_return_status => l_return_status
6776: ,x_msg_count => l_msg_count
6777: ,x_msg_data => l_msg_data);
6778: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_return_status = ' || l_return_status);
6779: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_upgrade_status = ' || l_upgrade_status);
6780:
6781: if l_return_status <> 'S' then
6782: FND_MESSAGE.SET_NAME('LNS', 'LNS_CHK_UPG_FAIL');
6775: ,x_return_status => l_return_status
6776: ,x_msg_count => l_msg_count
6777: ,x_msg_data => l_msg_data);
6778: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_return_status = ' || l_return_status);
6779: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_upgrade_status = ' || l_upgrade_status);
6780:
6781: if l_return_status <> 'S' then
6782: FND_MESSAGE.SET_NAME('LNS', 'LNS_CHK_UPG_FAIL');
6783: FND_MESSAGE.SET_TOKEN('DOC_NUM', l_trx_number);
6781: if l_return_status <> 'S' then
6782: FND_MESSAGE.SET_NAME('LNS', 'LNS_CHK_UPG_FAIL');
6783: FND_MESSAGE.SET_TOKEN('DOC_NUM', l_trx_number);
6784: FND_MSG_PUB.ADD;
6785: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
6786: RAISE FND_API.G_EXC_ERROR;
6787: else
6788: if l_upgrade_status <> 'Y' then
6789: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_TRX');
6788: if l_upgrade_status <> 'Y' then
6789: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_TRX');
6790: FND_MESSAGE.SET_TOKEN('DOC_NUM', l_trx_number);
6791: FND_MSG_PUB.ADD;
6792: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
6793: RAISE FND_API.G_EXC_ERROR;
6794: end if;
6795: end if;
6796:
6796:
6797: end loop;
6798: close c_get_line_documents;
6799:
6800: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Fetching entities xla_transaction_entities...');
6801: l_transactions_count := 0;
6802: open c_entities(p_loan_line_id);
6803: loop
6804: fetch c_entities into l_entity_id, l_entity_code, l_source_id_int_1, l_transaction_number;
6804: fetch c_entities into l_entity_id, l_entity_code, l_source_id_int_1, l_transaction_number;
6805: exit when c_entities%notfound;
6806:
6807: l_transactions_count := l_transactions_count + 1;
6808: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Entity ' || l_transactions_count);
6809: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_entity_id = ' || l_entity_id);
6810: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_entity_code = ' || l_entity_code);
6811: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_source_id_int_1 = ' || l_source_id_int_1);
6812: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_transaction_number = ' || l_transaction_number);
6805: exit when c_entities%notfound;
6806:
6807: l_transactions_count := l_transactions_count + 1;
6808: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Entity ' || l_transactions_count);
6809: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_entity_id = ' || l_entity_id);
6810: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_entity_code = ' || l_entity_code);
6811: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_source_id_int_1 = ' || l_source_id_int_1);
6812: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_transaction_number = ' || l_transaction_number);
6813:
6806:
6807: l_transactions_count := l_transactions_count + 1;
6808: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Entity ' || l_transactions_count);
6809: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_entity_id = ' || l_entity_id);
6810: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_entity_code = ' || l_entity_code);
6811: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_source_id_int_1 = ' || l_source_id_int_1);
6812: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_transaction_number = ' || l_transaction_number);
6813:
6814: insert into XLA_ACCT_PROG_DOCS_GT (entity_id) VALUES (l_entity_id);
6807: l_transactions_count := l_transactions_count + 1;
6808: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Entity ' || l_transactions_count);
6809: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_entity_id = ' || l_entity_id);
6810: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_entity_code = ' || l_entity_code);
6811: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_source_id_int_1 = ' || l_source_id_int_1);
6812: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_transaction_number = ' || l_transaction_number);
6813:
6814: insert into XLA_ACCT_PROG_DOCS_GT (entity_id) VALUES (l_entity_id);
6815: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Inserted into XLA_ACCT_PROG_DOCS_GT');
6808: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Entity ' || l_transactions_count);
6809: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_entity_id = ' || l_entity_id);
6810: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_entity_code = ' || l_entity_code);
6811: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_source_id_int_1 = ' || l_source_id_int_1);
6812: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_transaction_number = ' || l_transaction_number);
6813:
6814: insert into XLA_ACCT_PROG_DOCS_GT (entity_id) VALUES (l_entity_id);
6815: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Inserted into XLA_ACCT_PROG_DOCS_GT');
6816:
6811: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_source_id_int_1 = ' || l_source_id_int_1);
6812: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_transaction_number = ' || l_transaction_number);
6813:
6814: insert into XLA_ACCT_PROG_DOCS_GT (entity_id) VALUES (l_entity_id);
6815: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Inserted into XLA_ACCT_PROG_DOCS_GT');
6816:
6817: end loop;
6818: close c_entities ;
6819:
6818: close c_entities ;
6819:
6820: select count(1) into l_transactions_count
6821: from XLA_ACCT_PROG_DOCS_GT;
6822: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Inserted transaction_entities = ' || l_transactions_count);
6823:
6824: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Calling XLA_ACCOUNTING_PUB_PKG.accounting_program_doc_batch...');
6825: XLA_ACCOUNTING_PUB_PKG.accounting_program_doc_batch(p_application_id => 222
6826: ,p_accounting_mode => 'F'
6820: select count(1) into l_transactions_count
6821: from XLA_ACCT_PROG_DOCS_GT;
6822: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Inserted transaction_entities = ' || l_transactions_count);
6823:
6824: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Calling XLA_ACCOUNTING_PUB_PKG.accounting_program_doc_batch...');
6825: XLA_ACCOUNTING_PUB_PKG.accounting_program_doc_batch(p_application_id => 222
6826: ,p_accounting_mode => 'F'
6827: ,p_gl_posting_flag => 'N'
6828: ,p_accounting_batch_id => l_accounting_batch_id
6827: ,p_gl_posting_flag => 'N'
6828: ,p_accounting_batch_id => l_accounting_batch_id
6829: ,p_errbuf => l_errbuf
6830: ,p_retcode => l_retcode);
6831: logMessage(FND_LOG.level_statement, G_PKG_NAME, ' l_retcode = ' || l_retcode);
6832: logMessage(FND_LOG.level_statement, G_PKG_NAME, ' l_accounting_batch_id = ' || l_accounting_batch_id);
6833:
6834: if l_retcode <> 0 then
6835:
6828: ,p_accounting_batch_id => l_accounting_batch_id
6829: ,p_errbuf => l_errbuf
6830: ,p_retcode => l_retcode);
6831: logMessage(FND_LOG.level_statement, G_PKG_NAME, ' l_retcode = ' || l_retcode);
6832: logMessage(FND_LOG.level_statement, G_PKG_NAME, ' l_accounting_batch_id = ' || l_accounting_batch_id);
6833:
6834: if l_retcode <> 0 then
6835:
6836: logMessage(FND_LOG.level_unexpected, G_PKG_NAME, 'Online accounting failed with error: ' || l_errbuf);
6832: logMessage(FND_LOG.level_statement, G_PKG_NAME, ' l_accounting_batch_id = ' || l_accounting_batch_id);
6833:
6834: if l_retcode <> 0 then
6835:
6836: logMessage(FND_LOG.level_unexpected, G_PKG_NAME, 'Online accounting failed with error: ' || l_errbuf);
6837:
6838: /* query XLA_ACCOUNTING_ERRORS */
6839: l_error_counter := 0;
6840: open c_acc_errors(p_loan_line_id, l_accounting_batch_id);
6851:
6852: if l_error_counter = 1 then
6853: FND_MESSAGE.SET_NAME('LNS', 'LNS_ONLINE_ACCOUNTING_FAILED');
6854: FND_MSG_PUB.Add;
6855: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
6856: end if;
6857:
6858: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACC_DOC_FAIL');
6859: FND_MESSAGE.SET_TOKEN('DOC_NUM', l_invoice_number);
6859: FND_MESSAGE.SET_TOKEN('DOC_NUM', l_invoice_number);
6860: FND_MESSAGE.SET_TOKEN('DOC_TYPE', l_entity_code);
6861: FND_MESSAGE.SET_TOKEN('ACC_ERR', l_error_message);
6862: FND_MSG_PUB.Add;
6863: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
6864:
6865: END LOOP;
6866:
6867: close c_acc_errors;
6867: close c_acc_errors;
6868:
6869: RAISE FND_API.G_EXC_ERROR;
6870: else
6871: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Online accounting SUCCESS! ');
6872: end if;
6873:
6874: -- get the swap segment value
6875: l_natural_account_rec := getNaturalSwapAccount(p_loan_id);
6872: end if;
6873:
6874: -- get the swap segment value
6875: l_natural_account_rec := getNaturalSwapAccount(p_loan_id);
6876: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Swap natural account with ' || l_natural_account_rec);
6877:
6878: -- Bug#7406404 - Make ERS 'Replacement Natural Account' optional
6879: l_is_natural_acct_exists := 'N';
6880: IF (l_natural_account_rec IS NOT NULL) THEN
6880: IF (l_natural_account_rec IS NOT NULL) THEN
6881: l_is_natural_acct_exists := 'Y';
6882: END IF;
6883:
6884: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_is_natural_acct_exists is '||l_is_natural_acct_exists);
6885:
6886: IF (l_is_natural_acct_exists = 'Y') THEN
6887: -- Get natural account segment number
6888: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Calling FND_FLEX_APIS.GET_QUALIFIER_SEGNUM...');
6884: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_is_natural_acct_exists is '||l_is_natural_acct_exists);
6885:
6886: IF (l_is_natural_acct_exists = 'Y') THEN
6887: -- Get natural account segment number
6888: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Calling FND_FLEX_APIS.GET_QUALIFIER_SEGNUM...');
6889: IF (NOT FND_FLEX_APIS.GET_QUALIFIER_SEGNUM(appl_id => 101
6890: ,key_flex_code => 'GL#'
6891: ,structure_number=> l_ledger_details.chart_of_accounts_id
6892: ,flex_qual_name => 'GL_ACCOUNT'
6893: ,segment_number => l_nat_acct_seg_number))
6894: THEN
6895: FND_MESSAGE.SET_NAME('LNS', 'LNS_NO_NATURAL_ACCOUNT_SEGMENT');
6896: FND_MSG_PUB.ADD;
6897: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
6898: RAISE FND_API.G_EXC_ERROR;
6899: END IF;
6900: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Natural acct segment = ' || l_nat_acct_seg_number);
6901: END IF;
6896: FND_MSG_PUB.ADD;
6897: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
6898: RAISE FND_API.G_EXC_ERROR;
6899: END IF;
6900: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Natural acct segment = ' || l_nat_acct_seg_number);
6901: END IF;
6902:
6903:
6904: -- here we establish the loan clearing first
6903:
6904: -- here we establish the loan clearing first
6905: -- if adjustment activity is found in XLA then we take amounts, cc_ids from XLA tables for both CLEARING and RECEIVABLES
6906: Begin
6907: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Opening cursor C_ERS_LOAN_CLEARING...');
6908: i := 0;
6909: open C_ERS_LOAN_CLEARING(p_loan_line_id);
6910: Loop
6911: -- reintialize these
6917:
6918: l_adjustment_exists := true;
6919: i := i + 1;
6920:
6921: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Loan Clearing Record ' || i);
6922: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_ers_distribution_amount = ' || l_ers_distribution_amount);
6923: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
6924:
6925: l_distributionsCLEAR_ORIG(i).line_type := 'CLEAR';
6918: l_adjustment_exists := true;
6919: i := i + 1;
6920:
6921: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Loan Clearing Record ' || i);
6922: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_ers_distribution_amount = ' || l_ers_distribution_amount);
6923: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
6924:
6925: l_distributionsCLEAR_ORIG(i).line_type := 'CLEAR';
6926: l_distributionsCLEAR_ORIG(i).account_name := 'LOAN_CLEARING';
6919: i := i + 1;
6920:
6921: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Loan Clearing Record ' || i);
6922: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_ers_distribution_amount = ' || l_ers_distribution_amount);
6923: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
6924:
6925: l_distributionsCLEAR_ORIG(i).line_type := 'CLEAR';
6926: l_distributionsCLEAR_ORIG(i).account_name := 'LOAN_CLEARING';
6927: l_distributionsCLEAR_ORIG(i).code_combination_id := l_code_combination_id;
6934:
6935: end loop; -- loan clearing loop
6936: exception
6937: when others then
6938: --logMessage(FND_LOG.LEVEL_UNEX, G_PKG_NAME, 'Failed to inherit receivables distributions');
6939: FND_MESSAGE.SET_NAME('LNS', 'LNS_INHERIT_DIST_NOT_FOUND');
6940: FND_MSG_PUB.ADD;
6941: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
6942: RAISE FND_API.G_EXC_ERROR;
6937: when others then
6938: --logMessage(FND_LOG.LEVEL_UNEX, G_PKG_NAME, 'Failed to inherit receivables distributions');
6939: FND_MESSAGE.SET_NAME('LNS', 'LNS_INHERIT_DIST_NOT_FOUND');
6940: FND_MSG_PUB.ADD;
6941: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
6942: RAISE FND_API.G_EXC_ERROR;
6943: end;
6944:
6945: -- if the adjustment exists in PSA table it means loan is approved and adjustment was created for receivables
6945: -- if the adjustment exists in PSA table it means loan is approved and adjustment was created for receivables
6946: i := 0;
6947: if l_adjustment_exists then
6948:
6949: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'ACCOUNTED ADJUSTMENT EXISTS');
6950:
6951: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Getting adjustment date...');
6952: open c_adj_date(p_loan_line_id);
6953: fetch c_adj_date into l_adj_date, l_gl_date;
6947: if l_adjustment_exists then
6948:
6949: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'ACCOUNTED ADJUSTMENT EXISTS');
6950:
6951: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Getting adjustment date...');
6952: open c_adj_date(p_loan_line_id);
6953: fetch c_adj_date into l_adj_date, l_gl_date;
6954: close c_adj_date;
6955: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_adj_date = ' || l_adj_date);
6951: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Getting adjustment date...');
6952: open c_adj_date(p_loan_line_id);
6953: fetch c_adj_date into l_adj_date, l_gl_date;
6954: close c_adj_date;
6955: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_adj_date = ' || l_adj_date);
6956:
6957: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Fetching existent LOAN_RECEIVABLE PRIN BILLING records...');
6958: y := 0;
6959: l_sum := 0;
6953: fetch c_adj_date into l_adj_date, l_gl_date;
6954: close c_adj_date;
6955: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_adj_date = ' || l_adj_date);
6956:
6957: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Fetching existent LOAN_RECEIVABLE PRIN BILLING records...');
6958: y := 0;
6959: l_sum := 0;
6960: OPEN c_get_prin_distr(p_loan_id, l_adj_date, p_loan_line_id);
6961:
6958: y := 0;
6959: l_sum := 0;
6960: OPEN c_get_prin_distr(p_loan_id, l_adj_date, p_loan_line_id);
6961:
6962: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Opened c_get_prin_distr');
6963: LOOP
6964:
6965: FETCH c_get_prin_distr into
6966: l_distribution_id
6985: l_distributionsREC_BILL(y).distribution_amount := l_distribution_amount;
6986: l_distributionsREC_BILL(y).distribution_type := l_distribution_type;
6987:
6988:
6989: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Record ' || y);
6990: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_id = ' || l_distribution_id);
6991: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_id = ' || l_loan_id);
6992: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_line_type = ' || l_line_type);
6993: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_name = ' || l_account_name);
6986: l_distributionsREC_BILL(y).distribution_type := l_distribution_type;
6987:
6988:
6989: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Record ' || y);
6990: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_id = ' || l_distribution_id);
6991: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_id = ' || l_loan_id);
6992: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_line_type = ' || l_line_type);
6993: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_name = ' || l_account_name);
6994: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_type = ' || l_account_type);
6987:
6988:
6989: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Record ' || y);
6990: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_id = ' || l_distribution_id);
6991: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_id = ' || l_loan_id);
6992: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_line_type = ' || l_line_type);
6993: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_name = ' || l_account_name);
6994: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_type = ' || l_account_type);
6995: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
6988:
6989: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Record ' || y);
6990: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_id = ' || l_distribution_id);
6991: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_id = ' || l_loan_id);
6992: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_line_type = ' || l_line_type);
6993: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_name = ' || l_account_name);
6994: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_type = ' || l_account_type);
6995: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
6996: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_percent = ' || l_distribution_percent);
6989: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Record ' || y);
6990: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_id = ' || l_distribution_id);
6991: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_id = ' || l_loan_id);
6992: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_line_type = ' || l_line_type);
6993: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_name = ' || l_account_name);
6994: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_type = ' || l_account_type);
6995: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
6996: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_percent = ' || l_distribution_percent);
6997: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_amount = ' || l_distribution_amount);
6990: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_id = ' || l_distribution_id);
6991: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_id = ' || l_loan_id);
6992: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_line_type = ' || l_line_type);
6993: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_name = ' || l_account_name);
6994: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_type = ' || l_account_type);
6995: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
6996: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_percent = ' || l_distribution_percent);
6997: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_amount = ' || l_distribution_amount);
6998: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_type = ' || l_distribution_type);
6991: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_id = ' || l_loan_id);
6992: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_line_type = ' || l_line_type);
6993: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_name = ' || l_account_name);
6994: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_type = ' || l_account_type);
6995: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
6996: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_percent = ' || l_distribution_percent);
6997: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_amount = ' || l_distribution_amount);
6998: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_type = ' || l_distribution_type);
6999:
6992: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_line_type = ' || l_line_type);
6993: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_name = ' || l_account_name);
6994: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_type = ' || l_account_type);
6995: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
6996: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_percent = ' || l_distribution_percent);
6997: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_amount = ' || l_distribution_amount);
6998: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_type = ' || l_distribution_type);
6999:
7000: l_distributionsREC_BILL(y).DISTRIBUTION_PERCENT := null;
6993: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_name = ' || l_account_name);
6994: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_type = ' || l_account_type);
6995: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
6996: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_percent = ' || l_distribution_percent);
6997: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_amount = ' || l_distribution_amount);
6998: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_type = ' || l_distribution_type);
6999:
7000: l_distributionsREC_BILL(y).DISTRIBUTION_PERCENT := null;
7001: l_distributionsREC_BILL(y).loan_line_id := p_loan_line_id;
6994: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_type = ' || l_account_type);
6995: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
6996: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_percent = ' || l_distribution_percent);
6997: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_amount = ' || l_distribution_amount);
6998: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_type = ' || l_distribution_type);
6999:
7000: l_distributionsREC_BILL(y).DISTRIBUTION_PERCENT := null;
7001: l_distributionsREC_BILL(y).loan_line_id := p_loan_line_id;
7002:
7002:
7003: open c_get_funded_amount(p_loan_id, l_distributionsREC_BILL(y).CODE_COMBINATION_ID, l_adj_date);
7004: fetch c_get_funded_amount into l_funded_amount;
7005: close c_get_funded_amount;
7006: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_funded_amount = ' || l_funded_amount);
7007:
7008: open c_get_billed_amount(p_loan_id, l_distributionsREC_BILL(y).CODE_COMBINATION_ID, l_adj_date);
7009: fetch c_get_billed_amount into l_billed_amount;
7010: close c_get_billed_amount;
7007:
7008: open c_get_billed_amount(p_loan_id, l_distributionsREC_BILL(y).CODE_COMBINATION_ID, l_adj_date);
7009: fetch c_get_billed_amount into l_billed_amount;
7010: close c_get_billed_amount;
7011: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_billed_amount = ' || l_billed_amount);
7012:
7013: l_distributionsREC_BILL(y).DISTRIBUTION_AMOUNT := l_funded_amount - l_billed_amount;
7014: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'DISTRIBUTION_AMOUNT = ' || l_distributionsREC_BILL(y).DISTRIBUTION_AMOUNT);
7015:
7010: close c_get_billed_amount;
7011: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_billed_amount = ' || l_billed_amount);
7012:
7013: l_distributionsREC_BILL(y).DISTRIBUTION_AMOUNT := l_funded_amount - l_billed_amount;
7014: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'DISTRIBUTION_AMOUNT = ' || l_distributionsREC_BILL(y).DISTRIBUTION_AMOUNT);
7015:
7016: l_sum := l_sum + l_distributionsREC_BILL(y).DISTRIBUTION_AMOUNT;
7017: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_sum = ' || l_sum);
7018:
7013: l_distributionsREC_BILL(y).DISTRIBUTION_AMOUNT := l_funded_amount - l_billed_amount;
7014: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'DISTRIBUTION_AMOUNT = ' || l_distributionsREC_BILL(y).DISTRIBUTION_AMOUNT);
7015:
7016: l_sum := l_sum + l_distributionsREC_BILL(y).DISTRIBUTION_AMOUNT;
7017: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_sum = ' || l_sum);
7018:
7019: END LOOP;
7020: CLOSE c_get_prin_distr;
7021:
7018:
7019: END LOOP;
7020: CLOSE c_get_prin_distr;
7021:
7022: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Fetched ' || l_distributionsREC_BILL.count || ' records');
7023:
7024: Begin
7025: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Opening cursor C_ERS_LOAN_RECEIVABLE...');
7026: open C_ERS_LOAN_RECEIVABLE(p_loan_line_id);
7021:
7022: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Fetched ' || l_distributionsREC_BILL.count || ' records');
7023:
7024: Begin
7025: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Opening cursor C_ERS_LOAN_RECEIVABLE...');
7026: open C_ERS_LOAN_RECEIVABLE(p_loan_line_id);
7027: Loop
7028: -- reintialize these
7029: l_code_combination_id := null;
7032:
7033: fetch C_ERS_LOAN_RECEIVABLE into l_ers_distribution_amount, l_code_combination_id;
7034: EXIT WHEN C_ERS_LOAN_RECEIVABLE%NOTFOUND;
7035:
7036: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Record:');
7037: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_ers_distribution_amount = ' || l_ers_distribution_amount);
7038: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
7039:
7040: -- here we need to rebuild the code_Combination_id as per swapping rules
7033: fetch C_ERS_LOAN_RECEIVABLE into l_ers_distribution_amount, l_code_combination_id;
7034: EXIT WHEN C_ERS_LOAN_RECEIVABLE%NOTFOUND;
7035:
7036: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Record:');
7037: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_ers_distribution_amount = ' || l_ers_distribution_amount);
7038: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
7039:
7040: -- here we need to rebuild the code_Combination_id as per swapping rules
7041: -- replace the natual account segement with the natural account segment found in the set-up/configuration
7034: EXIT WHEN C_ERS_LOAN_RECEIVABLE%NOTFOUND;
7035:
7036: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Record:');
7037: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_ers_distribution_amount = ' || l_ers_distribution_amount);
7038: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
7039:
7040: -- here we need to rebuild the code_Combination_id as per swapping rules
7041: -- replace the natual account segement with the natural account segment found in the set-up/configuration
7042: if l_ers_distribution_amount > 0 then
7044: -- Bug#7406404 - Make ERS 'Replacement Natural Account' optional
7045: IF (l_is_natural_acct_exists = 'Y') THEN
7046: -- here we need to rebuild the code_Combination_id as per swapping rules
7047: -- replace the natual account segement with the natural account segment found in the set-up/configuration
7048: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Calling swap_code_combination...');
7049: l_code_combination_id_new_rec :=
7050: swap_code_combination(p_chart_of_accounts_id => l_ledger_details.chart_of_accounts_id
7051: ,p_original_cc_id => l_code_combination_id
7052: ,p_swap_segment_number => l_nat_acct_seg_number
7051: ,p_original_cc_id => l_code_combination_id
7052: ,p_swap_segment_number => l_nat_acct_seg_number
7053: ,p_swap_segment_value => l_natural_account_rec);
7054:
7055: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_code_combination_id_new_rec = ' || l_code_combination_id_new_Rec);
7056:
7057: ELSE
7058: l_code_combination_id_new_rec := l_code_combination_id;
7059: END IF;
7061: -- adding LOAN_RECEIVABLE ORIGINATION record
7062: i := i + 1;
7063:
7064: l_ers_distribution_amount := l_distributionsCLEAR_ORIG(i).distribution_amount;
7065: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'NEW l_ers_distribution_amount = ' || l_ers_distribution_amount);
7066:
7067: l_distributionsREC_ORIG(i).line_type := 'ORIG';
7068: l_distributionsREC_ORIG(i).account_name := 'LOAN_RECEIVABLE';
7069: l_distributionsREC_ORIG(i).code_combination_id := l_code_combination_id_new_rec;
7073: l_distributionsREC_ORIG(i).distribution_type := 'ORIGINATION';
7074: l_distributionsREC_ORIG(i).loan_line_id := p_loan_line_id;
7075: l_distributionsREC_ORIG(i).activity := 'ERS_ADD_REC';
7076:
7077: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Added LOAN_RECEIVABLE FOR ORIGINATION ' || l_code_combination_id_new_rec);
7078: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_distributionsREC_ORIG.count = ' || l_distributionsREC_ORIG.count);
7079:
7080: -- searching ccid amoung existent l_distributionsREC_BILL records
7081: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Searching for ccid match...');
7074: l_distributionsREC_ORIG(i).loan_line_id := p_loan_line_id;
7075: l_distributionsREC_ORIG(i).activity := 'ERS_ADD_REC';
7076:
7077: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Added LOAN_RECEIVABLE FOR ORIGINATION ' || l_code_combination_id_new_rec);
7078: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_distributionsREC_ORIG.count = ' || l_distributionsREC_ORIG.count);
7079:
7080: -- searching ccid amoung existent l_distributionsREC_BILL records
7081: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Searching for ccid match...');
7082: l_found_match := false;
7077: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Added LOAN_RECEIVABLE FOR ORIGINATION ' || l_code_combination_id_new_rec);
7078: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_distributionsREC_ORIG.count = ' || l_distributionsREC_ORIG.count);
7079:
7080: -- searching ccid amoung existent l_distributionsREC_BILL records
7081: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Searching for ccid match...');
7082: l_found_match := false;
7083: for k in 1..y loop
7084: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Record #' || k);
7085: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'CODE_COMBINATION_ID = ' || l_distributionsREC_BILL(k).CODE_COMBINATION_ID);
7080: -- searching ccid amoung existent l_distributionsREC_BILL records
7081: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Searching for ccid match...');
7082: l_found_match := false;
7083: for k in 1..y loop
7084: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Record #' || k);
7085: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'CODE_COMBINATION_ID = ' || l_distributionsREC_BILL(k).CODE_COMBINATION_ID);
7086:
7087: if l_distributionsREC_BILL(k).CODE_COMBINATION_ID = l_code_combination_id_new_rec then
7088: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Found ccid match!!!');
7081: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Searching for ccid match...');
7082: l_found_match := false;
7083: for k in 1..y loop
7084: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Record #' || k);
7085: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'CODE_COMBINATION_ID = ' || l_distributionsREC_BILL(k).CODE_COMBINATION_ID);
7086:
7087: if l_distributionsREC_BILL(k).CODE_COMBINATION_ID = l_code_combination_id_new_rec then
7088: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Found ccid match!!!');
7089: l_distributionsREC_BILL(k).distribution_amount := l_distributionsREC_BILL(k).distribution_amount + l_ers_distribution_amount;
7084: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Record #' || k);
7085: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'CODE_COMBINATION_ID = ' || l_distributionsREC_BILL(k).CODE_COMBINATION_ID);
7086:
7087: if l_distributionsREC_BILL(k).CODE_COMBINATION_ID = l_code_combination_id_new_rec then
7088: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Found ccid match!!!');
7089: l_distributionsREC_BILL(k).distribution_amount := l_distributionsREC_BILL(k).distribution_amount + l_ers_distribution_amount;
7090: l_found_match := true;
7091: exit;
7092: end if;
7102: l_distributionsREC_BILL(y).distribution_type := 'BILLING';
7103: l_distributionsREC_BILL(y).loan_line_id := p_loan_line_id;
7104:
7105:
7106: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Added LOAN_RECEIVABLE FOR BILLING ' || l_code_combination_id_new_rec);
7107: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_distributionsREC_BILL.count = ' || l_distributionsREC_BILL.count);
7108: end if;
7109:
7110: l_sum := l_sum + l_ers_distribution_amount;
7103: l_distributionsREC_BILL(y).loan_line_id := p_loan_line_id;
7104:
7105:
7106: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Added LOAN_RECEIVABLE FOR BILLING ' || l_code_combination_id_new_rec);
7107: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_distributionsREC_BILL.count = ' || l_distributionsREC_BILL.count);
7108: end if;
7109:
7110: l_sum := l_sum + l_ers_distribution_amount;
7111: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_sum = ' || l_sum);
7107: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_distributionsREC_BILL.count = ' || l_distributionsREC_BILL.count);
7108: end if;
7109:
7110: l_sum := l_sum + l_ers_distribution_amount;
7111: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_sum = ' || l_sum);
7112: end if;
7113:
7114: end loop;
7115:
7116: close C_ERS_LOAN_RECEIVABLE;
7117:
7118: exception
7119: when others then
7120: -- logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'failed to inherit receivables distributions');
7121: FND_MESSAGE.SET_NAME('LNS', 'LNS_INHERIT_DIST_NOT_FOUND');
7122: FND_MSG_PUB.ADD;
7123: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
7124: RAISE FND_API.G_EXC_ERROR;
7119: when others then
7120: -- logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'failed to inherit receivables distributions');
7121: FND_MESSAGE.SET_NAME('LNS', 'LNS_INHERIT_DIST_NOT_FOUND');
7122: FND_MSG_PUB.ADD;
7123: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
7124: RAISE FND_API.G_EXC_ERROR;
7125: end;
7126:
7127: else
7124: RAISE FND_API.G_EXC_ERROR;
7125: end;
7126:
7127: else
7128: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'NO ACCOUNTED ADJUSTMENT EXISTS');
7129: end if;
7130:
7131: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_distributionsCLEAR_ORIG.count = ' || l_distributionsCLEAR_ORIG.count);
7132: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_distributionsREC_ORIG.count = ' || l_distributionsREC_ORIG.count);
7127: else
7128: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'NO ACCOUNTED ADJUSTMENT EXISTS');
7129: end if;
7130:
7131: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_distributionsCLEAR_ORIG.count = ' || l_distributionsCLEAR_ORIG.count);
7132: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_distributionsREC_ORIG.count = ' || l_distributionsREC_ORIG.count);
7133: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_distributionsREC_BILL.count = ' || l_distributionsREC_BILL.count);
7134:
7135: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'CALCULATING %AGES FOR PRIN BILLING LOAN_RECEIVABLE...');
7128: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'NO ACCOUNTED ADJUSTMENT EXISTS');
7129: end if;
7130:
7131: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_distributionsCLEAR_ORIG.count = ' || l_distributionsCLEAR_ORIG.count);
7132: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_distributionsREC_ORIG.count = ' || l_distributionsREC_ORIG.count);
7133: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_distributionsREC_BILL.count = ' || l_distributionsREC_BILL.count);
7134:
7135: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'CALCULATING %AGES FOR PRIN BILLING LOAN_RECEIVABLE...');
7136: l_running_percent := 0;
7129: end if;
7130:
7131: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_distributionsCLEAR_ORIG.count = ' || l_distributionsCLEAR_ORIG.count);
7132: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_distributionsREC_ORIG.count = ' || l_distributionsREC_ORIG.count);
7133: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_distributionsREC_BILL.count = ' || l_distributionsREC_BILL.count);
7134:
7135: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'CALCULATING %AGES FOR PRIN BILLING LOAN_RECEIVABLE...');
7136: l_running_percent := 0;
7137: for k in 1..l_distributionsREC_BILL.count loop
7131: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_distributionsCLEAR_ORIG.count = ' || l_distributionsCLEAR_ORIG.count);
7132: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_distributionsREC_ORIG.count = ' || l_distributionsREC_ORIG.count);
7133: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_distributionsREC_BILL.count = ' || l_distributionsREC_BILL.count);
7134:
7135: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'CALCULATING %AGES FOR PRIN BILLING LOAN_RECEIVABLE...');
7136: l_running_percent := 0;
7137: for k in 1..l_distributionsREC_BILL.count loop
7138:
7139: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Iteration ' || k);
7135: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'CALCULATING %AGES FOR PRIN BILLING LOAN_RECEIVABLE...');
7136: l_running_percent := 0;
7137: for k in 1..l_distributionsREC_BILL.count loop
7138:
7139: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Iteration ' || k);
7140: l_percent := 0;
7141:
7142: if k <> l_distributionsREC_BILL.count then
7143: l_percent := round(l_distributionsREC_BILL(k).distribution_amount / l_sum * 100,4);
7149: end if;
7150: l_distributionsREC_BILL(k).distribution_amount := null;
7151: l_running_percent := l_running_percent + l_percent;
7152:
7153: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'distribution_percent = ' || l_distributionsREC_BILL(k).distribution_percent);
7154: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'distribution_amount = ' || l_distributionsREC_BILL(k).distribution_amount);
7155: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_running_percent = ' || l_running_percent);
7156:
7157: end loop;
7150: l_distributionsREC_BILL(k).distribution_amount := null;
7151: l_running_percent := l_running_percent + l_percent;
7152:
7153: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'distribution_percent = ' || l_distributionsREC_BILL(k).distribution_percent);
7154: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'distribution_amount = ' || l_distributionsREC_BILL(k).distribution_amount);
7155: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_running_percent = ' || l_running_percent);
7156:
7157: end loop;
7158:
7151: l_running_percent := l_running_percent + l_percent;
7152:
7153: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'distribution_percent = ' || l_distributionsREC_BILL(k).distribution_percent);
7154: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'distribution_amount = ' || l_distributionsREC_BILL(k).distribution_amount);
7155: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_running_percent = ' || l_running_percent);
7156:
7157: end loop;
7158:
7159: n := 0;
7156:
7157: end loop;
7158:
7159: n := 0;
7160: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Copying l_distributionsREC_ORIG to l_distributionsALL...');
7161: for j in 1..l_distributionsREC_ORIG.count loop
7162: n := n + 1;
7163: l_distributionsALL(n) := l_distributionsREC_ORIG(j);
7164: end loop;
7161: for j in 1..l_distributionsREC_ORIG.count loop
7162: n := n + 1;
7163: l_distributionsALL(n) := l_distributionsREC_ORIG(j);
7164: end loop;
7165: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_distributionsALL.count = ' || l_distributionsALL.count);
7166:
7167: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Copying l_distributionsCLEAR_ORIG to l_distributionsALL...');
7168: for j in 1..l_distributionsCLEAR_ORIG.count loop
7169: n := n + 1;
7163: l_distributionsALL(n) := l_distributionsREC_ORIG(j);
7164: end loop;
7165: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_distributionsALL.count = ' || l_distributionsALL.count);
7166:
7167: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Copying l_distributionsCLEAR_ORIG to l_distributionsALL...');
7168: for j in 1..l_distributionsCLEAR_ORIG.count loop
7169: n := n + 1;
7170: l_distributionsALL(n) := l_distributionsCLEAR_ORIG(j);
7171: end loop;
7168: for j in 1..l_distributionsCLEAR_ORIG.count loop
7169: n := n + 1;
7170: l_distributionsALL(n) := l_distributionsCLEAR_ORIG(j);
7171: end loop;
7172: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_distributionsALL.count = ' || l_distributionsALL.count);
7173:
7174: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Copying l_distributionsREC_BILL to l_distributionsALL...');
7175: for j in 1..l_distributionsREC_BILL.count loop
7176: n := n + 1;
7170: l_distributionsALL(n) := l_distributionsCLEAR_ORIG(j);
7171: end loop;
7172: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_distributionsALL.count = ' || l_distributionsALL.count);
7173:
7174: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Copying l_distributionsREC_BILL to l_distributionsALL...');
7175: for j in 1..l_distributionsREC_BILL.count loop
7176: n := n + 1;
7177: l_distributionsALL(n) := l_distributionsREC_BILL(j);
7178: end loop;
7175: for j in 1..l_distributionsREC_BILL.count loop
7176: n := n + 1;
7177: l_distributionsALL(n) := l_distributionsREC_BILL(j);
7178: end loop;
7179: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_distributionsALL.count = ' || l_distributionsALL.count);
7180:
7181: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Calling do_insert_distributions...');
7182: do_insert_distributions(p_distributions_tbl => l_distributionsALL
7183: ,p_loan_id => p_loan_id);
7177: l_distributionsALL(n) := l_distributionsREC_BILL(j);
7178: end loop;
7179: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_distributionsALL.count = ' || l_distributionsALL.count);
7180:
7181: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Calling do_insert_distributions...');
7182: do_insert_distributions(p_distributions_tbl => l_distributionsALL
7183: ,p_loan_id => p_loan_id);
7184:
7185: -- validate the accounting rows here
7182: do_insert_distributions(p_distributions_tbl => l_distributionsALL
7183: ,p_loan_id => p_loan_id);
7184:
7185: -- validate the accounting rows here
7186: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' validating Accounting');
7187: lns_distributions_pub.validateAddRecAccounting(p_loan_id => p_loan_id
7188: ,p_loan_line_id => p_loan_line_id
7189: ,p_init_msg_list => p_init_msg_list
7190: ,x_return_status => l_return_status
7190: ,x_return_status => l_return_status
7191: ,x_msg_count => l_msg_count
7192: ,x_msg_data => l_msg_data);
7193:
7194: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || 'Accounting status is ' || l_return_status);
7195: if l_return_status <> 'S' then
7196: RAISE FND_API.G_EXC_ERROR;
7197: end if;
7198:
7195: if l_return_status <> 'S' then
7196: RAISE FND_API.G_EXC_ERROR;
7197: end if;
7198:
7199: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_gl_date = ' || l_gl_date);
7200:
7201: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling LNS_XLA_EVENTS.create_event...');
7202: LNS_XLA_EVENTS.create_event(p_loan_id => p_loan_id
7203: ,p_disb_header_id => -1
7197: end if;
7198:
7199: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_gl_date = ' || l_gl_date);
7200:
7201: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling LNS_XLA_EVENTS.create_event...');
7202: LNS_XLA_EVENTS.create_event(p_loan_id => p_loan_id
7203: ,p_disb_header_id => -1
7204: ,p_loan_amount_adj_id => -1
7205: ,p_loan_line_id => p_loan_line_id
7212: ,x_event_id => l_event_id
7213: ,x_return_status => l_return_status
7214: ,x_msg_count => l_msg_count
7215: ,x_msg_data => l_msg_data);
7216: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_event_id = ' || l_event_id);
7217: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_return_status = ' || l_return_status);
7218:
7219: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7220: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACCOUNTING_EVENT_ERROR');
7213: ,x_return_status => l_return_status
7214: ,x_msg_count => l_msg_count
7215: ,x_msg_data => l_msg_data);
7216: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_event_id = ' || l_event_id);
7217: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_return_status = ' || l_return_status);
7218:
7219: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7220: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACCOUNTING_EVENT_ERROR');
7221: FND_MSG_PUB.ADD;
7219: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7220: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACCOUNTING_EVENT_ERROR');
7221: FND_MSG_PUB.ADD;
7222: --l_last_api_called := 'LNS_XLA_EVENTS.create_event';
7223: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
7224: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7225: END IF;
7226:
7227: if l_event_id is not null then
7224: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7225: END IF;
7226:
7227: if l_event_id is not null then
7228: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Updating lns_distributions...');
7229: update lns_distributions
7230: set event_id = l_event_id
7231: where loan_id = P_LOAN_ID
7232: and loan_line_id = p_loan_line_id
7232: and loan_line_id = p_loan_line_id
7233: and account_name in ('LOAN_RECEIVABLE', 'LOAN_CLEARING')
7234: and distribution_type = 'ORIGINATION'
7235: and activity = 'ERS_ADD_REC';
7236: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Done');
7237: end if;
7238:
7239: IF FND_API.to_Boolean(p_commit)
7240: THEN
7242: END IF;
7243:
7244: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7245:
7246: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
7247:
7248: EXCEPTION
7249:
7250: WHEN FND_API.G_EXC_ERROR THEN
7248: EXCEPTION
7249:
7250: WHEN FND_API.G_EXC_ERROR THEN
7251: x_return_status := FND_API.G_RET_STS_ERROR;
7252: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
7253: FND_MESSAGE.SET_NAME('LNS', 'LNS_ADD_REC_ACC_FAIL');
7254: FND_MSG_PUB.ADD;
7255: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7256: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
7252: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
7253: FND_MESSAGE.SET_NAME('LNS', 'LNS_ADD_REC_ACC_FAIL');
7254: FND_MSG_PUB.ADD;
7255: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7256: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
7257: ROLLBACK TO createDistrForAddRec;
7258:
7259: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7260: x_return_status := FND_API.G_RET_STS_ERROR;
7257: ROLLBACK TO createDistrForAddRec;
7258:
7259: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7260: x_return_status := FND_API.G_RET_STS_ERROR;
7261: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
7262: FND_MESSAGE.SET_NAME('LNS', 'LNS_ADD_REC_ACC_FAIL');
7263: FND_MSG_PUB.ADD;
7264: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7265: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
7261: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
7262: FND_MESSAGE.SET_NAME('LNS', 'LNS_ADD_REC_ACC_FAIL');
7263: FND_MSG_PUB.ADD;
7264: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7265: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
7266: ROLLBACK TO createDistrForAddRec;
7267:
7268: WHEN OTHERS THEN
7269: x_return_status := FND_API.G_RET_STS_ERROR;
7266: ROLLBACK TO createDistrForAddRec;
7267:
7268: WHEN OTHERS THEN
7269: x_return_status := FND_API.G_RET_STS_ERROR;
7270: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
7271: FND_MESSAGE.SET_NAME('LNS', 'LNS_ADD_REC_ACC_FAIL');
7272: FND_MSG_PUB.ADD;
7273: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7274: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
7270: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
7271: FND_MESSAGE.SET_NAME('LNS', 'LNS_ADD_REC_ACC_FAIL');
7272: FND_MSG_PUB.ADD;
7273: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7274: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
7275: ROLLBACK TO createDistrForAddRec;
7276:
7277: end createDistrForAddRec;
7278:
7398: begin
7399:
7400: SAVEPOINT generateCancelDistributions;
7401: l_api_name := 'generateCancelDistributions';
7402: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
7403: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'p_loan_id = ' || p_loan_id);
7404:
7405: -- Initialize message list IF p_init_msg_list is set to TRUE.
7406: IF FND_API.to_Boolean( p_init_msg_list ) THEN
7399:
7400: SAVEPOINT generateCancelDistributions;
7401: l_api_name := 'generateCancelDistributions';
7402: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
7403: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'p_loan_id = ' || p_loan_id);
7404:
7405: -- Initialize message list IF p_init_msg_list is set to TRUE.
7406: IF FND_API.to_Boolean( p_init_msg_list ) THEN
7407: FND_MSG_PUB.initialize;
7442:
7443: OPEN c_loan_info(p_loan_id);
7444: FETCH c_loan_info INTO l_loan_class, l_requested_amount, l_funded_amount, l_subsidy_rate;
7445:
7446: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_loan_class = ' || l_loan_class);
7447: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_requested_amount = ' || l_requested_amount);
7448: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_funded_amount = ' || l_funded_amount);
7449: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_subsidy_rate = ' || l_subsidy_rate);
7450:
7443: OPEN c_loan_info(p_loan_id);
7444: FETCH c_loan_info INTO l_loan_class, l_requested_amount, l_funded_amount, l_subsidy_rate;
7445:
7446: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_loan_class = ' || l_loan_class);
7447: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_requested_amount = ' || l_requested_amount);
7448: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_funded_amount = ' || l_funded_amount);
7449: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_subsidy_rate = ' || l_subsidy_rate);
7450:
7451: IF l_loan_class = 'DIRECT' THEN
7444: FETCH c_loan_info INTO l_loan_class, l_requested_amount, l_funded_amount, l_subsidy_rate;
7445:
7446: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_loan_class = ' || l_loan_class);
7447: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_requested_amount = ' || l_requested_amount);
7448: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_funded_amount = ' || l_funded_amount);
7449: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_subsidy_rate = ' || l_subsidy_rate);
7450:
7451: IF l_loan_class = 'DIRECT' THEN
7452: l_cancel_amount := l_requested_amount - l_funded_amount;
7445:
7446: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_loan_class = ' || l_loan_class);
7447: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_requested_amount = ' || l_requested_amount);
7448: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_funded_amount = ' || l_funded_amount);
7449: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_subsidy_rate = ' || l_subsidy_rate);
7450:
7451: IF l_loan_class = 'DIRECT' THEN
7452: l_cancel_amount := l_requested_amount - l_funded_amount;
7453: ELSE
7455: END IF;
7456:
7457: CLOSE c_loan_info;
7458:
7459: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_cancel_amount = ' || l_cancel_amount);
7460:
7461: l_subsidy_amount := l_cancel_amount * l_subsidy_rate;
7462:
7463: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_subsidy_amount = ' || l_subsidy_amount);
7459: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_cancel_amount = ' || l_cancel_amount);
7460:
7461: l_subsidy_amount := l_cancel_amount * l_subsidy_rate;
7462:
7463: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_subsidy_amount = ' || l_subsidy_amount);
7464:
7465:
7466: -- 1. Retrieve the distributions of Loan Approved
7467:
7478:
7479:
7480: -- 1a. Switch the Debit and Credit
7481:
7482: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_type = ' || l_account_type);
7483: if l_account_type = 'DR' then
7484: l_account_type := 'CR';
7485: elsif l_account_type = 'CR' then
7486: l_account_type := 'DR';
7486: l_account_type := 'DR';
7487: end if;
7488:
7489: l_Cnt := l_Cnt + 1;
7490: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Record ' || l_Cnt);
7491: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_line_type = ' || l_line_type);
7492: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_name = ' || l_account_name);
7493: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
7494: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_type = ' || l_account_type);
7487: end if;
7488:
7489: l_Cnt := l_Cnt + 1;
7490: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Record ' || l_Cnt);
7491: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_line_type = ' || l_line_type);
7492: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_name = ' || l_account_name);
7493: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
7494: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_type = ' || l_account_type);
7495: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_percent = ' || l_distribution_percent);
7488:
7489: l_Cnt := l_Cnt + 1;
7490: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Record ' || l_Cnt);
7491: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_line_type = ' || l_line_type);
7492: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_name = ' || l_account_name);
7493: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
7494: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_type = ' || l_account_type);
7495: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_percent = ' || l_distribution_percent);
7496: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_type = ' || l_distribution_type);
7489: l_Cnt := l_Cnt + 1;
7490: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Record ' || l_Cnt);
7491: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_line_type = ' || l_line_type);
7492: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_name = ' || l_account_name);
7493: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
7494: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_type = ' || l_account_type);
7495: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_percent = ' || l_distribution_percent);
7496: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_type = ' || l_distribution_type);
7497:
7490: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Record ' || l_Cnt);
7491: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_line_type = ' || l_line_type);
7492: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_name = ' || l_account_name);
7493: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
7494: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_type = ' || l_account_type);
7495: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_percent = ' || l_distribution_percent);
7496: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_type = ' || l_distribution_type);
7497:
7498: l_distributions(l_Cnt).line_type := l_line_type;
7491: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_line_type = ' || l_line_type);
7492: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_name = ' || l_account_name);
7493: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
7494: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_type = ' || l_account_type);
7495: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_percent = ' || l_distribution_percent);
7496: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_type = ' || l_distribution_type);
7497:
7498: l_distributions(l_Cnt).line_type := l_line_type;
7499: l_distributions(l_Cnt).account_name := l_account_name;
7492: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_name = ' || l_account_name);
7493: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
7494: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_type = ' || l_account_type);
7495: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_percent = ' || l_distribution_percent);
7496: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_type = ' || l_distribution_type);
7497:
7498: l_distributions(l_Cnt).line_type := l_line_type;
7499: l_distributions(l_Cnt).account_name := l_account_name;
7500: l_distributions(l_Cnt).code_combination_id := l_code_combination_id;
7508:
7509: open c_num_receivables(p_loan_id);
7510: fetch c_num_receivables into l_loan_receivables_count;
7511: close c_num_receivables;
7512: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_receivables_count = ' || l_loan_receivables_count);
7513:
7514: if l_account_name = 'LOAN_RECEIVABLE' then
7515: if l_line_type = 'ORIG' then
7516: l_receivOrigCnt := l_receivOrigCnt + 1;
7513:
7514: if l_account_name = 'LOAN_RECEIVABLE' then
7515: if l_line_type = 'ORIG' then
7516: l_receivOrigCnt := l_receivOrigCnt + 1;
7517: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan Orig receivables line ' || l_receivOrigCnt);
7518:
7519: if l_receivOrigCnt <> l_loan_receivables_count then
7520: l_distributions(l_Cnt).distribution_amount := round(l_distribution_percent * l_cancel_amount, l_ledger_details.currency_precision) / 100;
7521: l_run_rec_org_amt := l_run_rec_org_amt + l_distributions(l_Cnt).distribution_amount;
7521: l_run_rec_org_amt := l_run_rec_org_amt + l_distributions(l_Cnt).distribution_amount;
7522: else
7523: l_distributions(l_Cnt).distribution_amount := l_cancel_amount - l_run_rec_org_amt;
7524: end if;
7525: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distributions('||l_Cnt||').distribution_amount = ' || l_distributions(l_Cnt).distribution_amount);
7526: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_run_rec_org_amt = ' || l_run_rec_org_amt);
7527:
7528: elsif l_line_type = 'SUBSIDY' then
7529: l_receivSubsidyCnt := l_receivSubsidyCnt + 1;
7522: else
7523: l_distributions(l_Cnt).distribution_amount := l_cancel_amount - l_run_rec_org_amt;
7524: end if;
7525: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distributions('||l_Cnt||').distribution_amount = ' || l_distributions(l_Cnt).distribution_amount);
7526: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_run_rec_org_amt = ' || l_run_rec_org_amt);
7527:
7528: elsif l_line_type = 'SUBSIDY' then
7529: l_receivSubsidyCnt := l_receivSubsidyCnt + 1;
7530: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan Subsidy receivables line ' || l_receivSubsidyCnt);
7526: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_run_rec_org_amt = ' || l_run_rec_org_amt);
7527:
7528: elsif l_line_type = 'SUBSIDY' then
7529: l_receivSubsidyCnt := l_receivSubsidyCnt + 1;
7530: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan Subsidy receivables line ' || l_receivSubsidyCnt);
7531:
7532: if l_receivSubsidyCnt <> l_loan_receivables_count then
7533: l_distributions(l_Cnt).distribution_amount := round(l_distribution_percent * l_subsidy_amount, l_ledger_details.currency_precision) / 100;
7534: l_run_rec_sub_amt := l_run_rec_sub_amt + l_distributions(l_Cnt).distribution_amount;
7534: l_run_rec_sub_amt := l_run_rec_sub_amt + l_distributions(l_Cnt).distribution_amount;
7535: else
7536: l_distributions(l_Cnt).distribution_amount := l_subsidy_amount - l_run_rec_sub_amt;
7537: end if;
7538: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distributions('||l_Cnt||').distribution_amount = ' || l_distributions(l_Cnt).distribution_amount);
7539: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_run_rec_sub_amt = ' || l_run_rec_sub_amt);
7540: end if;
7541:
7542: end if;
7535: else
7536: l_distributions(l_Cnt).distribution_amount := l_subsidy_amount - l_run_rec_sub_amt;
7537: end if;
7538: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distributions('||l_Cnt||').distribution_amount = ' || l_distributions(l_Cnt).distribution_amount);
7539: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_run_rec_sub_amt = ' || l_run_rec_sub_amt);
7540: end if;
7541:
7542: end if;
7543:
7543:
7544: if (l_account_name = 'LOAN_CLEARING' or l_account_name = 'LOAN_PAYABLE') then
7545: if l_line_type = 'CLEAR' then
7546: l_clearOrigCnt := l_clearOrigCnt + 1;
7547: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan Orig clearing line ' || l_clearOrigCnt);
7548: if l_clearOrigCnt <> l_loan_receivables_count then
7549: l_distributions(l_Cnt).distribution_amount := round(l_distribution_percent * l_cancel_amount, l_ledger_details.currency_precision) / 100;
7550: l_run_clear_org_amt := l_run_clear_org_amt + l_distributions(l_Cnt).distribution_amount;
7551: else
7550: l_run_clear_org_amt := l_run_clear_org_amt + l_distributions(l_Cnt).distribution_amount;
7551: else
7552: l_distributions(l_Cnt).distribution_amount := l_cancel_amount - l_run_clear_org_amt;
7553: end if;
7554: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distributions('||l_Cnt||').distribution_amount = ' || l_distributions(l_Cnt).distribution_amount);
7555: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_run_clear_sub_amt = ' || l_run_clear_org_amt);
7556:
7557: elsif l_line_type = 'SUBSIDY' then
7558:
7551: else
7552: l_distributions(l_Cnt).distribution_amount := l_cancel_amount - l_run_clear_org_amt;
7553: end if;
7554: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distributions('||l_Cnt||').distribution_amount = ' || l_distributions(l_Cnt).distribution_amount);
7555: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_run_clear_sub_amt = ' || l_run_clear_org_amt);
7556:
7557: elsif l_line_type = 'SUBSIDY' then
7558:
7559: l_clearSubsidyCnt := l_clearSubsidyCnt + 1;
7556:
7557: elsif l_line_type = 'SUBSIDY' then
7558:
7559: l_clearSubsidyCnt := l_clearSubsidyCnt + 1;
7560: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan Subsidy clear line ' || l_receivSubsidyCnt);
7561:
7562: if l_clearSubsidyCnt <> l_loan_receivables_count then
7563: l_distributions(l_Cnt).distribution_amount := round(l_distribution_percent * l_subsidy_amount, l_ledger_details.currency_precision) / 100;
7564: l_run_clear_sub_amt := l_run_clear_sub_amt + l_distributions(l_Cnt).distribution_amount;
7564: l_run_clear_sub_amt := l_run_clear_sub_amt + l_distributions(l_Cnt).distribution_amount;
7565: else
7566: l_distributions(l_Cnt).distribution_amount := l_subsidy_amount - l_run_clear_sub_amt;
7567: end if;
7568: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distributions('||l_Cnt||').distribution_amount = ' || l_distributions(l_Cnt).distribution_amount);
7569: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_run_clear_sub_amt = ' || l_run_clear_sub_amt);
7570: end if;
7571:
7572: end if;
7565: else
7566: l_distributions(l_Cnt).distribution_amount := l_subsidy_amount - l_run_clear_sub_amt;
7567: end if;
7568: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distributions('||l_Cnt||').distribution_amount = ' || l_distributions(l_Cnt).distribution_amount);
7569: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_run_clear_sub_amt = ' || l_run_clear_sub_amt);
7570: end if;
7571:
7572: end if;
7573: END LOOP;
7572: end if;
7573: END LOOP;
7574: CLOSE c_get_orig_distributions;
7575:
7576: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'total cancelled distributions adding = ' || l_distributions.count);
7577:
7578: -- 4. Insert Distributions
7579:
7580: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling do_insert_distributions...');
7576: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'total cancelled distributions adding = ' || l_distributions.count);
7577:
7578: -- 4. Insert Distributions
7579:
7580: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling do_insert_distributions...');
7581: do_insert_distributions(l_distributions, p_loan_id);
7582:
7583:
7584: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || 'p_commit is '||p_commit);
7580: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling do_insert_distributions...');
7581: do_insert_distributions(l_distributions, p_loan_id);
7582:
7583:
7584: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || 'p_commit is '||p_commit);
7585: IF FND_API.to_Boolean(p_commit)
7586: THEN
7587: COMMIT;
7588: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || 'Commited');
7584: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || 'p_commit is '||p_commit);
7585: IF FND_API.to_Boolean(p_commit)
7586: THEN
7587: COMMIT;
7588: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || 'Commited');
7589: END IF;
7590:
7591: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7592: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
7588: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || 'Commited');
7589: END IF;
7590:
7591: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7592: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
7593:
7594: EXCEPTION
7595:
7596: WHEN FND_API.G_EXC_ERROR THEN
7596: WHEN FND_API.G_EXC_ERROR THEN
7597: ROLLBACK TO generateCancelDistributions;
7598: x_return_status := FND_API.G_RET_STS_ERROR;
7599: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7600: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
7601:
7602: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7603: ROLLBACK TO generateCancelDistributions;
7604: x_return_status := FND_API.G_RET_STS_ERROR;
7602: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7603: ROLLBACK TO generateCancelDistributions;
7604: x_return_status := FND_API.G_RET_STS_ERROR;
7605: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7606: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
7607:
7608: WHEN OTHERS THEN
7609: ROLLBACK TO generateCancelDistributions;
7610: x_return_status := FND_API.G_RET_STS_ERROR;
7608: WHEN OTHERS THEN
7609: ROLLBACK TO generateCancelDistributions;
7610: x_return_status := FND_API.G_RET_STS_ERROR;
7611: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7612: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
7613:
7614: end generateCancelDistributions;
7615:
7616:
7679: begin
7680:
7681: SAVEPOINT submit_disbursement_bc;
7682: l_api_name := 'submit_disbursement_bc';
7683: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
7684: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id ' || p_loan_id);
7685: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_disb_header_id ' || p_disb_header_id);
7686: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_activity ' || p_activity);
7687:
7680:
7681: SAVEPOINT submit_disbursement_bc;
7682: l_api_name := 'submit_disbursement_bc';
7683: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
7684: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id ' || p_loan_id);
7685: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_disb_header_id ' || p_disb_header_id);
7686: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_activity ' || p_activity);
7687:
7688: -- Initialize message list IF p_init_msg_list is set to TRUE.
7681: SAVEPOINT submit_disbursement_bc;
7682: l_api_name := 'submit_disbursement_bc';
7683: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
7684: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id ' || p_loan_id);
7685: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_disb_header_id ' || p_disb_header_id);
7686: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_activity ' || p_activity);
7687:
7688: -- Initialize message list IF p_init_msg_list is set to TRUE.
7689: IF FND_API.to_Boolean( p_init_msg_list ) THEN
7682: l_api_name := 'submit_disbursement_bc';
7683: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
7684: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id ' || p_loan_id);
7685: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_disb_header_id ' || p_disb_header_id);
7686: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_activity ' || p_activity);
7687:
7688: -- Initialize message list IF p_init_msg_list is set to TRUE.
7689: IF FND_API.to_Boolean( p_init_msg_list ) THEN
7690: FND_MSG_PUB.initialize;
7695:
7696:
7697: IF p_activity = 'LNS_SUBMITTED_DISB_CANCEL' THEN
7698: -- first complete accounting for any unprocessed events / documents for the loan transaction
7699: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling lns_distributions_pub.onlineAccounting...');
7700: lns_distributions_pub.onlineAccounting(p_loan_id => p_loan_id
7701: ,p_init_msg_list => fnd_api.g_false
7702: ,p_accounting_mode => 'F'
7703: ,p_transfer_flag => 'Y'
7705: ,p_gl_posting_flag => 'N'
7706: ,x_return_status => l_return_status
7707: ,x_msg_count => l_msg_count
7708: ,x_msg_data => l_msg_data);
7709: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_return_status = ' || l_return_status);
7710: if l_return_status <> 'S' then
7711: RAISE FND_API.G_EXC_ERROR;
7712: end if;
7713: END IF;
7712: end if;
7713: END IF;
7714:
7715: /*
7716: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fetching l_disbusement_id ');
7717: open c_disbursements(p_loan_id);
7718: fetch c_disbursements into l_disbursement_id;
7719: close c_disbursements;
7720: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || 'l_disbusement_id ' || l_disbursement_id);
7716: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fetching l_disbusement_id ');
7717: open c_disbursements(p_loan_id);
7718: fetch c_disbursements into l_disbursement_id;
7719: close c_disbursements;
7720: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || 'l_disbusement_id ' || l_disbursement_id);
7721: */
7722:
7723: if (lns_utility_pub.IS_FED_FIN_ENABLED = 'Y') then
7724:
7722:
7723: if (lns_utility_pub.IS_FED_FIN_ENABLED = 'Y') then
7724:
7725: -- create disbursement distribution records in lns_distributions for Disbursement Submission
7726: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling create_DisbursementDistribs...');
7727: LNS_DISTRIBUTIONS_PUB.create_DisbursementDistribs(
7728: p_api_version => 1.0,
7729: p_init_msg_list => FND_API.G_FALSE,
7730: p_commit => FND_API.G_FALSE,
7734: x_return_status => l_return_status,
7735: x_msg_count => l_msg_count,
7736: x_msg_data => l_msg_data);
7737:
7738: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Return status: ' || l_return_status);
7739: IF l_return_status <> 'S' THEN
7740: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, 'Call to LNS_DISTRIBUTIONS_PUB.create_DisbursementDistribs for Disb Submit failed');
7741: RAISE FND_API.G_EXC_ERROR;
7742: END IF;
7736: x_msg_data => l_msg_data);
7737:
7738: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Return status: ' || l_return_status);
7739: IF l_return_status <> 'S' THEN
7740: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, 'Call to LNS_DISTRIBUTIONS_PUB.create_DisbursementDistribs for Disb Submit failed');
7741: RAISE FND_API.G_EXC_ERROR;
7742: END IF;
7743:
7744: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'federal enabled');
7740: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, 'Call to LNS_DISTRIBUTIONS_PUB.create_DisbursementDistribs for Disb Submit failed');
7741: RAISE FND_API.G_EXC_ERROR;
7742: END IF;
7743:
7744: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'federal enabled');
7745: open c_budget_req(p_loan_id);
7746: fetch c_budget_req into l_budget_req_approval, l_funds_reserved_flag, l_gl_date;
7747: close c_budget_req;
7748: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_budget_req_approval ' || l_budget_req_approval);
7744: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'federal enabled');
7745: open c_budget_req(p_loan_id);
7746: fetch c_budget_req into l_budget_req_approval, l_funds_reserved_flag, l_gl_date;
7747: close c_budget_req;
7748: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_budget_req_approval ' || l_budget_req_approval);
7749: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_funds_reserved_flag ' || l_funds_reserved_flag);
7750:
7751: -- fix for bug 16068385
7752: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fetching PAYMENT_REQUEST_DATE ');
7745: open c_budget_req(p_loan_id);
7746: fetch c_budget_req into l_budget_req_approval, l_funds_reserved_flag, l_gl_date;
7747: close c_budget_req;
7748: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_budget_req_approval ' || l_budget_req_approval);
7749: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_funds_reserved_flag ' || l_funds_reserved_flag);
7750:
7751: -- fix for bug 16068385
7752: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fetching PAYMENT_REQUEST_DATE ');
7753: open c_disb_info(p_disb_header_id);
7748: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_budget_req_approval ' || l_budget_req_approval);
7749: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_funds_reserved_flag ' || l_funds_reserved_flag);
7750:
7751: -- fix for bug 16068385
7752: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fetching PAYMENT_REQUEST_DATE ');
7753: open c_disb_info(p_disb_header_id);
7754: fetch c_disb_info into l_PAYMENT_REQUEST_DATE;
7755: close c_disb_info;
7756: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || 'PAYMENT_REQUEST_DATE = ' || l_PAYMENT_REQUEST_DATE);
7752: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fetching PAYMENT_REQUEST_DATE ');
7753: open c_disb_info(p_disb_header_id);
7754: fetch c_disb_info into l_PAYMENT_REQUEST_DATE;
7755: close c_disb_info;
7756: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || 'PAYMENT_REQUEST_DATE = ' || l_PAYMENT_REQUEST_DATE);
7757:
7758: IF p_activity = 'LNS_SUBMIT_DISBURSEMENT' THEN
7759: l_event_type_code := 'DISBURSEMENT_SUBMITTED';
7760: ELSIF p_activity = 'LNS_SUBMITTED_DISB_CANCEL' THEN
7760: ELSIF p_activity = 'LNS_SUBMITTED_DISB_CANCEL' THEN
7761: l_event_type_code := 'SUBMITTED_DISB_CANCELLED';
7762: END IF;
7763:
7764: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling LNS_XLA_EVENTS.create_event...');
7765:
7766: LNS_XLA_EVENTS.create_event(p_loan_id => p_loan_id
7767: ,p_disb_header_id => p_disb_header_id
7768: ,p_loan_amount_adj_id => -1
7775: ,x_event_id => l_event_id
7776: ,x_return_status => l_return_status
7777: ,x_msg_count => l_msg_count
7778: ,x_msg_data => l_msg_data);
7779: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_return_status = ' || l_return_status);
7780: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_event_id = ' || l_event_id);
7781:
7782: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7783: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACCOUNTING_EVENT_ERROR');
7776: ,x_return_status => l_return_status
7777: ,x_msg_count => l_msg_count
7778: ,x_msg_data => l_msg_data);
7779: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_return_status = ' || l_return_status);
7780: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_event_id = ' || l_event_id);
7781:
7782: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7783: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACCOUNTING_EVENT_ERROR');
7784: FND_MSG_PUB.ADD;
7781:
7782: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7783: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACCOUNTING_EVENT_ERROR');
7784: FND_MSG_PUB.ADD;
7785: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
7786: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7787: END IF;
7788:
7789: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'stamping new event_id on distributions');
7785: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
7786: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7787: END IF;
7788:
7789: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'stamping new event_id on distributions');
7790: update lns_distributions
7791: set event_id = l_event_id
7792: ,last_update_date = sysdate
7793: ,object_Version_number = object_version_number + 1
7796: and disb_header_id = p_disb_header_id
7797: and activity = p_activity;
7798: -- and event_id is null
7799: -- and (disb_header_id is null and loan_amount_adj_id is null);
7800: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Updated event_id '||l_event_id||' succesfully for '||SQL%ROWCOUNT||' rows');
7801:
7802: if l_funds_reserved_flag = 'Y' then
7803:
7804: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'inserting into PSA_BC_XLA_EVENTS_GT - event => ' || l_event_id);
7800: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Updated event_id '||l_event_id||' succesfully for '||SQL%ROWCOUNT||' rows');
7801:
7802: if l_funds_reserved_flag = 'Y' then
7803:
7804: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'inserting into PSA_BC_XLA_EVENTS_GT - event => ' || l_event_id);
7805: insert into PSA_BC_XLA_EVENTS_GT (event_id, result_code)
7806: values (l_event_id, 'FAIL');
7807:
7808: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling PSA_BC_XLA_PUB.Budgetary_Control ' || l_event_id);
7804: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'inserting into PSA_BC_XLA_EVENTS_GT - event => ' || l_event_id);
7805: insert into PSA_BC_XLA_EVENTS_GT (event_id, result_code)
7806: values (l_event_id, 'FAIL');
7807:
7808: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling PSA_BC_XLA_PUB.Budgetary_Control ' || l_event_id);
7809: -- always pass P_BC_MODE = reserve as per shaniqua williams
7810: PSA_BC_XLA_PUB.Budgetary_Control(p_api_version => 1.0
7811: ,p_init_msg_list => FND_API.G_FALSE
7812: ,x_return_status => l_return_status
7819: ,p_user_resp_id => null
7820: ,x_status_code => l_status_code
7821: ,x_packet_ID => l_packet_id);
7822:
7823: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' BC status is = ' || l_return_status);
7824: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' l_status_code = ' || l_status_code);
7825: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' l_packet_id = ' || l_packet_id);
7826:
7827: -- we want to commit ONLY in the case of SUCCESS or ADVISORY
7820: ,x_status_code => l_status_code
7821: ,x_packet_ID => l_packet_id);
7822:
7823: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' BC status is = ' || l_return_status);
7824: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' l_status_code = ' || l_status_code);
7825: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' l_packet_id = ' || l_packet_id);
7826:
7827: -- we want to commit ONLY in the case of SUCCESS or ADVISORY
7828: if (l_return_status <> 'S') then
7821: ,x_packet_ID => l_packet_id);
7822:
7823: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' BC status is = ' || l_return_status);
7824: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' l_status_code = ' || l_status_code);
7825: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' l_packet_id = ' || l_packet_id);
7826:
7827: -- we want to commit ONLY in the case of SUCCESS or ADVISORY
7828: if (l_return_status <> 'S') then
7829:
7830: x_return_status := FND_API.G_RET_STS_ERROR;
7831: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
7832: FND_MESSAGE.SET_TOKEN('ERROR' ,'Call to PSA_BC_XLA_PUB.Budgetary_Control failed with Status Code = ' || l_status_code);
7833: FND_MSG_PUB.ADD;
7834: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
7835: RAISE FND_API.G_EXC_ERROR;
7836:
7837: else
7838: -- caller handle success status
7850: THEN
7851: COMMIT WORK;
7852: END IF;
7853:
7854: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
7855:
7856: EXCEPTION
7857:
7858: WHEN FND_API.G_EXC_ERROR THEN
7857:
7858: WHEN FND_API.G_EXC_ERROR THEN
7859: ROLLBACK TO cancel_disbursements;
7860: x_return_status := FND_API.G_RET_STS_ERROR;
7861: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
7862: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7863:
7864: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7865: ROLLBACK TO cancel_disbursements;
7863:
7864: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7865: ROLLBACK TO cancel_disbursements;
7866: x_return_status := FND_API.G_RET_STS_ERROR;
7867: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
7868: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7869:
7870: WHEN OTHERS THEN
7871: ROLLBACK TO cancel_disbursements;
7869:
7870: WHEN OTHERS THEN
7871: ROLLBACK TO cancel_disbursements;
7872: x_return_status := FND_API.G_RET_STS_ERROR;
7873: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
7874: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7875:
7876: end submit_disbursement_bc;
7877:
7962: where ledger_id = C_LEDGER_ID;
7963:
7964: BEGIN
7965:
7966: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, ' ');
7967: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' +');
7968:
7969: /* init report clob */
7970: dbms_lob.createtemporary(g_last_accrual_report, FALSE, DBMS_LOB.CALL);
7963:
7964: BEGIN
7965:
7966: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, ' ');
7967: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' +');
7968:
7969: /* init report clob */
7970: dbms_lob.createtemporary(g_last_accrual_report, FALSE, DBMS_LOB.CALL);
7971: dbms_lob.open(g_last_accrual_report, dbms_lob.lob_readwrite);
7981: open cur_ledger(p_ledger_id);
7982: fetch cur_ledger into l_ledger_name;
7983: close cur_ledger;
7984: END IF;
7985: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_ledger_name: ' || l_ledger_name);
7986: l_parameters := l_parameters || l_new_line || '
7987:
7988:
7989: /* adding org name to parameter list */
7991: open org_cur(p_org_id);
7992: fetch org_cur into l_org_name;
7993: close org_cur;
7994: END IF;
7995: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_org_name: ' || l_org_name);
7996: l_parameters := l_parameters || l_new_line || '
7997:
7998:
7999: /* adding borrower to parameter list */
8001: open borrower_cur(P_BORROWER_ID);
8002: fetch borrower_cur into l_borrower;
8003: close borrower_cur;
8004: end if;
8005: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_borrower: ' || l_borrower);
8006: l_parameters := l_parameters || l_new_line || '
8007:
8008: /* adding loan to parameter list */
8009: if P_LOAN_ID is not null then
8010: open loan_cur(P_LOAN_ID);
8011: fetch loan_cur into l_loan;
8012: close loan_cur;
8013: end if;
8014: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan: ' || l_loan);
8015: l_parameters := l_parameters || l_new_line || '
8016:
8017:
8018: /* adding accrual_period to parameter list */
8015: l_parameters := l_parameters || l_new_line || '
8016:
8017:
8018: /* adding accrual_period to parameter list */
8019: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_period_name: ' || p_period_name);
8020: l_parameters := l_parameters || l_new_line || '
8021:
8022: /* adding accrual_date to parameter list */
8023: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_accrual_date: ' || p_accrual_date);
8019: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_period_name: ' || p_period_name);
8020: l_parameters := l_parameters || l_new_line || '
8021:
8022: /* adding accrual_date to parameter list */
8023: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_accrual_date: ' || p_accrual_date);
8024: l_parameters := l_parameters || l_new_line || '
8025:
8026: /* adding mode to parameter list */
8027: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_mode: ' || p_mode);
8023: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_accrual_date: ' || p_accrual_date);
8024: l_parameters := l_parameters || l_new_line || '
8025:
8026: /* adding mode to parameter list */
8027: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_mode: ' || p_mode);
8028: l_parameters := l_parameters || l_new_line || '
8029:
8030: l_parameters := l_parameters || l_new_line || '
8031:
8029:
8030: l_parameters := l_parameters || l_new_line || '
8031:
8032: l_parameters := l_parameters || l_new_line || '' || l_new_line;
8033: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_parameters: ' || l_parameters);
8034:
8035:
8036: /* add header to accrual report */
8037: DBMS_LOB.write(g_last_accrual_report, length(l_header), 1, l_header);
8034:
8035:
8036: /* add header to accrual report */
8037: DBMS_LOB.write(g_last_accrual_report, length(l_header), 1, l_header);
8038: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Added header to report');
8039:
8040: /* add parameters to accrual report */
8041: dbms_lob.writeAppend(g_last_accrual_report, length(l_parameters), l_parameters);
8042: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Added parameters to report');
8038: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Added header to report');
8039:
8040: /* add parameters to accrual report */
8041: dbms_lob.writeAppend(g_last_accrual_report, length(l_parameters), l_parameters);
8042: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Added parameters to report');
8043:
8044: /* add P_CP_STATEMENTS to accrual report */
8045: l_append := l_new_line || P_CP_STATEMENTS || l_new_line;
8046: dbms_lob.writeAppend(g_last_accrual_report, length(l_append), l_append);
8043:
8044: /* add P_CP_STATEMENTS to accrual report */
8045: l_append := l_new_line || P_CP_STATEMENTS || l_new_line;
8046: dbms_lob.writeAppend(g_last_accrual_report, length(l_append), l_append);
8047: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Added P_CP_STATEMENTS to report');
8048:
8049:
8050: l_append := l_new_line || '
8051: dbms_lob.writeAppend(g_last_accrual_report, length(l_append), l_append);
8059:
8060: /* add all statements to billing report */
8061: if dbms_lob.getlength(P_STATEMENTS_XML) > 0 then
8062: DBMS_LOB.Append(g_last_accrual_report, P_STATEMENTS_XML);
8063: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Added statements to report');
8064: end if;
8065:
8066: l_append := l_new_line || '';
8067: dbms_lob.writeAppend(g_last_accrual_report, length(l_append), l_append);
8067: dbms_lob.writeAppend(g_last_accrual_report, length(l_append), l_append);
8068:
8069: /* add footer to billing report */
8070: dbms_lob.writeAppend(g_last_accrual_report, length(l_footer), l_footer);
8071: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Added footer to report');
8072:
8073: /* print report to output file */
8074: LNS_REP_UTILS.PRINT_CLOB(g_last_accrual_report); -- fix for bug 6938098
8075: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Printed report into output file.');
8071: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Added footer to report');
8072:
8073: /* print report to output file */
8074: LNS_REP_UTILS.PRINT_CLOB(g_last_accrual_report); -- fix for bug 6938098
8075: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Printed report into output file.');
8076:
8077: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' -');
8078:
8079: EXCEPTION
8073: /* print report to output file */
8074: LNS_REP_UTILS.PRINT_CLOB(g_last_accrual_report); -- fix for bug 6938098
8075: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Printed report into output file.');
8076:
8077: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' -');
8078:
8079: EXCEPTION
8080: WHEN OTHERS THEN
8081: LogMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, 'Failed to generate accrual report');
8077: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' -');
8078:
8079: EXCEPTION
8080: WHEN OTHERS THEN
8081: LogMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, 'Failed to generate accrual report');
8082: g_cr_return_status := 'WARNING';
8083: END BUILD_ACCRUAL_REPORT;
8084:
8085:
8192: BEGIN
8193:
8194: l_index := 0;
8195: l_indexNo := 1;
8196: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, ' ');
8197: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' +');
8198:
8199: l_new_line := '
8200: ';
8193:
8194: l_index := 0;
8195: l_indexNo := 1;
8196: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, ' ');
8197: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' +');
8198:
8199: l_new_line := '
8200: ';
8201:
8198:
8199: l_new_line := '
8200: ';
8201:
8202: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Passed input parameters:');
8203: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_LOAN_ID: ' || P_LOAN_ID);
8204: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_PERIOD_NAME: ' || P_PERIOD_NAME);
8205: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_ACCRUAL_DATE: ' || P_ACCRUAL_DATE);
8206: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_INT_ACCRUED: ' || P_INT_ACCRUED);
8199: l_new_line := '
8200: ';
8201:
8202: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Passed input parameters:');
8203: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_LOAN_ID: ' || P_LOAN_ID);
8204: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_PERIOD_NAME: ' || P_PERIOD_NAME);
8205: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_ACCRUAL_DATE: ' || P_ACCRUAL_DATE);
8206: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_INT_ACCRUED: ' || P_INT_ACCRUED);
8207: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_RESULT: ' || P_RESULT);
8200: ';
8201:
8202: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Passed input parameters:');
8203: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_LOAN_ID: ' || P_LOAN_ID);
8204: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_PERIOD_NAME: ' || P_PERIOD_NAME);
8205: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_ACCRUAL_DATE: ' || P_ACCRUAL_DATE);
8206: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_INT_ACCRUED: ' || P_INT_ACCRUED);
8207: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_RESULT: ' || P_RESULT);
8208: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_ERR_COUNT: ' || P_ERR_COUNT);
8201:
8202: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Passed input parameters:');
8203: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_LOAN_ID: ' || P_LOAN_ID);
8204: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_PERIOD_NAME: ' || P_PERIOD_NAME);
8205: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_ACCRUAL_DATE: ' || P_ACCRUAL_DATE);
8206: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_INT_ACCRUED: ' || P_INT_ACCRUED);
8207: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_RESULT: ' || P_RESULT);
8208: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_ERR_COUNT: ' || P_ERR_COUNT);
8209:
8202: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Passed input parameters:');
8203: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_LOAN_ID: ' || P_LOAN_ID);
8204: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_PERIOD_NAME: ' || P_PERIOD_NAME);
8205: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_ACCRUAL_DATE: ' || P_ACCRUAL_DATE);
8206: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_INT_ACCRUED: ' || P_INT_ACCRUED);
8207: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_RESULT: ' || P_RESULT);
8208: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_ERR_COUNT: ' || P_ERR_COUNT);
8209:
8210:
8203: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_LOAN_ID: ' || P_LOAN_ID);
8204: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_PERIOD_NAME: ' || P_PERIOD_NAME);
8205: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_ACCRUAL_DATE: ' || P_ACCRUAL_DATE);
8206: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_INT_ACCRUED: ' || P_INT_ACCRUED);
8207: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_RESULT: ' || P_RESULT);
8208: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_ERR_COUNT: ' || P_ERR_COUNT);
8209:
8210:
8211: /* init l_in_statement clob */
8204: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_PERIOD_NAME: ' || P_PERIOD_NAME);
8205: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_ACCRUAL_DATE: ' || P_ACCRUAL_DATE);
8206: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_INT_ACCRUED: ' || P_INT_ACCRUED);
8207: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_RESULT: ' || P_RESULT);
8208: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_ERR_COUNT: ' || P_ERR_COUNT);
8209:
8210:
8211: /* init l_in_statement clob */
8212: dbms_lob.createtemporary(l_in_statement, FALSE, DBMS_LOB.CALL);
8224: open loan_cur(P_LOAN_ID, P_INT_ACCRUED);
8225: fetch loan_cur into l_borrower, l_loan_num, l_currency, l_accr_int_amount, l_last_payment_no, l_loan_start_date;
8226: close loan_cur;
8227:
8228: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_num: ' || l_loan_num);
8229: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_accr_int_amount: ' || l_accr_int_amount);
8230:
8231: OPEN cur_last_bill_duel_date(P_LOAN_ID);
8232: FETCH cur_last_bill_duel_date INTO l_last_bill_due_date;
8225: fetch loan_cur into l_borrower, l_loan_num, l_currency, l_accr_int_amount, l_last_payment_no, l_loan_start_date;
8226: close loan_cur;
8227:
8228: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_num: ' || l_loan_num);
8229: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_accr_int_amount: ' || l_accr_int_amount);
8230:
8231: OPEN cur_last_bill_duel_date(P_LOAN_ID);
8232: FETCH cur_last_bill_duel_date INTO l_last_bill_due_date;
8233: CLOSE cur_last_bill_duel_date;
8253: l_statement := l_statement || l_new_line || '
8254: l_statement := l_statement || l_new_line || '
8255: l_statement := l_statement || l_new_line || '
8256: --l_statement := l_statement || l_new_line || '
8257: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_statement: ' || l_statement);
8258: dbms_lob.write(X_STATEMENT_XML, length(l_statement), 1, l_statement);
8259: dbms_lob.append(X_STATEMENT_XML, l_in_statement);
8260:
8261: l_statement2 := '';
8284: END IF;
8285: END IF;
8286:
8287: l_statement2 := l_statement2 || l_new_line || '';
8288: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_statement2: ' || l_statement2);
8289:
8290:
8291:
8292: /* updating clob */
8291:
8292: /* updating clob */
8293: DBMS_LOB.writeAppend(X_STATEMENT_XML, length(l_statement2), l_statement2);
8294:
8295: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' -');
8296:
8297: EXCEPTION
8298: WHEN OTHERS THEN
8299: LogMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, 'Failed to generate error statement for loan ' || l_loan_num);
8295: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' -');
8296:
8297: EXCEPTION
8298: WHEN OTHERS THEN
8299: LogMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, 'Failed to generate error statement for loan ' || l_loan_num);
8300:
8301: END BUILD_ACCRUAL_STMT;
8302:
8303:
8356: BEGIN
8357:
8358: l_index := 0;
8359: l_indexNo := 1;
8360: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, ' ');
8361: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' +');
8362:
8363: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_ACCRUAL_DATE = ' || P_ACCRUAL_DATE);
8364: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_RESULT = ' || P_RESULT);
8357:
8358: l_index := 0;
8359: l_indexNo := 1;
8360: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, ' ');
8361: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' +');
8362:
8363: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_ACCRUAL_DATE = ' || P_ACCRUAL_DATE);
8364: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_RESULT = ' || P_RESULT);
8365: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_ERR_COUNT = ' || P_ERR_COUNT);
8359: l_indexNo := 1;
8360: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, ' ');
8361: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' +');
8362:
8363: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_ACCRUAL_DATE = ' || P_ACCRUAL_DATE);
8364: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_RESULT = ' || P_RESULT);
8365: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_ERR_COUNT = ' || P_ERR_COUNT);
8366:
8367: l_new_line := '
8360: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, ' ');
8361: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' +');
8362:
8363: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_ACCRUAL_DATE = ' || P_ACCRUAL_DATE);
8364: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_RESULT = ' || P_RESULT);
8365: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_ERR_COUNT = ' || P_ERR_COUNT);
8366:
8367: l_new_line := '
8368: ';
8361: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' +');
8362:
8363: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_ACCRUAL_DATE = ' || P_ACCRUAL_DATE);
8364: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_RESULT = ' || P_RESULT);
8365: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_ERR_COUNT = ' || P_ERR_COUNT);
8366:
8367: l_new_line := '
8368: ';
8369:
8371:
8372: WHILE (l_indexNo <= P_ERR_COUNT ) LOOP
8373: fnd_msg_pub.get(l_indexNo, 'F', l_error, l_index);
8374: l_error := LNS_REP_UTILS.REPLACE_SPECIAL_CHARS(l_error);
8375: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_error: ' || l_error);
8376: l_err_msg := l_err_msg || l_error;
8377: l_indexNo := l_indexNo + 1;
8378: END LOOP;
8379:
8384: l_statement := l_statement || l_new_line|| '
8385: l_statement := l_statement || l_new_line|| '
8386: END IF;
8387:
8388: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_statement: ' || l_statement);
8389:
8390: /* init statement xml */
8391: DBMS_LOB.createtemporary(X_STATEMENT_XML, FALSE, DBMS_LOB.CALL);
8392: DBMS_LOB.open(X_STATEMENT_XML, DBMS_LOB.lob_readwrite);
8393:
8394: /* building clob */
8395: DBMS_LOB.write(X_STATEMENT_XML, length(l_statement), 1, l_statement);
8396:
8397: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' -');
8398:
8399: EXCEPTION
8400: WHEN OTHERS THEN
8401: LogMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, 'Failed to generate error statement');
8397: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' -');
8398:
8399: EXCEPTION
8400: WHEN OTHERS THEN
8401: LogMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, 'Failed to generate error statement');
8402:
8403: END BUILD_ACCRUAL_ERR_STMT;
8404:
8405:
8501:
8502: begin
8503:
8504: l_api_name := 'create_AccrualDistribs';
8505: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - BEGIN');
8506:
8507: SAVEPOINT create_AccrualDistribs;
8508:
8509: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id = ' || p_loan_id);
8505: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - BEGIN');
8506:
8507: SAVEPOINT create_AccrualDistribs;
8508:
8509: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id = ' || p_loan_id);
8510: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_period_name = ' || p_period_name);
8511: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_accrual_date = ' || p_accrual_date);
8512: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_accrued_amount = ' || p_accrued_amount);
8513: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_accounting_mode = ' || p_accounting_mode);
8506:
8507: SAVEPOINT create_AccrualDistribs;
8508:
8509: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id = ' || p_loan_id);
8510: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_period_name = ' || p_period_name);
8511: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_accrual_date = ' || p_accrual_date);
8512: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_accrued_amount = ' || p_accrued_amount);
8513: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_accounting_mode = ' || p_accounting_mode);
8514:
8507: SAVEPOINT create_AccrualDistribs;
8508:
8509: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id = ' || p_loan_id);
8510: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_period_name = ' || p_period_name);
8511: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_accrual_date = ' || p_accrual_date);
8512: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_accrued_amount = ' || p_accrued_amount);
8513: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_accounting_mode = ' || p_accounting_mode);
8514:
8515:
8508:
8509: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id = ' || p_loan_id);
8510: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_period_name = ' || p_period_name);
8511: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_accrual_date = ' || p_accrual_date);
8512: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_accrued_amount = ' || p_accrued_amount);
8513: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_accounting_mode = ' || p_accounting_mode);
8514:
8515:
8516:
8509: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id = ' || p_loan_id);
8510: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_period_name = ' || p_period_name);
8511: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_accrual_date = ' || p_accrual_date);
8512: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_accrued_amount = ' || p_accrued_amount);
8513: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_accounting_mode = ' || p_accounting_mode);
8514:
8515:
8516:
8517:
8529: OPEN c_accrual_date_distrbs_exists(p_loan_id, p_accrual_date);
8530: FETCH c_accrual_date_distrbs_exists INTO l_exists;
8531: CLOSE c_accrual_date_distrbs_exists;
8532:
8533: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Accrual Dist exists later or equal are: '||l_exists);
8534:
8535: IF l_exists = 0 THEN
8536: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Retrieving Billing Interest Distributions...');
8537:
8532:
8533: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Accrual Dist exists later or equal are: '||l_exists);
8534:
8535: IF l_exists = 0 THEN
8536: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Retrieving Billing Interest Distributions...');
8537:
8538:
8539: l_rec_cnt := 0;
8540: l_int_rec_line_cnt := 0;
8548:
8549: OPEN c_num_int_receivables(p_loan_id);
8550: FETCH c_num_int_receivables into l_int_receivables_count;
8551: CLOSE c_num_int_receivables;
8552: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_int_receivables_count = ' || l_int_receivables_count);
8553:
8554: OPEN c_num_int_incomes(p_loan_id);
8555: FETCH c_num_int_incomes into l_int_incomes_count;
8556: CLOSE c_num_int_incomes;
8553:
8554: OPEN c_num_int_incomes(p_loan_id);
8555: FETCH c_num_int_incomes into l_int_incomes_count;
8556: CLOSE c_num_int_incomes;
8557: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_int_incomes_count = ' || l_int_incomes_count);
8558:
8559: OPEN c_get_bill_int_distrbs(p_loan_id);
8560: LOOP
8561: FETCH c_get_bill_int_distrbs INTO
8571:
8572: l_distribution_type := 'ACCRUAL';
8573:
8574: l_rec_cnt := l_rec_cnt + 1;
8575: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Record ' || l_rec_cnt);
8576: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_line_type = ' || l_line_type);
8577: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_name = ' || l_account_name);
8578: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
8579: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_type = ' || l_account_type);
8572: l_distribution_type := 'ACCRUAL';
8573:
8574: l_rec_cnt := l_rec_cnt + 1;
8575: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Record ' || l_rec_cnt);
8576: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_line_type = ' || l_line_type);
8577: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_name = ' || l_account_name);
8578: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
8579: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_type = ' || l_account_type);
8580: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_percent = ' || l_distribution_percent);
8573:
8574: l_rec_cnt := l_rec_cnt + 1;
8575: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Record ' || l_rec_cnt);
8576: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_line_type = ' || l_line_type);
8577: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_name = ' || l_account_name);
8578: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
8579: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_type = ' || l_account_type);
8580: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_percent = ' || l_distribution_percent);
8581: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_type = ' || l_distribution_type);
8574: l_rec_cnt := l_rec_cnt + 1;
8575: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Record ' || l_rec_cnt);
8576: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_line_type = ' || l_line_type);
8577: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_name = ' || l_account_name);
8578: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
8579: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_type = ' || l_account_type);
8580: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_percent = ' || l_distribution_percent);
8581: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_type = ' || l_distribution_type);
8582:
8575: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Record ' || l_rec_cnt);
8576: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_line_type = ' || l_line_type);
8577: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_name = ' || l_account_name);
8578: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
8579: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_type = ' || l_account_type);
8580: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_percent = ' || l_distribution_percent);
8581: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_type = ' || l_distribution_type);
8582:
8583:
8576: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_line_type = ' || l_line_type);
8577: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_name = ' || l_account_name);
8578: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
8579: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_type = ' || l_account_type);
8580: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_percent = ' || l_distribution_percent);
8581: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_type = ' || l_distribution_type);
8582:
8583:
8584: l_distributions(l_rec_cnt).line_type := l_line_type;
8577: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_name = ' || l_account_name);
8578: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
8579: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_type = ' || l_account_type);
8580: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_percent = ' || l_distribution_percent);
8581: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_type = ' || l_distribution_type);
8582:
8583:
8584: l_distributions(l_rec_cnt).line_type := l_line_type;
8585: l_distributions(l_rec_cnt).account_name := l_account_name;
8596:
8597:
8598: IF l_account_name = 'INTEREST_RECEIVABLE' THEN
8599: l_int_rec_line_cnt := l_int_rec_line_cnt + 1;
8600: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Interest receivable line ' || l_int_rec_line_cnt);
8601:
8602: if l_int_rec_line_cnt <> l_int_receivables_count then
8603: l_distributions(l_rec_cnt).distribution_amount := round(l_distribution_percent * l_accrued_amount, l_ledger_details.currency_precision) / 100;
8604: l_int_rec_running_amt := l_int_rec_running_amt + l_distributions(l_rec_cnt).distribution_amount;
8605: else
8606: l_distributions(l_rec_cnt).distribution_amount := l_accrued_amount - l_int_rec_running_amt;
8607: end if;
8608:
8609: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distributions(i).distribution_amount = ' || l_distributions(l_rec_cnt).distribution_amount);
8610: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_int_rec_running_amt = ' || l_int_rec_running_amt);
8611: END IF;
8612:
8613:
8606: l_distributions(l_rec_cnt).distribution_amount := l_accrued_amount - l_int_rec_running_amt;
8607: end if;
8608:
8609: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distributions(i).distribution_amount = ' || l_distributions(l_rec_cnt).distribution_amount);
8610: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_int_rec_running_amt = ' || l_int_rec_running_amt);
8611: END IF;
8612:
8613:
8614: IF l_account_name = 'INTEREST_INCOME' THEN
8612:
8613:
8614: IF l_account_name = 'INTEREST_INCOME' THEN
8615: l_int_income_line_cnt := l_int_income_line_cnt + 1;
8616: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Interset Income line ' || l_int_income_line_cnt);
8617:
8618: if l_int_income_line_cnt <> l_int_incomes_count then
8619: l_distributions(l_rec_cnt).distribution_amount := round(l_distribution_percent * l_accrued_amount, l_ledger_details.currency_precision) / 100;
8620: l_int_income_running_amt := l_int_income_running_amt + l_distributions(l_rec_cnt).distribution_amount;
8621: else
8622: l_distributions(l_rec_cnt).distribution_amount := l_accrued_amount - l_int_income_running_amt;
8623: end if;
8624:
8625: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distributions(l_rec_cnt).distribution_amount = ' || l_distributions(l_rec_cnt).distribution_amount);
8626: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_int_income_running_amt = ' || l_int_income_running_amt);
8627: END IF;
8628:
8629: END LOOP;
8622: l_distributions(l_rec_cnt).distribution_amount := l_accrued_amount - l_int_income_running_amt;
8623: end if;
8624:
8625: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distributions(l_rec_cnt).distribution_amount = ' || l_distributions(l_rec_cnt).distribution_amount);
8626: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_int_income_running_amt = ' || l_int_income_running_amt);
8627: END IF;
8628:
8629: END LOOP;
8630:
8633: if l_return_status <> 'S' then
8634: RAISE FND_API.G_EXC_ERROR;
8635: end if;
8636:
8637: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distributionsCatch.count = ' || l_distributions.count);
8638: for j in 1..l_distributions.count loop
8639: l_distributions(j).activity := l_activity;
8640: l_distributions(j).accrual_date := p_accrual_date;
8641: l_distributions(j).accrual_period := p_period_name;
8642: end loop;
8643:
8644: l_distributions_count := l_distributions.count;
8645:
8646: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'total distributions adding = ' || l_distributions.count);
8647:
8648: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling do_insert_distributions...');
8649: do_insert_distributions(l_distributions, p_loan_id);
8650:
8644: l_distributions_count := l_distributions.count;
8645:
8646: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'total distributions adding = ' || l_distributions.count);
8647:
8648: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling do_insert_distributions...');
8649: do_insert_distributions(l_distributions, p_loan_id);
8650:
8651: ELSE -- IF l_exists == 0
8652:
8657: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACCRUED_ALREADY');
8658: FND_MESSAGE.SET_TOKEN('LOAN_NUMBER', l_loan_num);
8659: FND_MESSAGE.SET_TOKEN('LAST_ACCRUAL_DATE', p_accrual_date);
8660: FND_MSG_PUB.Add;
8661: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
8662:
8663: RAISE FND_API.G_EXC_ERROR;
8664:
8665: END IF; -- IF l_exists == 0
8663: RAISE FND_API.G_EXC_ERROR;
8664:
8665: END IF; -- IF l_exists == 0
8666:
8667: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || 'p_commit is '||p_commit);
8668: IF FND_API.to_Boolean(p_commit)
8669: THEN
8670: COMMIT;
8671: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || 'Commited');
8667: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || 'p_commit is '||p_commit);
8668: IF FND_API.to_Boolean(p_commit)
8669: THEN
8670: COMMIT;
8671: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || 'Commited');
8672: END IF;
8673:
8674: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8675: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
8671: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || 'Commited');
8672: END IF;
8673:
8674: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8675: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
8676:
8677: EXCEPTION
8678:
8679: WHEN FND_API.G_EXC_ERROR THEN
8678:
8679: WHEN FND_API.G_EXC_ERROR THEN
8680: ROLLBACK TO create_AccrualDistribs;
8681: x_return_status := FND_API.G_RET_STS_ERROR;
8682: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
8683: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8684:
8685: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8686: ROLLBACK TO create_AccrualDistribs;
8684:
8685: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8686: ROLLBACK TO create_AccrualDistribs;
8687: x_return_status := FND_API.G_RET_STS_ERROR;
8688: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
8689: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8690:
8691: WHEN OTHERS THEN
8692: ROLLBACK TO create_AccrualDistribs;
8690:
8691: WHEN OTHERS THEN
8692: ROLLBACK TO create_AccrualDistribs;
8693: x_return_status := FND_API.G_RET_STS_ERROR;
8694: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
8695: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8696:
8697: END create_AccrualDistribs;
8698:
8787: -- Standard Start of API savepoint
8788: SAVEPOINT shiftLoan;
8789: l_api_name := 'calc_accrued_interest';
8790:
8791: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
8792: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_loan_id ' || p_loan_id);
8793: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_accrual_date ' || p_accrual_date);
8794:
8795:
8788: SAVEPOINT shiftLoan;
8789: l_api_name := 'calc_accrued_interest';
8790:
8791: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
8792: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_loan_id ' || p_loan_id);
8793: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_accrual_date ' || p_accrual_date);
8794:
8795:
8796: -- Initialization
8789: l_api_name := 'calc_accrued_interest';
8790:
8791: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
8792: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_loan_id ' || p_loan_id);
8793: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_accrual_date ' || p_accrual_date);
8794:
8795:
8796: -- Initialization
8797:
8817:
8818:
8819:
8820:
8821: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - getting current phase');
8822: open c_loan_info(p_loan_id);
8823: fetch c_loan_info into l_current_phase;
8824: close c_loan_info;
8825: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - current phase ' || l_current_phase);
8821: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - getting current phase');
8822: open c_loan_info(p_loan_id);
8823: fetch c_loan_info into l_current_phase;
8824: close c_loan_info;
8825: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - current phase ' || l_current_phase);
8826:
8827: l_loan_details := lns_financials.getLoanDetails(p_loan_id => p_loan_id
8828: ,p_based_on_terms => 'CURRENT'
8829: ,p_phase => l_current_phase);
8830:
8831: l_rate_tbl := lns_financials.getRateSchedule(p_loan_id, l_current_phase);
8832: l_last_inst_number := LNS_BILLING_UTIL_PUB.LAST_PAYMENT_NUMBER_EXT_2(p_loan_id);
8833:
8834: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_last_inst_number: ' || l_last_inst_number);
8835:
8836: OPEN c_last_interest_billed(p_loan_id, l_last_inst_number);
8837: FETCH c_last_interest_billed INTO l_last_int_billed_date;
8838: CLOSE c_last_interest_billed;
8836: OPEN c_last_interest_billed(p_loan_id, l_last_inst_number);
8837: FETCH c_last_interest_billed INTO l_last_int_billed_date;
8838: CLOSE c_last_interest_billed;
8839:
8840: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_last_int_accrued_date: ' || l_last_int_billed_date);
8841:
8842: if l_rate_tbl.count = 1 then
8843: l_annualized_rate := l_rate_tbl(1).annual_rate;
8844: else
8846: ,p_start_date => l_last_int_billed_date
8847: ,p_end_date => p_accrual_date
8848: ,p_rate_tbl => l_rate_tbl);
8849: end if;
8850: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_annualized_rate: ' || l_annualized_rate);
8851:
8852:
8853: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Calculating accrued interest...');
8854: LNS_FINANCIALS.CALC_NORM_INTEREST(p_loan_id => p_loan_id,
8849: end if;
8850: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_annualized_rate: ' || l_annualized_rate);
8851:
8852:
8853: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Calculating accrued interest...');
8854: LNS_FINANCIALS.CALC_NORM_INTEREST(p_loan_id => p_loan_id,
8855: p_calc_method => l_loan_details.CALCULATION_METHOD,
8856: p_period_start_date => l_last_int_billed_date,
8857: p_period_end_date => p_accrual_date,
8864: x_norm_int_details => l_accr_norm_int_detail_str);
8865:
8866: l_accr_norm_interest := round(l_accr_norm_interest, l_loan_details.currency_precision);
8867:
8868: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_accr_norm_interest: ' || l_accr_norm_interest);
8869:
8870: IF (l_last_inst_number >= 0) THEN
8871:
8872: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Calculating additional interest on unpaid principal...');
8868: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_accr_norm_interest: ' || l_accr_norm_interest);
8869:
8870: IF (l_last_inst_number >= 0) THEN
8871:
8872: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Calculating additional interest on unpaid principal...');
8873: -- calculate additional interest on unpaid principal
8874: LNS_FINANCIALS.CALC_ADD_INTEREST(p_loan_id => p_loan_id,
8875: p_calc_method => l_loan_details.CALCULATION_METHOD,
8876: p_period_start_date => l_last_int_billed_date,
8889: x_add_int_details => l_add_prin_int_detail_str,
8890: x_penal_int_details => l_penal_prin_int_detail_str);
8891:
8892: l_add_prin_interest := round(l_add_prin_interest, l_loan_details.currency_precision);
8893: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_add_prin_interest: ' || l_add_prin_interest);
8894:
8895: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Calculating additional interest on unpaid interest...');
8896: -- calculate additional interest on unpaid interest
8897: LNS_FINANCIALS.CALC_ADD_INTEREST(p_loan_id => p_loan_id,
8891:
8892: l_add_prin_interest := round(l_add_prin_interest, l_loan_details.currency_precision);
8893: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_add_prin_interest: ' || l_add_prin_interest);
8894:
8895: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Calculating additional interest on unpaid interest...');
8896: -- calculate additional interest on unpaid interest
8897: LNS_FINANCIALS.CALC_ADD_INTEREST(p_loan_id => p_loan_id,
8898: p_calc_method => l_loan_details.CALCULATION_METHOD,
8899: p_period_start_date => l_last_int_billed_date,
8913: x_penal_int_details => l_penal_int_int_detail_str);
8914:
8915:
8916: l_add_int_interest := round(l_add_int_interest, l_loan_details.currency_precision);
8917: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_add_int_interest: ' || l_add_int_interest);
8918:
8919: l_penal_interest := round(l_penal_prin_interest + l_penal_int_interest, l_loan_details.currency_precision);
8920:
8921: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_penal_interest: ' || l_penal_interest);
8917: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_add_int_interest: ' || l_add_int_interest);
8918:
8919: l_penal_interest := round(l_penal_prin_interest + l_penal_int_interest, l_loan_details.currency_precision);
8920:
8921: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_penal_interest: ' || l_penal_interest);
8922:
8923: if l_penal_prin_int_detail_str is not null and l_penal_int_int_detail_str is not null then
8924: l_penal_int_detail_str := l_penal_prin_int_detail_str || ' +
' || l_penal_int_int_detail_str;
8925: else
8928: END IF; -- if l_last_inst_number >= 0
8929:
8930: l_accrued_interest := l_accr_norm_interest + l_add_prin_interest + l_add_int_interest + l_penal_interest;
8931:
8932: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Total Accrued Interest is: ' || l_accrued_interest);
8933:
8934: l_accr_norm_int_detail_str := REPLACE(l_accr_norm_int_detail_str,'
',' ');
8935:
8936: l_accr_int_detail_str := 'Normal Interest = '||l_accr_norm_int_detail_str;
8952: END IF;
8953:
8954: l_accr_int_detail_str := REPLACE(l_accr_int_detail_str,'
',' ');
8955:
8956: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Total Interest String : ' || l_accr_int_detail_str);
8957:
8958: x_statement := x_statement || l_new_line || '
8959:
8960: x_statement := x_statement || l_new_line || '
8980:
8981: x_accrued_interest := l_accrued_interest;
8982: -- x_accrued_interest_det := l_accr_int_detail_str;
8983:
8984: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
8985:
8986: END calc_accrued_interest;
8987:
8988: PROCEDURE do_int_accrual_reversal(p_api_version IN NUMBER
9128:
9129: BEGIN
9130:
9131: l_api_name := 'do_int_accrual_reversal';
9132: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - BEGIN');
9133:
9134: SAVEPOINT do_int_accrual_reversal;
9135:
9136: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id = ' || p_loan_id);
9132: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - BEGIN');
9133:
9134: SAVEPOINT do_int_accrual_reversal;
9135:
9136: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id = ' || p_loan_id);
9137: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_period_name = ' || p_period_name);
9138: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_accrual_date = ' || p_accrual_date);
9139: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_accounting_mode = ' || p_accounting_mode);
9140:
9133:
9134: SAVEPOINT do_int_accrual_reversal;
9135:
9136: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id = ' || p_loan_id);
9137: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_period_name = ' || p_period_name);
9138: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_accrual_date = ' || p_accrual_date);
9139: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_accounting_mode = ' || p_accounting_mode);
9140:
9141:
9134: SAVEPOINT do_int_accrual_reversal;
9135:
9136: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id = ' || p_loan_id);
9137: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_period_name = ' || p_period_name);
9138: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_accrual_date = ' || p_accrual_date);
9139: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_accounting_mode = ' || p_accounting_mode);
9140:
9141:
9142:
9135:
9136: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id = ' || p_loan_id);
9137: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_period_name = ' || p_period_name);
9138: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_accrual_date = ' || p_accrual_date);
9139: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_accounting_mode = ' || p_accounting_mode);
9140:
9141:
9142:
9143:
9166: OPEN loan_cur(p_loan_id);
9167: FETCH loan_cur INTO l_loan_num, l_disable_int_accrual_flag, l_org_name, l_ledger_name;
9168: CLOSE loan_cur;
9169:
9170: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Loan Number is '||l_loan_num);
9171: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_disable_int_accrual_flag is '||l_disable_int_accrual_flag);
9172: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_org_name is '||l_org_name);
9173: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_ledger_name is '||l_ledger_name);
9174:
9167: FETCH loan_cur INTO l_loan_num, l_disable_int_accrual_flag, l_org_name, l_ledger_name;
9168: CLOSE loan_cur;
9169:
9170: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Loan Number is '||l_loan_num);
9171: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_disable_int_accrual_flag is '||l_disable_int_accrual_flag);
9172: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_org_name is '||l_org_name);
9173: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_ledger_name is '||l_ledger_name);
9174:
9175: x_statement_xml := x_statement_xml || l_new_line || '
9168: CLOSE loan_cur;
9169:
9170: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Loan Number is '||l_loan_num);
9171: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_disable_int_accrual_flag is '||l_disable_int_accrual_flag);
9172: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_org_name is '||l_org_name);
9173: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_ledger_name is '||l_ledger_name);
9174:
9175: x_statement_xml := x_statement_xml || l_new_line || '
9176: x_statement_xml := x_statement_xml || l_new_line || '
9169:
9170: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Loan Number is '||l_loan_num);
9171: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_disable_int_accrual_flag is '||l_disable_int_accrual_flag);
9172: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_org_name is '||l_org_name);
9173: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_ledger_name is '||l_ledger_name);
9174:
9175: x_statement_xml := x_statement_xml || l_new_line || '
9176: x_statement_xml := x_statement_xml || l_new_line || '
9177:
9180: OPEN cur_last_accrual_date(p_loan_id);
9181: FETCH cur_last_accrual_date INTO l_last_accrued_date;
9182: CLOSE cur_last_accrual_date;
9183:
9184: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Last Accrued Date for this loan is: '||l_last_accrued_date);
9185:
9186: x_statement_xml := x_statement_xml || l_new_line || '
9187:
9188: IF l_disable_int_accrual_flag = 'Y' THEN
9188: IF l_disable_int_accrual_flag = 'Y' THEN
9189: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACCRUAL_DISABLED');
9190: FND_MESSAGE.SET_TOKEN('LOAN_NUMBER', l_loan_num);
9191: FND_MSG_PUB.Add;
9192: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
9193:
9194: RAISE FND_API.G_EXC_ERROR;
9195: END IF;
9196:
9199: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACCRUED_ALREADY');
9200: FND_MESSAGE.SET_TOKEN('LOAN_NUMBER', l_loan_num);
9201: FND_MESSAGE.SET_TOKEN('LAST_ACCRUAL_DATE', l_last_accrued_date);
9202: FND_MSG_PUB.Add;
9203: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
9204:
9205: RAISE FND_API.G_EXC_ERROR;
9206: END IF;
9207:
9208:
9209: -- 0. Calculate the accrued interest
9210: l_accrual_date := p_accrual_date + 1; -- Accrual Int should include the int for the accrual_date also
9211:
9212: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_accrual_date = ' || l_accrual_date);
9213:
9214: BEGIN
9215: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Invoke the API calc_accrued_interest');
9216: calc_accrued_interest(p_loan_id => p_loan_id
9211:
9212: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_accrual_date = ' || l_accrual_date);
9213:
9214: BEGIN
9215: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Invoke the API calc_accrued_interest');
9216: calc_accrued_interest(p_loan_id => p_loan_id
9217: ,p_accrual_date => l_accrual_date
9218: ,x_accrued_interest => l_accrued_int_amount
9219: ,x_statement => x_statement_xml);
9221: WHEN OTHERS THEN
9222: RAISE FND_API.G_EXC_ERROR;
9223: END;
9224:
9225: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_accrued_int_amount = ' || l_accrued_int_amount);
9226: -- logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_accrued_int_detail_str = ' || l_accrued_int_detail_str);
9227: --l_accrued_int_detail_str := REPLACE(l_accrued_int_detail_str,'
',' ');
9228: --logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_accrued_int_detail_str = ' || l_accrued_int_detail_str);
9229:
9222: RAISE FND_API.G_EXC_ERROR;
9223: END;
9224:
9225: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_accrued_int_amount = ' || l_accrued_int_amount);
9226: -- logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_accrued_int_detail_str = ' || l_accrued_int_detail_str);
9227: --l_accrued_int_detail_str := REPLACE(l_accrued_int_detail_str,'
',' ');
9228: --logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_accrued_int_detail_str = ' || l_accrued_int_detail_str);
9229:
9230:
9224:
9225: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_accrued_int_amount = ' || l_accrued_int_amount);
9226: -- logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_accrued_int_detail_str = ' || l_accrued_int_detail_str);
9227: --l_accrued_int_detail_str := REPLACE(l_accrued_int_detail_str,'
',' ');
9228: --logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_accrued_int_detail_str = ' || l_accrued_int_detail_str);
9229:
9230:
9231:
9232: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Delete existed accrual rows on this accrual date if they are not Final accrued ');
9228: --logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_accrued_int_detail_str = ' || l_accrued_int_detail_str);
9229:
9230:
9231:
9232: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Delete existed accrual rows on this accrual date if they are not Final accrued ');
9233:
9234: -- Delete the SLA event if it is NOT Final or Related Error
9235:
9236: OPEN cur_get_draft_events(p_loan_id);
9237: LOOP
9238: FETCH cur_get_draft_events INTO l_exist_event_id, l_event_status_code;
9239: EXIT WHEN cur_get_draft_events%NOTFOUND;
9240:
9241: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_exist_event_id = ' || l_exist_event_id);
9242: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_event_status_code = ' || l_event_status_code);
9243:
9244: IF l_event_status_code in ('P', 'R') THEN
9245: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACCRUAL_FINAL_ACCOUNTED');
9238: FETCH cur_get_draft_events INTO l_exist_event_id, l_event_status_code;
9239: EXIT WHEN cur_get_draft_events%NOTFOUND;
9240:
9241: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_exist_event_id = ' || l_exist_event_id);
9242: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_event_status_code = ' || l_event_status_code);
9243:
9244: IF l_event_status_code in ('P', 'R') THEN
9245: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACCRUAL_FINAL_ACCOUNTED');
9246: FND_MESSAGE.SET_TOKEN('LOAN_NUMBER', l_loan_num);
9245: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACCRUAL_FINAL_ACCOUNTED');
9246: FND_MESSAGE.SET_TOKEN('LOAN_NUMBER', l_loan_num);
9247: -- FND_MESSAGE.SET_TOKEN('LAST_ACCRUAL_DATE', l_last_accrued_date);
9248: FND_MSG_PUB.Add;
9249: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
9250:
9251: RAISE FND_API.G_EXC_ERROR;
9252: ELSE
9253: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Deleting the event_id '||l_exist_event_id);
9249: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
9250:
9251: RAISE FND_API.G_EXC_ERROR;
9252: ELSE
9253: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Deleting the event_id '||l_exist_event_id);
9254: LNS_XLA_EVENTS.delete_event(p_loan_id => P_loan_id
9255: ,p_disb_header_id => -1
9256: ,p_loan_amount_adj_id => -1
9257: ,p_loan_line_id => -1
9261: ,x_return_status => l_return_status
9262: ,x_msg_count => l_msg_count
9263: ,x_msg_data => l_msg_data);
9264:
9265: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_return_status = ' || l_return_status);
9266: IF l_return_status <> 'S' THEN
9267: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, 'Deleting event_id failed');
9268:
9269: RAISE FND_API.G_EXC_ERROR;
9263: ,x_msg_data => l_msg_data);
9264:
9265: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_return_status = ' || l_return_status);
9266: IF l_return_status <> 'S' THEN
9267: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, 'Deleting event_id failed');
9268:
9269: RAISE FND_API.G_EXC_ERROR;
9270: END IF;
9271:
9286: WHERE evnt.event_id = ldist.event_id
9287: AND evnt.event_status_code in ('P', 'R'));
9288:
9289:
9290: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Deleted '||SQL%ROWCOUNT||' accrual rows succesfully');
9291:
9292: -- 1. Create distributions for the Interest Invoice with the accruedInterest calculation
9293:
9294: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Invoking create_AccrualDistribs');
9290: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Deleted '||SQL%ROWCOUNT||' accrual rows succesfully');
9291:
9292: -- 1. Create distributions for the Interest Invoice with the accruedInterest calculation
9293:
9294: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Invoking create_AccrualDistribs');
9295: create_AccrualDistribs(p_api_version => 1
9296: ,p_init_msg_list => 'T'
9297: ,p_commit => 'T'
9298: ,p_loan_id => p_loan_id
9304: ,x_return_status => l_return_Status
9305: ,x_msg_count => l_msg_count
9306: ,x_msg_data => l_msg_data);
9307:
9308: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_return_status = ' || l_return_status);
9309: if l_return_status <> 'S' then
9310: RAISE FND_API.G_EXC_ERROR;
9311: end if;
9312:
9315:
9316:
9317: IF (p_accounting_mode = 'FINAL') THEN
9318:
9319: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Generating Accrual Event');
9320: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling LNS_XLA_EVENTS.create_event...');
9321:
9322: LNS_XLA_EVENTS.create_event(p_loan_id => p_loan_id
9323: ,p_disb_header_id => -1
9316:
9317: IF (p_accounting_mode = 'FINAL') THEN
9318:
9319: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Generating Accrual Event');
9320: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling LNS_XLA_EVENTS.create_event...');
9321:
9322: LNS_XLA_EVENTS.create_event(p_loan_id => p_loan_id
9323: ,p_disb_header_id => -1
9324: ,p_loan_amount_adj_id => -1
9332: ,x_return_status => l_return_status
9333: ,x_msg_count => l_msg_count
9334: ,x_msg_data => l_msg_data);
9335:
9336: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'x_return_status = ' || l_return_status);
9337: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'x_event_id ' || l_event_id);
9338:
9339: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9340: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACCOUNTING_EVENT_ERROR');
9333: ,x_msg_count => l_msg_count
9334: ,x_msg_data => l_msg_data);
9335:
9336: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'x_return_status = ' || l_return_status);
9337: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'x_event_id ' || l_event_id);
9338:
9339: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9340: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACCOUNTING_EVENT_ERROR');
9341: FND_MSG_PUB.ADD;
9338:
9339: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9340: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACCOUNTING_EVENT_ERROR');
9341: FND_MSG_PUB.ADD;
9342: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
9343: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9344: END IF;
9345:
9346: --3. stamp the eventID onto the lns_distributions table
9343: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9344: END IF;
9345:
9346: --3. stamp the eventID onto the lns_distributions table
9347: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'stamping eventID on lns_distributions');
9348:
9349:
9350:
9351: update lns_distributions
9356: and accrual_date = p_accrual_date
9357: --and accrual_period = NVL(p_period_name, accrual_period)
9358: and activity = 'INTEREST_ACCRUAL';
9359:
9360: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Updated event_id succesfully for '||SQL%ROWCOUNT||' rows');
9361:
9362: END IF; -- END IF accounting_mode = 'FINAL'
9363:
9364: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Retrieving accrual distribution records for XML output report');
9360: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Updated event_id succesfully for '||SQL%ROWCOUNT||' rows');
9361:
9362: END IF; -- END IF accounting_mode = 'FINAL'
9363:
9364: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Retrieving accrual distribution records for XML output report');
9365:
9366: OPEN c_get_chart_acc_id(p_loan_id);
9367: FETCH c_get_chart_acc_id into l_chart_of_accounts_id;
9368: CLOSE c_get_chart_acc_id;
9366: OPEN c_get_chart_acc_id(p_loan_id);
9367: FETCH c_get_chart_acc_id into l_chart_of_accounts_id;
9368: CLOSE c_get_chart_acc_id;
9369:
9370: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Chart of Accounts id : '||l_chart_of_accounts_id);
9371:
9372: x_statement_xml := x_statement_xml || l_new_line || '
9373:
9374: OPEN cur_get_accr_dist_det(p_loan_id, p_accrual_date);
9388: ,l_chart_of_accounts_id
9389: ,l_cc_id
9390: ,l_num_segments
9391: ,l_original_segments)) THEN
9392: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'ERROR getting code combination value');
9393:
9394: ELSE
9395: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Success getting code combination value');
9396: END IF;
9391: ,l_original_segments)) THEN
9392: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'ERROR getting code combination value');
9393:
9394: ELSE
9395: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Success getting code combination value');
9396: END IF;
9397:
9398: l_code_combination_value := '';
9399: for n in 1..l_num_segments loop
9435: /* Building clob */
9436: --DBMS_LOB.write(X_STATEMENT_XML, length(l_statement), 1, l_statement);
9437:
9438:
9439: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || 'p_commit is '||p_commit);
9440: IF FND_API.to_Boolean(p_commit)
9441: THEN
9442: COMMIT;
9443: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || 'Commited');
9439: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || 'p_commit is '||p_commit);
9440: IF FND_API.to_Boolean(p_commit)
9441: THEN
9442: COMMIT;
9443: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || 'Commited');
9444: END IF;
9445:
9446: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
9447: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
9443: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || 'Commited');
9444: END IF;
9445:
9446: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
9447: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
9448:
9449: EXCEPTION
9450:
9451: WHEN G_EXC_WARNING THEN
9451: WHEN G_EXC_WARNING THEN
9452: ROLLBACK TO do_int_accrual_reversal;
9453: x_return_status := FND_API.G_RET_STS_ERROR;
9454: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
9455: LogMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, 'Rollbacked loan_id ' || P_LOAN_ID);
9456: g_cr_return_status := 'WARNING';
9457: /* building error statement */
9458: BUILD_ACCRUAL_STMT(P_LOAN_ID => P_LOAN_ID
9459: ,P_PERIOD_NAME => P_PERIOD_NAME
9466: WHEN FND_API.G_EXC_ERROR THEN
9467: ROLLBACK TO do_int_accrual_reversal;
9468: x_return_status := FND_API.G_RET_STS_ERROR;
9469: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
9470: LogMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, 'Rollbacked loan_id ' || P_LOAN_ID);
9471: g_cr_return_status := 'WARNING';
9472: /* building error statement */
9473: BUILD_ACCRUAL_STMT(P_LOAN_ID => P_LOAN_ID
9474: ,P_PERIOD_NAME => P_PERIOD_NAME
9480:
9481: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9482: ROLLBACK TO do_int_accrual_reversal;
9483: x_return_status := FND_API.G_RET_STS_ERROR;
9484: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
9485: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
9486: LogMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, 'Rollbacked loan_id ' || P_LOAN_ID);
9487: g_cr_return_status := 'WARNING';
9488: /* building error statement */
9482: ROLLBACK TO do_int_accrual_reversal;
9483: x_return_status := FND_API.G_RET_STS_ERROR;
9484: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
9485: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
9486: LogMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, 'Rollbacked loan_id ' || P_LOAN_ID);
9487: g_cr_return_status := 'WARNING';
9488: /* building error statement */
9489: BUILD_ACCRUAL_STMT(P_LOAN_ID => P_LOAN_ID
9490: ,P_PERIOD_NAME => P_PERIOD_NAME
9496:
9497: WHEN OTHERS THEN
9498: ROLLBACK TO do_int_accrual_reversal;
9499: x_return_status := FND_API.G_RET_STS_ERROR;
9500: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
9501: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
9502: LogMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, 'Rollbacked loan_id ' || P_LOAN_ID);
9503: g_cr_return_status := 'WARNING';
9504: /* building error statement */
9498: ROLLBACK TO do_int_accrual_reversal;
9499: x_return_status := FND_API.G_RET_STS_ERROR;
9500: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
9501: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
9502: LogMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, 'Rollbacked loan_id ' || P_LOAN_ID);
9503: g_cr_return_status := 'WARNING';
9504: /* building error statement */
9505: BUILD_ACCRUAL_STMT(P_LOAN_ID => P_LOAN_ID
9506: ,P_PERIOD_NAME => P_PERIOD_NAME
9651:
9652:
9653: BEGIN
9654:
9655: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' +');
9656:
9657: -- Standard start of API savepoint
9658: SAVEPOINT ACCRUE_LOANS_INTEREST_PVT;
9659: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Savepoint is established');
9655: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' +');
9656:
9657: -- Standard start of API savepoint
9658: SAVEPOINT ACCRUE_LOANS_INTEREST_PVT;
9659: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Savepoint is established');
9660:
9661: -- Standard call to check for call compatibility
9662: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
9663: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9681:
9682: dbms_lob.createtemporary(g_cp_statements, FALSE, DBMS_LOB.CALL);
9683: dbms_lob.open(g_cp_statements, dbms_lob.lob_readwrite);
9684:
9685: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Passed input parameters:');
9686: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_BORROWER_ID: ' || P_BORROWER_ID);
9687: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_LEDGER_ID: ' || P_LEDGER_ID);
9688: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_ORG_ID: ' || P_ORG_ID);
9689: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_LOAN_ID: ' || P_LOAN_ID);
9682: dbms_lob.createtemporary(g_cp_statements, FALSE, DBMS_LOB.CALL);
9683: dbms_lob.open(g_cp_statements, dbms_lob.lob_readwrite);
9684:
9685: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Passed input parameters:');
9686: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_BORROWER_ID: ' || P_BORROWER_ID);
9687: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_LEDGER_ID: ' || P_LEDGER_ID);
9688: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_ORG_ID: ' || P_ORG_ID);
9689: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_LOAN_ID: ' || P_LOAN_ID);
9690: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_PERIOD_NAME: ' || P_PERIOD_NAME);
9683: dbms_lob.open(g_cp_statements, dbms_lob.lob_readwrite);
9684:
9685: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Passed input parameters:');
9686: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_BORROWER_ID: ' || P_BORROWER_ID);
9687: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_LEDGER_ID: ' || P_LEDGER_ID);
9688: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_ORG_ID: ' || P_ORG_ID);
9689: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_LOAN_ID: ' || P_LOAN_ID);
9690: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_PERIOD_NAME: ' || P_PERIOD_NAME);
9691: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_ACCRUAL_DATE: ' || P_ACCRUAL_DATE);
9684:
9685: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Passed input parameters:');
9686: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_BORROWER_ID: ' || P_BORROWER_ID);
9687: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_LEDGER_ID: ' || P_LEDGER_ID);
9688: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_ORG_ID: ' || P_ORG_ID);
9689: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_LOAN_ID: ' || P_LOAN_ID);
9690: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_PERIOD_NAME: ' || P_PERIOD_NAME);
9691: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_ACCRUAL_DATE: ' || P_ACCRUAL_DATE);
9692: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_MODE: ' || P_MODE);
9685: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Passed input parameters:');
9686: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_BORROWER_ID: ' || P_BORROWER_ID);
9687: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_LEDGER_ID: ' || P_LEDGER_ID);
9688: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_ORG_ID: ' || P_ORG_ID);
9689: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_LOAN_ID: ' || P_LOAN_ID);
9690: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_PERIOD_NAME: ' || P_PERIOD_NAME);
9691: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_ACCRUAL_DATE: ' || P_ACCRUAL_DATE);
9692: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_MODE: ' || P_MODE);
9693:
9686: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_BORROWER_ID: ' || P_BORROWER_ID);
9687: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_LEDGER_ID: ' || P_LEDGER_ID);
9688: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_ORG_ID: ' || P_ORG_ID);
9689: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_LOAN_ID: ' || P_LOAN_ID);
9690: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_PERIOD_NAME: ' || P_PERIOD_NAME);
9691: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_ACCRUAL_DATE: ' || P_ACCRUAL_DATE);
9692: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_MODE: ' || P_MODE);
9693:
9694: /* making decision what to do */
9687: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_LEDGER_ID: ' || P_LEDGER_ID);
9688: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_ORG_ID: ' || P_ORG_ID);
9689: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_LOAN_ID: ' || P_LOAN_ID);
9690: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_PERIOD_NAME: ' || P_PERIOD_NAME);
9691: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_ACCRUAL_DATE: ' || P_ACCRUAL_DATE);
9692: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_MODE: ' || P_MODE);
9693:
9694: /* making decision what to do */
9695: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Validating parameters:');
9688: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_ORG_ID: ' || P_ORG_ID);
9689: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_LOAN_ID: ' || P_LOAN_ID);
9690: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_PERIOD_NAME: ' || P_PERIOD_NAME);
9691: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_ACCRUAL_DATE: ' || P_ACCRUAL_DATE);
9692: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_MODE: ' || P_MODE);
9693:
9694: /* making decision what to do */
9695: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Validating parameters:');
9696:
9691: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_ACCRUAL_DATE: ' || P_ACCRUAL_DATE);
9692: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_MODE: ' || P_MODE);
9693:
9694: /* making decision what to do */
9695: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Validating parameters:');
9696:
9697: -- P_Ledger_id is a mandatory parameter
9698: IF P_LEDGER_ID is NOT NULL THEN
9699: l_loan_id := NULL;
9700: l_borrower_id := null;
9701: l_org_id := null;
9702: l_ledger_id := P_LEDGER_ID;
9703:
9704: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Ledger ID: ' || l_ledger_id);
9705:
9706: ELSE
9707:
9708: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_PARAMS');
9706: ELSE
9707:
9708: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_PARAMS');
9709: FND_MSG_PUB.Add;
9710: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
9711: RAISE FND_API.G_EXC_ERROR;
9712:
9713: END IF;
9714:
9719: l_loan_id := P_LOAN_ID;
9720: l_borrower_id := null;
9721: l_org_id := null;
9722:
9723: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Loan ID: ' || l_loan_id);
9724:
9725:
9726: elsif P_ORG_ID is NOT NULL then
9727: l_loan_id := NULL;
9727: l_loan_id := NULL;
9728: l_borrower_id := null;
9729: l_org_id := P_ORG_ID;
9730:
9731: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Org ID: ' || l_org_id);
9732:
9733: elsif P_BORROWER_ID is NOT null then
9734: l_loan_id := NULL;
9735: l_borrower_id := P_BORROWER_ID;
9734: l_loan_id := NULL;
9735: l_borrower_id := P_BORROWER_ID;
9736: l_org_id := null;
9737:
9738: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Borrower ID: ' || l_borrower_id);
9739:
9740: end if;
9741:
9742: IF (P_PERIOD_NAME is NOT NULL) THEN
9740: end if;
9741:
9742: IF (P_PERIOD_NAME is NOT NULL) THEN
9743: l_is_period_end := 'Y';
9744: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'It is Period End Accrual - l_is_period_end: '||l_is_period_end );
9745: ELSIF (P_ACCRUAL_DATE is NOT NULL) THEN
9746: l_is_period_end := 'N';
9747: l_accrual_date := p_accrual_date;
9748: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'It is NOT Period End Accrual - l_is_period_end: '||l_is_period_end );
9744: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'It is Period End Accrual - l_is_period_end: '||l_is_period_end );
9745: ELSIF (P_ACCRUAL_DATE is NOT NULL) THEN
9746: l_is_period_end := 'N';
9747: l_accrual_date := p_accrual_date;
9748: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'It is NOT Period End Accrual - l_is_period_end: '||l_is_period_end );
9749: ELSE
9750: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_PARAMS');
9751: FND_MSG_PUB.Add;
9752: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
9748: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'It is NOT Period End Accrual - l_is_period_end: '||l_is_period_end );
9749: ELSE
9750: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_PARAMS');
9751: FND_MSG_PUB.Add;
9752: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
9753: RAISE FND_API.G_EXC_ERROR;
9754: END IF;
9755:
9756: IF l_is_period_end = 'Y' THEN
9754: END IF;
9755:
9756: IF l_is_period_end = 'Y' THEN
9757:
9758: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Retrieve the Last day of the period '||p_period_name);
9759:
9760: OPEN cur_gl_period_last_date(p_period_name, l_ledger_id);
9761: FETCH cur_gl_period_last_date INTO l_accrual_date;
9762: CLOSE cur_gl_period_last_date;
9760: OPEN cur_gl_period_last_date(p_period_name, l_ledger_id);
9761: FETCH cur_gl_period_last_date INTO l_accrual_date;
9762: CLOSE cur_gl_period_last_date;
9763:
9764: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Last day of period '||p_period_name||' is '||l_accrual_date );
9765:
9766: IF l_accrual_date is NULL THEN
9767: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_PERIOD');
9768: FND_MESSAGE.SET_TOKEN('PERIOD_NAME',p_period_name);
9766: IF l_accrual_date is NULL THEN
9767: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_PERIOD');
9768: FND_MESSAGE.SET_TOKEN('PERIOD_NAME',p_period_name);
9769: FND_MSG_PUB.Add;
9770: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
9771: RAISE FND_API.G_EXC_ERROR;
9772: END IF;
9773:
9774: END IF;
9782: OPEN cur_gl_period_status(l_accrual_date , l_ledger_id);
9783: FETCH cur_gl_period_status INTO l_gl_period_name, l_gl_period_status;
9784: CLOSE cur_gl_period_status;
9785:
9786: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'The GL Period status is '||l_gl_period_status||' for period '||l_gl_period_name);
9787:
9788: IF l_gl_period_status NOT IN ( 'O') THEN
9789: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACCRUE_GL_PERIOD_CLOSED');
9790: FND_MESSAGE.SET_TOKEN('ACCRUAL_DATE', l_accrual_date);
9788: IF l_gl_period_status NOT IN ( 'O') THEN
9789: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACCRUE_GL_PERIOD_CLOSED');
9790: FND_MESSAGE.SET_TOKEN('ACCRUAL_DATE', l_accrual_date);
9791: FND_MSG_PUB.Add;
9792: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
9793: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Invoking BUILD_ACCRUAL_ERR_STMT() API');
9794: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
9795: BUILD_ACCRUAL_ERR_STMT(P_ACCRUAL_DATE => l_accrual_date
9796: ,P_RESULT => 'E'
9789: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACCRUE_GL_PERIOD_CLOSED');
9790: FND_MESSAGE.SET_TOKEN('ACCRUAL_DATE', l_accrual_date);
9791: FND_MSG_PUB.Add;
9792: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
9793: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Invoking BUILD_ACCRUAL_ERR_STMT() API');
9794: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
9795: BUILD_ACCRUAL_ERR_STMT(P_ACCRUAL_DATE => l_accrual_date
9796: ,P_RESULT => 'E'
9797: ,P_ERR_COUNT => x_msg_count
9803: END IF;
9804:
9805:
9806: /* quering for loans */
9807: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Searching for not billed yet loans to process...');
9808:
9809: open cur_loans_to_accrue_int(l_accrual_date, l_loan_id, l_borrower_id, l_org_id, l_ledger_id);
9810:
9811: l_Count1 := 0;
9818: l_loans_to_accrue_tbl(l_Count1);
9819:
9820: exit when cur_loans_to_accrue_int%NOTFOUND;
9821:
9822: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
9823: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Loan #' || l_Count1);
9824: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'LOAN_ID: ' || l_loans_to_accrue_tbl(l_Count1));
9825: -- LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'LOAN_NUMBER: ' || l_loans_to_accrue_tbl(l_Count1).LOAN_NUMBER);
9826: -- LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'LOAN_DESCRIPTION: ' || l_loans_to_accrue_tbl(l_Count1).LOAN_DESCRIPTION);
9819:
9820: exit when cur_loans_to_accrue_int%NOTFOUND;
9821:
9822: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
9823: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Loan #' || l_Count1);
9824: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'LOAN_ID: ' || l_loans_to_accrue_tbl(l_Count1));
9825: -- LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'LOAN_NUMBER: ' || l_loans_to_accrue_tbl(l_Count1).LOAN_NUMBER);
9826: -- LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'LOAN_DESCRIPTION: ' || l_loans_to_accrue_tbl(l_Count1).LOAN_DESCRIPTION);
9827:
9820: exit when cur_loans_to_accrue_int%NOTFOUND;
9821:
9822: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
9823: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Loan #' || l_Count1);
9824: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'LOAN_ID: ' || l_loans_to_accrue_tbl(l_Count1));
9825: -- LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'LOAN_NUMBER: ' || l_loans_to_accrue_tbl(l_Count1).LOAN_NUMBER);
9826: -- LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'LOAN_DESCRIPTION: ' || l_loans_to_accrue_tbl(l_Count1).LOAN_DESCRIPTION);
9827:
9828: END LOOP;
9821:
9822: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
9823: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Loan #' || l_Count1);
9824: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'LOAN_ID: ' || l_loans_to_accrue_tbl(l_Count1));
9825: -- LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'LOAN_NUMBER: ' || l_loans_to_accrue_tbl(l_Count1).LOAN_NUMBER);
9826: -- LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'LOAN_DESCRIPTION: ' || l_loans_to_accrue_tbl(l_Count1).LOAN_DESCRIPTION);
9827:
9828: END LOOP;
9829:
9822: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
9823: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Loan #' || l_Count1);
9824: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'LOAN_ID: ' || l_loans_to_accrue_tbl(l_Count1));
9825: -- LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'LOAN_NUMBER: ' || l_loans_to_accrue_tbl(l_Count1).LOAN_NUMBER);
9826: -- LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'LOAN_DESCRIPTION: ' || l_loans_to_accrue_tbl(l_Count1).LOAN_DESCRIPTION);
9827:
9828: END LOOP;
9829:
9830: close cur_loans_to_accrue_int;
9829:
9830: close cur_loans_to_accrue_int;
9831:
9832: l_Count := l_loans_to_accrue_tbl.count;
9833: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '______________');
9834: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Total found ' || l_Count || ' loan(s) to process');
9835:
9836: if l_Count > 0 then
9837:
9830: close cur_loans_to_accrue_int;
9831:
9832: l_Count := l_loans_to_accrue_tbl.count;
9833: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '______________');
9834: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Total found ' || l_Count || ' loan(s) to process');
9835:
9836: if l_Count > 0 then
9837:
9838: l_new_line := '
9845:
9846: /* Accrue all the selected loans */
9847: FOR l_Count1 IN 1..l_loans_to_accrue_tbl.COUNT LOOP
9848:
9849: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Processing loan #' || l_Count1||' - '||l_loans_to_accrue_tbl(l_Count1));
9850:
9851: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Invoking LNS_DISTRIBUTIONS_PUB.do_int_accrual_reversal..');
9852:
9853: l_start := sysdate;
9847: FOR l_Count1 IN 1..l_loans_to_accrue_tbl.COUNT LOOP
9848:
9849: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Processing loan #' || l_Count1||' - '||l_loans_to_accrue_tbl(l_Count1));
9850:
9851: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Invoking LNS_DISTRIBUTIONS_PUB.do_int_accrual_reversal..');
9852:
9853: l_start := sysdate;
9854: LNS_DISTRIBUTIONS_PUB.do_int_accrual_reversal(p_api_version => 1
9855: ,p_init_msg_list => 'T'
9863: ,x_msg_count => l_msg_count
9864: ,x_msg_data => l_msg_data);
9865:
9866: l_end := sysdate;
9867: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Total Accrual timing: ' || round((l_end - l_start)*86400, 2) || ' sec');
9868:
9869: IF l_return_status = 'S' THEN /* append to all statements clob */
9870:
9871: dbms_lob.Append(g_last_all_statements, l_single_statement_xml);
9893: end if;
9894:
9895: END IF;
9896:
9897: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, '______________');
9898: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Total processed ' || (l_Count1-1) || ' loan(s)');
9899: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Total successed ' || g_passed_loan_cnt || ' loan(s)');
9900: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Total Failed/Warning ' || g_failed_loan_cnt || ' loan(s)');
9901:
9894:
9895: END IF;
9896:
9897: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, '______________');
9898: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Total processed ' || (l_Count1-1) || ' loan(s)');
9899: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Total successed ' || g_passed_loan_cnt || ' loan(s)');
9900: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Total Failed/Warning ' || g_failed_loan_cnt || ' loan(s)');
9901:
9902: -- Note: If possible delete the lnsDistribution records and corresponding events for AccountingFailed loans and then commit the below
9895: END IF;
9896:
9897: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, '______________');
9898: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Total processed ' || (l_Count1-1) || ' loan(s)');
9899: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Total successed ' || g_passed_loan_cnt || ' loan(s)');
9900: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Total Failed/Warning ' || g_failed_loan_cnt || ' loan(s)');
9901:
9902: -- Note: If possible delete the lnsDistribution records and corresponding events for AccountingFailed loans and then commit the below
9903:
9896:
9897: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, '______________');
9898: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Total processed ' || (l_Count1-1) || ' loan(s)');
9899: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Total successed ' || g_passed_loan_cnt || ' loan(s)');
9900: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Total Failed/Warning ' || g_failed_loan_cnt || ' loan(s)');
9901:
9902: -- Note: If possible delete the lnsDistribution records and corresponding events for AccountingFailed loans and then commit the below
9903:
9904: if P_COMMIT = FND_API.G_TRUE then
9902: -- Note: If possible delete the lnsDistribution records and corresponding events for AccountingFailed loans and then commit the below
9903:
9904: if P_COMMIT = FND_API.G_TRUE then
9905: COMMIT WORK;
9906: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Commited loans');
9907: end if;
9908:
9909: -- END OF BODY OF API
9910: x_return_status := FND_API.G_RET_STS_SUCCESS;
9914: p_encoded => FND_API.G_FALSE,
9915: p_count => x_msg_count,
9916: p_data => x_msg_data);
9917:
9918: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' -');
9919:
9920: EXCEPTION
9921: WHEN FND_API.G_EXC_ERROR THEN
9922: ROLLBACK TO ACCRUE_LOANS_INTEREST_PVT;
9921: WHEN FND_API.G_EXC_ERROR THEN
9922: ROLLBACK TO ACCRUE_LOANS_INTEREST_PVT;
9923: x_return_status := FND_API.G_RET_STS_ERROR;
9924: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
9925: LogMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, 'Rollbacked loans');
9926: g_cr_return_status := 'ERROR';
9927: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9928: ROLLBACK TO ACCRUE_LOANS_INTEREST_PVT;
9929: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9927: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9928: ROLLBACK TO ACCRUE_LOANS_INTEREST_PVT;
9929: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9930: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
9931: LogMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, 'Rollbacked loans');
9932: g_cr_return_status := 'ERROR';
9933: WHEN OTHERS THEN
9934: ROLLBACK TO ACCRUE_LOANS_INTEREST_PVT;
9935: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9936: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
9937: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
9938: END IF;
9939: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
9940: LogMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, 'Rollbacked loans');
9941: g_cr_return_status := 'ERROR';
9942:
9943: END ACCRUE_LOANS_INTEREST;
9944:
10010: l_api_name := 'LNS_ACCRUAL_ACCOUNTING_CONCUR';
10011: g_cr_return_status := 'NORMAL';
10012:
10013:
10014: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
10015:
10016: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, '<<--------Accruing loans...-------->>');
10017:
10018: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' ACCRUAL_DATE '||ACCRUAL_DATE);
10012:
10013:
10014: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
10015:
10016: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, '<<--------Accruing loans...-------->>');
10017:
10018: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' ACCRUAL_DATE '||ACCRUAL_DATE);
10019:
10020: --l_accrual_date := trunc(fnd_date.canonical_to_date(ACCRUAL_DATE));
10014: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
10015:
10016: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, '<<--------Accruing loans...-------->>');
10017:
10018: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' ACCRUAL_DATE '||ACCRUAL_DATE);
10019:
10020: --l_accrual_date := trunc(fnd_date.canonical_to_date(ACCRUAL_DATE));
10021:
10022: --will give GSCC failure l_accrual_date := TO_DATE(ACCRUAL_DATE, 'DD-MON-RRRR');
10042: X_RETURN_STATUS => RETCODE,
10043: X_MSG_COUNT => l_msg_count,
10044: X_MSG_DATA => ERRBUF);
10045:
10046: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, 'Building accrual report');
10047:
10048: /* build accrual report and stores it in g_last_billing_report */
10049: BUILD_ACCRUAL_REPORT(P_BORROWER_ID => BORROWER_ID,
10050: P_LEDGER_ID => LEDGER_ID,
10055: P_MODE => p_mode,
10056: P_CP_STATEMENTS => g_cp_statements,
10057: P_STATEMENTS_XML => g_last_all_statements);
10058:
10059: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, 'g_cr_return_status is: '||g_cr_return_status);
10060:
10061: if g_cr_return_status = 'WARNING' then
10062: l_return := FND_CONCURRENT.SET_COMPLETION_STATUS(
10063: status => g_cr_return_status,
10067: status => g_cr_return_status,
10068: message => 'Accrual process has failed. Please review log file.');
10069: end if;
10070:
10071: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
10072:
10073: END LNS_ACCRUAL_ACCOUNTING_CONCUR;
10074:
10075: /*=========================================================================
10200:
10201: begin
10202: SAVEPOINT defaultBookDistForActivity;
10203: l_api_name := 'defaultBookDistForActivity';
10204: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
10205:
10206: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id = ' || p_loan_id);
10207: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_disb_header_id = ' || p_disb_header_id);
10208: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_amount_adj_id = ' || p_loan_amount_adj_id);
10202: SAVEPOINT defaultBookDistForActivity;
10203: l_api_name := 'defaultBookDistForActivity';
10204: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
10205:
10206: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id = ' || p_loan_id);
10207: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_disb_header_id = ' || p_disb_header_id);
10208: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_amount_adj_id = ' || p_loan_amount_adj_id);
10209: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_activity = ' || p_activity);
10210:
10203: l_api_name := 'defaultBookDistForActivity';
10204: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
10205:
10206: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id = ' || p_loan_id);
10207: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_disb_header_id = ' || p_disb_header_id);
10208: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_amount_adj_id = ' || p_loan_amount_adj_id);
10209: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_activity = ' || p_activity);
10210:
10211: -- Initialize message list IF p_init_msg_list is set to TRUE.
10204: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
10205:
10206: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id = ' || p_loan_id);
10207: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_disb_header_id = ' || p_disb_header_id);
10208: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_amount_adj_id = ' || p_loan_amount_adj_id);
10209: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_activity = ' || p_activity);
10210:
10211: -- Initialize message list IF p_init_msg_list is set to TRUE.
10212: IF FND_API.to_Boolean( p_init_msg_list ) THEN
10205:
10206: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id = ' || p_loan_id);
10207: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_disb_header_id = ' || p_disb_header_id);
10208: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_amount_adj_id = ' || p_loan_amount_adj_id);
10209: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_activity = ' || p_activity);
10210:
10211: -- Initialize message list IF p_init_msg_list is set to TRUE.
10212: IF FND_API.to_Boolean( p_init_msg_list ) THEN
10213: FND_MSG_PUB.initialize;
10228: OPEN c_loan_adjustment_info(p_loan_id, p_loan_amount_adj_id);
10229: FETCH c_loan_adjustment_info INTO l_funded_amount;
10230: close c_loan_adjustment_info;
10231: if l_funded_amount < 0 then
10232: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Before reversal, l_funded_amount = ' || l_funded_amount);
10233: l_adj_reversal := 'Y';
10234: l_funded_amount := -(l_funded_amount);
10235: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'After reversal, l_funded_amount = ' || l_funded_amount);
10236: end if;
10231: if l_funded_amount < 0 then
10232: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Before reversal, l_funded_amount = ' || l_funded_amount);
10233: l_adj_reversal := 'Y';
10234: l_funded_amount := -(l_funded_amount);
10235: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'After reversal, l_funded_amount = ' || l_funded_amount);
10236: end if;
10237: elsif p_activity in ('DISBURSEMENT', 'DISBURSEMENT', 'LNS_SUBMIT_DISBURSEMENT', 'LNS_SUBMITTED_DISB_CANCEL') then
10238: OPEN c_disbursement_info(p_loan_id, p_disb_header_id);
10239: FETCH c_disbursement_info INTO l_funded_amount;
10239: FETCH c_disbursement_info INTO l_funded_amount;
10240: close c_disbursement_info;
10241: end if;
10242:
10243: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_funded_amount = ' || l_funded_amount);
10244:
10245: open c_num_receivables(p_loan_id, p_activity);
10246: fetch c_num_receivables into l_loan_receivables_count;
10247: close c_num_receivables;
10244:
10245: open c_num_receivables(p_loan_id, p_activity);
10246: fetch c_num_receivables into l_loan_receivables_count;
10247: close c_num_receivables;
10248: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_receivables_count = ' || l_loan_receivables_count);
10249:
10250: open c_num_payables(p_loan_id, p_activity);
10251: fetch c_num_payables into l_loan_payables_count;
10252: close c_num_payables;
10250: open c_num_payables(p_loan_id, p_activity);
10251: fetch c_num_payables into l_loan_payables_count;
10252: close c_num_payables;
10253:
10254: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_payables_count = ' || l_loan_payables_count);
10255:
10256: BEGIN
10257: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'opening c_get_distribution...');
10258: OPEN c_get_distributions (p_loan_id);
10253:
10254: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_payables_count = ' || l_loan_payables_count);
10255:
10256: BEGIN
10257: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'opening c_get_distribution...');
10258: OPEN c_get_distributions (p_loan_id);
10259: LOOP
10260: FETCH c_get_distributions into
10261: l_distribution_id
10269: EXIT WHEN C_Get_Distributions%NOTFOUND;
10270: l_index := l_index + 1;
10271:
10272: if (l_adj_reversal = 'Y' and l_distribution_type = 'ORIGINATION') then
10273: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_type = ' || l_account_type);
10274: if l_account_type = 'DR' then
10275: l_account_type := 'CR';
10276: elsif l_account_type = 'CR' then
10277: l_account_type := 'DR';
10277: l_account_type := 'DR';
10278: end if;
10279: end if;
10280:
10281: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Record ' || l_index);
10282: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_id = ' || l_distribution_id);
10283: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_type = ' || l_account_type);
10284: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_line_type = ' || l_line_type);
10285: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_name = ' || l_account_name);
10278: end if;
10279: end if;
10280:
10281: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Record ' || l_index);
10282: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_id = ' || l_distribution_id);
10283: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_type = ' || l_account_type);
10284: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_line_type = ' || l_line_type);
10285: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_name = ' || l_account_name);
10286: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
10279: end if;
10280:
10281: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Record ' || l_index);
10282: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_id = ' || l_distribution_id);
10283: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_type = ' || l_account_type);
10284: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_line_type = ' || l_line_type);
10285: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_name = ' || l_account_name);
10286: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
10287: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_percent = ' || l_distribution_percent);
10280:
10281: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Record ' || l_index);
10282: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_id = ' || l_distribution_id);
10283: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_type = ' || l_account_type);
10284: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_line_type = ' || l_line_type);
10285: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_name = ' || l_account_name);
10286: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
10287: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_percent = ' || l_distribution_percent);
10288: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_amount = ' || l_distribution_amount);
10281: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Record ' || l_index);
10282: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_id = ' || l_distribution_id);
10283: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_type = ' || l_account_type);
10284: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_line_type = ' || l_line_type);
10285: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_name = ' || l_account_name);
10286: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
10287: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_percent = ' || l_distribution_percent);
10288: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_amount = ' || l_distribution_amount);
10289: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_type = ' || l_distribution_type);
10282: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_id = ' || l_distribution_id);
10283: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_type = ' || l_account_type);
10284: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_line_type = ' || l_line_type);
10285: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_name = ' || l_account_name);
10286: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
10287: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_percent = ' || l_distribution_percent);
10288: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_amount = ' || l_distribution_amount);
10289: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_type = ' || l_distribution_type);
10290:
10283: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_type = ' || l_account_type);
10284: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_line_type = ' || l_line_type);
10285: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_name = ' || l_account_name);
10286: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
10287: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_percent = ' || l_distribution_percent);
10288: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_amount = ' || l_distribution_amount);
10289: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_type = ' || l_distribution_type);
10290:
10291:
10284: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_line_type = ' || l_line_type);
10285: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_name = ' || l_account_name);
10286: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
10287: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_percent = ' || l_distribution_percent);
10288: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_amount = ' || l_distribution_amount);
10289: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_type = ' || l_distribution_type);
10290:
10291:
10292: l_distributions(l_index).distribution_id := l_distribution_id;
10285: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_account_name = ' || l_account_name);
10286: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || l_code_combination_id);
10287: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_percent = ' || l_distribution_percent);
10288: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_amount = ' || l_distribution_amount);
10289: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distribution_type = ' || l_distribution_type);
10290:
10291:
10292: l_distributions(l_index).distribution_id := l_distribution_id;
10293: l_distributions(l_index).loan_id := p_loan_id;
10301: l_distributions(l_index).activity := p_activity;
10302:
10303: if l_account_name = 'LOAN_RECEIVABLE' and l_distribution_type = 'ORIGINATION' then
10304: drIndex := drIndex + 1;
10305: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan receivables line ' || drIndex);
10306:
10307: if drIndex <> l_loan_receivables_count then
10308: l_distributions(l_index).distribution_amount := round(l_distribution_percent * l_funded_amount, l_ledger_details.currency_precision) / 100;
10309: l_dr_run_amount := l_dr_run_amount + l_distributions(l_index).distribution_amount;
10310: else
10311: l_distributions(l_index).distribution_amount := l_funded_amount - l_dr_run_amount;
10312: end if;
10313:
10314: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distributions('||l_index||').distribution_amount = ' || l_distributions(l_index).distribution_amount);
10315: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_dr_run_amount = ' || l_dr_run_amount);
10316:
10317: end if;
10318:
10311: l_distributions(l_index).distribution_amount := l_funded_amount - l_dr_run_amount;
10312: end if;
10313:
10314: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distributions('||l_index||').distribution_amount = ' || l_distributions(l_index).distribution_amount);
10315: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_dr_run_amount = ' || l_dr_run_amount);
10316:
10317: end if;
10318:
10319: if (l_account_name = 'LOAN_CLEARING' or l_account_name = 'LOAN_PAYABLE') and l_distribution_type = 'ORIGINATION' then
10318:
10319: if (l_account_name = 'LOAN_CLEARING' or l_account_name = 'LOAN_PAYABLE') and l_distribution_type = 'ORIGINATION' then
10320:
10321: crIndex := crIndex + 1;
10322: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan clearing line ' || crIndex);
10323:
10324: if crIndex <> l_loan_receivables_count then
10325: l_distributions(l_index).distribution_amount := round(l_distribution_percent * l_funded_amount, l_ledger_details.currency_precision) / 100;
10326: l_cr_run_amount := l_cr_run_amount + l_distributions(l_index).distribution_amount;
10327: else
10328: l_distributions(l_index).distribution_amount := l_funded_amount - l_cr_run_amount;
10329: end if;
10330:
10331: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distributions('||l_index||').distribution_amount = ' || l_distributions(l_index).distribution_amount);
10332: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_cr_run_amount = ' || l_cr_run_amount);
10333:
10334: end if;
10335:
10328: l_distributions(l_index).distribution_amount := l_funded_amount - l_cr_run_amount;
10329: end if;
10330:
10331: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_distributions('||l_index||').distribution_amount = ' || l_distributions(l_index).distribution_amount);
10332: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_cr_run_amount = ' || l_cr_run_amount);
10333:
10334: end if;
10335:
10336: END LOOP;
10341: EXCEPTION
10342: when no_data_found then
10343: FND_MESSAGE.SET_NAME('LNS', 'LNS_DEFAULT_DIST_NOT_FOUND');
10344: FND_MSG_PUB.ADD;
10345: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
10346: RAISE FND_API.G_EXC_ERROR;
10347: END; -- c_default_info cursor
10348:
10349: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'distribs2 count is ' || l_distributions.count);
10345: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
10346: RAISE FND_API.G_EXC_ERROR;
10347: END; -- c_default_info cursor
10348:
10349: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'distribs2 count is ' || l_distributions.count);
10350: x_distribution_tbl := l_distributions;
10351:
10352: IF FND_API.to_Boolean(p_commit)
10353: THEN
10355: END IF;
10356:
10357: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
10358:
10359: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
10360:
10361: EXCEPTION
10362: WHEN FND_API.G_EXC_ERROR THEN
10363: ROLLBACK TO defaultBookDistForActivity;
10361: EXCEPTION
10362: WHEN FND_API.G_EXC_ERROR THEN
10363: ROLLBACK TO defaultBookDistForActivity;
10364: x_return_status := FND_API.G_RET_STS_ERROR;
10365: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
10366: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
10367:
10368: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10369: ROLLBACK TO defaultBookDistForActivity;
10367:
10368: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10369: ROLLBACK TO defaultBookDistForActivity;
10370: x_return_status := FND_API.G_RET_STS_ERROR;
10371: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
10372: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
10373:
10374: WHEN OTHERS THEN
10375: ROLLBACK TO defaultBookDistForActivity;
10373:
10374: WHEN OTHERS THEN
10375: ROLLBACK TO defaultBookDistForActivity;
10376: x_return_status := FND_API.G_RET_STS_ERROR;
10377: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
10378: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
10379:
10380: END defaultBookDistForActivity;
10381:
10482: -- Initialize API return status to SUCCESS
10483: x_return_status := FND_API.G_RET_STS_SUCCESS;
10484:
10485: l_api_name := 'GENERATE_CCID_FOR_PROJECTS';
10486: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
10487: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id = ' || p_loan_id);
10488: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_distribution_id = ' || p_distribution_id);
10489: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_project_id = ' || p_project_id);
10490: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_task_id = ' || p_task_id);
10483: x_return_status := FND_API.G_RET_STS_SUCCESS;
10484:
10485: l_api_name := 'GENERATE_CCID_FOR_PROJECTS';
10486: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
10487: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id = ' || p_loan_id);
10488: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_distribution_id = ' || p_distribution_id);
10489: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_project_id = ' || p_project_id);
10490: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_task_id = ' || p_task_id);
10491: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_award_id = ' || p_award_id);
10484:
10485: l_api_name := 'GENERATE_CCID_FOR_PROJECTS';
10486: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
10487: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id = ' || p_loan_id);
10488: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_distribution_id = ' || p_distribution_id);
10489: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_project_id = ' || p_project_id);
10490: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_task_id = ' || p_task_id);
10491: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_award_id = ' || p_award_id);
10492: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_expenditure_type = ' || p_expenditure_type);
10485: l_api_name := 'GENERATE_CCID_FOR_PROJECTS';
10486: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
10487: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id = ' || p_loan_id);
10488: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_distribution_id = ' || p_distribution_id);
10489: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_project_id = ' || p_project_id);
10490: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_task_id = ' || p_task_id);
10491: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_award_id = ' || p_award_id);
10492: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_expenditure_type = ' || p_expenditure_type);
10493: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_expenditure_date = ' || p_expenditure_date);
10486: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
10487: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id = ' || p_loan_id);
10488: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_distribution_id = ' || p_distribution_id);
10489: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_project_id = ' || p_project_id);
10490: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_task_id = ' || p_task_id);
10491: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_award_id = ' || p_award_id);
10492: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_expenditure_type = ' || p_expenditure_type);
10493: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_expenditure_date = ' || p_expenditure_date);
10494:
10487: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id = ' || p_loan_id);
10488: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_distribution_id = ' || p_distribution_id);
10489: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_project_id = ' || p_project_id);
10490: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_task_id = ' || p_task_id);
10491: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_award_id = ' || p_award_id);
10492: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_expenditure_type = ' || p_expenditure_type);
10493: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_expenditure_date = ' || p_expenditure_date);
10494:
10495:
10488: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_distribution_id = ' || p_distribution_id);
10489: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_project_id = ' || p_project_id);
10490: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_task_id = ' || p_task_id);
10491: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_award_id = ' || p_award_id);
10492: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_expenditure_type = ' || p_expenditure_type);
10493: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_expenditure_date = ' || p_expenditure_date);
10494:
10495:
10496:
10489: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_project_id = ' || p_project_id);
10490: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_task_id = ' || p_task_id);
10491: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_award_id = ' || p_award_id);
10492: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_expenditure_type = ' || p_expenditure_type);
10493: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_expenditure_date = ' || p_expenditure_date);
10494:
10495:
10496:
10497: l_expenditure_type := p_expenditure_type;
10532:
10533: open C_LOAN_DETAILS(p_loan_id);
10534: fetch C_LOAN_DETAILS into l_expenditure_organization_id ;
10535: close C_LOAN_DETAILS ;
10536: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_expenditure_organization_id = ' || l_expenditure_organization_id );
10537:
10538: open C_COA_DETAILS;
10539: fetch C_COA_DETAILS into l_coa_id;
10540: close C_COA_DETAILS;
10537:
10538: open C_COA_DETAILS;
10539: fetch C_COA_DETAILS into l_coa_id;
10540: close C_COA_DETAILS;
10541: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_coa_id = ' || l_coa_id);
10542:
10543: --Need to uncomment below line if need to enable DBMS OUTPU debug log
10544: --FND_FLEX_WORKFLOW.debug_on();
10545:
10547: -- This API creates distributions in the Grants, if Grants in implemented/enabled and AwardID is not null.
10548:
10549: IF (GMS_OIE_INT_PKG.IsGrantsEnabled()) THEN
10550: isGrantsEnabled := true;
10551: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'isGrantsEnabled = true');
10552: ELSE
10553: isGrantsEnabled := false;
10554: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'isGrantsEnabled = false');
10555: END IF;
10550: isGrantsEnabled := true;
10551: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'isGrantsEnabled = true');
10552: ELSE
10553: isGrantsEnabled := false;
10554: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'isGrantsEnabled = false');
10555: END IF;
10556:
10557:
10558: if(isGrantsEnabled AND (l_award_id is not null))
10556:
10557:
10558: if(isGrantsEnabled AND (l_award_id is not null))
10559: THEN
10560: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling GMS_POR_API.Account_Generator_ADL in CREATE mode');
10561: GMS_POR_API.Account_Generator_ADL
10562: (
10563: X_project_id => l_project_id,
10564: X_task_id => l_task_id,
10567: X_award_set_id => l_gms_award_set_id, --null
10568: X_status => l_gms_status ); -- null
10569: end if;
10570:
10571: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling PO_REQ_WF_BUILD_ACCOUNT_INIT.start_workflow');
10572:
10573: x_return :=
10574: PO_REQ_WF_BUILD_ACCOUNT_INIT.start_workflow
10575: (
10681: --p_misc_loa => null);
10682:
10683: IF(x_return)
10684: THEN
10685: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Returned status on calling PO_REQ_WF_BUILD_ACCOUNT_INIT.start_workflow - ' || 'True');
10686: ELSE
10687: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Returned status on calling PO_REQ_WF_BUILD_ACCOUNT_INIT.start_workflow - ' || 'FALSE');
10688: END IF;
10689:
10683: IF(x_return)
10684: THEN
10685: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Returned status on calling PO_REQ_WF_BUILD_ACCOUNT_INIT.start_workflow - ' || 'True');
10686: ELSE
10687: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Returned status on calling PO_REQ_WF_BUILD_ACCOUNT_INIT.start_workflow - ' || 'FALSE');
10688: END IF;
10689:
10690: x_ccid := l_code_combination_id;
10691: x_conc_segment_values := l_charge_account_flex;
10688: END IF;
10689:
10690: x_ccid := l_code_combination_id;
10691: x_conc_segment_values := l_charge_account_flex;
10692: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || x_ccid);
10693: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_budget_account_id = ' || l_budget_account_id );
10694: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_variance_account_id = ' || l_variance_account_id);
10695: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_charge_account_flex = ' || x_conc_segment_values);
10696: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_budget_account_flex = ' || l_budget_account_flex);
10689:
10690: x_ccid := l_code_combination_id;
10691: x_conc_segment_values := l_charge_account_flex;
10692: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || x_ccid);
10693: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_budget_account_id = ' || l_budget_account_id );
10694: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_variance_account_id = ' || l_variance_account_id);
10695: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_charge_account_flex = ' || x_conc_segment_values);
10696: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_budget_account_flex = ' || l_budget_account_flex);
10697: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_accrual_account_flex = ' || l_accrual_account_flex);
10690: x_ccid := l_code_combination_id;
10691: x_conc_segment_values := l_charge_account_flex;
10692: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || x_ccid);
10693: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_budget_account_id = ' || l_budget_account_id );
10694: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_variance_account_id = ' || l_variance_account_id);
10695: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_charge_account_flex = ' || x_conc_segment_values);
10696: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_budget_account_flex = ' || l_budget_account_flex);
10697: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_accrual_account_flex = ' || l_accrual_account_flex);
10698: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_variance_account_flex = ' || l_variance_account_flex);
10691: x_conc_segment_values := l_charge_account_flex;
10692: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || x_ccid);
10693: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_budget_account_id = ' || l_budget_account_id );
10694: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_variance_account_id = ' || l_variance_account_id);
10695: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_charge_account_flex = ' || x_conc_segment_values);
10696: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_budget_account_flex = ' || l_budget_account_flex);
10697: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_accrual_account_flex = ' || l_accrual_account_flex);
10698: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_variance_account_flex = ' || l_variance_account_flex);
10699: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_charge_account_desc = ' || l_charge_account_desc);
10692: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_code_combination_id = ' || x_ccid);
10693: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_budget_account_id = ' || l_budget_account_id );
10694: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_variance_account_id = ' || l_variance_account_id);
10695: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_charge_account_flex = ' || x_conc_segment_values);
10696: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_budget_account_flex = ' || l_budget_account_flex);
10697: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_accrual_account_flex = ' || l_accrual_account_flex);
10698: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_variance_account_flex = ' || l_variance_account_flex);
10699: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_charge_account_desc = ' || l_charge_account_desc);
10700: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_budget_account_desc = ' || l_budget_account_desc);
10693: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_budget_account_id = ' || l_budget_account_id );
10694: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_variance_account_id = ' || l_variance_account_id);
10695: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_charge_account_flex = ' || x_conc_segment_values);
10696: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_budget_account_flex = ' || l_budget_account_flex);
10697: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_accrual_account_flex = ' || l_accrual_account_flex);
10698: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_variance_account_flex = ' || l_variance_account_flex);
10699: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_charge_account_desc = ' || l_charge_account_desc);
10700: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_budget_account_desc = ' || l_budget_account_desc);
10701: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_accrual_account_desc = ' || l_accrual_account_desc);
10694: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_variance_account_id = ' || l_variance_account_id);
10695: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_charge_account_flex = ' || x_conc_segment_values);
10696: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_budget_account_flex = ' || l_budget_account_flex);
10697: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_accrual_account_flex = ' || l_accrual_account_flex);
10698: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_variance_account_flex = ' || l_variance_account_flex);
10699: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_charge_account_desc = ' || l_charge_account_desc);
10700: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_budget_account_desc = ' || l_budget_account_desc);
10701: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_accrual_account_desc = ' || l_accrual_account_desc);
10702: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_variance_account_desc = ' || l_variance_account_desc);
10695: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_charge_account_flex = ' || x_conc_segment_values);
10696: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_budget_account_flex = ' || l_budget_account_flex);
10697: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_accrual_account_flex = ' || l_accrual_account_flex);
10698: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_variance_account_flex = ' || l_variance_account_flex);
10699: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_charge_account_desc = ' || l_charge_account_desc);
10700: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_budget_account_desc = ' || l_budget_account_desc);
10701: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_accrual_account_desc = ' || l_accrual_account_desc);
10702: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_variance_account_desc = ' || l_variance_account_desc);
10703:
10696: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_budget_account_flex = ' || l_budget_account_flex);
10697: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_accrual_account_flex = ' || l_accrual_account_flex);
10698: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_variance_account_flex = ' || l_variance_account_flex);
10699: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_charge_account_desc = ' || l_charge_account_desc);
10700: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_budget_account_desc = ' || l_budget_account_desc);
10701: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_accrual_account_desc = ' || l_accrual_account_desc);
10702: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_variance_account_desc = ' || l_variance_account_desc);
10703:
10704:
10697: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_accrual_account_flex = ' || l_accrual_account_flex);
10698: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_variance_account_flex = ' || l_variance_account_flex);
10699: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_charge_account_desc = ' || l_charge_account_desc);
10700: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_budget_account_desc = ' || l_budget_account_desc);
10701: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_accrual_account_desc = ' || l_accrual_account_desc);
10702: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_variance_account_desc = ' || l_variance_account_desc);
10703:
10704:
10705:
10698: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_variance_account_flex = ' || l_variance_account_flex);
10699: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_charge_account_desc = ' || l_charge_account_desc);
10700: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_budget_account_desc = ' || l_budget_account_desc);
10701: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_accrual_account_desc = ' || l_accrual_account_desc);
10702: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_variance_account_desc = ' || l_variance_account_desc);
10703:
10704:
10705:
10706: if(isGrantsEnabled AND (l_award_id is not null))
10704:
10705:
10706: if(isGrantsEnabled AND (l_award_id is not null))
10707: THEN
10708: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling GMS_POR_API.Account_Generator_ADL in REMOVE mode');
10709: GMS_POR_API.Account_Generator_ADL
10710: (
10711: X_project_id => l_project_id,
10712: X_task_id => l_task_id,
10735: EXCEPTION
10736:
10737: WHEN OTHERS THEN
10738: x_return_status := FND_API.G_RET_STS_ERROR;
10739: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
10740: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
10741: RAISE;
10742:
10743: END GENERATE_CCID_FOR_PROJECTS;