[Home] [Help]
1: PACKAGE BODY AR_ADJVALIDATE_PVT AS
2: /* $Header: ARXVADJB.pls 120.13.12010000.2 2008/11/13 10:14:42 dgaurab ship $*/
3: G_PKG_NAME CONSTANT VARCHAR2(30) :='AR_ADJVALIDATE_PVT';
4:
5: G_MSG_UERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR;
1: PACKAGE BODY AR_ADJVALIDATE_PVT AS
2: /* $Header: ARXVADJB.pls 120.13.12010000.2 2008/11/13 10:14:42 dgaurab ship $*/
3: G_PKG_NAME CONSTANT VARCHAR2(30) :='AR_ADJVALIDATE_PVT';
4:
5: G_MSG_UERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR;
6: G_MSG_ERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_ERROR;
7: G_MSG_HIGH CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH;
960: | Cache Approval type. To be used for validation |
961: | of status |
962: +-------------------------------------------------*/
963:
964: AR_ADJVALIDATE_PVT.cache_approval_type (l_return_status);
965:
966: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS )
967: THEN
968: p_return_status := l_return_status;
974: | Cache reason codes for adjustment. To be used |
975: | for validation of adjustment reason codes |
976: +-------------------------------------------------*/
977:
978: AR_ADJVALIDATE_PVT.cache_adjustment_reason (l_return_status);
979: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS )
980: THEN
981: p_return_status := l_return_status;
982: IF PG_DEBUG in ('Y', 'C') THEN
988: | Cache adjustment types i.e. INVOICE, LINE etc. |
989: | To be used for validation of type |
990: +-------------------------------------------------*/
991:
992: AR_ADJVALIDATE_PVT.cache_adjustment_type (l_return_status);
993: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS )
994: THEN
995: p_return_status := l_return_status;
996: IF PG_DEBUG in ('Y', 'C') THEN
1002: | Cache Receivables transaction ids. To be used |
1003: | for validation of Receivables trx id |
1004: +-------------------------------------------------*/
1005:
1006: AR_ADJVALIDATE_PVT.cache_receivables_trx (l_return_status) ;
1007:
1008: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS )
1009: THEN
1010: p_return_status := l_return_status;
1017: | Cache USSGL transaction information. To be used|
1018: | for validation of USSGL transaction code |
1019: +-------------------------------------------------*/
1020:
1021: AR_ADJVALIDATE_PVT.cache_ussgl_code (l_return_status);
1022: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS )
1023: THEN
1024: p_return_status := l_return_status;
1025: IF PG_DEBUG in ('Y', 'C') THEN
1031: | Cache GL periods. To be used to validate if GL |
1032: | dates lie within open or future enterable period|
1033: +--------------------------------------------------*/
1034:
1035: AR_ADJVALIDATE_PVT.cache_gl_periods(l_return_status);
1036: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS )
1037: THEN
1038: p_return_status := l_return_status;
1039: IF PG_DEBUG in ('Y', 'C') THEN
1045: | Cache Code combination Ids. To be used to |
1046: | validate input provided by user |
1047: +--------------------------------------------------*/
1048:
1049: AR_ADJVALIDATE_PVT.cache_code_combination (l_return_status);
1050: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS )
1051: THEN
1052: p_return_status := l_return_status;
1053: IF PG_DEBUG in ('Y', 'C') THEN
2046: p_adj_rec.created_from LIKE 'ENHANCED_CASH%' )
2047: THEN
2048: l_approved_flag := FND_API.G_TRUE ;
2049: ELSE
2050: AR_ADJVALIDATE_PVT.Within_approval_limits (
2051: p_adj_rec.amount,
2052: p_ps_rec.invoice_currency_code,
2053: l_approved_flag,
2054: l_return_status
3934: RETURN;
3935: END Validate_Over_Application_llca;
3936:
3937: BEGIN
3938: arp_util.debug('initialization section of ar_adjvalidate_pvt');
3939: G_cache_org_id := -99999;
3940:
3941: END AR_ADJVALIDATE_PVT;
3937: BEGIN
3938: arp_util.debug('initialization section of ar_adjvalidate_pvt');
3939: G_cache_org_id := -99999;
3940:
3941: END AR_ADJVALIDATE_PVT;