107: AND display = 'Y'
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:
152:
153: /*---------------------------------------------------------------------+
154: | 2) Enter a note on the transaction |
155: +---------------------------------------------------------------------*/
156: FND_MESSAGE.set_name('AR','AR_RW_TRX_CLAIM_SETTLE_NOTE');
157: FND_MESSAGE.set_token('CLAIM_NUM',p_claim_number);
158: FND_MESSAGE.set_token('AMOUNT',p_amount);
159: l_note_text := FND_MESSAGE.get;
160:
153: /*---------------------------------------------------------------------+
154: | 2) Enter a note on the transaction |
155: +---------------------------------------------------------------------*/
156: FND_MESSAGE.set_name('AR','AR_RW_TRX_CLAIM_SETTLE_NOTE');
157: FND_MESSAGE.set_token('CLAIM_NUM',p_claim_number);
158: FND_MESSAGE.set_token('AMOUNT',p_amount);
159: l_note_text := FND_MESSAGE.get;
160:
161: arp_cmreq_wf.InsertTrxNotes
154: | 2) Enter a note on the transaction |
155: +---------------------------------------------------------------------*/
156: FND_MESSAGE.set_name('AR','AR_RW_TRX_CLAIM_SETTLE_NOTE');
157: FND_MESSAGE.set_token('CLAIM_NUM',p_claim_number);
158: FND_MESSAGE.set_token('AMOUNT',p_amount);
159: l_note_text := FND_MESSAGE.get;
160:
161: arp_cmreq_wf.InsertTrxNotes
162: (x_customer_call_id => NULL,
155: +---------------------------------------------------------------------*/
156: FND_MESSAGE.set_name('AR','AR_RW_TRX_CLAIM_SETTLE_NOTE');
157: FND_MESSAGE.set_token('CLAIM_NUM',p_claim_number);
158: FND_MESSAGE.set_token('AMOUNT',p_amount);
159: l_note_text := FND_MESSAGE.get;
160:
161: arp_cmreq_wf.InsertTrxNotes
162: (x_customer_call_id => NULL,
163: x_customer_call_topic_id => NULL,
357: | 1) Check that a valid writeoff activity has been passed |
358: +---------------------------------------------------------------------*/
359: IF (p_receivables_trx_id IS NULL)
360: THEN
361: FND_MESSAGE.SET_NAME('AR','AR_WR_INVALID_ACTIVITY_ID');
362: FND_MSG_PUB.Add;
363: l_error_count := l_error_count + 1;
364: ELSE
365: BEGIN
373: AND type = 'WRITEOFF';
374: EXCEPTION
375: WHEN NO_DATA_FOUND
376: THEN
377: FND_MESSAGE.SET_NAME('AR','AR_WR_INVALID_ACTIVITY_ID');
378: FND_MSG_PUB.Add;
379: l_error_count := l_error_count + 1;
380: END;
381: END IF;
428: THEN
429: l_balance := (l_amount - p_amount);
430: IF p_new_claim_id IS NULL
431: THEN
432: FND_MESSAGE.set_name('AR','AR_RWAPP_NEW_CLAIM_ID_NULL');
433: FND_MSG_PUB.Add;
434: l_error_count := l_error_count + 1;
435: ELSE
436: IF NOT claim_valid(
480: l_error_message) = TRUE)
481: THEN
482: NULL;
483: ELSE
484: FND_MESSAGE.SET_NAME('AR', 'GENERIC_MESSAGE');
485: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT', l_error_message);
486: FND_MSG_PUB.Add;
487: l_error_count := l_error_count + 1;
488: END IF;
481: THEN
482: NULL;
483: ELSE
484: FND_MESSAGE.SET_NAME('AR', 'GENERIC_MESSAGE');
485: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT', l_error_message);
486: FND_MSG_PUB.Add;
487: l_error_count := l_error_count + 1;
488: END IF;
489:
850: l_applied_ps_id := -4;
851: END IF;
852: EXCEPTION
853: WHEN OTHERS THEN
854: FND_MESSAGE.SET_NAME('AR','ARTA_PAYMENT_SCHEDULE_NO_FOUND');
855: FND_MSG_PUB.Add;
856: RAISE FND_API.G_EXC_ERROR;
857: END;
858: IF NOT claim_on_receipt (
1197: x_currency_code := NULL;
1198: x_cr_payment_schedule_id := NULL;
1199: IF (p_cash_receipt_id IS NULL)
1200: THEN
1201: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CASH_RCPT_ID_NULL');
1202: FND_MSG_PUB.Add;
1203: RETURN FALSE;
1204: ELSE
1205: SELECT cr.receipt_number
1229:
1230: EXCEPTION
1231: WHEN OTHERS
1232: THEN
1233: FND_MESSAGE.SET_NAME('AR','ARTA_ERR_FINDING_CASH_RCPT');
1234: FND_MESSAGE.SET_TOKEN('CR_ID',p_cash_receipt_id);
1235: FND_MSG_PUB.Add;
1236: RETURN FALSE;
1237: END receipt_valid;
1230: EXCEPTION
1231: WHEN OTHERS
1232: THEN
1233: FND_MESSAGE.SET_NAME('AR','ARTA_ERR_FINDING_CASH_RCPT');
1234: FND_MESSAGE.SET_TOKEN('CR_ID',p_cash_receipt_id);
1235: FND_MSG_PUB.Add;
1236: RETURN FALSE;
1237: END receipt_valid;
1238:
1310: END IF;
1311:
1312: IF (p_claim_id IS NULL)
1313: THEN
1314: FND_MESSAGE.SET_NAME('AR','AR_RWAPP_NULL_CLAIM_ID');
1315: FND_MSG_PUB.Add;
1316: RETURN FALSE;
1317: ELSIF (p_cash_receipt_id IS NOT NULL)
1318: THEN
1539: END;
1540:
1541: RETURN TRUE;
1542: ELSE
1543: FND_MESSAGE.SET_NAME('AR','AR_RW_INVALID_CLAIM_ID');
1544: FND_MSG_PUB.Add;
1545: RETURN FALSE;
1546: END IF;
1547: IF PG_DEBUG in ('Y', 'C') THEN
1550:
1551: EXCEPTION
1552: WHEN OTHERS
1553: THEN
1554: FND_MESSAGE.SET_NAME('AR','AR_RWAPP_CLAIM_ID_NOTFOUND');
1555: FND_MESSAGE.SET_TOKEN('CLAIM_ID',p_claim_id);
1556: FND_MSG_PUB.Add;
1557: RETURN FALSE;
1558: END claim_on_receipt;
1551: EXCEPTION
1552: WHEN OTHERS
1553: THEN
1554: FND_MESSAGE.SET_NAME('AR','AR_RWAPP_CLAIM_ID_NOTFOUND');
1555: FND_MESSAGE.SET_TOKEN('CLAIM_ID',p_claim_id);
1556: FND_MSG_PUB.Add;
1557: RETURN FALSE;
1558: END claim_on_receipt;
1559:
1621: p_receipt_id,
1622: p_curr_code;
1623: EXCEPTION
1624: WHEN NO_DATA_FOUND THEN
1625: FND_MESSAGE.set_name('AR','AR_RW_INVALID_CLAIM_ID');
1626: FND_MESSAGE.set_token('CLAIM_ID',p_claim_id);
1627: FND_MSG_PUB.Add;
1628: RETURN FALSE;
1629: END;
1622: p_curr_code;
1623: EXCEPTION
1624: WHEN NO_DATA_FOUND THEN
1625: FND_MESSAGE.set_name('AR','AR_RW_INVALID_CLAIM_ID');
1626: FND_MESSAGE.set_token('CLAIM_ID',p_claim_id);
1627: FND_MSG_PUB.Add;
1628: RETURN FALSE;
1629: END;
1630: RETURN TRUE;
1628: RETURN FALSE;
1629: END;
1630: RETURN TRUE;
1631: ELSE
1632: FND_MESSAGE.set_name('AR','AR_RW_ICLAIM_NOT_INSTALLED');
1633: FND_MSG_PUB.Add;
1634: RETURN FALSE;
1635: END IF;
1636: IF PG_DEBUG in ('Y', 'C') THEN
1757: arp_standard.debug('l_new_unapplied_total = '||l_new_unapplied_total);
1758: END IF;
1759:
1760: IF l_new_unapplied_total < 0 THEN
1761: FND_MESSAGE.set_name('AR','AR_RW_CLAIM_SETTLMT_NEG_RCT');
1762: FND_MSG_PUB.Add;
1763: x_return_status := FND_API.G_RET_STS_ERROR;
1764: END IF;
1765:
1767: arp_standard.debug('ARP_DEDUCTION_COVER.validate_amount_applied()-');
1768: END IF;
1769:
1770: EXCEPTION WHEN OTHERS THEN
1771: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
1772: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ARXDECVB.pls:Validate_amount_applied' ||SQLERRM);
1773: FND_MSG_PUB.Add;
1774: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1775: END validate_amount_applied;
1768: END IF;
1769:
1770: EXCEPTION WHEN OTHERS THEN
1771: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
1772: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ARXDECVB.pls:Validate_amount_applied' ||SQLERRM);
1773: FND_MSG_PUB.Add;
1774: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1775: END validate_amount_applied;
1776: