94: END IF;
95:
96: -- if primary key value is passed, check for uniqueness.
97: IF l_fee_assignment_id IS NOT NULL AND
98: l_fee_assignment_id <> FND_API.G_MISS_NUM
99: THEN
100: BEGIN
101: SELECT 'Y'
102: INTO l_dummy
105:
106: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_DUPLICATE_COLUMN');
107: FND_MESSAGE.SET_TOKEN('COLUMN', 'fee_assignment_id');
108: FND_MSG_PUB.ADD;
109: RAISE FND_API.G_EXC_ERROR;
110:
111: EXCEPTION
112: WHEN NO_DATA_FOUND THEN
113: NULL;
217: THEN
218: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_RECORD_CHANGED');
219: FND_MESSAGE.SET_TOKEN('TABLE', 'lns_fee_assignments');
220: FND_MSG_PUB.ADD;
221: RAISE FND_API.G_EXC_ERROR;
222: END IF;
223:
224: p_object_version_number := nvl(l_object_version_number, 1) + 1;
225:
227: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_NO_RECORD');
228: FND_MESSAGE.SET_TOKEN('RECORD', 'assignment_rec');
229: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(p_fee_assignment_rec.fee_assignment_id), 'null'));
230: FND_MSG_PUB.ADD;
231: RAISE FND_API.G_EXC_ERROR;
232: END;
233:
234: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
235: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In do_update_fee_assignment procedure: Before call to LNS_FEE_ASSIGNMENTS_PKG.Update_Row');
318: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Begin do_delete_fee_assignment procedure');
319: END IF;
320:
321: IF p_fee_assignment_id IS NOT NULL AND
322: p_fee_assignment_id <> FND_API.G_MISS_NUM
323: THEN
324: -- check whether record has been deleted by another user. If not, lock it.
325: BEGIN
326: SELECT loan_id, fee_id, object_version_number
333: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_NO_RECORD');
334: FND_MESSAGE.SET_TOKEN('RECORD', 'assignment_rec');
335: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(p_fee_assignment_id), 'null'));
336: FND_MSG_PUB.ADD;
337: RAISE FND_API.G_EXC_ERROR;
338: END;
339: END IF;
340:
341: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
369:
370:
371: EXCEPTION
372: WHEN OTHERS THEN
373: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
374: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
375: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
376: FND_MSG_PUB.ADD;
377: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
373: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
374: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
375: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
376: FND_MSG_PUB.ADD;
377: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
378: END;
379:
380:
381:
443: -- standard start of API savepoint
444: SAVEPOINT create_fee_assignment;
445:
446: -- initialize message list if p_init_msg_list is set to TRUE.
447: IF FND_API.to_Boolean(nvl(p_init_msg_list, FND_API.G_FALSE)) THEN
448: FND_MSG_PUB.initialize;
449: END IF;
450:
451: -- initialize API return status to success.
448: FND_MSG_PUB.initialize;
449: END IF;
450:
451: -- initialize API return status to success.
452: x_return_status := FND_API.G_RET_STS_SUCCESS;
453:
454: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
455: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In Create_fee_assignment procedure: Before call to do_create_fee_assignment proc');
456: END IF;
485: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In Create_fee_assignment procedure: After call to do_create_fee_assignment proc');
486: END IF;
487:
488: EXCEPTION
489: WHEN FND_API.G_EXC_ERROR THEN
490: ROLLBACK TO create_fee_assignment;
491: x_return_status := FND_API.G_RET_STS_ERROR;
492: FND_MSG_PUB.Count_And_Get(
493: p_encoded => FND_API.G_FALSE,
487:
488: EXCEPTION
489: WHEN FND_API.G_EXC_ERROR THEN
490: ROLLBACK TO create_fee_assignment;
491: x_return_status := FND_API.G_RET_STS_ERROR;
492: FND_MSG_PUB.Count_And_Get(
493: p_encoded => FND_API.G_FALSE,
494: p_count => x_msg_count,
495: p_data => x_msg_data);
489: WHEN FND_API.G_EXC_ERROR THEN
490: ROLLBACK TO create_fee_assignment;
491: x_return_status := FND_API.G_RET_STS_ERROR;
492: FND_MSG_PUB.Count_And_Get(
493: p_encoded => FND_API.G_FALSE,
494: p_count => x_msg_count,
495: p_data => x_msg_data);
496:
497: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
493: p_encoded => FND_API.G_FALSE,
494: p_count => x_msg_count,
495: p_data => x_msg_data);
496:
497: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
498: ROLLBACK TO create_fee_assignment;
499: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
500: FND_MSG_PUB.Count_And_Get(
501: p_encoded => FND_API.G_FALSE,
495: p_data => x_msg_data);
496:
497: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
498: ROLLBACK TO create_fee_assignment;
499: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
500: FND_MSG_PUB.Count_And_Get(
501: p_encoded => FND_API.G_FALSE,
502: p_count => x_msg_count,
503: p_data => x_msg_data);
497: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
498: ROLLBACK TO create_fee_assignment;
499: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
500: FND_MSG_PUB.Count_And_Get(
501: p_encoded => FND_API.G_FALSE,
502: p_count => x_msg_count,
503: p_data => x_msg_data);
504:
505: WHEN OTHERS THEN
503: p_data => x_msg_data);
504:
505: WHEN OTHERS THEN
506: ROLLBACK TO create_fee_assignment;
507: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
508: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
509: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
510: FND_MSG_PUB.ADD;
511: FND_MSG_PUB.Count_And_Get(
508: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
509: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
510: FND_MSG_PUB.ADD;
511: FND_MSG_PUB.Count_And_Get(
512: p_encoded => FND_API.G_FALSE,
513: p_count => x_msg_count,
514: p_data => x_msg_data);
515:
516: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
571: -- standard start of API savepoint
572: SAVEPOINT update_fee_assignment;
573:
574: -- initialize message list if p_init_msg_list is set to TRUE.
575: IF FND_API.to_Boolean(nvl(p_init_msg_list, FND_API.G_FALSE)) THEN
576: FND_MSG_PUB.initialize;
577: END IF;
578:
579: -- initialize API return status to success.
576: FND_MSG_PUB.initialize;
577: END IF;
578:
579: -- initialize API return status to success.
580: x_return_status := FND_API.G_RET_STS_SUCCESS;
581: /*
582: -- Get old record. Will be used by history package.
583: get_fee_assignment_rec (
584: p_fee_assignment_id => l_fee_assignment_rec.fee_assignment_id,
586: x_return_status => x_return_status,
587: x_msg_count => x_msg_count,
588: x_msg_data => x_msg_data );
589: */
590: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
591: RAISE FND_API.G_EXC_ERROR;
592: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
593: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
594: END IF;
587: x_msg_count => x_msg_count,
588: x_msg_data => x_msg_data );
589: */
590: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
591: RAISE FND_API.G_EXC_ERROR;
592: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
593: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
594: END IF;
595:
588: x_msg_data => x_msg_data );
589: */
590: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
591: RAISE FND_API.G_EXC_ERROR;
592: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
593: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
594: END IF;
595:
596: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
589: */
590: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
591: RAISE FND_API.G_EXC_ERROR;
592: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
593: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
594: END IF;
595:
596: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
597: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In Update_fee_assignment procedure: Before call to do_update_fee_assignment proc');
610: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In Update_fee_assignment procedure: After call to do_update_fee_assignment proc');
611: END IF;
612:
613: EXCEPTION
614: WHEN FND_API.G_EXC_ERROR THEN
615: ROLLBACK TO update_fee_assignment;
616: x_return_status := FND_API.G_RET_STS_ERROR;
617: FND_MSG_PUB.Count_And_Get(
618: p_encoded => FND_API.G_FALSE,
612:
613: EXCEPTION
614: WHEN FND_API.G_EXC_ERROR THEN
615: ROLLBACK TO update_fee_assignment;
616: x_return_status := FND_API.G_RET_STS_ERROR;
617: FND_MSG_PUB.Count_And_Get(
618: p_encoded => FND_API.G_FALSE,
619: p_count => x_msg_count,
620: p_data => x_msg_data);
614: WHEN FND_API.G_EXC_ERROR THEN
615: ROLLBACK TO update_fee_assignment;
616: x_return_status := FND_API.G_RET_STS_ERROR;
617: FND_MSG_PUB.Count_And_Get(
618: p_encoded => FND_API.G_FALSE,
619: p_count => x_msg_count,
620: p_data => x_msg_data);
621:
622: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
618: p_encoded => FND_API.G_FALSE,
619: p_count => x_msg_count,
620: p_data => x_msg_data);
621:
622: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
623: ROLLBACK TO update_fee_assignment;
624: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
625: FND_MSG_PUB.Count_And_Get(
626: p_encoded => FND_API.G_FALSE,
620: p_data => x_msg_data);
621:
622: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
623: ROLLBACK TO update_fee_assignment;
624: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
625: FND_MSG_PUB.Count_And_Get(
626: p_encoded => FND_API.G_FALSE,
627: p_count => x_msg_count,
628: p_data => x_msg_data);
622: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
623: ROLLBACK TO update_fee_assignment;
624: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
625: FND_MSG_PUB.Count_And_Get(
626: p_encoded => FND_API.G_FALSE,
627: p_count => x_msg_count,
628: p_data => x_msg_data);
629:
630: WHEN OTHERS THEN
628: p_data => x_msg_data);
629:
630: WHEN OTHERS THEN
631: ROLLBACK TO update_fee_assignment;
632: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
633: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
634: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
635: FND_MSG_PUB.ADD;
636: FND_MSG_PUB.Count_And_Get(
633: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
634: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
635: FND_MSG_PUB.ADD;
636: FND_MSG_PUB.Count_And_Get(
637: p_encoded => FND_API.G_FALSE,
638: p_count => x_msg_count,
639: p_data => x_msg_data);
640:
641: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
693: -- standard start of API savepoint
694: SAVEPOINT delete_fee_assignment;
695:
696: -- initialize message list if p_init_msg_list is set to TRUE.
697: IF FND_API.to_Boolean(p_init_msg_list) THEN
698: FND_MSG_PUB.initialize;
699: END IF;
700:
701: -- initialize API return status to success.
698: FND_MSG_PUB.initialize;
699: END IF;
700:
701: -- initialize API return status to success.
702: x_return_status := FND_API.G_RET_STS_SUCCESS;
703:
704: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
705: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In Delete_fee_assignment procedure: Before call to do_delete_fee_assignment proc');
706: END IF;
715: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In Delete_fee_assignment procedure: After call to do_delete_fee_assignment proc');
716: END IF;
717:
718: EXCEPTION
719: WHEN FND_API.G_EXC_ERROR THEN
720: ROLLBACK TO delete_fee_assignment;
721: x_return_status := FND_API.G_RET_STS_ERROR;
722: FND_MSG_PUB.Count_And_Get(
723: p_encoded => FND_API.G_FALSE,
717:
718: EXCEPTION
719: WHEN FND_API.G_EXC_ERROR THEN
720: ROLLBACK TO delete_fee_assignment;
721: x_return_status := FND_API.G_RET_STS_ERROR;
722: FND_MSG_PUB.Count_And_Get(
723: p_encoded => FND_API.G_FALSE,
724: p_count => x_msg_count,
725: p_data => x_msg_data);
719: WHEN FND_API.G_EXC_ERROR THEN
720: ROLLBACK TO delete_fee_assignment;
721: x_return_status := FND_API.G_RET_STS_ERROR;
722: FND_MSG_PUB.Count_And_Get(
723: p_encoded => FND_API.G_FALSE,
724: p_count => x_msg_count,
725: p_data => x_msg_data);
726:
727: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
723: p_encoded => FND_API.G_FALSE,
724: p_count => x_msg_count,
725: p_data => x_msg_data);
726:
727: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
728: ROLLBACK TO delete_fee_assignment;
729: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
730: FND_MSG_PUB.Count_And_Get(
731: p_encoded => FND_API.G_FALSE,
725: p_data => x_msg_data);
726:
727: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
728: ROLLBACK TO delete_fee_assignment;
729: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
730: FND_MSG_PUB.Count_And_Get(
731: p_encoded => FND_API.G_FALSE,
732: p_count => x_msg_count,
733: p_data => x_msg_data);
727: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
728: ROLLBACK TO delete_fee_assignment;
729: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
730: FND_MSG_PUB.Count_And_Get(
731: p_encoded => FND_API.G_FALSE,
732: p_count => x_msg_count,
733: p_data => x_msg_data);
734:
735: WHEN OTHERS THEN
733: p_data => x_msg_data);
734:
735: WHEN OTHERS THEN
736: ROLLBACK TO delete_fee_assignment;
737: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
738: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
739: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
740: FND_MSG_PUB.ADD;
741: FND_MSG_PUB.Count_And_Get(
738: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
739: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
740: FND_MSG_PUB.ADD;
741: FND_MSG_PUB.Count_And_Get(
742: p_encoded => FND_API.G_FALSE,
743: p_count => x_msg_count,
744: p_data => x_msg_data);
745:
746: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN