[Home] [Help]
682: END IF;
683: --
684: -- Validate gl date. If it is invalid, print an error message
685: --
686: IF ( arp_util.is_gl_date_valid( p_reversal_gl_date ) = FALSE ) THEN
687: IF PG_DEBUG in ('Y', 'C') THEN
688: arp_standard.debug('validate_args: ' || 'invalid gl date' );
689: END IF;
690: FND_MESSAGE.set_name ('AR', 'AR_INF_GL_DATE' );
1705: END IF;
1706: --
1707: -- Validate gl date. If it is invalid, print an error message
1708: --
1709: IF ( arp_util.is_gl_date_valid( p_reversal_gl_date ) = FALSE ) THEN
1710: IF PG_DEBUG in ('Y', 'C') THEN
1711: arp_standard.debug('debit_memo_reversal: ' || 'invalid gl date' );
1712: END IF;
1713: FND_MESSAGE.set_name ('AR', 'AR_INF_GL_DATE' );
2474: l_return_status VARCHAR(1);
2475:
2476: BEGIN
2477: IF PG_DEBUG in ('Y', 'C') THEN
2478: arp_util.debug('arp_reverse_receipt.check_netted_receipts()+');
2479: END IF;
2480:
2481: x_return_status := 'S';
2482: FOR c1 in c_netted_receipts LOOP
2492: END IF;
2493: END LOOP;
2494:
2495: IF PG_DEBUG in ('Y', 'C') THEN
2496: arp_util.debug('arp_reverse_receipt.check_netted_receipts()-');
2497: END IF;
2498:
2499: EXCEPTION
2500: WHEN others THEN
2502: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT',SQLERRM);
2503: FND_MSG_PUB.Add;
2504: x_return_status := FND_API.G_RET_STS_ERROR ;
2505: IF PG_DEBUG in ('Y', 'C') THEN
2506: arp_util.debug('EXCEPTION :arp_revers_receipt.check_netted_receipts '||SQLERRM);
2507: END IF;
2508: END check_netted_receipts;
2509: --
2510: /*===========================================================================+
2628: ORDER BY summ.trxnmid desc;
2629:
2630: BEGIN
2631: IF PG_DEBUG in ('Y', 'C') THEN
2632: arp_util.debug('arp_reverse_receipt.check_settlement_status()+');
2633: END IF;
2634:
2635: Open get_receipt_status ;
2636: fetch get_receipt_status into l_receipt_status;
2655: End IF;
2656: END IF;
2657:
2658: IF PG_DEBUG in ('Y', 'C') THEN
2659: arp_util.debug('arp_reverse_receipt.check_settlement_status()-');
2660: END IF;
2661:
2662: EXCEPTION
2663: WHEN OTHERS THEN
2661:
2662: EXCEPTION
2663: WHEN OTHERS THEN
2664: IF PG_DEBUG in ('Y', 'C') THEN
2665: arp_util.debug('Exception: arp_reverse_receipt.check_settlement_status() ' || sqlerrm);
2666: END IF;
2667: RETURN TRUE;
2668:
2669: END check_settlement_status;