288: WHEN no_data_found THEN
289: IF PG_DEBUG in ('Y', 'C') THEN
290: arp_util.debug('Create_Prepayment: ' || 'Prepayment only allowed for credit card');
291: END IF;
292: FND_MESSAGE.SET_NAME('AR','AR_RAPI_PREPAY_ONLYFOR_CC');
293: FND_MSG_PUB.Add;
294: x_return_status := FND_API.G_RET_STS_ERROR;
295: RETURN;
296: END;
305:
306: IF PG_DEBUG in ('Y', 'C') THEN
307: arp_util.debug('Create_Prepayment: ' || 'For Prepayment, customer banks account details must be passed');
308: END IF;
309: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_BK_AC_2_INVALID');
310: FND_MSG_PUB.Add;
311: x_return_status := FND_API.G_RET_STS_ERROR;
312: RETURN;
313: END IF;
384: IF x_msg_count = 1 THEN
385: /* If one message, like warning, then put this back on stack as the
386: Create routine must have removed it from the stack and put it on x_msg_data
387: */
388: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
389: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','Create_Prepayment : '||x_msg_data);
390: FND_MSG_PUB.Add;
391: END IF;
392: --While applying to prepayment, generate payment_set_id from the
385: /* If one message, like warning, then put this back on stack as the
386: Create routine must have removed it from the stack and put it on x_msg_data
387: */
388: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
389: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','Create_Prepayment : '||x_msg_data);
390: FND_MSG_PUB.Add;
391: END IF;
392: --While applying to prepayment, generate payment_set_id from the
393: --sequence and pass to apply routine.
401: WHEN others THEN
402: IF PG_DEBUG in ('Y', 'C') THEN
403: arp_util.debug('Create_Prepayment: ' || 'Payment set id sequence generation failed'||sqlerrm);
404: END IF;
405: FND_MESSAGE.SET_NAME('AR','AR_RAPI_PREPAY_SEQ_FAILED');
406: FND_MSG_PUB.Add;
407: x_return_status := FND_API.G_RET_STS_ERROR;
408: RETURN;
409: END;
444: IF PG_DEBUG in ('Y', 'C') THEN
445: arp_util.debug('ERROR: payment_trxn_extension is NULL ' ||nvl(l_payment_trxn_extension_id,-9999));
446: END IF;
447:
448: FND_MESSAGE.set_name('AR', 'AR_PAY_PROCESS_INVALID_STATUS');
449: FND_MSG_PUB.Add;
450:
451: x_return_status := FND_API.G_RET_STS_ERROR; -- should never happen
452:
680:
681: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
682: AND (NVL(p_called_from,'NONE') = 'IREC') then
683:
684: FND_MESSAGE.set_name('AR', 'AR_PAY_PROCESS_AUTHFAILURE');
685: FND_MSG_PUB.Add;
686: x_return_status := l_return_status;
687: RETURN;
688:
688:
689: ELSIF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
690:
691: arp_standard.debug('create_cash_126');
692: FND_MESSAGE.set_name('AR', 'AR_CC_AUTH_FAILED');
693: FND_MSG_PUB.Add;
694:
695: IF l_response_rec.Result_Code is NOT NULL THEN
696:
699: l_iby_msg_data := substrb( l_response_rec.Result_Code || ': '||
700: l_response_rec.Result_Message , 1, 240);
701:
702: arp_standard.debug( 'l_iby_msg_data: ' || l_iby_msg_data);
703: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
704: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT',l_iby_msg_data);
705:
706: FND_MSG_PUB.Add;
707:
700: l_response_rec.Result_Message , 1, 240);
701:
702: arp_standard.debug( 'l_iby_msg_data: ' || l_iby_msg_data);
703: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
704: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT',l_iby_msg_data);
705:
706: FND_MSG_PUB.Add;
707:
708: END IF;
713:
714: l_vend_msg_data := substrb(l_authresult_rec.PaymentSys_Code || ': '||
715: l_authresult_rec.PaymentSys_Msg , 1, 240 );
716:
717: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
718: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT',l_vend_msg_data);
719:
720: FND_MSG_PUB.Add;
721:
714: l_vend_msg_data := substrb(l_authresult_rec.PaymentSys_Code || ': '||
715: l_authresult_rec.PaymentSys_Msg , 1, 240 );
716:
717: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
718: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT',l_vend_msg_data);
719:
720: FND_MSG_PUB.Add;
721:
722: END IF;
886: ROLLBACK TO Create_Prepayment_PVT;
887:
888: -- Display_Parameters;
889: x_return_status := FND_API.G_RET_STS_ERROR ;
890: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
891: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','CREATE_PREPAYMENT : '||SQLERRM);
892: FND_MSG_PUB.Add;
893:
894: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
887:
888: -- Display_Parameters;
889: x_return_status := FND_API.G_RET_STS_ERROR ;
890: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
891: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','CREATE_PREPAYMENT : '||SQLERRM);
892: FND_MSG_PUB.Add;
893:
894: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
895: p_count => x_msg_count,
897: );
898: RETURN;
899: ELSE
900: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
901: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
902: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','CREATE_PREPAYMENT : '||SQLERRM);
903: FND_MSG_PUB.Add;
904: END IF;
905:
898: RETURN;
899: ELSE
900: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
901: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
902: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','CREATE_PREPAYMENT : '||SQLERRM);
903: FND_MSG_PUB.Add;
904: END IF;
905:
906: IF PG_DEBUG in ('Y', 'C') THEN