[Home] [Help]
797:
798: /*-----------------------------------------+
799: | Initialize return status to SUCCESS |
800: +-----------------------------------------*/
801: jg_return_status := FND_API.G_RET_STS_SUCCESS;
802:
803: /* in the case of a full reversal, we have to also
804: if the localization is installed rollback the
805: interest adjustments. */
807: jg_ar_receivable_applications.delete_interest_adjustment(
808: p_cash_receipt_id => l_cash_receipt_id,
809: x_return_status => jg_return_status);
810:
811: IF jg_return_status <> FND_API.G_RET_STS_SUCCESS then
812: /* print an error message */
813: arp_standard.debug('Error from jg_ar_receivable_applications.delete_interst_adjustment');
814: END IF;
815:
1584: -- Call TM API for Subsequent Receipt Application
1585: -------------------------------------------------
1586: OZF_Claim_GRP.Update_Deduction
1587: (p_api_version_number => 1.0
1588: ,p_init_msg_list => FND_API.G_TRUE
1589: ,p_commit => FND_API.G_FALSE
1590: ,x_return_status => l_return_status
1591: ,x_msg_count => x_msg_count
1592: ,x_msg_data => x_msg_data
1585: -------------------------------------------------
1586: OZF_Claim_GRP.Update_Deduction
1587: (p_api_version_number => 1.0
1588: ,p_init_msg_list => FND_API.G_TRUE
1589: ,p_commit => FND_API.G_FALSE
1590: ,x_return_status => l_return_status
1591: ,x_msg_count => x_msg_count
1592: ,x_msg_data => x_msg_data
1593: ,p_deduction => l_claim_rec
1597: ,x_claim_id => x_claim_id
1598: ,x_claim_number => x_claim_number
1599: );
1600:
1601: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1602:
1603: x_return_status := 'S';
1604: IF (p_customer_trx_id IS NOT NULL) AND (p_customer_trx_id > 0) THEN
1605:
1648: );
1649:
1650: END IF; -- IF (p_customer_trx_id IS NOT NULL) AND (p_customer_trx_id > 0)
1651:
1652: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1653: x_return_status := 'E';
1654:
1655: ELSE --Unidentified Error
1656: x_return_status := 'U';
1654:
1655: ELSE --Unidentified Error
1656: x_return_status := 'U';
1657:
1658: END IF; --IF l_return_status = FND_API.G_RET_STS_SUCCESS
1659:
1660: IF PG_DEBUG in ('Y', 'C') THEN
1661: arp_standard.debug('update_action: arp_deduction.update_claim()-');
1662: END IF;
1767:
1768: IF PG_DEBUG in ('Y', 'C') THEN
1769: arp_standard.debug('arp_deduction.create_claims_rapp_dist()+' );
1770: END IF;
1771: x_return_status := FND_API.G_RET_STS_SUCCESS;
1772:
1773: IF PG_DEBUG in ('Y', 'C') THEN
1774: arp_standard.debug('p_receipt_ps_id = '||TO_CHAR(p_receipt_ps_id));
1775: arp_standard.debug('p_amount_applied = '||TO_CHAR( p_amount_applied ) );
1956: IF PG_DEBUG in ('Y', 'C') THEN
1957: arp_standard.debug('EXCEPTION: arp_deduction.create_claims_rapp_dist()-');
1958: END IF;
1959:
1960: x_return_status := FND_API.G_RET_STS_ERROR;
1961: arp_deduction.conc_req_log_msg
1962: ('EXCEPTION: arp_deduction.create_claims_rapp_dist'||
1963: ' STATUS='||p_status||
1964: ' CCID='||to_char(l_ra_rec.code_combination_id)||
2823: FETCH c1_validate INTO l_amount_applied;
2824:
2825: IF c1_validate%NOTFOUND THEN
2826:
2827: x_return_status := FND_API.G_RET_STS_ERROR;
2828: l_process := 'N';
2829:
2830: arp_deduction.conc_req_log_msg
2831: ('Failed Validation : display<>Y for the application. No Call will be '
2844: FETCH c2_validate INTO l_amount_applied;
2845:
2846: IF c2_validate%NOTFOUND THEN
2847:
2848: x_return_status := FND_API.G_RET_STS_ERROR;
2849: l_process := 'N';
2850:
2851: arp_deduction.conc_req_log_msg
2852: ('Failed Validation : sum(amount_applied) is less than apply_amount for '
2902: -- Call to receipt API to Apply Open Receipt
2903: --------------------------------------------
2904: ar_receipt_api_pub.apply_open_receipt
2905: (p_api_version => 1.0
2906: ,p_init_msg_list => FND_API.G_TRUE
2907: ,p_commit => FND_API.G_FALSE
2908: ,x_return_status => l_return_status
2909: ,x_msg_count => l_msg_count
2910: ,x_msg_data => l_msg_data
2903: --------------------------------------------
2904: ar_receipt_api_pub.apply_open_receipt
2905: (p_api_version => 1.0
2906: ,p_init_msg_list => FND_API.G_TRUE
2907: ,p_commit => FND_API.G_FALSE
2908: ,x_return_status => l_return_status
2909: ,x_msg_count => l_msg_count
2910: ,x_msg_data => l_msg_data
2911: ,p_cash_receipt_id => p_cash_receipt_id
2923: ,x_acctd_amount_applied_from => l_acctd_amount_applied_from
2924: ,x_acctd_amount_applied_to => l_acctd_amount_applied_to
2925: );
2926:
2927: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
2928: x_return_status := 'S';
2929:
2930: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2931: x_return_status := 'E';
2926:
2927: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
2928: x_return_status := 'S';
2929:
2930: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2931: x_return_status := 'E';
2932: arp_deduction.conc_req_log_msg
2933: ('FAILURE - ERROR : Return status = E from API call apply_open_receipt');
2934:
2936: x_return_status := 'U';
2937: arp_deduction.conc_req_log_msg
2938: ('FAILURE - UNIDENTIFIED : Return Status = U from API call apply_open_receipt');
2939:
2940: END IF; --IF l_return_status = FND_API.G_RET_STS_SUCCESS
2941:
2942: END IF; --IF l_process = 'Y' THEN
2943:
2944: IF PG_DEBUG in ('Y','C') THEN
2947:
2948: EXCEPTION
2949: WHEN invalid_param THEN
2950:
2951: x_return_status := FND_API.G_RET_STS_ERROR;
2952:
2953: IF PG_DEBUG in ('Y','C') THEN
2954: arp_standard.debug('EXCEPTION - invalid_param : ARP_DEDUCTION.apply_open_receipt_cover()-');
2955: END IF;
2957: RAISE;
2958:
2959: WHEN OTHERS THEN
2960:
2961: x_return_status := FND_API.G_RET_STS_ERROR;
2962:
2963: arp_deduction.conc_req_log_msg
2964: ('EXCEPTION - WHEN OTHERS : ARP_DEDUCTION.apply_open_receipt_cover()-');
2965: arp_deduction.conc_req_log_msg('SQLERRM='||substr(SQLERRM,1,255));