[Home] [Help]
1: PACKAGE BODY AR_ADJUST_PUB AS
2: /* $Header: ARXPADJB.pls 120.20.12010000.3 2008/11/17 12:00:31 pbapna ship $*/
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) :='AR_ADJUST_PUB';
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;
8: G_MSG_MEDIUM CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM;
9: G_MSG_LOW CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW;
2: /* $Header: ARXPADJB.pls 120.20.12010000.3 2008/11/17 12:00:31 pbapna ship $*/
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) :='AR_ADJUST_PUB';
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;
8: G_MSG_MEDIUM CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM;
9: G_MSG_LOW CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW;
10:
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) :='AR_ADJUST_PUB';
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;
8: G_MSG_MEDIUM CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM;
9: G_MSG_LOW CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW;
10:
11: /*===========================================================================+
4: G_PKG_NAME CONSTANT VARCHAR2(30) :='AR_ADJUST_PUB';
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;
8: G_MSG_MEDIUM CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM;
9: G_MSG_LOW CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW;
10:
11: /*===========================================================================+
12: | PROCEDURE |
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;
8: G_MSG_MEDIUM CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM;
9: G_MSG_LOW CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW;
10:
11: /*===========================================================================+
12: | PROCEDURE |
13: | Validate_Adj_Insert |
24: | fnd_api.g_ret_sts_error |
25: | fnd_api.g_ret_sts_error |
26: | fnd_api.g_ret_sts_success |
27: | fnd_api.to_boolean |
28: | fnd_msg_pub.check_msg_level |
29: | fnd_msg_pub.count_and_get |
30: | fnd_msg_pub.initialize |
31: | ar_adjvalidate_pvt.Validate_Type |
32: | ar_adjvalidate_pvt.Validate_Payschd |
25: | fnd_api.g_ret_sts_error |
26: | fnd_api.g_ret_sts_success |
27: | fnd_api.to_boolean |
28: | fnd_msg_pub.check_msg_level |
29: | fnd_msg_pub.count_and_get |
30: | fnd_msg_pub.initialize |
31: | ar_adjvalidate_pvt.Validate_Type |
32: | ar_adjvalidate_pvt.Validate_Payschd |
33: | ar_adjvalidate_pvt.Validate_amount |
26: | fnd_api.g_ret_sts_success |
27: | fnd_api.to_boolean |
28: | fnd_msg_pub.check_msg_level |
29: | fnd_msg_pub.count_and_get |
30: | fnd_msg_pub.initialize |
31: | ar_adjvalidate_pvt.Validate_Type |
32: | ar_adjvalidate_pvt.Validate_Payschd |
33: | ar_adjvalidate_pvt.Validate_amount |
34: | ar_adjvalidate_pvt.Validate_Rcvtrxccid |
234: /*-----------------------------------------------+
235: | Set the message |
236: +-----------------------------------------------*/
237: FND_MESSAGE.SET_NAME('AR','AR_TW_PRORATE_ADJ_NO_TAX_RATE');
238: FND_MSG_PUB.ADD ;
239: p_validation_status := FND_API.G_RET_STS_ERROR;
240: ELSIF (l_error_num = 2) THEN
241: IF PG_DEBUG in ('Y', 'C') THEN
242: arp_util.debug('Validate_Adj_Insert: ' || 'cal_prorated_amount failed - error num 2');
244: /*-----------------------------------------------+
245: | Set the message |
246: +-----------------------------------------------*/
247: FND_MESSAGE.SET_NAME('AR','AR_TW_PRORATE_ADJ_OVERAPPLY');
248: FND_MSG_PUB.ADD ;
249: p_validation_status := FND_API.G_RET_STS_ERROR;
250: ELSIF (l_error_num = 3) THEN
251: IF PG_DEBUG in ('Y', 'C') THEN
252: arp_util.debug('Validate_Adj_Insert: ' || 'cal_prorated_amount failed - error num 3');
420: WHEN OTHERS THEN
421: IF PG_DEBUG in ('Y', 'C') THEN
422: arp_util.debug('EXCEPTION: Validate_Adj_Insert() ');
423: END IF;
424: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,'Validate_Adj_Insert');
425: p_validation_status := FND_API.G_RET_STS_UNEXP_ERROR ;
426: RETURN;
427:
428:
508: WHEN OTHERS THEN
509: IF PG_DEBUG in ('Y', 'C') THEN
510: arp_util.debug('EXCEPTION: Set_Remaining_Attributes() ');
511: END IF;
512: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,'Set_Remaining_Attributes');
513: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
514: RETURN;
515:
516: END Set_Remaining_Attributes;
584: OR (p_old_adj_rec.status = 'R')) /*Bug 4303601*/
585: THEN
586: FND_MESSAGE.SET_NAME ('AR', 'AR_AAPI_NO_CHANGE_OR_REVERSE');
587: FND_MESSAGE.SET_TOKEN ( 'STATUS', p_old_adj_rec.status ) ;
588: FND_MSG_PUB.ADD ;
589: p_validation_status := FND_API.G_RET_STS_ERROR;
590: IF PG_DEBUG in ('Y', 'C') THEN
591: arp_util.debug('Validate_Adj_modify: ' || 'The old adjustment status is A, cannot modify');
592: END IF;
600: (p_adj_rec.associated_application_id IS NULL ) AND
601: (p_adj_rec.associated_cash_receipt_id IS NULL)
602: ) THEN
603: FND_MESSAGE.SET_NAME ('AR', 'AR_RAPI_RCPT_RA_ID_X_INVALID');
604: FND_MSG_PUB.ADD ;
605: p_validation_status := FND_API.G_RET_STS_ERROR;
606: IF PG_DEBUG in ('Y', 'C') THEN
607: arp_util.debug('Validate_Adj_modify: ' || 'Invalid associated cash_receipt_id or application id -should not be null');
608: END IF;
618: (p_adj_rec.gl_date IS NOT NULL )))
619: THEN
620: FND_MESSAGE.SET_NAME ('AR', 'AR_AAPI_NO_CHANGE_OR_REVERSE');
621: FND_MESSAGE.SET_TOKEN ( 'STATUS', p_old_adj_rec.status ) ;
622: FND_MSG_PUB.ADD ;
623: p_validation_status := FND_API.G_RET_STS_ERROR;
624: IF PG_DEBUG in ('Y', 'C') THEN
625: arp_util.debug('Validate_Adj_modify: ' || 'Cannot modify comments,status or gl date of an approved adjustment');
626: END IF;
635: (p_adj_rec.status NOT IN ('A', 'R', 'W', 'M')) )
636: THEN
637: FND_MESSAGE.SET_NAME ('AR', 'AR_AAPI_INVALID_CHANGE_STATUS');
638: FND_MESSAGE.SET_TOKEN ( 'STATUS', p_adj_rec.status ) ;
639: FND_MSG_PUB.ADD ;
640: p_validation_status := FND_API.G_RET_STS_ERROR;
641: IF PG_DEBUG in ('Y', 'C') THEN
642: arp_util.debug('Validate_Adj_modify: ' || 'The new adjustment status is not valid, cannot modify');
643: END IF;
666: | Set the message and status accordingly |
667: +-----------------------------------------------*/
668: FND_MESSAGE.SET_NAME ( 'AR', 'AR_AAPI_INVALID_PAYMENT_SCHEDULE');
669: FND_MESSAGE.SET_TOKEN('PAYMENT_SCHEDULE_ID',to_char(p_old_adj_rec.payment_schedule_id));
670: FND_MSG_PUB.ADD ;
671:
672: p_validation_status := FND_API.G_RET_STS_ERROR;
673: IF PG_DEBUG in ('Y', 'C') THEN
674: arp_util.debug('Validate_Adj_modify: ' || 'Invalid Payment Schedule Id');
706:
707: IF ( l_approved_flag <> FND_API.G_TRUE )
708: THEN
709: FND_MESSAGE.SET_NAME ( 'AR', 'AR_VAL_AMT_APPROVAL_LIMIT');
710: FND_MSG_PUB.ADD ;
711: p_validation_status := FND_API.G_RET_STS_ERROR;
712: IF PG_DEBUG in ('Y', 'C') THEN
713: arp_util.debug('Validate_Adj_modify: ' || 'amount not in approval limits ');
714: END IF;
777: AND applied_payment_schedule_id= p_old_adj_rec.payment_schedule_id;
778: EXCEPTION
779: WHEN no_data_found THEN
780: FND_MESSAGE.SET_NAME ( 'AR', 'AR_RAPI_REC_APP_ID_INVALID');
781: FND_MSG_PUB.ADD ;
782: p_validation_status := FND_API.G_RET_STS_ERROR;
783: IF PG_DEBUG in ('Y', 'C') THEN
784: arp_util.debug('Validate_Adj_modify: ' || 'Associated Application ID passed is invalid');
785: END IF;
794: ( p_adj_rec.associated_cash_receipt_id IS NULL ) AND
795: ( l_cash_receipt_id IS NULL )) THEN
796:
797: FND_MESSAGE.SET_NAME ( 'AR', 'AR_RAPI_REC_APP_ID_INVALID');
798: FND_MSG_PUB.ADD ;
799: p_validation_status := FND_API.G_RET_STS_ERROR;
800: IF PG_DEBUG in ('Y', 'C') THEN
801: arp_util.debug('Validate_Adj_modify: ' || 'Associated Application ID should belongs to valid Receipt,pass cash receipt id');
802: END IF;
858: WHEN OTHERS THEN
859: IF PG_DEBUG in ('Y', 'C') THEN
860: arp_util.debug('EXCEPTION: Validate_Adj_Modify() ');
861: END IF;
862: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,'Validate_Adj_Modify');
863: p_validation_status := FND_API.G_RET_STS_UNEXP_ERROR ;
864: RETURN;
865:
866:
923: IF ( p_old_adj_rec.status <> 'A' )
924: THEN
925: FND_MESSAGE.SET_NAME ( 'AR', 'AR_AAPI_NO_CHANGE_OR_REVERSE');
926: FND_MESSAGE.SET_TOKEN ( 'STATUS', p_old_adj_rec.status);
927: FND_MSG_PUB.ADD ;
928: p_validation_status := FND_API.G_RET_STS_ERROR;
929: IF PG_DEBUG in ('Y', 'C') THEN
930: arp_util.debug('Validate_Adj_Reverse: ' || 'the status of the old adj is not A ');
931: END IF;
967: +-----------------------------------------------*/
968:
969: FND_MESSAGE.SET_NAME ('AR', 'AR_AAPI_INVALID_PAYMENT_SCHEDULE');
970: FND_MESSAGE.SET_TOKEN ( 'PAYMENT_SCHEDULE_ID', to_char(p_old_adj_rec.payment_schedule_id) ) ;
971: FND_MSG_PUB.ADD ;
972:
973: p_validation_status := FND_API.G_RET_STS_ERROR;
974: IF PG_DEBUG in ('Y', 'C') THEN
975: arp_util.debug('Validate_Adj_Reverse: ' || 'invalid payment schedule id');
1002: WHEN OTHERS THEN
1003: IF PG_DEBUG in ('Y', 'C') THEN
1004: arp_util.debug('EXCEPTION: Validate_Adj_Reverse() ');
1005: END IF;
1006: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,'Validate_Adj_Reverse');
1007: p_validation_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1008: RETURN;
1009:
1010:
1070: THEN
1071:
1072: FND_MESSAGE.SET_NAME ('AR', 'AR_AAPI_NO_CHANGE_OR_REVERSE');
1073: FND_MESSAGE.SET_TOKEN ( 'STATUS', p_old_adj_rec.status ) ;
1074: FND_MSG_PUB.ADD ;
1075: p_validation_status := FND_API.G_RET_STS_ERROR;
1076: IF PG_DEBUG in ('Y', 'C') THEN
1077: arp_util.debug('Validate_Adj_Approve: ' || 'the adjustment is already approved or rejected');
1078: END IF;
1096: THEN
1097:
1098: FND_MESSAGE.SET_NAME ('AR', 'AR_AAPI_INVALID_CHANGE_STATUS');
1099: FND_MESSAGE.SET_TOKEN ( 'STATUS', p_adj_rec.status ) ;
1100: FND_MSG_PUB.ADD ;
1101: p_validation_status := FND_API.G_RET_STS_ERROR;
1102: IF PG_DEBUG in ('Y', 'C') THEN
1103: arp_util.debug('Validate_Adj_Approve: ' || 'the value of the new status is not in A, R, W, M');
1104: END IF;
1131: +-----------------------------------------------*/
1132:
1133: FND_MESSAGE.SET_NAME ('AR', 'AR_AAPI_INVALID_PAYMENT_SCHEDULE');
1134: FND_MESSAGE.SET_TOKEN('PAYMENT_SCHEDULE_ID',to_char(p_old_adj_rec.payment_schedule_id));
1135: FND_MSG_PUB.ADD ;
1136: p_validation_status := FND_API.G_RET_STS_ERROR;
1137: IF PG_DEBUG in ('Y', 'C') THEN
1138: arp_util.debug('Validate_Adj_Approve: ' || 'Invalid payment schedule id');
1139: END IF;
1170:
1171: IF ( l_approved_flag <> FND_API.G_TRUE )
1172: THEN
1173: FND_MESSAGE.SET_NAME ('AR', 'AR_VAL_AMT_APPROVAL_LIMIT');
1174: FND_MSG_PUB.ADD ;
1175:
1176: p_validation_status := FND_API.G_RET_STS_ERROR;
1177: IF PG_DEBUG in ('Y', 'C') THEN
1178: arp_util.debug('Validate_Adj_Approve: ' || 'not within approval limits');
1244: WHEN OTHERS THEN
1245: IF PG_DEBUG in ('Y', 'C') THEN
1246: arp_util.debug('EXCEPTION: Validate_Adj_Approve() ');
1247: END IF;
1248: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,'Validate_Adj_Approve');
1249: p_validation_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1250: RETURN;
1251:
1252:
1423:
1424: l_return_status := FND_API.G_RET_STS_ERROR ;
1425: FND_MESSAGE.SET_NAME ('AR', 'AR_ADJ_API_TYPE_DISALLOW');
1426: FND_MESSAGE.SET_TOKEN ( 'TYPE', p_adj_rec.TYPE ) ;
1427: FND_MSG_PUB.ADD ;
1428:
1429: IF PG_DEBUG in ('Y', 'C') THEN
1430: arp_util.debug('create_linelevel_adjustment : ' || 'Error(s) occurred. Rolling back and setting status to ERROR');
1431: arp_util.debug('create_linelevel_adjustment : ' || 'line level adjustment can only allowed for type LINE');
1437: THEN
1438:
1439: FND_MESSAGE.SET_NAME ('AR', 'AR_ADJ_API_CUST_LINE_ID_IG');
1440: FND_MESSAGE.SET_TOKEN ( 'CUSTOMER_TRX_LINE_ID', p_adj_rec.customer_trx_line_id ) ;
1441: FND_MSG_PUB.ADD ;
1442:
1443: IF PG_DEBUG in ('Y', 'C') THEN
1444: arp_util.debug('create_linelevel_adjustment : ' || 'Warning(s) occurred. Ignoring header level customer trx line id');
1445:
1452: THEN
1453:
1454: FND_MESSAGE.SET_NAME ('AR', 'AR_ADJ_API_RECV_TRX_ID_IG');
1455: FND_MESSAGE.SET_TOKEN ( 'RECEIVABLES_TRX_ID', p_adj_rec.receivables_trx_id ) ;
1456: FND_MSG_PUB.ADD ;
1457:
1458: IF PG_DEBUG in ('Y', 'C') THEN
1459: arp_util.debug('create_linelevel_adjustment : ' || 'Warning(s) occurred. Ignoring header level receivables trx id');
1460:
1465: IF p_adj_rec.amount IS NOT NULL
1466: THEN
1467: FND_MESSAGE.SET_NAME ('AR', 'AR_ADJ_API_AMOUNT_IG');
1468: FND_MESSAGE.SET_TOKEN ( 'AMOUNT', p_adj_rec.amount ) ;
1469: FND_MSG_PUB.ADD ;
1470:
1471: IF PG_DEBUG in ('Y', 'C') THEN
1472: arp_util.debug('create_linelevel_adjustment : ' || 'Warning(s) occurred. Ignoring header level Amount');
1473:
1486: THEN
1487: l_return_status := FND_API.G_RET_STS_ERROR ;
1488: FND_MESSAGE.SET_NAME ('AR', 'AR_LL_ADJ_INSTALL_NOT_ALLOWED');
1489: FND_MESSAGE.SET_TOKEN ( 'CUST_TRX_ID', p_adj_rec.customer_trx_id ) ;
1490: FND_MSG_PUB.ADD ;
1491: IF PG_DEBUG in ('Y', 'C') THEN
1492: arp_util.debug('create_linelevel_adjustment : ' || 'Error(s) occurred. Rolling back and setting status to ERROR');
1493: arp_util.debug('create_linelevel_adjustment : ' || 'Multiple Installment transaction not allowed at line-level');
1494: END IF;
1507: THEN
1508: l_return_status := FND_API.G_RET_STS_ERROR ;
1509: FND_MESSAGE.SET_NAME ('AR', 'AR_LL_ADJ_LEGACY_NOT_ALLOWED');
1510: FND_MESSAGE.SET_TOKEN ( 'CUST_TRX_ID', p_adj_rec.customer_trx_id ) ;
1511: FND_MSG_PUB.ADD ;
1512: IF PG_DEBUG in ('Y', 'C') THEN
1513: arp_util.debug('create_linelevel_adjustment : ' || 'Error(s) occurred. Rolling back and setting status to ERROR');
1514: arp_util.debug('create_linelevel_adjustment : ' || 'Legacy data with activity not allowed at line-level');
1515: END IF;
1555: | fnd_api.g_ret_sts_error |
1556: | fnd_api.g_ret_sts_error |
1557: | fnd_api.g_ret_sts_success |
1558: | fnd_api.to_boolean |
1559: | fnd_msg_pub.check_msg_level |
1560: | fnd_msg_pub.count_and_get |
1561: | fnd_msg_pub.initialize |
1562: | ar_adjvalidate_pvt.Init_Context_Rec |
1563: | ar_adjvalidate_pvt.Cache_Details |
1556: | fnd_api.g_ret_sts_error |
1557: | fnd_api.g_ret_sts_success |
1558: | fnd_api.to_boolean |
1559: | fnd_msg_pub.check_msg_level |
1560: | fnd_msg_pub.count_and_get |
1561: | fnd_msg_pub.initialize |
1562: | ar_adjvalidate_pvt.Init_Context_Rec |
1563: | ar_adjvalidate_pvt.Cache_Details |
1564: | |
1557: | fnd_api.g_ret_sts_success |
1558: | fnd_api.to_boolean |
1559: | fnd_msg_pub.check_msg_level |
1560: | fnd_msg_pub.count_and_get |
1561: | fnd_msg_pub.initialize |
1562: | ar_adjvalidate_pvt.Init_Context_Rec |
1563: | ar_adjvalidate_pvt.Cache_Details |
1564: | |
1565: | ARGUMENTS : IN: |
1654:
1655: BEGIN
1656:
1657:
1658: IF (FND_MSG_PUB.Check_Msg_Level (G_MSG_LOW)) THEN
1659: select hsecs
1660: into G_START_TIME
1661: from v$timer;
1662: END IF;
1689: +-------------------------------------------------------------*/
1690:
1691: IF FND_API.to_Boolean( p_init_msg_list )
1692: THEN
1693: FND_MSG_PUB.initialize;
1694: END IF;
1695:
1696: -- arp_util.enable_debug(100000);
1697:
1940:
1941: FND_MESSAGE.set_name( 'AR', 'GENERIC_MESSAGE' );
1942: FND_MESSAGE.set_token( 'GENERIC_TEXT', 'arp_process_adjustment.insert_adjustment exception: '||SQLERRM );
1943: --2920926
1944: FND_MSG_PUB.ADD;
1945: /*--------------------------------------------------+
1946: | Get message count and if 1, return message data |
1947: +---------------------------------------------------*/
1948:
1945: /*--------------------------------------------------+
1946: | Get message count and if 1, return message data |
1947: +---------------------------------------------------*/
1948:
1949: FND_MSG_PUB.Count_And_Get(
1950: p_encoded => FND_API.G_FALSE,
1951: p_count => p_msg_count,
1952: p_data => p_msg_data
1953: );
1971: /*---------------------------------------------------+
1972: | Get message count and if 1, return message data |
1973: +---------------------------------------------------*/
1974:
1975: FND_MSG_PUB.Count_And_Get(
1976: p_encoded => FND_API.G_FALSE,
1977: p_count => p_msg_count,
1978: p_data => p_msg_data
1979: );
1993: IF PG_DEBUG in ('Y', 'C') THEN
1994: arp_util.debug('Create_Adjustment()- ');
1995: END IF;
1996:
1997: IF (FND_MSG_PUB.Check_Msg_Level (G_MSG_LOW)) THEN
1998: select TO_CHAR( (hsecs - G_START_TIME) / 100)
1999: into l_hsec
2000: from v$timer;
2001: IF PG_DEBUG in ('Y', 'C') THEN
2012: END IF;
2013:
2014: ROLLBACK TO ar_adjust_PUB;
2015: p_return_status := FND_API.G_RET_STS_ERROR ;
2016: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
2017: p_count => p_msg_count,
2018: p_data => p_msg_data
2019: );
2020:
2024: arp_util.debug('Create_Adjustment: ' || SQLERRM);
2025: END IF;
2026: ROLLBACK TO ar_adjust_PUB ;
2027: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2028: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
2029: p_count => p_msg_count,
2030: p_data => p_msg_data
2031: );
2032:
2047: 'Completion validation error(s) occurred. ' ||
2048: 'Rolling back and setting status to ERROR');
2049: END IF;
2050:
2051: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
2052: p_count => p_msg_count,
2053: p_data => p_msg_data
2054: );
2055: RETURN;
2078: | fnd_api.g_ret_sts_error |
2079: | fnd_api.g_ret_sts_error |
2080: | fnd_api.g_ret_sts_success |
2081: | fnd_api.to_boolean |
2082: | fnd_msg_pub.check_msg_level |
2083: | fnd_msg_pub.count_and_get |
2084: | fnd_msg_pub.initialize |
2085: | ar_adjvalidate_pvt.Init_Context_Rec |
2086: | ar_adjvalidate_pvt.Cache_Details |
2079: | fnd_api.g_ret_sts_error |
2080: | fnd_api.g_ret_sts_success |
2081: | fnd_api.to_boolean |
2082: | fnd_msg_pub.check_msg_level |
2083: | fnd_msg_pub.count_and_get |
2084: | fnd_msg_pub.initialize |
2085: | ar_adjvalidate_pvt.Init_Context_Rec |
2086: | ar_adjvalidate_pvt.Cache_Details |
2087: | |
2080: | fnd_api.g_ret_sts_success |
2081: | fnd_api.to_boolean |
2082: | fnd_msg_pub.check_msg_level |
2083: | fnd_msg_pub.count_and_get |
2084: | fnd_msg_pub.initialize |
2085: | ar_adjvalidate_pvt.Init_Context_Rec |
2086: | ar_adjvalidate_pvt.Cache_Details |
2087: | |
2088: | ARGUMENTS : IN: |
2166:
2167: BEGIN
2168:
2169:
2170: IF (FND_MSG_PUB.Check_Msg_Level (G_MSG_LOW)) THEN
2171: select hsecs
2172: into G_START_TIME
2173: from v$timer;
2174: END IF;
2201: +-------------------------------------------------------------*/
2202:
2203: IF FND_API.to_Boolean( p_init_msg_list )
2204: THEN
2205: FND_MSG_PUB.initialize;
2206: END IF;
2207:
2208: -- arp_util.enable_debug(100000);
2209:
2530:
2531: FND_MESSAGE.set_name( 'AR', 'GENERIC_MESSAGE' );
2532: FND_MESSAGE.set_token( 'GENERIC_TEXT', 'arp_process_adjustment.insert_adjustment exception: '||SQLERRM );
2533: --2920926
2534: FND_MSG_PUB.ADD;
2535: /*--------------------------------------------------+
2536: | Get message count and if 1, return message data |
2537: +---------------------------------------------------*/
2538:
2535: /*--------------------------------------------------+
2536: | Get message count and if 1, return message data |
2537: +---------------------------------------------------*/
2538:
2539: FND_MSG_PUB.Count_And_Get(
2540: p_encoded => FND_API.G_FALSE,
2541: p_count => p_msg_count,
2542: p_data => p_msg_data
2543: );
2570: /*---------------------------------------------------+
2571: | Get message count and if 1, return message data |
2572: +---------------------------------------------------*/
2573:
2574: FND_MSG_PUB.Count_And_Get(
2575: p_encoded => FND_API.G_FALSE,
2576: p_count => p_msg_count,
2577: p_data => p_msg_data
2578: );
2592: IF PG_DEBUG in ('Y', 'C') THEN
2593: arp_util.debug('create_linelevel_adjustment()- ');
2594: END IF;
2595:
2596: IF (FND_MSG_PUB.Check_Msg_Level (G_MSG_LOW)) THEN
2597: select TO_CHAR( (hsecs - G_START_TIME) / 100)
2598: into l_hsec
2599: from v$timer;
2600: IF PG_DEBUG in ('Y', 'C') THEN
2611: END IF;
2612:
2613: ROLLBACK TO ar_adjust_line_PUB;
2614: p_return_status := FND_API.G_RET_STS_ERROR ;
2615: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
2616: p_count => p_msg_count,
2617: p_data => p_msg_data
2618: );
2619:
2623: arp_util.debug('create_linelevel_adjustment: ' || SQLERRM);
2624: END IF;
2625: ROLLBACK TO ar_adjust_line_PUB ;
2626: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2627: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
2628: p_count => p_msg_count,
2629: p_data => p_msg_data
2630: );
2631:
2646: 'Completion validation error(s) occurred. ' ||
2647: 'Rolling back and setting status to ERROR');
2648: END IF;
2649:
2650: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
2651: p_count => p_msg_count,
2652: p_data => p_msg_data
2653: );
2654: RETURN;
2676: | fnd_api.g_ret_sts_error |
2677: | fnd_api.g_ret_sts_error |
2678: | fnd_api.g_ret_sts_success |
2679: | fnd_api.to_boolean |
2680: | fnd_msg_pub.check_msg_level |
2681: | fnd_msg_pub.count_and_get |
2682: | fnd_msg_pub.initialize |
2683: | ar_adjustments_pkg.fetch_p |
2684: | ar_process_adjustment.update_adjustment |
2677: | fnd_api.g_ret_sts_error |
2678: | fnd_api.g_ret_sts_success |
2679: | fnd_api.to_boolean |
2680: | fnd_msg_pub.check_msg_level |
2681: | fnd_msg_pub.count_and_get |
2682: | fnd_msg_pub.initialize |
2683: | ar_adjustments_pkg.fetch_p |
2684: | ar_process_adjustment.update_adjustment |
2685: | ar_adjvalidate_pvt.within_approval_limit |
2678: | fnd_api.g_ret_sts_success |
2679: | fnd_api.to_boolean |
2680: | fnd_msg_pub.check_msg_level |
2681: | fnd_msg_pub.count_and_get |
2682: | fnd_msg_pub.initialize |
2683: | ar_adjustments_pkg.fetch_p |
2684: | ar_process_adjustment.update_adjustment |
2685: | ar_adjvalidate_pvt.within_approval_limit |
2686: | |
2749: l_count_chk NUMBER;
2750:
2751:
2752: BEGIN
2753: IF (FND_MSG_PUB.Check_Msg_Level (G_MSG_LOW)) THEN
2754: select hsecs
2755: into G_START_TIME
2756: from v$timer;
2757: END IF;
2784: +-------------------------------------------------------------*/
2785:
2786: IF FND_API.to_Boolean( p_init_msg_list )
2787: THEN
2788: FND_MSG_PUB.initialize;
2789: END IF;
2790:
2791: -- arp_util.enable_debug(100000);
2792:
2877: ROLLBACK TO ar_adjust_PUB;
2878: p_return_status := FND_API.G_RET_STS_ERROR ;
2879: FND_MESSAGE.SET_NAME ('AR', 'AR_AAPI_INVALID_ADJ_ID');
2880: FND_MESSAGE.SET_TOKEN ( 'ADJUSTMENT_ID', to_char(p_old_adjust_id) ) ;
2881: FND_MSG_PUB.ADD ;
2882: RETURN;
2883: END ;
2884:
2885: /*------------------------------------------+
2909: END IF;
2910:
2911: FND_MESSAGE.SET_NAME ('AR', 'AR_LL_ADJ_MODIFY_NOT_ALLOWED');
2912: FND_MESSAGE.SET_TOKEN ( 'ADJUST_ID', p_old_adjust_id ) ;
2913: FND_MSG_PUB.ADD ;
2914:
2915: END IF;
2916:
2917:
2997:
2998: FND_MESSAGE.set_name( 'AR', 'GENERIC_MESSAGE' );
2999: FND_MESSAGE.set_token( 'GENERIC_TEXT', 'arp_process_adjustment.update_adjustment exception: '||SQLERRM );
3000: --2920926
3001: FND_MSG_PUB.ADD;
3002:
3003: /*--------------------------------------------------+
3004: | Get message count and if 1, return message data |
3005: +---------------------------------------------------*/
3003: /*--------------------------------------------------+
3004: | Get message count and if 1, return message data |
3005: +---------------------------------------------------*/
3006:
3007: FND_MSG_PUB.Count_And_Get(
3008: p_encoded => FND_API.G_FALSE,
3009: p_count => p_msg_count,
3010: p_data => p_msg_data
3011: );
3027: /*---------------------------------------------------+
3028: | Get message count and if 1, return message data |
3029: +---------------------------------------------------*/
3030:
3031: FND_MSG_PUB.Count_And_Get(
3032: p_encoded => FND_API.G_FALSE,
3033: p_count => p_msg_count,
3034: p_data => p_msg_data
3035: );
3049: IF PG_DEBUG in ('Y', 'C') THEN
3050: arp_util.debug('Modify_Adjustment()- ');
3051: END IF;
3052:
3053: IF (FND_MSG_PUB.Check_Msg_Level (G_MSG_LOW)) THEN
3054: select TO_CHAR( (hsecs - G_START_TIME) / 100)
3055: into l_hsec
3056: from v$timer;
3057: IF PG_DEBUG in ('Y', 'C') THEN
3070: END IF;
3071:
3072: ROLLBACK TO ar_adjust_PUB;
3073: p_return_status := FND_API.G_RET_STS_ERROR ;
3074: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
3075: p_count => p_msg_count,
3076: p_data => p_msg_data
3077: );
3078:
3082: arp_util.debug('Modify_Adjustment: ' || SQLERRM);
3083: END IF;
3084: ROLLBACK TO ar_adjust_PUB ;
3085: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3086: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
3087: p_count => p_msg_count,
3088: p_data => p_msg_data
3089: );
3090:
3104: arp_util.debug('Modify_Adjustment: ' ||
3105: 'Completion validation error(s) occurred. ' ||
3106: 'Rolling back and setting status to ERROR');
3107: END IF;
3108: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
3109: p_count => p_msg_count,
3110: p_data => p_msg_data
3111: );
3112: RETURN;
3134: | fnd_api.g_ret_sts_error |
3135: | fnd_api.g_ret_sts_error |
3136: | fnd_api.g_ret_sts_success |
3137: | fnd_api.to_boolean |
3138: | fnd_msg_pub.check_msg_level |
3139: | fnd_msg_pub.count_and_get |
3140: | fnd_msg_pub.initialize |
3141: | ar_adjustments_pkg.fetch_p |
3142: | ar_process_adjustment.reverse_adjustment |
3135: | fnd_api.g_ret_sts_error |
3136: | fnd_api.g_ret_sts_success |
3137: | fnd_api.to_boolean |
3138: | fnd_msg_pub.check_msg_level |
3139: | fnd_msg_pub.count_and_get |
3140: | fnd_msg_pub.initialize |
3141: | ar_adjustments_pkg.fetch_p |
3142: | ar_process_adjustment.reverse_adjustment |
3143: | |
3136: | fnd_api.g_ret_sts_success |
3137: | fnd_api.to_boolean |
3138: | fnd_msg_pub.check_msg_level |
3139: | fnd_msg_pub.count_and_get |
3140: | fnd_msg_pub.initialize |
3141: | ar_adjustments_pkg.fetch_p |
3142: | ar_process_adjustment.reverse_adjustment |
3143: | |
3144: | ARGUMENTS : IN: |
3223:
3224:
3225:
3226: BEGIN
3227: IF (FND_MSG_PUB.Check_Msg_Level (G_MSG_LOW)) THEN
3228: select hsecs
3229: into G_START_TIME
3230: from v$timer;
3231: END IF;
3258: +-------------------------------------------------------------*/
3259:
3260: IF FND_API.to_Boolean( p_init_msg_list )
3261: THEN
3262: FND_MSG_PUB.initialize;
3263: END IF;
3264:
3265: -- arp_util.enable_debug(100000);
3266:
3330: p_return_status := FND_API.G_RET_STS_ERROR ;
3331:
3332: FND_MESSAGE.SET_NAME ('AR', 'AR_AAPI_INVALID_ADJ_ID');
3333: FND_MESSAGE.SET_TOKEN ( 'ADJUSTMENT_ID', to_char(p_old_adjust_id) ) ;
3334: FND_MSG_PUB.ADD ;
3335: RETURN;
3336: END ;
3337:
3338: /*------------------------------------------------+
3575: /*--------------------------------------------------+
3576: | Get message count and if 1, return message data |
3577: +---------------------------------------------------*/
3578:
3579: FND_MSG_PUB.Count_And_Get(
3580: p_encoded => FND_API.G_FALSE,
3581: p_count => p_msg_count,
3582: p_data => p_msg_data
3583: );
3605: /*---------------------------------------------------+
3606: | Get message count and if 1, return message data |
3607: +---------------------------------------------------*/
3608:
3609: FND_MSG_PUB.Count_And_Get(
3610: p_encoded =>FND_API.G_FALSE,
3611: p_count => p_msg_count,
3612: p_data => p_msg_data
3613: );
3627: IF PG_DEBUG in ('Y', 'C') THEN
3628: arp_util.debug('Reverse_Adjustment()- ');
3629: END IF;
3630:
3631: IF (FND_MSG_PUB.Check_Msg_Level (G_MSG_LOW)) THEN
3632: select TO_CHAR( (hsecs - G_START_TIME) / 100)
3633: into l_hsec
3634: from v$timer;
3635: IF PG_DEBUG in ('Y', 'C') THEN
3647: END IF;
3648:
3649: ROLLBACK TO ar_adjust_PUB;
3650: p_return_status := FND_API.G_RET_STS_ERROR ;
3651: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
3652: p_count => p_msg_count,
3653: p_data => p_msg_data
3654: );
3655:
3659: arp_util.debug('Reverse_Adjustment: ' || SQLERRM);
3660: END IF;
3661: ROLLBACK TO ar_adjust_PUB ;
3662: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3663: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
3664: p_count => p_msg_count,
3665: p_data => p_msg_data
3666: );
3667:
3682: 'Completion validation error(s) occurred. ' ||
3683: 'Rolling back and setting status to ERROR');
3684: END IF;
3685:
3686: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
3687: p_count => p_msg_count,
3688: p_data => p_msg_data
3689: );
3690: RETURN;
3712: | fnd_api.g_ret_sts_error |
3713: | fnd_api.g_ret_sts_error |
3714: | fnd_api.g_ret_sts_success |
3715: | fnd_api.to_boolean |
3716: | fnd_msg_pub.check_msg_level |
3717: | fnd_msg_pub.count_and_get |
3718: | fnd_msg_pub.initialize |
3719: | ar_adjustments_pkg.fetch_p |
3720: | ar_process_adjustment.update_approve_adjustment |
3713: | fnd_api.g_ret_sts_error |
3714: | fnd_api.g_ret_sts_success |
3715: | fnd_api.to_boolean |
3716: | fnd_msg_pub.check_msg_level |
3717: | fnd_msg_pub.count_and_get |
3718: | fnd_msg_pub.initialize |
3719: | ar_adjustments_pkg.fetch_p |
3720: | ar_process_adjustment.update_approve_adjustment |
3721: | |
3714: | fnd_api.g_ret_sts_success |
3715: | fnd_api.to_boolean |
3716: | fnd_msg_pub.check_msg_level |
3717: | fnd_msg_pub.count_and_get |
3718: | fnd_msg_pub.initialize |
3719: | ar_adjustments_pkg.fetch_p |
3720: | ar_process_adjustment.update_approve_adjustment |
3721: | |
3722: | ARGUMENTS : IN: |
3787: l_org_id NUMBER;
3788:
3789:
3790: BEGIN
3791: IF (FND_MSG_PUB.Check_Msg_Level (G_MSG_LOW)) THEN
3792: select hsecs
3793: into G_START_TIME
3794: from v$timer;
3795: END IF;
3822: +-------------------------------------------------------------*/
3823:
3824: IF FND_API.to_Boolean( p_init_msg_list )
3825: THEN
3826: FND_MSG_PUB.initialize;
3827: END IF;
3828:
3829: -- arp_util.enable_debug(100000);
3830:
3925: p_return_status := FND_API.G_RET_STS_ERROR ;
3926:
3927: FND_MESSAGE.SET_NAME ('AR', 'AR_AAPI_INVALID_ADJ_ID');
3928: FND_MESSAGE.SET_TOKEN ( 'ADJUSTMENT_ID', to_char(p_old_adjust_id) ) ;
3929: FND_MSG_PUB.ADD ;
3930: RETURN;
3931: END ;
3932:
3933: /*------------------------------------------+
4008:
4009: FND_MESSAGE.set_name( 'AR', 'GENERIC_MESSAGE' );
4010: FND_MESSAGE.set_token( 'GENERIC_TEXT', 'arp_process_adjustment.update_approve_adj exception: '||SQLERRM );
4011: --2920926
4012: FND_MSG_PUB.ADD;
4013: /*--------------------------------------------------+
4014: | Get message count and if 1, return message data |
4015: +---------------------------------------------------*/
4016:
4013: /*--------------------------------------------------+
4014: | Get message count and if 1, return message data |
4015: +---------------------------------------------------*/
4016:
4017: FND_MSG_PUB.Count_And_Get(
4018: p_encoded => FND_API.G_FALSE,
4019: p_count => p_msg_count,
4020: p_data => p_msg_data
4021: );
4039: /*---------------------------------------------------+
4040: | Get message count and if 1, return message data |
4041: +---------------------------------------------------*/
4042:
4043: FND_MSG_PUB.Count_And_Get(
4044: p_encoded => FND_API.G_FALSE,
4045: p_count => p_msg_count,
4046: p_data => p_msg_data
4047: );
4061: IF PG_DEBUG in ('Y', 'C') THEN
4062: arp_util.debug('Approve_Adjustment()- ');
4063: END IF;
4064:
4065: IF (FND_MSG_PUB.Check_Msg_Level (G_MSG_LOW)) THEN
4066: select TO_CHAR( (hsecs - G_START_TIME) / 100)
4067: into l_hsec
4068: from v$timer;
4069: IF PG_DEBUG in ('Y', 'C') THEN
4081: END IF;
4082:
4083: ROLLBACK TO ar_adjust_PUB;
4084: p_return_status := FND_API.G_RET_STS_ERROR ;
4085: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
4086: p_count => p_msg_count,
4087: p_data => p_msg_data
4088: );
4089:
4093: arp_util.debug('Approve_Adjustment: ' || SQLERRM);
4094: END IF;
4095: ROLLBACK TO ar_adjust_PUB ;
4096: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4097: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
4098: p_count => p_msg_count,
4099: p_data => p_msg_data
4100: );
4101:
4116: 'Completion validation error(s) occurred. ' ||
4117: 'Rolling back and setting status to ERROR');
4118: END IF;
4119:
4120: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
4121: p_count => p_msg_count,
4122: p_data => p_msg_data
4123: );
4124: RETURN;