148: INTO l_dummy
149: FROM LNS_COND_ASSIGNMENTS
150: WHERE cond_assignment_id = l_COND_ASSIGNMENT_id;
151:
152: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_DUPLICATE_COLUMN');
153: FND_MESSAGE.SET_TOKEN('COLUMN', 'cond_assignment_id');
154: FND_MSG_PUB.ADD;
155: RAISE FND_API.G_EXC_ERROR;
156:
149: FROM LNS_COND_ASSIGNMENTS
150: WHERE cond_assignment_id = l_COND_ASSIGNMENT_id;
151:
152: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_DUPLICATE_COLUMN');
153: FND_MESSAGE.SET_TOKEN('COLUMN', 'cond_assignment_id');
154: FND_MSG_PUB.ADD;
155: RAISE FND_API.G_EXC_ERROR;
156:
157: EXCEPTION
261: p_object_version_number = l_object_version_number
262: )
263: )
264: THEN
265: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_RECORD_CHANGED');
266: FND_MESSAGE.SET_TOKEN('TABLE', 'lns_COND_ASSIGNMENTs');
267: FND_MSG_PUB.ADD;
268: RAISE FND_API.G_EXC_ERROR;
269: END IF;
262: )
263: )
264: THEN
265: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_RECORD_CHANGED');
266: FND_MESSAGE.SET_TOKEN('TABLE', 'lns_COND_ASSIGNMENTs');
267: FND_MSG_PUB.ADD;
268: RAISE FND_API.G_EXC_ERROR;
269: END IF;
270:
270:
271: p_object_version_number := nvl(l_object_version_number, 1) + 1;
272:
273: EXCEPTION WHEN NO_DATA_FOUND THEN
274: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_NO_RECORD');
275: FND_MESSAGE.SET_TOKEN('RECORD', 'cond_assignment_rec');
276: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(p_COND_ASSIGNMENT_rec.cond_assignment_id), 'null'));
277: FND_MSG_PUB.ADD;
278: RAISE FND_API.G_EXC_ERROR;
271: p_object_version_number := nvl(l_object_version_number, 1) + 1;
272:
273: EXCEPTION WHEN NO_DATA_FOUND THEN
274: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_NO_RECORD');
275: FND_MESSAGE.SET_TOKEN('RECORD', 'cond_assignment_rec');
276: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(p_COND_ASSIGNMENT_rec.cond_assignment_id), 'null'));
277: FND_MSG_PUB.ADD;
278: RAISE FND_API.G_EXC_ERROR;
279: END;
272:
273: EXCEPTION WHEN NO_DATA_FOUND THEN
274: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_NO_RECORD');
275: FND_MESSAGE.SET_TOKEN('RECORD', 'cond_assignment_rec');
276: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(p_COND_ASSIGNMENT_rec.cond_assignment_id), 'null'));
277: FND_MSG_PUB.ADD;
278: RAISE FND_API.G_EXC_ERROR;
279: END;
280:
377: FOR UPDATE NOWAIT;
378:
379: EXCEPTION
380: WHEN NO_DATA_FOUND THEN
381: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_NO_RECORD');
382: FND_MESSAGE.SET_TOKEN('RECORD', 'cond_assignment_rec');
383: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(p_COND_ASSIGNMENT_id), 'null'));
384: FND_MSG_PUB.ADD;
385: RAISE FND_API.G_EXC_ERROR;
378:
379: EXCEPTION
380: WHEN NO_DATA_FOUND THEN
381: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_NO_RECORD');
382: FND_MESSAGE.SET_TOKEN('RECORD', 'cond_assignment_rec');
383: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(p_COND_ASSIGNMENT_id), 'null'));
384: FND_MSG_PUB.ADD;
385: RAISE FND_API.G_EXC_ERROR;
386: END;
379: EXCEPTION
380: WHEN NO_DATA_FOUND THEN
381: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_NO_RECORD');
382: FND_MESSAGE.SET_TOKEN('RECORD', 'cond_assignment_rec');
383: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(p_COND_ASSIGNMENT_id), 'null'));
384: FND_MSG_PUB.ADD;
385: RAISE FND_API.G_EXC_ERROR;
386: END;
387: END IF;
405:
406: EXCEPTION
407: WHEN OTHERS THEN
408: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
409: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
410: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
411: FND_MSG_PUB.ADD;
412: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
413: END;
406: EXCEPTION
407: WHEN OTHERS THEN
408: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
409: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
410: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
411: FND_MSG_PUB.ADD;
412: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
413: END;
414:
540:
541: WHEN OTHERS THEN
542: ROLLBACK TO create_COND_ASSIGNMENT;
543: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
544: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
545: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
546: FND_MSG_PUB.ADD;
547: FND_MSG_PUB.Count_And_Get(
548: p_encoded => FND_API.G_FALSE,
541: WHEN OTHERS THEN
542: ROLLBACK TO create_COND_ASSIGNMENT;
543: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
544: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
545: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
546: FND_MSG_PUB.ADD;
547: FND_MSG_PUB.Count_And_Get(
548: p_encoded => FND_API.G_FALSE,
549: p_count => x_msg_count,
663:
664: WHEN OTHERS THEN
665: ROLLBACK TO update_COND_ASSIGNMENT;
666: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
667: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
668: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
669: FND_MSG_PUB.ADD;
670: FND_MSG_PUB.Count_And_Get(
671: p_encoded => FND_API.G_FALSE,
664: WHEN OTHERS THEN
665: ROLLBACK TO update_COND_ASSIGNMENT;
666: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
667: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
668: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
669: FND_MSG_PUB.ADD;
670: FND_MSG_PUB.Count_And_Get(
671: p_encoded => FND_API.G_FALSE,
672: p_count => x_msg_count,
768:
769: WHEN OTHERS THEN
770: ROLLBACK TO delete_COND_ASSIGNMENT;
771: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
772: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
773: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
774: FND_MSG_PUB.ADD;
775: FND_MSG_PUB.Count_And_Get(
776: p_encoded => FND_API.G_FALSE,
769: WHEN OTHERS THEN
770: ROLLBACK TO delete_COND_ASSIGNMENT;
771: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
772: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
773: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
774: FND_MSG_PUB.ADD;
775: FND_MSG_PUB.Count_And_Get(
776: p_encoded => FND_API.G_FALSE,
777: p_count => x_msg_count,
1477: logMessage(FND_LOG.LEVEL_STATEMENT, 'Done');
1478:
1479: EXCEPTION
1480: WHEN OTHERS THEN
1481: FND_MESSAGE.SET_NAME('LNS', 'LNS_CUSTOM_COND_FAILED');
1482: FND_MESSAGE.SET_TOKEN('COND_NAME' ,l_CONDITION_NAME);
1483: FND_MESSAGE.SET_TOKEN('ERROR_MESG' ,SQLERRM);
1484: FND_MSG_PUB.ADD;
1485: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1478:
1479: EXCEPTION
1480: WHEN OTHERS THEN
1481: FND_MESSAGE.SET_NAME('LNS', 'LNS_CUSTOM_COND_FAILED');
1482: FND_MESSAGE.SET_TOKEN('COND_NAME' ,l_CONDITION_NAME);
1483: FND_MESSAGE.SET_TOKEN('ERROR_MESG' ,SQLERRM);
1484: FND_MSG_PUB.ADD;
1485: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1486: RAISE FND_API.G_EXC_ERROR;
1479: EXCEPTION
1480: WHEN OTHERS THEN
1481: FND_MESSAGE.SET_NAME('LNS', 'LNS_CUSTOM_COND_FAILED');
1482: FND_MESSAGE.SET_TOKEN('COND_NAME' ,l_CONDITION_NAME);
1483: FND_MESSAGE.SET_TOKEN('ERROR_MESG' ,SQLERRM);
1484: FND_MSG_PUB.ADD;
1485: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1486: RAISE FND_API.G_EXC_ERROR;
1487: END;
1489: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_result = ' || l_result);
1490: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_error = ' || l_error);
1491:
1492: if l_result = 'N' then
1493: FND_MESSAGE.SET_NAME('LNS', 'LNS_CUSTOM_COND_FAILED');
1494: FND_MESSAGE.SET_TOKEN('COND_NAME' ,l_CONDITION_NAME);
1495: FND_MESSAGE.SET_TOKEN('ERROR_MESG' ,l_error);
1496: FND_MSG_PUB.ADD;
1497: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1490: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_error = ' || l_error);
1491:
1492: if l_result = 'N' then
1493: FND_MESSAGE.SET_NAME('LNS', 'LNS_CUSTOM_COND_FAILED');
1494: FND_MESSAGE.SET_TOKEN('COND_NAME' ,l_CONDITION_NAME);
1495: FND_MESSAGE.SET_TOKEN('ERROR_MESG' ,l_error);
1496: FND_MSG_PUB.ADD;
1497: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1498: RAISE FND_API.G_EXC_ERROR;
1491:
1492: if l_result = 'N' then
1493: FND_MESSAGE.SET_NAME('LNS', 'LNS_CUSTOM_COND_FAILED');
1494: FND_MESSAGE.SET_TOKEN('COND_NAME' ,l_CONDITION_NAME);
1495: FND_MESSAGE.SET_TOKEN('ERROR_MESG' ,l_error);
1496: FND_MSG_PUB.ADD;
1497: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1498: RAISE FND_API.G_EXC_ERROR;
1499: end if;
1601: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_OWNER_OBJECT_ID = ' || P_OWNER_OBJECT_ID);
1602: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_CONDITION_TYPE = ' || P_CONDITION_TYPE);
1603:
1604: if P_LOAN_ID is null then
1605: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
1606: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'P_LOAN_ID' );
1607: FND_MSG_PUB.ADD;
1608: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1609: RAISE FND_API.G_EXC_ERROR;
1602: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_CONDITION_TYPE = ' || P_CONDITION_TYPE);
1603:
1604: if P_LOAN_ID is null then
1605: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
1606: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'P_LOAN_ID' );
1607: FND_MSG_PUB.ADD;
1608: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1609: RAISE FND_API.G_EXC_ERROR;
1610: end if;
1609: RAISE FND_API.G_EXC_ERROR;
1610: end if;
1611:
1612: if P_OWNER_OBJECT_ID is null then
1613: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
1614: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'P_OWNER_OBJECT_ID' );
1615: FND_MSG_PUB.ADD;
1616: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1617: RAISE FND_API.G_EXC_ERROR;
1610: end if;
1611:
1612: if P_OWNER_OBJECT_ID is null then
1613: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
1614: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'P_OWNER_OBJECT_ID' );
1615: FND_MSG_PUB.ADD;
1616: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1617: RAISE FND_API.G_EXC_ERROR;
1618: end if;
1617: RAISE FND_API.G_EXC_ERROR;
1618: end if;
1619:
1620: if P_CONDITION_TYPE is null then
1621: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
1622: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'P_CONDITION_TYPE' );
1623: FND_MSG_PUB.ADD;
1624: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1625: RAISE FND_API.G_EXC_ERROR;
1618: end if;
1619:
1620: if P_CONDITION_TYPE is null then
1621: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
1622: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'P_CONDITION_TYPE' );
1623: FND_MSG_PUB.ADD;
1624: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1625: RAISE FND_API.G_EXC_ERROR;
1626: end if;
1628: if P_CONDITION_TYPE <> 'LOAN_AMOUNT_ADJUSTMENT' and
1629: P_CONDITION_TYPE <> 'ADDITIONAL_RECEIVABLE' and
1630: P_CONDITION_TYPE <> 'DISBURSEMENT'
1631: then
1632: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_INVALID_VALUE' );
1633: FND_MESSAGE.SET_TOKEN( 'PARAMETER', 'P_CONDITION_TYPE' );
1634: FND_MESSAGE.SET_TOKEN( 'VALUE', P_CONDITION_TYPE );
1635: FND_MSG_PUB.ADD;
1636: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1629: P_CONDITION_TYPE <> 'ADDITIONAL_RECEIVABLE' and
1630: P_CONDITION_TYPE <> 'DISBURSEMENT'
1631: then
1632: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_INVALID_VALUE' );
1633: FND_MESSAGE.SET_TOKEN( 'PARAMETER', 'P_CONDITION_TYPE' );
1634: FND_MESSAGE.SET_TOKEN( 'VALUE', P_CONDITION_TYPE );
1635: FND_MSG_PUB.ADD;
1636: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1637: RAISE FND_API.G_EXC_ERROR;
1630: P_CONDITION_TYPE <> 'DISBURSEMENT'
1631: then
1632: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_INVALID_VALUE' );
1633: FND_MESSAGE.SET_TOKEN( 'PARAMETER', 'P_CONDITION_TYPE' );
1634: FND_MESSAGE.SET_TOKEN( 'VALUE', P_CONDITION_TYPE );
1635: FND_MSG_PUB.ADD;
1636: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1637: RAISE FND_API.G_EXC_ERROR;
1638: end if;
1804: close conditions_cur;
1805: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_cond_count = ' || l_cond_count);
1806:
1807: if l_cond_count > 0 then
1808: FND_MESSAGE.SET_NAME('LNS', 'LNS_NOT_ALL_COND_MET');
1809: FND_MSG_PUB.Add;
1810: RAISE FND_API.G_EXC_ERROR;
1811: end if;
1812: