80: SAVEPOINT Update_amount_In_Dispute;
81: -- Initialize message list if p_init_msg_list is set to TRUE.
82: IF FND_API.to_Boolean( p_init_msg_list )
83: THEN
84: FND_MSG_PUB.initialize;
85: END IF;
86: -- Initialize API return status to success
87: x_return_status := FND_API.G_RET_STS_SUCCESS;
88:
108: AND ROWNUM = 1;
109: EXCEPTION
110: WHEN OTHERS THEN
111: FND_MESSAGE.SET_NAME('AR','ARTA_PAYMENT_SCHEDULE_NO_FOUND');
112: FND_MSG_PUB.Add;
113: l_error_count := l_error_count + 1;
114: END;
115:
116: /*---------------------------------------------------------------------+
175: EXCEPTION
176: WHEN FND_API.G_EXC_ERROR THEN
177: ROLLBACK TO Update_Amount_In_Dispute;
178: x_return_status := FND_API.G_RET_STS_ERROR ;
179: FND_MSG_PUB.Count_And_Get
180: (p_encoded => FND_API.G_FALSE,
181: p_count => x_msg_count,
182: p_data => x_msg_data);
183: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
186: ' at arp_deduction_cover.update_amount_in_dispute()+');
187: END IF;
188: ROLLBACK TO Update_Amount_In_Dispute;
189: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
190: FND_MSG_PUB.Count_And_Get
191: (p_encoded => FND_API.G_FALSE,
192: p_count => x_msg_count,
193: p_data => x_msg_data);
194: WHEN OTHERS THEN
204: arp_util.debug('update_amount_in_dispute: ' || 'Unexpected error '||sqlerrm||
205: ' at arp_deduction_cover.update_amount_in_dispute()+');
206: END IF;
207: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
208: IF FND_MSG_PUB.Check_Msg_Level
209: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
210: THEN
211: FND_MSG_PUB.Add_Exc_Msg
212: ( G_PKG_NAME ,
205: ' at arp_deduction_cover.update_amount_in_dispute()+');
206: END IF;
207: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
208: IF FND_MSG_PUB.Check_Msg_Level
209: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
210: THEN
211: FND_MSG_PUB.Add_Exc_Msg
212: ( G_PKG_NAME ,
213: l_api_name
207: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
208: IF FND_MSG_PUB.Check_Msg_Level
209: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
210: THEN
211: FND_MSG_PUB.Add_Exc_Msg
212: ( G_PKG_NAME ,
213: l_api_name
214: );
215: END IF;
214: );
215: END IF;
216: END IF;
217: ROLLBACK TO Update_Amount_In_Dispute;
218: FND_MSG_PUB.Count_And_Get
219: (p_encoded => FND_API.G_FALSE,
220: p_count => x_msg_count,
221: p_data => x_msg_data);
222:
344: SAVEPOINT Create_Receipt_Writeoff;
345: -- Initialize message list if p_init_msg_list is set to TRUE.
346: IF FND_API.to_Boolean( p_init_msg_list )
347: THEN
348: FND_MSG_PUB.initialize;
349: END IF;
350: -- Initialize API return status to success
351: x_return_status := FND_API.G_RET_STS_SUCCESS;
352:
375: +---------------------------------------------------------------------*/
376: IF (p_receivables_trx_id IS NULL)
377: THEN
378: FND_MESSAGE.SET_NAME('AR','AR_WR_INVALID_ACTIVITY_ID');
379: FND_MSG_PUB.Add;
380: l_error_count := l_error_count + 1;
381: ELSE
382: BEGIN
383: SELECT receivables_trx_id
391: EXCEPTION
392: WHEN NO_DATA_FOUND
393: THEN
394: FND_MESSAGE.SET_NAME('AR','AR_WR_INVALID_ACTIVITY_ID');
395: FND_MSG_PUB.Add;
396: l_error_count := l_error_count + 1;
397: END;
398: END IF;
399:
446: l_balance := (l_amount - p_amount);
447: IF p_new_claim_id IS NULL
448: THEN
449: FND_MESSAGE.set_name('AR','AR_RWAPP_NEW_CLAIM_ID_NULL');
450: FND_MSG_PUB.Add;
451: l_error_count := l_error_count + 1;
452: ELSE
453: IF NOT claim_valid(
454: p_claim_id => p_new_claim_id,
499: NULL;
500: ELSE
501: FND_MESSAGE.SET_NAME('AR', 'GENERIC_MESSAGE');
502: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT', l_error_message);
503: FND_MSG_PUB.Add;
504: l_error_count := l_error_count + 1;
505: END IF;
506:
507: /*---------------------------------------------------------------------+
625: EXCEPTION
626: WHEN FND_API.G_EXC_ERROR THEN
627: ROLLBACK TO Create_Receipt_Writeoff;
628: x_return_status := FND_API.G_RET_STS_ERROR ;
629: FND_MSG_PUB.Count_And_Get
630: (p_encoded => FND_API.G_FALSE,
631: p_count => x_msg_count,
632: p_data => x_msg_data);
633: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
636: ' at arp_deduction_cover.create_receipt_writeoff()+');
637: END IF;
638: ROLLBACK TO Create_Receipt_Writeoff;
639: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
640: FND_MSG_PUB.Count_And_Get
641: (p_encoded => FND_API.G_FALSE,
642: p_count => x_msg_count,
643: p_data => x_msg_data);
644: WHEN OTHERS THEN
654: arp_util.debug('create_receipt_writeoff: ' || 'Unexpected error '||sqlerrm||
655: ' at arp_deduction_cover.create_receipt_writeoff()+');
656: END IF;
657: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
658: IF FND_MSG_PUB.Check_Msg_Level
659: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
660: THEN
661: FND_MSG_PUB.Add_Exc_Msg
662: ( G_PKG_NAME ,
655: ' at arp_deduction_cover.create_receipt_writeoff()+');
656: END IF;
657: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
658: IF FND_MSG_PUB.Check_Msg_Level
659: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
660: THEN
661: FND_MSG_PUB.Add_Exc_Msg
662: ( G_PKG_NAME ,
663: l_api_name
657: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
658: IF FND_MSG_PUB.Check_Msg_Level
659: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
660: THEN
661: FND_MSG_PUB.Add_Exc_Msg
662: ( G_PKG_NAME ,
663: l_api_name
664: );
665: END IF;
664: );
665: END IF;
666: END IF;
667: ROLLBACK TO Create_Receipt_Writeoff;
668: FND_MSG_PUB.Count_And_Get
669: (p_encoded => FND_API.G_FALSE,
670: p_count => x_msg_count,
671: p_data => x_msg_data);
672: END create_receipt_writeoff;
817: SAVEPOINT split_claim_reapplication;
818: -- Initialize message list if p_init_msg_list is set to TRUE.
819: IF FND_API.to_Boolean( p_init_msg_list )
820: THEN
821: FND_MSG_PUB.initialize;
822: END IF;
823: -- Initialize API return status to success
824: x_return_status := FND_API.G_RET_STS_SUCCESS;
825:
885: END IF;
886: EXCEPTION
887: WHEN OTHERS THEN
888: FND_MESSAGE.SET_NAME('AR','ARTA_PAYMENT_SCHEDULE_NO_FOUND');
889: FND_MSG_PUB.Add;
890: RAISE FND_API.G_EXC_ERROR;
891: END;
892: IF NOT claim_on_receipt (
893: p_claim_id => p_claim_id
1132: EXCEPTION
1133: WHEN FND_API.G_EXC_ERROR THEN
1134: ROLLBACK TO split_claim_reapplication;
1135: x_return_status := FND_API.G_RET_STS_ERROR ;
1136: FND_MSG_PUB.Count_And_Get
1137: (p_encoded => FND_API.G_FALSE,
1138: p_count => x_msg_count,
1139: p_data => x_msg_data);
1140: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1143: ' at arp_deduction_cover.split_claim_reapplication()+');
1144: END IF;
1145: ROLLBACK TO split_claim_reapplication;
1146: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1147: FND_MSG_PUB.Count_And_Get
1148: (p_encoded => FND_API.G_FALSE,
1149: p_count => x_msg_count,
1150: p_data => x_msg_data);
1151: WHEN OTHERS THEN
1161: arp_util.debug('split_claim_reapplication: ' || 'Unexpected error '||sqlerrm||
1162: ' at arp_deduction_cover.split_claim_reapplication()+');
1163: END IF;
1164: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1165: IF FND_MSG_PUB.Check_Msg_Level
1166: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1167: THEN
1168: FND_MSG_PUB.Add_Exc_Msg
1169: ( G_PKG_NAME ,
1162: ' at arp_deduction_cover.split_claim_reapplication()+');
1163: END IF;
1164: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1165: IF FND_MSG_PUB.Check_Msg_Level
1166: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1167: THEN
1168: FND_MSG_PUB.Add_Exc_Msg
1169: ( G_PKG_NAME ,
1170: l_api_name
1164: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1165: IF FND_MSG_PUB.Check_Msg_Level
1166: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1167: THEN
1168: FND_MSG_PUB.Add_Exc_Msg
1169: ( G_PKG_NAME ,
1170: l_api_name
1171: );
1172: END IF;
1171: );
1172: END IF;
1173: END IF;
1174: ROLLBACK TO split_claim_reapplication;
1175: FND_MSG_PUB.Count_And_Get
1176: (p_encoded => FND_API.G_FALSE,
1177: p_count => x_msg_count,
1178: p_data => x_msg_data);
1179: END split_claim_reapplication;
1232: x_cr_payment_schedule_id := NULL;
1233: IF (p_cash_receipt_id IS NULL)
1234: THEN
1235: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CASH_RCPT_ID_NULL');
1236: FND_MSG_PUB.Add;
1237: RETURN FALSE;
1238: ELSE
1239: SELECT cr.receipt_number
1240: , cr.receipt_date
1265: WHEN OTHERS
1266: THEN
1267: FND_MESSAGE.SET_NAME('AR','ARTA_ERR_FINDING_CASH_RCPT');
1268: FND_MESSAGE.SET_TOKEN('CR_ID',p_cash_receipt_id);
1269: FND_MSG_PUB.Add;
1270: RETURN FALSE;
1271: END receipt_valid;
1272:
1273: /*========================================================================
1345:
1346: IF (p_claim_id IS NULL)
1347: THEN
1348: FND_MESSAGE.SET_NAME('AR','AR_RWAPP_NULL_CLAIM_ID');
1349: FND_MSG_PUB.Add;
1350: RETURN FALSE;
1351: ELSIF (p_cash_receipt_id IS NOT NULL)
1352: THEN
1353: BEGIN
1574:
1575: RETURN TRUE;
1576: ELSE
1577: FND_MESSAGE.SET_NAME('AR','AR_RW_INVALID_CLAIM_ID');
1578: FND_MSG_PUB.Add;
1579: RETURN FALSE;
1580: END IF;
1581: IF PG_DEBUG in ('Y', 'C') THEN
1582: arp_standard.debug('ARP_DEDUCTION_COVER.claim_on_receipt()-');
1586: WHEN OTHERS
1587: THEN
1588: FND_MESSAGE.SET_NAME('AR','AR_RWAPP_CLAIM_ID_NOTFOUND');
1589: FND_MESSAGE.SET_TOKEN('CLAIM_ID',p_claim_id);
1590: FND_MSG_PUB.Add;
1591: RETURN FALSE;
1592: END claim_on_receipt;
1593:
1594: /*========================================================================
1657: EXCEPTION
1658: WHEN NO_DATA_FOUND THEN
1659: FND_MESSAGE.set_name('AR','AR_RW_INVALID_CLAIM_ID');
1660: FND_MESSAGE.set_token('CLAIM_ID',p_claim_id);
1661: FND_MSG_PUB.Add;
1662: RETURN FALSE;
1663: END;
1664: RETURN TRUE;
1665: ELSE
1663: END;
1664: RETURN TRUE;
1665: ELSE
1666: FND_MESSAGE.set_name('AR','AR_RW_ICLAIM_NOT_INSTALLED');
1667: FND_MSG_PUB.Add;
1668: RETURN FALSE;
1669: END IF;
1670: IF PG_DEBUG in ('Y', 'C') THEN
1671: arp_standard.debug('ARP_DEDUCTION_COVER.claim_valid()-');
1682: IF PG_DEBUG in ('Y', 'C') THEN
1683: arp_standard.debug('claim_valid: ' || 'Unexpected error '||sqlerrm||
1684: ' at arp_deduction_cover.claim_valid()+');
1685: END IF;
1686: IF FND_MSG_PUB.Check_Msg_Level
1687: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1688: THEN
1689: FND_MSG_PUB.Add_Exc_Msg
1690: ( G_PKG_NAME ,
1683: arp_standard.debug('claim_valid: ' || 'Unexpected error '||sqlerrm||
1684: ' at arp_deduction_cover.claim_valid()+');
1685: END IF;
1686: IF FND_MSG_PUB.Check_Msg_Level
1687: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1688: THEN
1689: FND_MSG_PUB.Add_Exc_Msg
1690: ( G_PKG_NAME ,
1691: l_api_name
1685: END IF;
1686: IF FND_MSG_PUB.Check_Msg_Level
1687: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1688: THEN
1689: FND_MSG_PUB.Add_Exc_Msg
1690: ( G_PKG_NAME ,
1691: l_api_name
1692: );
1693: END IF;
1792: END IF;
1793:
1794: IF l_new_unapplied_total < 0 THEN
1795: FND_MESSAGE.set_name('AR','AR_RW_CLAIM_SETTLMT_NEG_RCT');
1796: FND_MSG_PUB.Add;
1797: x_return_status := FND_API.G_RET_STS_ERROR;
1798: END IF;
1799:
1800: IF PG_DEBUG in ('Y', 'C') THEN
1803:
1804: EXCEPTION WHEN OTHERS THEN
1805: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
1806: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ARXDECVB.pls:Validate_amount_applied' ||SQLERRM);
1807: FND_MSG_PUB.Add;
1808: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1809: END validate_amount_applied;
1810:
1811: END ARP_DEDUCTION_COVER;