149:
150: WHEN OTHERS THEN
151: ROLLBACK TO create_pm_pub;
152: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
153: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
154: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
155: FND_MSG_PUB.ADD;
156: FND_MSG_PUB.Count_And_Get(
157: p_encoded => FND_API.G_FALSE,
150: WHEN OTHERS THEN
151: ROLLBACK TO create_pm_pub;
152: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
153: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
154: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
155: FND_MSG_PUB.ADD;
156: FND_MSG_PUB.Count_And_Get(
157: p_encoded => FND_API.G_FALSE,
158: p_count => x_msg_count,
230: ( px_last_update_date IS NOT NULL AND
231: l_last_update_date IS NOT NULL AND
232: px_last_update_date = l_last_update_date ) )
233: THEN
234: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_RECORD_CHANGED' );
235: FND_MESSAGE.SET_TOKEN( 'TABLE', 'RA_CUST_RECEIPT_METHODS' );
236: FND_MSG_PUB.ADD;
237: RAISE FND_API.G_EXC_ERROR;
238: END IF;
231: l_last_update_date IS NOT NULL AND
232: px_last_update_date = l_last_update_date ) )
233: THEN
234: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_RECORD_CHANGED' );
235: FND_MESSAGE.SET_TOKEN( 'TABLE', 'RA_CUST_RECEIPT_METHODS' );
236: FND_MSG_PUB.ADD;
237: RAISE FND_API.G_EXC_ERROR;
238: END IF;
239:
238: END IF;
239:
240: EXCEPTION
241: WHEN NO_DATA_FOUND THEN
242: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_NO_RECORD' );
243: FND_MESSAGE.SET_TOKEN( 'RECORD', 'RA_CUST_RECEIPT_METHODS' );
244: FND_MESSAGE.SET_TOKEN( 'VALUE', l_pm_id);
245: FND_MSG_PUB.ADD;
246: RAISE FND_API.G_EXC_ERROR;
239:
240: EXCEPTION
241: WHEN NO_DATA_FOUND THEN
242: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_NO_RECORD' );
243: FND_MESSAGE.SET_TOKEN( 'RECORD', 'RA_CUST_RECEIPT_METHODS' );
244: FND_MESSAGE.SET_TOKEN( 'VALUE', l_pm_id);
245: FND_MSG_PUB.ADD;
246: RAISE FND_API.G_EXC_ERROR;
247: END;
240: EXCEPTION
241: WHEN NO_DATA_FOUND THEN
242: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_NO_RECORD' );
243: FND_MESSAGE.SET_TOKEN( 'RECORD', 'RA_CUST_RECEIPT_METHODS' );
244: FND_MESSAGE.SET_TOKEN( 'VALUE', l_pm_id);
245: FND_MSG_PUB.ADD;
246: RAISE FND_API.G_EXC_ERROR;
247: END;
248:
331:
332: WHEN OTHERS THEN
333: ROLLBACK TO update_pm_pub;
334: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
335: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
336: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
337: FND_MSG_PUB.ADD;
338: FND_MSG_PUB.Count_And_Get(
339: p_encoded => FND_API.G_FALSE,
332: WHEN OTHERS THEN
333: ROLLBACK TO update_pm_pub;
334: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
335: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
336: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
337: FND_MSG_PUB.ADD;
338: FND_MSG_PUB.Count_And_Get(
339: p_encoded => FND_API.G_FALSE,
340: p_count => x_msg_count,
424: AND sysdate between start_date and nvl(end_date, sysdate);
425: BEGIN
426: -- check not null first
427: IF(p_payment_method_rec.receipt_method_id IS NULL OR p_payment_method_rec.receipt_method_id = FND_API.G_MISS_NUM) THEN
428: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
429: FND_MESSAGE.SET_TOKEN('COLUMN' ,'RECEIPT_METHOD_ID');
430: FND_MSG_PUB.ADD;
431: RAISE FND_API.G_EXC_ERROR;
432: END IF;
425: BEGIN
426: -- check not null first
427: IF(p_payment_method_rec.receipt_method_id IS NULL OR p_payment_method_rec.receipt_method_id = FND_API.G_MISS_NUM) THEN
428: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
429: FND_MESSAGE.SET_TOKEN('COLUMN' ,'RECEIPT_METHOD_ID');
430: FND_MSG_PUB.ADD;
431: RAISE FND_API.G_EXC_ERROR;
432: END IF;
433:
431: RAISE FND_API.G_EXC_ERROR;
432: END IF;
433:
434: IF(p_payment_method_rec.primary_flag IS NULL OR p_payment_method_rec.primary_flag = FND_API.G_MISS_CHAR) THEN
435: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
436: FND_MESSAGE.SET_TOKEN('COLUMN' ,'PRIMARY_FLAG');
437: FND_MSG_PUB.ADD;
438: RAISE FND_API.G_EXC_ERROR;
439: END IF;
432: END IF;
433:
434: IF(p_payment_method_rec.primary_flag IS NULL OR p_payment_method_rec.primary_flag = FND_API.G_MISS_CHAR) THEN
435: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
436: FND_MESSAGE.SET_TOKEN('COLUMN' ,'PRIMARY_FLAG');
437: FND_MSG_PUB.ADD;
438: RAISE FND_API.G_EXC_ERROR;
439: END IF;
440:
438: RAISE FND_API.G_EXC_ERROR;
439: END IF;
440:
441: IF(p_payment_method_rec.cust_account_id IS NULL OR p_payment_method_rec.cust_account_id = FND_API.G_MISS_NUM) THEN
442: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
443: FND_MESSAGE.SET_TOKEN('COLUMN' ,'CUSTOMER_ID');
444: FND_MSG_PUB.ADD;
445: RAISE FND_API.G_EXC_ERROR;
446: END IF;
439: END IF;
440:
441: IF(p_payment_method_rec.cust_account_id IS NULL OR p_payment_method_rec.cust_account_id = FND_API.G_MISS_NUM) THEN
442: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
443: FND_MESSAGE.SET_TOKEN('COLUMN' ,'CUSTOMER_ID');
444: FND_MSG_PUB.ADD;
445: RAISE FND_API.G_EXC_ERROR;
446: END IF;
447:
445: RAISE FND_API.G_EXC_ERROR;
446: END IF;
447:
448: IF(p_payment_method_rec.start_date IS NULL or p_payment_method_rec.start_date = FND_API.G_MISS_DATE) THEN
449: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
450: FND_MESSAGE.SET_TOKEN('COLUMN' ,'START_DATE');
451: FND_MSG_PUB.ADD;
452: RAISE FND_API.G_EXC_ERROR;
453: END IF;
446: END IF;
447:
448: IF(p_payment_method_rec.start_date IS NULL or p_payment_method_rec.start_date = FND_API.G_MISS_DATE) THEN
449: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
450: FND_MESSAGE.SET_TOKEN('COLUMN' ,'START_DATE');
451: FND_MSG_PUB.ADD;
452: RAISE FND_API.G_EXC_ERROR;
453: END IF;
454:
457: FETCH check_cust_acct_id INTO l_dummy;
458: -- if found, then raise error saying already exist
459: IF(check_cust_acct_id%NOTFOUND) THEN
460: CLOSE check_cust_acct_id;
461: FND_MESSAGE.SET_NAME('AR', 'HZ_API_INVALID_FK');
462: FND_MESSAGE.SET_TOKEN('FK','CUSTOMER_ID');
463: FND_MESSAGE.SET_TOKEN('COLUMN','CUST_ACCOUNT_ID');
464: FND_MESSAGE.SET_TOKEN('TABLE','HZ_CUST_ACCOUNTS');
465: FND_MSG_PUB.ADD;
458: -- if found, then raise error saying already exist
459: IF(check_cust_acct_id%NOTFOUND) THEN
460: CLOSE check_cust_acct_id;
461: FND_MESSAGE.SET_NAME('AR', 'HZ_API_INVALID_FK');
462: FND_MESSAGE.SET_TOKEN('FK','CUSTOMER_ID');
463: FND_MESSAGE.SET_TOKEN('COLUMN','CUST_ACCOUNT_ID');
464: FND_MESSAGE.SET_TOKEN('TABLE','HZ_CUST_ACCOUNTS');
465: FND_MSG_PUB.ADD;
466: RAISE FND_API.G_EXC_ERROR;
459: IF(check_cust_acct_id%NOTFOUND) THEN
460: CLOSE check_cust_acct_id;
461: FND_MESSAGE.SET_NAME('AR', 'HZ_API_INVALID_FK');
462: FND_MESSAGE.SET_TOKEN('FK','CUSTOMER_ID');
463: FND_MESSAGE.SET_TOKEN('COLUMN','CUST_ACCOUNT_ID');
464: FND_MESSAGE.SET_TOKEN('TABLE','HZ_CUST_ACCOUNTS');
465: FND_MSG_PUB.ADD;
466: RAISE FND_API.G_EXC_ERROR;
467: END IF;
460: CLOSE check_cust_acct_id;
461: FND_MESSAGE.SET_NAME('AR', 'HZ_API_INVALID_FK');
462: FND_MESSAGE.SET_TOKEN('FK','CUSTOMER_ID');
463: FND_MESSAGE.SET_TOKEN('COLUMN','CUST_ACCOUNT_ID');
464: FND_MESSAGE.SET_TOKEN('TABLE','HZ_CUST_ACCOUNTS');
465: FND_MSG_PUB.ADD;
466: RAISE FND_API.G_EXC_ERROR;
467: END IF;
468: CLOSE check_cust_acct_id;
472: OPEN check_site_use_id(p_payment_method_rec.cust_account_id, p_payment_method_rec.site_use_id);
473: FETCH check_site_use_id INTO l_dummy;
474: IF(check_site_use_id%NOTFOUND) THEN
475: CLOSE check_site_use_id;
476: FND_MESSAGE.SET_NAME('AR', 'HZ_API_INVALID_FK');
477: FND_MESSAGE.SET_TOKEN('FK','SITE_USE_ID');
478: FND_MESSAGE.SET_TOKEN('COLUMN','SITE_USE_ID');
479: FND_MESSAGE.SET_TOKEN('TABLE','HZ_CUST_SITE_USES_ALL');
480: FND_MSG_PUB.ADD;
473: FETCH check_site_use_id INTO l_dummy;
474: IF(check_site_use_id%NOTFOUND) THEN
475: CLOSE check_site_use_id;
476: FND_MESSAGE.SET_NAME('AR', 'HZ_API_INVALID_FK');
477: FND_MESSAGE.SET_TOKEN('FK','SITE_USE_ID');
478: FND_MESSAGE.SET_TOKEN('COLUMN','SITE_USE_ID');
479: FND_MESSAGE.SET_TOKEN('TABLE','HZ_CUST_SITE_USES_ALL');
480: FND_MSG_PUB.ADD;
481: RAISE FND_API.G_EXC_ERROR;
474: IF(check_site_use_id%NOTFOUND) THEN
475: CLOSE check_site_use_id;
476: FND_MESSAGE.SET_NAME('AR', 'HZ_API_INVALID_FK');
477: FND_MESSAGE.SET_TOKEN('FK','SITE_USE_ID');
478: FND_MESSAGE.SET_TOKEN('COLUMN','SITE_USE_ID');
479: FND_MESSAGE.SET_TOKEN('TABLE','HZ_CUST_SITE_USES_ALL');
480: FND_MSG_PUB.ADD;
481: RAISE FND_API.G_EXC_ERROR;
482: END IF;
475: CLOSE check_site_use_id;
476: FND_MESSAGE.SET_NAME('AR', 'HZ_API_INVALID_FK');
477: FND_MESSAGE.SET_TOKEN('FK','SITE_USE_ID');
478: FND_MESSAGE.SET_TOKEN('COLUMN','SITE_USE_ID');
479: FND_MESSAGE.SET_TOKEN('TABLE','HZ_CUST_SITE_USES_ALL');
480: FND_MSG_PUB.ADD;
481: RAISE FND_API.G_EXC_ERROR;
482: END IF;
483: CLOSE check_site_use_id;
487: OPEN check_receipt_method_id(p_payment_method_rec.receipt_method_id);
488: FETCH check_receipt_method_id INTO l_dummy;
489: IF(check_receipt_method_id%NOTFOUND) THEN
490: CLOSE check_receipt_method_id;
491: FND_MESSAGE.SET_NAME('AR', 'HZ_API_INVALID_FK');
492: FND_MESSAGE.SET_TOKEN('FK','RECEIPT_METHOD_ID');
493: FND_MESSAGE.SET_TOKEN('COLUMN','RECEIPT_METHOD_ID');
494: FND_MESSAGE.SET_TOKEN('TABLE','AR_RECEIPT_METHODS');
495: FND_MSG_PUB.ADD;
488: FETCH check_receipt_method_id INTO l_dummy;
489: IF(check_receipt_method_id%NOTFOUND) THEN
490: CLOSE check_receipt_method_id;
491: FND_MESSAGE.SET_NAME('AR', 'HZ_API_INVALID_FK');
492: FND_MESSAGE.SET_TOKEN('FK','RECEIPT_METHOD_ID');
493: FND_MESSAGE.SET_TOKEN('COLUMN','RECEIPT_METHOD_ID');
494: FND_MESSAGE.SET_TOKEN('TABLE','AR_RECEIPT_METHODS');
495: FND_MSG_PUB.ADD;
496: RAISE FND_API.G_EXC_ERROR;
489: IF(check_receipt_method_id%NOTFOUND) THEN
490: CLOSE check_receipt_method_id;
491: FND_MESSAGE.SET_NAME('AR', 'HZ_API_INVALID_FK');
492: FND_MESSAGE.SET_TOKEN('FK','RECEIPT_METHOD_ID');
493: FND_MESSAGE.SET_TOKEN('COLUMN','RECEIPT_METHOD_ID');
494: FND_MESSAGE.SET_TOKEN('TABLE','AR_RECEIPT_METHODS');
495: FND_MSG_PUB.ADD;
496: RAISE FND_API.G_EXC_ERROR;
497: END IF;
490: CLOSE check_receipt_method_id;
491: FND_MESSAGE.SET_NAME('AR', 'HZ_API_INVALID_FK');
492: FND_MESSAGE.SET_TOKEN('FK','RECEIPT_METHOD_ID');
493: FND_MESSAGE.SET_TOKEN('COLUMN','RECEIPT_METHOD_ID');
494: FND_MESSAGE.SET_TOKEN('TABLE','AR_RECEIPT_METHODS');
495: FND_MSG_PUB.ADD;
496: RAISE FND_API.G_EXC_ERROR;
497: END IF;
498: CLOSE check_receipt_method_id;
498: CLOSE check_receipt_method_id;
499:
500: -- check primary_flag
501: IF NOT(p_payment_method_rec.primary_flag in ('Y','N')) THEN
502: fnd_message.set_name('AR', 'HZ_API_INVALID_LOOKUP');
503: fnd_message.set_token('COLUMN', 'PRIMARY_FLAG');
504: fnd_message.set_token('LOOKUP_TYPE', 'YES/NO');
505: fnd_msg_pub.add;
506: raise fnd_api.g_exc_error;
499:
500: -- check primary_flag
501: IF NOT(p_payment_method_rec.primary_flag in ('Y','N')) THEN
502: fnd_message.set_name('AR', 'HZ_API_INVALID_LOOKUP');
503: fnd_message.set_token('COLUMN', 'PRIMARY_FLAG');
504: fnd_message.set_token('LOOKUP_TYPE', 'YES/NO');
505: fnd_msg_pub.add;
506: raise fnd_api.g_exc_error;
507: END IF;
500: -- check primary_flag
501: IF NOT(p_payment_method_rec.primary_flag in ('Y','N')) THEN
502: fnd_message.set_name('AR', 'HZ_API_INVALID_LOOKUP');
503: fnd_message.set_token('COLUMN', 'PRIMARY_FLAG');
504: fnd_message.set_token('LOOKUP_TYPE', 'YES/NO');
505: fnd_msg_pub.add;
506: raise fnd_api.g_exc_error;
507: END IF;
508:
508:
509: -- check start_date and end_date
510: IF NOT(p_payment_method_rec.end_date IS NULL or p_payment_method_rec.end_date = FND_API.G_MISS_DATE) THEN
511: IF(p_payment_method_rec.start_date > p_payment_method_rec.end_date) THEN
512: fnd_message.set_name('AR', 'HZ_API_DATE_GREATER');
513: fnd_message.set_token('DATE2', 'END_DATE');
514: fnd_message.set_token('DATE1', 'START_DATE');
515: fnd_msg_pub.add;
516: raise fnd_api.g_exc_error;
509: -- check start_date and end_date
510: IF NOT(p_payment_method_rec.end_date IS NULL or p_payment_method_rec.end_date = FND_API.G_MISS_DATE) THEN
511: IF(p_payment_method_rec.start_date > p_payment_method_rec.end_date) THEN
512: fnd_message.set_name('AR', 'HZ_API_DATE_GREATER');
513: fnd_message.set_token('DATE2', 'END_DATE');
514: fnd_message.set_token('DATE1', 'START_DATE');
515: fnd_msg_pub.add;
516: raise fnd_api.g_exc_error;
517: END IF;
510: IF NOT(p_payment_method_rec.end_date IS NULL or p_payment_method_rec.end_date = FND_API.G_MISS_DATE) THEN
511: IF(p_payment_method_rec.start_date > p_payment_method_rec.end_date) THEN
512: fnd_message.set_name('AR', 'HZ_API_DATE_GREATER');
513: fnd_message.set_token('DATE2', 'END_DATE');
514: fnd_message.set_token('DATE1', 'START_DATE');
515: fnd_msg_pub.add;
516: raise fnd_api.g_exc_error;
517: END IF;
518: END IF;
525: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
526:
527: WHEN OTHERS THEN
528: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
529: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
530: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
531: FND_MSG_PUB.ADD;
532: END validate_payment_method;
533:
526:
527: WHEN OTHERS THEN
528: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
529: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
530: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
531: FND_MSG_PUB.ADD;
532: END validate_payment_method;
533:
534: END HZ_PAYMENT_METHOD_PUB;