62: ELSE
63: IF l_DEBUG in ('Y', 'C') THEN
64: cep_standard.debug('EXCEPTION: CE_INTEREST_SCHED_PKG.xtr_schedule_update p_ce_bank_account_id missing');
65: END IF;
66: FND_MESSAGE.Set_Name('CE', 'CE_BANK_ACCOUNT_ID_MISSING');
67: FND_MESSAGE.Set_Token('PROCEDURE', 'CE_INTEREST_SCHED_PKG.xtr_schedule_update');
68: fnd_msg_pub.add;
69: END IF;
70:
63: IF l_DEBUG in ('Y', 'C') THEN
64: cep_standard.debug('EXCEPTION: CE_INTEREST_SCHED_PKG.xtr_schedule_update p_ce_bank_account_id missing');
65: END IF;
66: FND_MESSAGE.Set_Name('CE', 'CE_BANK_ACCOUNT_ID_MISSING');
67: FND_MESSAGE.Set_Token('PROCEDURE', 'CE_INTEREST_SCHED_PKG.xtr_schedule_update');
68: fnd_msg_pub.add;
69: END IF;
70:
71: IF l_DEBUG in ('Y', 'C') THEN
76: when others then
77: IF l_DEBUG in ('Y', 'C') THEN
78: cep_standard.debug('EXCEPTION: CE_INTEREST_SCHED_PKG.xtr_schedule_update');
79: END IF;
80: FND_MESSAGE.Set_Name('CE', 'CE_UNHANDLED_EXCEPTION');
81: FND_MESSAGE.Set_Token('PROCEDURE', 'CE_INTEREST_SCHED_PKG.xtr_schedule_update');
82: fnd_msg_pub.add;
83: END xtr_schedule_update;
84:
77: IF l_DEBUG in ('Y', 'C') THEN
78: cep_standard.debug('EXCEPTION: CE_INTEREST_SCHED_PKG.xtr_schedule_update');
79: END IF;
80: FND_MESSAGE.Set_Name('CE', 'CE_UNHANDLED_EXCEPTION');
81: FND_MESSAGE.Set_Token('PROCEDURE', 'CE_INTEREST_SCHED_PKG.xtr_schedule_update');
82: fnd_msg_pub.add;
83: END xtr_schedule_update;
84:
85: /* --------------------------------------------------------------------
156: when others then
157: IF l_DEBUG in ('Y', 'C') THEN
158: cep_standard.debug('EXCEPTION: CE_INTEREST_SCHED_PKG.remove_schedule_account');
159: END IF;
160: FND_MESSAGE.Set_Name('CE', 'CE_UNHANDLED_EXCEPTION');
161: FND_MESSAGE.Set_Token('PROCEDURE', 'CE_INTEREST_SCHED_PKG.remove_schedule_account');
162: fnd_msg_pub.add;
163: END remove_schedule_account;
164:
157: IF l_DEBUG in ('Y', 'C') THEN
158: cep_standard.debug('EXCEPTION: CE_INTEREST_SCHED_PKG.remove_schedule_account');
159: END IF;
160: FND_MESSAGE.Set_Name('CE', 'CE_UNHANDLED_EXCEPTION');
161: FND_MESSAGE.Set_Token('PROCEDURE', 'CE_INTEREST_SCHED_PKG.remove_schedule_account');
162: fnd_msg_pub.add;
163: END remove_schedule_account;
164:
165: /* --------------------------------------------------------------------
201: nvl(interest_schedule_id, 1) = p_interest_schedule_id
202: and bank_account_id = p_bank_account_id;
203:
204: IF (x_ba_count > 0) THEN
205: FND_MESSAGE.Set_Name('CE', 'CE_ACCT_IS_ASSIGNED');
206: --FND_MESSAGE.Set_Token('PROCEDURE', 'CE_INTEREST_SCHED_PKG.assign_schedule_account');
207: fnd_msg_pub.add;
208: ELSE
209: UPDATE CE_BANK_ACCOUNTS
202: and bank_account_id = p_bank_account_id;
203:
204: IF (x_ba_count > 0) THEN
205: FND_MESSAGE.Set_Name('CE', 'CE_ACCT_IS_ASSIGNED');
206: --FND_MESSAGE.Set_Token('PROCEDURE', 'CE_INTEREST_SCHED_PKG.assign_schedule_account');
207: fnd_msg_pub.add;
208: ELSE
209: UPDATE CE_BANK_ACCOUNTS
210: SET INTEREST_SCHEDULE_ID = p_interest_schedule_id
231: ELSE
232: IF l_DEBUG in ('Y', 'C') THEN
233: cep_standard.debug('EXCEPTION: CE_INTEREST_SCHED_PKG.assign_schedule_account INTEREST_SCHEDULE_ID missing');
234: END IF;
235: FND_MESSAGE.Set_Name('CE', 'CE_INT_SCHED_ID_MISSING');
236: FND_MESSAGE.Set_Token('PROCEDURE', 'CE_INTEREST_SCHED_PKG.assign_schedule_account');
237: fnd_msg_pub.add;
238: END IF;
239:
232: IF l_DEBUG in ('Y', 'C') THEN
233: cep_standard.debug('EXCEPTION: CE_INTEREST_SCHED_PKG.assign_schedule_account INTEREST_SCHEDULE_ID missing');
234: END IF;
235: FND_MESSAGE.Set_Name('CE', 'CE_INT_SCHED_ID_MISSING');
236: FND_MESSAGE.Set_Token('PROCEDURE', 'CE_INTEREST_SCHED_PKG.assign_schedule_account');
237: fnd_msg_pub.add;
238: END IF;
239:
240: FND_MSG_PUB.Count_And_Get(
254: when others then
255: IF l_DEBUG in ('Y', 'C') THEN
256: cep_standard.debug('EXCEPTION: CE_INTEREST_SCHED_PKG.assign_schedule_account');
257: END IF;
258: FND_MESSAGE.Set_Name('CE', 'CE_UNHANDLED_EXCEPTION');
259: FND_MESSAGE.Set_Token('PROCEDURE', 'CE_INTEREST_SCHED_PKG.assign_schedule_account');
260: fnd_msg_pub.add;
261: END assign_schedule_account;
262:
255: IF l_DEBUG in ('Y', 'C') THEN
256: cep_standard.debug('EXCEPTION: CE_INTEREST_SCHED_PKG.assign_schedule_account');
257: END IF;
258: FND_MESSAGE.Set_Name('CE', 'CE_UNHANDLED_EXCEPTION');
259: FND_MESSAGE.Set_Token('PROCEDURE', 'CE_INTEREST_SCHED_PKG.assign_schedule_account');
260: fnd_msg_pub.add;
261: END assign_schedule_account;
262:
263: /* --------------------------------------------------------------------
291:
292: -- make sure at least one transaction exist
293: IF (x_interest_rate_count < 1) THEN
294:
295: FND_MESSAGE.Set_Name('CE', 'CE_INT_RATE_DATE_NOT_EXIST');
296: FND_MESSAGE.Set_Token('EFFECTIVE_DATE',p_effective_date );
297: fnd_msg_pub.add;
298: END IF;
299: END IF;
292: -- make sure at least one transaction exist
293: IF (x_interest_rate_count < 1) THEN
294:
295: FND_MESSAGE.Set_Name('CE', 'CE_INT_RATE_DATE_NOT_EXIST');
296: FND_MESSAGE.Set_Token('EFFECTIVE_DATE',p_effective_date );
297: fnd_msg_pub.add;
298: END IF;
299: END IF;
300: IF (p_interest_schedule_id is not null and p_effective_date is not null) THEN
319: when others then
320: IF l_DEBUG in ('Y', 'C') THEN
321: cep_standard.debug('EXCEPTION: CE_INTEREST_SCHED_PKG.delete_interest_rates');
322: END IF;
323: FND_MESSAGE.Set_Name('CE', 'CE_UNHANDLED_EXCEPTION');
324: FND_MESSAGE.Set_Token('PROCEDURE', 'CE_INTEREST_SCHED_PKG.delete_interest_rates');
325: fnd_msg_pub.add;
326: END delete_interest_rates;
327: /* --------------------------------------------------------------------
320: IF l_DEBUG in ('Y', 'C') THEN
321: cep_standard.debug('EXCEPTION: CE_INTEREST_SCHED_PKG.delete_interest_rates');
322: END IF;
323: FND_MESSAGE.Set_Name('CE', 'CE_UNHANDLED_EXCEPTION');
324: FND_MESSAGE.Set_Token('PROCEDURE', 'CE_INTEREST_SCHED_PKG.delete_interest_rates');
325: fnd_msg_pub.add;
326: END delete_interest_rates;
327: /* --------------------------------------------------------------------
328: | PRIVATE PROCEDURE |
355: when others then
356: IF l_DEBUG in ('Y', 'C') THEN
357: cep_standard.debug('EXCEPTION: CE_INTEREST_SCHED_PKG.delete_bal_ranges');
358: END IF;
359: FND_MESSAGE.Set_Name('CE', 'CE_UNHANDLED_EXCEPTION');
360: FND_MESSAGE.Set_Token('PROCEDURE', 'CE_INTEREST_SCHED_PKG.delete_bal_ranges');
361: fnd_msg_pub.add;
362: END delete_bal_ranges;
363:
356: IF l_DEBUG in ('Y', 'C') THEN
357: cep_standard.debug('EXCEPTION: CE_INTEREST_SCHED_PKG.delete_bal_ranges');
358: END IF;
359: FND_MESSAGE.Set_Name('CE', 'CE_UNHANDLED_EXCEPTION');
360: FND_MESSAGE.Set_Token('PROCEDURE', 'CE_INTEREST_SCHED_PKG.delete_bal_ranges');
361: fnd_msg_pub.add;
362: END delete_bal_ranges;
363:
364: /* --------------------------------------------------------------------
407: ELSE
408: IF l_DEBUG in ('Y', 'C') THEN
409: cep_standard.debug('EXCEPTION: CE_INTEREST_SCHED_PKG.delete_schedule INTEREST_SCHEDULE_ID missing');
410: END IF;
411: FND_MESSAGE.Set_Name('CE', 'CE_INT_SCHED_ID_MISSING');
412: FND_MESSAGE.Set_Token('PROCEDURE', 'CE_INTEREST_SCHED_PKG.delete_schedule');
413: fnd_msg_pub.add;
414: END IF;
415:
408: IF l_DEBUG in ('Y', 'C') THEN
409: cep_standard.debug('EXCEPTION: CE_INTEREST_SCHED_PKG.delete_schedule INTEREST_SCHEDULE_ID missing');
410: END IF;
411: FND_MESSAGE.Set_Name('CE', 'CE_INT_SCHED_ID_MISSING');
412: FND_MESSAGE.Set_Token('PROCEDURE', 'CE_INTEREST_SCHED_PKG.delete_schedule');
413: fnd_msg_pub.add;
414: END IF;
415:
416: FND_MSG_PUB.Count_And_Get(
430: when others then
431: IF l_DEBUG in ('Y', 'C') THEN
432: cep_standard.debug('EXCEPTION: CE_INTEREST_SCHED_PKG.delete_schedule');
433: END IF;
434: FND_MESSAGE.Set_Name('CE', 'CE_UNHANDLED_EXCEPTION');
435: FND_MESSAGE.Set_Token('PROCEDURE', 'CE_INTEREST_SCHED_PKG.delete_schedule');
436: fnd_msg_pub.add;
437: END delete_schedule;
438:
431: IF l_DEBUG in ('Y', 'C') THEN
432: cep_standard.debug('EXCEPTION: CE_INTEREST_SCHED_PKG.delete_schedule');
433: END IF;
434: FND_MESSAGE.Set_Name('CE', 'CE_UNHANDLED_EXCEPTION');
435: FND_MESSAGE.Set_Token('PROCEDURE', 'CE_INTEREST_SCHED_PKG.delete_schedule');
436: fnd_msg_pub.add;
437: END delete_schedule;
438:
439: /* --------------------------------------------------------------------
513: ELSE
514: IF l_DEBUG in ('Y', 'C') THEN
515: cep_standard.debug('EXCEPTION: CE_INTEREST_SCHED_PKG.update_schedule INTEREST_SCHEDULE_ID missing');
516: END IF;
517: FND_MESSAGE.Set_Name('CE', 'CE_INT_SCHED_ID_MISSING');
518: FND_MESSAGE.Set_Token('PROCEDURE', 'CE_INTEREST_SCHED_PKG.update_schedule');
519: fnd_msg_pub.add;
520: END IF;
521:
514: IF l_DEBUG in ('Y', 'C') THEN
515: cep_standard.debug('EXCEPTION: CE_INTEREST_SCHED_PKG.update_schedule INTEREST_SCHEDULE_ID missing');
516: END IF;
517: FND_MESSAGE.Set_Name('CE', 'CE_INT_SCHED_ID_MISSING');
518: FND_MESSAGE.Set_Token('PROCEDURE', 'CE_INTEREST_SCHED_PKG.update_schedule');
519: fnd_msg_pub.add;
520: END IF;
521:
522: FND_MSG_PUB.Count_And_Get(
536: when others then
537: IF l_DEBUG in ('Y', 'C') THEN
538: cep_standard.debug('EXCEPTION: CE_INTEREST_SCHED_PKG.update_schedule');
539: END IF;
540: FND_MESSAGE.Set_Name('CE', 'CE_UNHANDLED_EXCEPTION');
541: FND_MESSAGE.Set_Token('PROCEDURE', 'CE_INTEREST_SCHED_PKG.update_schedule');
542: fnd_msg_pub.add;
543: END update_schedule;
544:
537: IF l_DEBUG in ('Y', 'C') THEN
538: cep_standard.debug('EXCEPTION: CE_INTEREST_SCHED_PKG.update_schedule');
539: END IF;
540: FND_MESSAGE.Set_Name('CE', 'CE_UNHANDLED_EXCEPTION');
541: FND_MESSAGE.Set_Token('PROCEDURE', 'CE_INTEREST_SCHED_PKG.update_schedule');
542: fnd_msg_pub.add;
543: END update_schedule;
544:
545: END CE_INTEREST_SCHED_PKG;