[Home] [Help]
1: Package Body AR_RECEIPT_VAL_PVT AS
2: /* $Header: ARXPREVB.pls 120.62.12020000.3 2013/03/01 06:59:45 riqi ship $ */
3: --Validation procedures are contained in this package
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_SUCCESS CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_SUCCESS;
8: G_MSG_HIGH CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH;
9: G_MSG_MEDIUM CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM;
2: /* $Header: ARXPREVB.pls 120.62.12020000.3 2013/03/01 06:59:45 riqi ship $ */
3: --Validation procedures are contained in this package
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_SUCCESS CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_SUCCESS;
8: G_MSG_HIGH CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH;
9: G_MSG_MEDIUM CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM;
10: G_MSG_LOW CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW;
3: --Validation procedures are contained in this package
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_SUCCESS CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_SUCCESS;
8: G_MSG_HIGH CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH;
9: G_MSG_MEDIUM CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM;
10: G_MSG_LOW CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW;
11:
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_SUCCESS CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_SUCCESS;
8: G_MSG_HIGH CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH;
9: G_MSG_MEDIUM CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM;
10: G_MSG_LOW CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW;
11:
12: PG_DEBUG varchar2(1) := NVL(FND_PROFILE.value('AFLOG_ENABLED'), 'N');
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_SUCCESS CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_SUCCESS;
8: G_MSG_HIGH CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH;
9: G_MSG_MEDIUM CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM;
10: G_MSG_LOW CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW;
11:
12: PG_DEBUG varchar2(1) := NVL(FND_PROFILE.value('AFLOG_ENABLED'), 'N');
13:
6: G_MSG_ERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_ERROR;
7: G_MSG_SUCCESS CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_SUCCESS;
8: G_MSG_HIGH CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH;
9: G_MSG_MEDIUM CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM;
10: G_MSG_LOW CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW;
11:
12: PG_DEBUG varchar2(1) := NVL(FND_PROFILE.value('AFLOG_ENABLED'), 'N');
13:
14: PROCEDURE Validate_Receipt_Date(p_receipt_date IN DATE,
35: IF ( NOT arp_util.is_gl_date_valid( p_gl_date )) THEN
36: FND_MESSAGE.set_name( 'AR', 'AR_INVALID_APP_GL_DATE' );
37: --Int'l Calendar Project
38: FND_MESSAGE.set_token( 'GL_DATE', fnd_date.date_to_chardate(p_gl_date, calendar_aware=> FND_DATE.calendar_aware_alt));
39: FND_MSG_PUB.Add;
40: p_return_status := FND_API.G_RET_STS_ERROR;
41: END IF;
42: IF PG_DEBUG in ('Y', 'C') THEN
43: arp_util.debug('Validate_Gl_Date ()+');
64: IF (p_maturity_date < p_receipt_date) THEN
65: p_return_status := FND_API.G_RET_STS_ERROR;
66: FND_MESSAGE.set_name( 'AR','AR_RW_MAT_BEFORE_RCT_DATE');
67: -- arp_util.debug('m'||FND_MESSAGE.GET_ENCODED);
68: FND_MSG_PUB.ADD;
69: ELSE
70: p_return_status := FND_API.G_RET_STS_SUCCESS;
71: END IF;
72: IF PG_DEBUG in ('Y', 'C') THEN
88: --Raise error if the receipt amount is null or negative
89: IF p_amount IS NULL THEN
90: p_return_status := FND_API.G_RET_STS_ERROR;
91: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_AMOUNT_NULL');
92: FND_MSG_PUB.Add;
93:
94: ElSIF (p_amount < 0) AND (p_type = 'CASH')
95: THEN
96: p_return_status := FND_API.G_RET_STS_ERROR;
94: ElSIF (p_amount < 0) AND (p_type = 'CASH')
95: THEN
96: p_return_status := FND_API.G_RET_STS_ERROR;
97: FND_MESSAGE.SET_NAME('AR','AR_RW_RCT_AMOUNT_NEGATIVE');
98: FND_MSG_PUB.Add;
99:
100: END IF;
101:
102:
110: IF ( NVL(p_factor_discount_amount,0) <> 0 )
111: THEN
112: p_return_status := FND_API.G_RET_STS_ERROR;
113: FND_MESSAGE.SET_NAME('AR', 'AR_BK_CH_NOT_ALLWD_IF_NOT_CLR');
114: FND_MSG_PUB.Add;
115: IF PG_DEBUG in ('Y', 'C') THEN
116: arp_util.debug('Validate_amount: ' || 'Bank charges are not allowed ');
117: END IF;
118: END IF;
124: -- raise error about bank charges not allowed because the
125: -- state of the receipt is <> 'CLEARED'
126: p_return_status := FND_API.G_RET_STS_ERROR;
127: FND_MESSAGE.SET_NAME('AR','AR_BK_CH_NOT_ALLWD_IF_NOT_CLR');
128: FND_MSG_PUB.Add;
129: IF PG_DEBUG in ('Y', 'C') THEN
130: arp_util.debug('Validate_amount: ' || 'The bank charges are not allowed if the state <> CLEARED');
131: END IF;
132: END IF;
135:
136: -- Raise error if the bank charges amount less than 0
137: p_return_status := FND_API.G_RET_STS_ERROR;
138: FND_MESSAGE.SET_NAME('AR','AR_JG_BC_AMOUNT_NEGATIVE');
139: FND_MSG_PUB.Add;
140: END IF;
141:
142: p_amount := nvl(p_amount,0) + nvl(p_factor_discount_amount,0);
143:
144: IF (p_amount < 0) AND (p_type = 'CASH')
145: THEN
146: p_return_status := FND_API.G_RET_STS_ERROR;
147: FND_MESSAGE.SET_NAME('AR','AR_RW_RCT_AMOUNT_NEGATIVE');
148: FND_MSG_PUB.Add;
149: IF PG_DEBUG in ('Y', 'C') THEN
150: arp_util.debug('Validate_amount: ' || 'Receipt amount is negative ');
151: END IF;
152: END IF;
232: EXCEPTION
233: WHEN NO_DATA_FOUND THEN
234: p_return_status := FND_API.G_RET_STS_ERROR;
235: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUST_ID_INVALID');
236: FND_MSG_PUB.Add;
237:
238: WHEN OTHERS THEN
239: IF PG_DEBUG in ('Y', 'C') THEN
240: arp_util.debug('Validate_amount: ' || 'EXCEPTION: Cache_Customer_id() ');
277: EXCEPTION
278: WHEN NO_DATA_FOUND THEN
279: p_return_status := FND_API.G_RET_STS_ERROR;
280: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_STE_USE_ID_INVALID');
281: FND_MSG_PUB.Add;
282:
283: WHEN OTHERS THEN
284: IF PG_DEBUG in ('Y', 'C') THEN
285: arp_util.debug('Validate_amount: ' || 'EXCEPTION: Validate_Customer_Site_Use_id() ');
298: -- hz_cust_site_uses
299: -- the error message was not raised in the defaulting routine.
300: p_return_status := FND_API.G_RET_STS_ERROR;
301: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_LOC_INVALID');
302: FND_MSG_PUB.Add;
303: ELSE
304:
305: --This is the case where customer site use id is null, neither it was supplied
306: --by the user nor it could be defaulted a WARNING message is raised to
308:
309: IF nvl(arp_global.sysparam.site_required_flag,'N') = 'Y' THEN
310: --error
311: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_STE_USE_ID_NOT_DEF');
312: FND_MSG_PUB.Add;
313: p_return_status := FND_API.G_RET_STS_ERROR;
314: ELSE
315: --warning
316: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
312: FND_MSG_PUB.Add;
313: p_return_status := FND_API.G_RET_STS_ERROR;
314: ELSE
315: --warning
316: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
317: THEN
318: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_STE_USE_ID_NOT_DEF');
319: FND_MSG_PUB.Add;
320: IF PG_DEBUG in ('Y', 'C') THEN
315: --warning
316: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
317: THEN
318: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_STE_USE_ID_NOT_DEF');
319: FND_MSG_PUB.Add;
320: IF PG_DEBUG in ('Y', 'C') THEN
321: arp_util.debug('Validate_amount: ' || 'Customer site use id is null');
322: END IF;
323: END IF;
376: WHEN no_data_found THEN
377: IF ar_receipt_api_pub.Original_create_cash_info.customer_bank_account_id IS NOT NULL THEN
378: p_return_status := FND_API.G_RET_STS_ERROR;
379: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_BK_AC_ID_INVALID');
380: FND_MSG_PUB.Add;
381: ELSIF ar_receipt_api_pub.Original_create_cash_info.customer_bank_account_num IS NOT NULL THEN
382: p_return_status := FND_API.G_RET_STS_ERROR;
383: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_BK_AC_NUM_INVALID');
384: FND_MSG_PUB.Add;
380: FND_MSG_PUB.Add;
381: ELSIF ar_receipt_api_pub.Original_create_cash_info.customer_bank_account_num IS NOT NULL THEN
382: p_return_status := FND_API.G_RET_STS_ERROR;
383: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_BK_AC_NUM_INVALID');
384: FND_MSG_PUB.Add;
385: ELSIF ar_receipt_api_pub.Original_create_cash_info.customer_bank_account_name IS NOT NULL THEN
386: p_return_status := FND_API.G_RET_STS_ERROR;
387: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_BK_AC_NAME_INVALID');
388: FND_MSG_PUB.Add;
384: FND_MSG_PUB.Add;
385: ELSIF ar_receipt_api_pub.Original_create_cash_info.customer_bank_account_name IS NOT NULL THEN
386: p_return_status := FND_API.G_RET_STS_ERROR;
387: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_BK_AC_NAME_INVALID');
388: FND_MSG_PUB.Add;
389: END IF;
390: WHEN too_many_rows THEN
391: --Each customer site can have multiple accounts, so if it retrives more than
392: --one record, the validation is true.
428: IF ar_receipt_api_pub.Original_create_cash_info.customer_bank_account_id IS NOT NULL
429: THEN
430: p_return_status := FND_API.G_RET_STS_ERROR;
431: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_BK_AC_ID_INVALID');
432: FND_MSG_PUB.Add;
433: ELSIF ar_receipt_api_pub.Original_create_cash_info.customer_bank_account_num IS NOT NULL
434: THEN
435: p_return_status := FND_API.G_RET_STS_ERROR;
436: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_BK_AC_NUM_INVALID');
433: ELSIF ar_receipt_api_pub.Original_create_cash_info.customer_bank_account_num IS NOT NULL
434: THEN
435: p_return_status := FND_API.G_RET_STS_ERROR;
436: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_BK_AC_NUM_INVALID');
437: FND_MSG_PUB.Add;
438: ELSIF ar_receipt_api_pub.Original_create_cash_info.customer_bank_account_name IS NOT NULL
439: THEN
440: p_return_status := FND_API.G_RET_STS_ERROR;
441: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_BK_AC_NAME_INVALID');
438: ELSIF ar_receipt_api_pub.Original_create_cash_info.customer_bank_account_name IS NOT NULL
439: THEN
440: p_return_status := FND_API.G_RET_STS_ERROR;
441: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_BK_AC_NAME_INVALID');
442: FND_MSG_PUB.Add;
443: END IF;
444:
445: END IF; /* bichatte payment uptake commenting ( Reverted) */
446:
448: IF ar_receipt_api_pub.Original_create_cash_info.cust_site_use_id IS NOT NULL
449: THEN
450: p_return_status := FND_API.G_RET_STS_ERROR;
451: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_SITE_USE_ID_INVALID');
452: FND_MSG_PUB.Add;
453: ELSIF ar_receipt_api_pub.Original_create_cash_info.location IS NULL THEN
454: p_return_status := FND_API.G_RET_STS_ERROR;
455: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_LOC_INVALID');
456: FND_MSG_PUB.Add;
452: FND_MSG_PUB.Add;
453: ELSIF ar_receipt_api_pub.Original_create_cash_info.location IS NULL THEN
454: p_return_status := FND_API.G_RET_STS_ERROR;
455: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_LOC_INVALID');
456: FND_MSG_PUB.Add;
457: END IF;
458: END IF;
459:
460: END IF;
706: WHEN receipt_method_invalid THEN
707: IF ar_receipt_api_pub.Original_create_cash_info.receipt_method_id IS NOT NULL THEN
708: p_return_status := FND_API.G_RET_STS_ERROR;
709: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_MD_ID_INVALID');
710: FND_MSG_PUB.Add;
711: IF PG_DEBUG in ('Y', 'C') THEN
712: arp_util.debug('Validate_amount: ' || 'Invalid receipt method id ');
713: END IF;
714: ELSIF ar_receipt_api_pub.Original_create_cash_info.receipt_method_name IS NOT NULL THEN
713: END IF;
714: ELSIF ar_receipt_api_pub.Original_create_cash_info.receipt_method_name IS NOT NULL THEN
715: p_return_status := FND_API.G_RET_STS_ERROR;
716: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCT_MD_NAME_INVALID');
717: FND_MSG_PUB.Add;
718: IF PG_DEBUG in ('Y', 'C') THEN
719: arp_util.debug('Validate_amount: ' || 'Invalid receipt method name ');
720: END IF;
721: END IF;
729: WHEN remittance_bank_invalid THEN
730: IF ar_receipt_api_pub.Original_create_cash_info.remit_bank_acct_use_id IS NOT NULL THEN
731: p_return_status := FND_API.G_RET_STS_ERROR;
732: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REM_BK_AC_ID_INVALID');
733: FND_MSG_PUB.Add;
734: IF PG_DEBUG in ('Y', 'C') THEN
735: arp_util.debug('Validate_amount: ' || 'Invalid remittance bank account id');
736: END IF;
737: ELSIF ar_receipt_api_pub.Original_create_cash_info.remittance_bank_account_num IS NOT NULL THEN
736: END IF;
737: ELSIF ar_receipt_api_pub.Original_create_cash_info.remittance_bank_account_num IS NOT NULL THEN
738: p_return_status := FND_API.G_RET_STS_ERROR;
739: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REM_BK_AC_NUM_INVALID');
740: FND_MSG_PUB.Add;
741: IF PG_DEBUG in ('Y', 'C') THEN
742: arp_util.debug('Validate_amount: ' || 'Invalid remittance bank account number');
743: END IF;
744: ELSIF ar_receipt_api_pub.Original_create_cash_info.remittance_bank_account_name IS NOT NULL THEN
743: END IF;
744: ELSIF ar_receipt_api_pub.Original_create_cash_info.remittance_bank_account_name IS NOT NULL THEN
745: p_return_status := FND_API.G_RET_STS_ERROR;
746: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REM_BK_AC_NAME_INVALID');
747: FND_MSG_PUB.Add;
748: IF PG_DEBUG in ('Y', 'C') THEN
749: arp_util.debug('Validate_amount: ' || 'Invalid remittance bank account name');
750: END IF;
751: END IF;
752:
753: WHEN remittance_bank_null THEN
754: p_return_status := FND_API.G_RET_STS_ERROR;
755: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REM_BK_AC_ID_NULL');
756: FND_MSG_PUB.Add;
757: IF PG_DEBUG in ('Y', 'C') THEN
758: arp_util.debug('Validate_amount: ' || 'The remittance bank account could not be defaulted ');
759: END IF;
760: WHEN receipt_md_null THEN
759: END IF;
760: WHEN receipt_md_null THEN
761: p_return_status := FND_API.G_RET_STS_ERROR;
762: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_MD_ID_NULL');
763: FND_MSG_PUB.Add;
764: IF PG_DEBUG in ('Y', 'C') THEN
765: arp_util.debug('Validate_amount: ' || 'The receipt method id is null ');
766: END IF;
767: WHEN others THEN
795:
796: -- raise exception
797: p_return_status := FND_API.G_RET_STS_ERROR;
798: FND_MESSAGE.SET_NAME('AR','AR_RAPI_X_RATE_TYPE_NULL');
799: FND_MSG_PUB.Add;
800: Return;
801:
802: ELSE
803: -- Validate the rate_type against the database values
810: EXCEPTION
811: WHEN no_data_found THEN
812: p_return_status := FND_API.G_RET_STS_ERROR;
813: FND_MESSAGE.SET_NAME('AR','AR_RAPI_X_RATE_TYPE_INVALID');
814: FND_MSG_PUB.Add;
815: Return;
816: END;
817:
818: IF p_exchange_rate_type = 'User' THEN
820: IF p_exchange_rate IS NULL THEN
821: --raise error message, because for rate_type 'User' the rate should be specified.
822: p_return_status := FND_API.G_RET_STS_ERROR;
823: FND_MESSAGE.SET_NAME('AR','AR_RAPI_X_RATE_NULL');
824: FND_MSG_PUB.Add;
825: ELSIF p_exchange_rate = 0 THEN
826: p_return_status := FND_API.G_RET_STS_ERROR ;
827: FND_MESSAGE.SET_NAME('AR','AR_EXCHANGE_RATE_ZERO');
828: FND_MSG_PUB.Add;
824: FND_MSG_PUB.Add;
825: ELSIF p_exchange_rate = 0 THEN
826: p_return_status := FND_API.G_RET_STS_ERROR ;
827: FND_MESSAGE.SET_NAME('AR','AR_EXCHANGE_RATE_ZERO');
828: FND_MSG_PUB.Add;
829: ELSIF p_exchange_rate < 0 THEN
830: p_return_status := FND_API.G_RET_STS_ERROR ;
831: FND_MESSAGE.SET_NAME('AR','AR_EXCHANGE_RATE_NEGATIVE');
832: FND_MSG_PUB.Add;
828: FND_MSG_PUB.Add;
829: ELSIF p_exchange_rate < 0 THEN
830: p_return_status := FND_API.G_RET_STS_ERROR ;
831: FND_MESSAGE.SET_NAME('AR','AR_EXCHANGE_RATE_NEGATIVE');
832: FND_MSG_PUB.Add;
833: END IF;
834:
835: ELSE
836: --this is the case where rate_type <> 'User'
840: --raise an error message in that case
841:
842: p_return_status := FND_API.G_RET_STS_ERROR;
843: FND_MESSAGE.SET_NAME('AR','AR_NO_RATE_DATA_FOUND');
844: FND_MSG_PUB.Add;
845: END IF;
846:
847: END IF;
848:
853:
854: IF (p_exchange_rate IS NOT NULL) THEN
855: p_return_status := FND_API.G_RET_STS_ERROR ;
856: FND_MESSAGE.SET_NAME('AR','AR_RAPI_X_RATE_INVALID');
857: FND_MSG_PUB.Add;
858: END IF;
859: IF (p_exchange_rate_type IS NOT NULL) THEN
860: p_return_status := FND_API.G_RET_STS_ERROR ;
861: FND_MESSAGE.SET_NAME('AR','AR_RAPI_X_RATE_TYPE_INVALID');
858: END IF;
859: IF (p_exchange_rate_type IS NOT NULL) THEN
860: p_return_status := FND_API.G_RET_STS_ERROR ;
861: FND_MESSAGE.SET_NAME('AR','AR_RAPI_X_RATE_TYPE_INVALID');
862: FND_MSG_PUB.Add;
863: END IF;
864: IF (p_exchange_rate_date IS NOT NULL) THEN
865: p_return_status := FND_API.G_RET_STS_ERROR ;
866: FND_MESSAGE.SET_NAME('AR','AR_RAPI_X_RATE_DATE_INVALID');
863: END IF;
864: IF (p_exchange_rate_date IS NOT NULL) THEN
865: p_return_status := FND_API.G_RET_STS_ERROR ;
866: FND_MESSAGE.SET_NAME('AR','AR_RAPI_X_RATE_DATE_INVALID');
867: FND_MSG_PUB.Add;
868: END IF;
869: END IF;
870: EXCEPTION
871: WHEN others THEN
923: ELSE
924: --the entered currency is invalid
925: p_return_status := FND_API.G_RET_STS_ERROR;
926: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CURR_CODE_INVALID');
927: FND_MSG_PUB.Add;
928: END IF;
929: END Validate_Currency;
930:
931: PROCEDURE val_duplicate_receipt(p_receipt_number IN VARCHAR2,
970: -- Do not allow to create duplicate receipts
971: IF l_duplicate_receipt = 'Y' THEN
972: IF p_type = 'CASH' THEN
973: FND_MESSAGE.SET_NAME('AR','AR_RW_CASH_DUPLICATE_RECEIPT');
974: FND_MSG_PUB.ADD;
975: p_return_status := FND_API.G_RET_STS_ERROR;
976: ELSIF p_type = 'MISC' THEN
977: FND_MESSAGE.SET_NAME('AR','AR_RW_MISC_DUPLICATE_RECEIPT');
978: FND_MSG_PUB.ADD;
974: FND_MSG_PUB.ADD;
975: p_return_status := FND_API.G_RET_STS_ERROR;
976: ELSIF p_type = 'MISC' THEN
977: FND_MESSAGE.SET_NAME('AR','AR_RW_MISC_DUPLICATE_RECEIPT');
978: FND_MSG_PUB.ADD;
979: p_return_status := FND_API.G_RET_STS_ERROR;
980: END IF;
981:
982: END IF;
1080: p_doc_sequence_value IS NOT NULL
1081: THEN
1082: l_doc_seq_return_status := FND_API.G_RET_STS_ERROR ;
1083: FND_MESSAGE.SET_NAME('AR','AR_RAPI_DOC_SEQ_VAL_INVALID');
1084: FND_MSG_PUB.Add;
1085: END IF;
1086: --Validate amount
1087: Validate_amount(p_amount ,
1088: p_factor_discount_amount,
1109:
1110: --Validate the override_remit_bank_account_flag
1111: IF (p_override_remit_account_flag NOT IN ('Y','N')) THEN
1112: FND_MESSAGE.SET_NAME('AR','AR_OVERR_REM_BK_FLAG_INVALID');
1113: FND_MSG_PUB.ADD;
1114: l_override_remit_return_status := FND_API.G_RET_STS_ERROR;
1115: ELSE
1116: l_override_remit_return_status := FND_API.G_RET_STS_SUCCESS;
1117: END IF;
1193: IF p_amount_applied IS NULL
1194: THEN
1195: p_return_status := FND_API.G_RET_STS_ERROR;
1196: FND_MESSAGE.SET_NAME('AR','AR_RAPI_APPLIED_AMT_NULL');
1197: FND_MSG_PUB.Add;
1198: return;
1199: /* The amount Applied can be greater than the line amount. The line level application
1200: is not supported yet: Bug 3476306 */
1201: /*ELSE
1207: THEN
1208: p_return_status := FND_API.G_RET_STS_ERROR;
1209: FND_MESSAGE.SET_NAME('AR','AR_RW_APPLIED_GREATER_LINE');
1210: FND_MESSAGE.SET_TOKEN('AMOUNT',p_inv_line_amount);
1211: FND_MSG_PUB.Add;
1212: END IF; */
1213: END IF;
1214: IF PG_DEBUG in ('Y', 'C') THEN
1215: arp_util.debug('Validate_amount: ' || 'Before calling the check_natural_application routine ');
1232: IF ( l_message_name IS NOT NULL)
1233: THEN
1234: p_return_status := FND_API.G_RET_STS_ERROR;
1235: FND_MESSAGE.SET_NAME('AR',l_message_name);
1236: FND_MSG_PUB.Add;
1237: END IF;
1238:
1239: END IF;
1240:
1291: IF ( l_line_message_name IS NOT NULL)
1292: THEN
1293: p_return_status := FND_API.G_RET_STS_ERROR;
1294: FND_MESSAGE.SET_NAME('AR',l_line_message_name);
1295: FND_MSG_PUB.Add;
1296: END IF;
1297:
1298: END IF;
1299:
1347: IF ( l_tax_message_name IS NOT NULL)
1348: THEN
1349: p_return_status := FND_API.G_RET_STS_ERROR;
1350: FND_MESSAGE.SET_NAME('AR',l_tax_message_name);
1351: FND_MSG_PUB.Add;
1352: END IF;
1353:
1354: END IF;
1355:
1406: IF ( l_frt_message_name IS NOT NULL)
1407: THEN
1408: p_return_status := FND_API.G_RET_STS_ERROR;
1409: FND_MESSAGE.SET_NAME('AR',l_frt_message_name);
1410: FND_MSG_PUB.Add;
1411: END IF;
1412:
1413: END IF;
1414:
1466: IF ( l_message_name IS NOT NULL)
1467: THEN
1468: p_return_status := FND_API.G_RET_STS_ERROR;
1469: FND_MESSAGE.SET_NAME('AR',l_message_name);
1470: FND_MSG_PUB.Add;
1471: END IF;
1472:
1473: END IF;
1474:
1500: arp_util.debug('Validate_amount: ' || 'l_remaining_unapp_rct_amt :'||to_char(l_remaining_unapp_rct_amt));
1501: END IF;
1502: p_return_status := FND_API.G_RET_STS_ERROR;
1503: FND_MESSAGE.SET_NAME('AR','AR_RW_APP_NEG_UNAPP');
1504: FND_MSG_PUB.Add;
1505: END IF;
1506:
1507: IF p_cr_currency_code = p_trx_currency_code AND
1508: p_amount_applied_from IS NOT NULL
1507: IF p_cr_currency_code = p_trx_currency_code AND
1508: p_amount_applied_from IS NOT NULL
1509: THEN
1510: FND_MESSAGE.SET_NAME('AR','AR_RAPI_AMT_APP_FROM_INVALID');
1511: FND_MSG_PUB.Add;
1512: p_return_status := FND_API.G_RET_STS_ERROR;
1513: END IF;
1514: IF PG_DEBUG in ('Y', 'C') THEN
1515: arp_util.debug('Validate_amount_applied_from ()-');
1543: arp_util.debug('Validate_amount_applied_from: ' || 'l_remaining_unapp_rct_amt :'||to_char(l_remaining_unapp_rct_amt));
1544: END IF;
1545: p_return_status := FND_API.G_RET_STS_ERROR;
1546: FND_MESSAGE.SET_NAME('AR','AR_RW_AMOUNT_LESS_THAN_APP');
1547: FND_MSG_PUB.Add;
1548: END IF;
1549: IF PG_DEBUG in ('Y', 'C') THEN
1550: arp_util.debug('Validate_amount_applied_from over loaded()-');
1551: END IF;
1575: --and the user should not have specified a value for trans_to_receipt_rate
1576:
1577: p_return_status := FND_API.G_RET_STS_ERROR;
1578: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CC_RATE_INVALID');
1579: FND_MSG_PUB.Add;
1580: ELSIF p_trx_currency_code <> p_cr_currency_code THEN
1581: IF p_trans_to_receipt_rate IS NULL THEN
1582:
1583: p_return_status := FND_API.G_RET_STS_ERROR;
1581: IF p_trans_to_receipt_rate IS NULL THEN
1582:
1583: p_return_status := FND_API.G_RET_STS_ERROR;
1584: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CC_RATE_NULL');
1585: FND_MSG_PUB.Add;
1586: ELSIF p_trans_to_receipt_rate < 0 THEN
1587:
1588: p_return_status := FND_API.G_RET_STS_ERROR;
1589: FND_MESSAGE.SET_NAME('AR','AR_RW_CC_RATE_POSITIVE');
1586: ELSIF p_trans_to_receipt_rate < 0 THEN
1587:
1588: p_return_status := FND_API.G_RET_STS_ERROR;
1589: FND_MESSAGE.SET_NAME('AR','AR_RW_CC_RATE_POSITIVE');
1590: FND_MSG_PUB.Add;
1591:
1592: ELSE
1593:
1594: --Validate the trans_to_receipt_rate with reference to
1618:
1619: IF l_amount_applied_cr <> l_amount_applied_from THEN
1620: p_return_status := FND_API.G_RET_STS_ERROR;
1621: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CC_RATE_AMTS_INVALID');
1622: FND_MSG_PUB.Add;
1623: END IF;
1624: END IF;
1625: END IF;
1626: END IF;
1656: AND p_applied_payment_schedule_id = -1)
1657: THEN
1658: p_return_status := FND_API.G_RET_STS_ERROR;
1659: fnd_message.set_name ('AR','AR_RW_VAL_ONACC_DISC');
1660: fnd_msg_pub.Add;
1661:
1662: -- Do not negative discounts unless the amount applied is also
1663: -- negative.
1664: ELSIF p_amount_applied >= 0 and
1664: ELSIF p_amount_applied >= 0 and
1665: p_discount < 0 THEN
1666: p_return_status := FND_API.G_RET_STS_ERROR;
1667: fnd_message.set_name ('AR','AR_RW_VAL_NEG_DISCNT');
1668: fnd_msg_pub.Add;
1669: -- Bug 3527600: Do not allow positive discounts unless the amount
1670: -- applied is also positive.
1671: ELSIF p_amount_applied < 0 and
1672: p_discount > 0 THEN
1670: -- applied is also positive.
1671: ELSIF p_amount_applied < 0 and
1672: p_discount > 0 THEN
1673: fnd_message.set_name ('AR','AR_RW_VAL_POS_DISCNT');
1674: fnd_msg_pub.Add;
1675: p_return_status := FND_API.G_RET_STS_ERROR;
1676:
1677: -- If partial payment discounts are not allowed.
1678:
1694: (p_amount_due_remaining - (p_amount_applied + p_discount)) < 0))
1695: THEN
1696: p_return_status := FND_API.G_RET_STS_ERROR;
1697: fnd_message.set_name ('AR','AR_NO_PARTIAL_DISC');
1698: fnd_msg_pub.Add;
1699:
1700: ELSIF p_discount IS NOT NULL THEN
1701:
1702: --Do not give discounts more than allowed.
1707: fnd_message.set_token ('DISC_AVAILABLE'
1708: ,TO_CHAR(p_discount_max_allowed,
1709: fnd_currency.get_format_mask (p_trx_currency_code,30))
1710: ||' '||p_trx_currency_code);
1711: fnd_msg_pub.Add;
1712: p_return_status := FND_API.G_RET_STS_ERROR;
1713:
1714: -- Check for Unearned Discounts.
1715: -- Bug 3527600: Allow for negative discount
1716: ELSIF arp_global.sysparam.unearned_discount = 'N'
1717: AND ABS(p_discount) > ABS(p_discount_earned_allowed)
1718: THEN
1719: fnd_message.set_name ('AR','AR_RW_VAL_UNEARNED_DISCOUNT');
1720: fnd_msg_pub.Add;
1721: p_return_status := FND_API.G_RET_STS_ERROR;
1722: END IF;
1723: END IF;
1724:
1744:
1745: -- Check that the application GL Date is not before the invoice GL Date.
1746: IF p_apply_gl_date < p_trx_gl_date THEN
1747: FND_MESSAGE.SET_NAME('AR','AR_VAL_GL_INV_GL');
1748: FND_MSG_PUB.Add;
1749: p_return_status := FND_API.G_RET_STS_ERROR;
1750:
1751: -- Check that the application GL Date is not before the receipt GL Date.
1752: END IF;
1752: END IF;
1753:
1754: IF p_apply_gl_date < p_cr_gl_date THEN
1755: FND_MESSAGE.SET_NAME('AR','AR_RW_GL_DATE_BEFORE_REC_GL');
1756: FND_MSG_PUB.Add;
1757: p_return_status := FND_API.G_RET_STS_ERROR;
1758: END IF;
1759:
1760:
1762: IF ( NOT arp_util.is_gl_date_valid( p_apply_gl_date )) THEN
1763: FND_MESSAGE.set_name( 'AR', 'AR_INVALID_APP_GL_DATE' );
1764: --Int'l Calendar Project
1765: FND_MESSAGE.set_token( 'GL_DATE', fnd_date.date_to_chardate(p_apply_gl_date, calendar_aware=> FND_DATE.calendar_aware_alt));
1766: FND_MSG_PUB.Add;
1767: p_return_status := FND_API.G_RET_STS_ERROR;
1768: END IF;
1769:
1770:
1791:
1792: -- check that the apply date is not before the invoice date.
1793: IF p_apply_date < p_trx_date THEN
1794: FND_MESSAGE.SET_NAME('AR','AR_APPLY_BEFORE_TRANSACTION');
1795: FND_MSG_PUB.Add;
1796: p_return_status := FND_API.G_RET_STS_ERROR;
1797:
1798: -- check that the application date is not before the receipt date.
1799: END IF;
1799: END IF;
1800:
1801: IF p_apply_date < p_cr_date THEN
1802: FND_MESSAGE.SET_NAME('AR','AR_APPLY_BEFORE_RECEIPT');
1803: FND_MSG_PUB.Add;
1804: p_return_status := FND_API.G_RET_STS_ERROR;
1805: END IF;
1806:
1807: END IF;
2045: > Nvl(p_discount_max_allowed,0)
2046: )
2047: THEN
2048: FND_MESSAGE.SET_NAME( 'AR','AR_RAPI_LTFC_DISC_OAPP');
2049: FND_MSG_PUB.ADD;
2050: p_return_status := FND_API.G_RET_STS_ERROR ;
2051: END IF;
2052: END IF; */
2053:
2053:
2054: --validate p_move_deferred_tax
2055: IF p_move_deferred_tax NOT IN ('Y','N') THEN
2056: FND_MESSAGE.SET_NAME('AR','AR_RAPI_DEF_TAX_FLAG_INVALID');
2057: FND_MSG_PUB.Add;
2058: p_return_status := FND_API.G_RET_STS_ERROR;
2059: END IF;
2060: IF PG_DEBUG in ('Y', 'C') THEN
2061: arp_util.debug('Validate_Application_info: ' || 'Discount return status :'||l_disc_return_status);
2099: IF p_reversal_gl_date < NVL(p_apply_gl_date,p_reversal_gl_date) THEN
2100: FND_MESSAGE.SET_NAME('AR','AR_RW_BEFORE_APP_GL_DATE');
2101: --Int'l Calendar Project
2102: FND_MESSAGE.SET_TOKEN('GL_DATE', fnd_date.date_to_chardate(p_apply_gl_date, calendar_aware=> FND_DATE.calendar_aware_alt));
2103: FND_MSG_PUB.Add;
2104: p_return_status := FND_API.G_RET_STS_ERROR;
2105: END IF;
2106: IF p_reversal_gl_date < nvl(p_receipt_gl_date,p_reversal_gl_date) THEN
2107: FND_MESSAGE.SET_NAME('AR','AR_RW_BEFORE_RECEIPT_GL_DATE');
2106: IF p_reversal_gl_date < nvl(p_receipt_gl_date,p_reversal_gl_date) THEN
2107: FND_MESSAGE.SET_NAME('AR','AR_RW_BEFORE_RECEIPT_GL_DATE');
2108: --Int'l Calendar Project
2109: FND_MESSAGE.SET_TOKEN('GL_DATE', fnd_date.date_to_chardate(p_receipt_gl_date, calendar_aware=> FND_DATE.calendar_aware_alt));
2110: FND_MSG_PUB.Add;
2111: p_return_status := FND_API.G_RET_STS_ERROR;
2112: END IF;
2113: /* Bug fix 2441105 */
2114: IF p_reversal_gl_date < nvl(p_recpt_last_state_gl_date,p_reversal_gl_date) THEN
2114: IF p_reversal_gl_date < nvl(p_recpt_last_state_gl_date,p_reversal_gl_date) THEN
2115: FND_MESSAGE.SET_NAME('AR','AR_RW_BEF_RCPT_STATE_GL_DATE');
2116: --Int'l Calendar Project
2117: FND_MESSAGE.SET_TOKEN('GL_DATE', fnd_date.date_to_chardate(p_recpt_last_state_gl_date, calendar_aware=> FND_DATE.calendar_aware_alt));
2118: FND_MSG_PUB.Add;
2119: p_return_status := FND_API.G_RET_STS_ERROR;
2120: END IF;
2121: IF ( NOT arp_util.is_gl_date_valid(p_reversal_gl_date)) THEN
2122: FND_MESSAGE.set_name( 'AR', 'AR_INVALID_APP_GL_DATE' );
2121: IF ( NOT arp_util.is_gl_date_valid(p_reversal_gl_date)) THEN
2122: FND_MESSAGE.set_name( 'AR', 'AR_INVALID_APP_GL_DATE' );
2123: --Int'l Calendar Project
2124: FND_MESSAGE.set_token( 'GL_DATE', fnd_date.date_to_chardate(p_reversal_gl_date, calendar_aware=> FND_DATE.calendar_aware_alt));
2125: FND_MSG_PUB.Add;
2126: p_return_status := FND_API.G_RET_STS_ERROR;
2127: END IF;
2128:
2129: ELSE
2127: END IF;
2128:
2129: ELSE
2130: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REV_GL_DATE_NULL');
2131: FND_MSG_PUB.Add;
2132: p_return_status := FND_API.G_RET_STS_ERROR;
2133: IF PG_DEBUG in ('Y', 'C') THEN
2134: arp_util.debug('Validate_Rev_gl_date: ' || 'The Reversal gl date is null ');
2135: END IF;
2171: IF p_reversal_gl_date < l_gl_date THEN
2172: FND_MESSAGE.SET_NAME('AR','AR_RW_BEF_RCPT_APP_GL_DATE');
2173: --Int'l Calendar Project
2174: FND_MESSAGE.SET_TOKEN('GL_DATE', fnd_date.date_to_chardate(l_gl_date, calendar_aware=> FND_DATE.calendar_aware_alt));
2175: FND_MSG_PUB.Add;
2176: p_return_status := FND_API.G_RET_STS_ERROR;
2177: END IF;
2178:
2179: IF p_reversal_date < l_apply_date THEN
2179: IF p_reversal_date < l_apply_date THEN
2180: FND_MESSAGE.SET_NAME('AR','AR_RW_BEF_RCPT_APP_DATE');
2181: --Int'l Calendar Project
2182: FND_MESSAGE.SET_TOKEN('APPLY_DATE', fnd_date.date_to_chardate(l_apply_date, calendar_aware=> FND_DATE.calendar_aware_alt));
2183: FND_MSG_PUB.Add;
2184: p_return_status := FND_API.G_RET_STS_ERROR;
2185: END IF;
2186:
2187: IF PG_DEBUG in ('Y', 'C') THEN
2226: and ra.application_type = 'CASH';
2227:
2228: IF l_valid = 0 THEN
2229: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REC_APP_ID_INVALID');
2230: FND_MSG_PUB.Add;
2231: p_return_status := FND_API.G_RET_STS_ERROR;
2232: END IF;
2233:
2234: ELSIF p_receivable_application_id IS NULL THEN
2239: ar_receipt_api_pub.Original_unapp_info.receipt_number IS NULL
2240: THEN
2241: --receivable application id is null
2242: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REC_APP_ID_NULL');
2243: FND_MSG_PUB.Add;
2244: p_return_status := FND_API.G_RET_STS_ERROR;
2245: ELSIF ar_receipt_api_pub.Original_unapp_info.trx_number IS NULL AND
2246: ar_receipt_api_pub.Original_unapp_info.customer_trx_id IS NULL AND
2247: ar_receipt_api_pub.Original_unapp_info.applied_ps_id IS NULL AND
2249: ar_receipt_api_pub.Original_unapp_info.receipt_number IS NOT NULL)
2250: THEN
2251: --the transaction was not specified
2252: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUST_TRX_ID_NULL');
2253: FND_MSG_PUB.Add;
2254: p_return_status := FND_API.G_RET_STS_ERROR;
2255: ELSIF (ar_receipt_api_pub.Original_unapp_info.trx_number IS NOT NULL OR
2256: ar_receipt_api_pub.Original_unapp_info.customer_trx_id IS NOT NULL OR
2257: ar_receipt_api_pub.Original_unapp_info.applied_ps_id IS NOT NULL) AND
2259: ar_receipt_api_pub.Original_unapp_info.receipt_number IS NULL
2260: THEN
2261: --the receipt was not specified
2262: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CASH_RCPT_ID_NULL');
2263: FND_MSG_PUB.Add;
2264: p_return_status := FND_API.G_RET_STS_ERROR;
2265: END IF;
2266:
2267: END IF;
2480: IN (p_status1,p_status2,p_status3,p_status4,p_status5);
2481:
2482: IF l_valid = 0 THEN
2483: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CASH_RCPT_ID_INVALID');
2484: FND_MSG_PUB.Add;
2485: p_return_status := FND_API.G_RET_STS_ERROR;
2486: END IF;
2487: ELSE
2488: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CASH_RCPT_ID_NULL');
2485: p_return_status := FND_API.G_RET_STS_ERROR;
2486: END IF;
2487: ELSE
2488: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CASH_RCPT_ID_NULL');
2489: FND_MSG_PUB.Add;
2490: p_return_status := FND_API.G_RET_STS_ERROR;
2491: END IF;
2492: IF PG_DEBUG in ('Y', 'C') THEN
2493: arp_util.debug('Validate_cash_receipt_id ()-');
2517: and enabled_flag = 'Y'
2518: and lookup_code = p_reversal_category_code;
2519: IF l_valid =0 THEN
2520: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REV_CAT_CD_INVALID');
2521: FND_MSG_PUB.Add;
2522: p_return_status := FND_API.G_RET_STS_ERROR;
2523: END IF;
2524: ELSE
2525: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REV_CAT_CD_NULL');
2522: p_return_status := FND_API.G_RET_STS_ERROR;
2523: END IF;
2524: ELSE
2525: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REV_CAT_CD_NULL');
2526: FND_MSG_PUB.Add;
2527: p_return_status := FND_API.G_RET_STS_ERROR;
2528: END IF;
2529: IF PG_DEBUG in ('Y', 'C') THEN
2530: arp_util.debug('Validate_reversal_catg_code ()-');
2552: and enabled_flag = 'Y'
2553: and lookup_code = p_reversal_reason_code;
2554: IF l_valid =0 THEN
2555: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REV_REAS_CD_INVALID');
2556: FND_MSG_PUB.Add;
2557: p_return_status := FND_API.G_RET_STS_ERROR;
2558: END IF;
2559: ELSE
2560: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REV_REAS_CD_NULL');
2557: p_return_status := FND_API.G_RET_STS_ERROR;
2558: END IF;
2559: ELSE
2560: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REV_REAS_CD_NULL');
2561: FND_MSG_PUB.Add;
2562: p_return_status := FND_API.G_RET_STS_ERROR;
2563: END IF;
2564: EXCEPTION
2565: WHEN others THEN
2675:
2676: -- validate amount applied
2677: IF p_applied_amount IS NULL THEN
2678: FND_MESSAGE.SET_NAME('AR','AR_RAPI_APPLIED_AMT_NULL');
2679: FND_MSG_PUB.Add;
2680: l_amt_return_status := FND_API.G_RET_STS_ERROR;
2681:
2682: -- Bug 2751910 - allow -ve amount on application to receipt (ps>0)
2683: ELSIF (p_applied_amount < 0 AND NVL(p_applied_ps_id,-1) <> -4 AND
2684: NVL(p_applied_ps_id,-1) <> -3 AND
2685: NVL(p_applied_ps_id,-1) < 0) THEN
2686: IF p_applied_ps_id = -8 THEN
2687: FND_MESSAGE.SET_NAME('AR','AR_REF_CM_APP_NEG');
2688: FND_MSG_PUB.Add;
2689: ELSE
2690: FND_MESSAGE.SET_NAME('AR','AR_RW_APP_NEG_ON_ACCT');
2691: FND_MSG_PUB.Add;
2692: END IF;
2687: FND_MESSAGE.SET_NAME('AR','AR_REF_CM_APP_NEG');
2688: FND_MSG_PUB.Add;
2689: ELSE
2690: FND_MESSAGE.SET_NAME('AR','AR_RW_APP_NEG_ON_ACCT');
2691: FND_MSG_PUB.Add;
2692: END IF;
2693: l_amt_return_status := FND_API.G_RET_STS_ERROR;
2694: -- Bug 2897244 - amount not checked if called from form/postbatch
2695: ELSIF ((nvl(p_cr_unapp_amount,0)- p_applied_amount) < 0 AND
2695: ELSIF ((nvl(p_cr_unapp_amount,0)- p_applied_amount) < 0 AND
2696: NVL(p_applied_ps_id,-1) <> -4 AND
2697: NVL(p_called_from,'RAPI') NOT IN ('ARXRWAPP','ARCAPB')) THEN
2698: FND_MESSAGE.SET_NAME('AR','AR_RW_AMOUNT_LESS_THAN_APP');
2699: FND_MSG_PUB.Add;
2700: l_amt_return_status := FND_API.G_RET_STS_ERROR;
2701: END IF;
2702:
2703: validate_apply_gl_date(p_apply_gl_date,
2808: END IF;
2809:
2810: IF p_applied_ps_id = -6 THEN
2811: FND_MESSAGE.SET_NAME('AR','AR_RW_CCR_NOT_CC_RECEIPT');
2812: FND_MSG_PUB.Add;
2813: p_return_status := FND_API.G_RET_STS_ERROR;
2814: ELSE
2815: FND_MESSAGE.SET_NAME('AR','AR_RW_CC_CHARGE_NOT_CC_RECEIPT');
2816: FND_MSG_PUB.Add;
2812: FND_MSG_PUB.Add;
2813: p_return_status := FND_API.G_RET_STS_ERROR;
2814: ELSE
2815: FND_MESSAGE.SET_NAME('AR','AR_RW_CC_CHARGE_NOT_CC_RECEIPT');
2816: FND_MSG_PUB.Add;
2817: p_return_status := FND_API.G_RET_STS_ERROR;
2818: END IF;
2819: END IF;
2820:
2825: END IF;
2826: p_return_status := FND_API.G_RET_STS_ERROR;
2827: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
2828: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','Validate ccrefund' ||SQLERRM);
2829: FND_MSG_PUB.Add;
2830: END;
2831:
2832:
2833: BEGIN
2842: END IF;
2843:
2844: IF p_applied_ps_id = -6 THEN
2845: FND_MESSAGE.SET_NAME ('AR','AR_RW_CCR_NOT_REMITTED');
2846: FND_MSG_PUB.Add;
2847: p_return_status := FND_API.G_RET_STS_ERROR;
2848: ELSE
2849: FND_MESSAGE.SET_NAME ('AR','AR_RW_CC_CHARGE_NOT_REMITTED');
2850: FND_MSG_PUB.Add;
2846: FND_MSG_PUB.Add;
2847: p_return_status := FND_API.G_RET_STS_ERROR;
2848: ELSE
2849: FND_MESSAGE.SET_NAME ('AR','AR_RW_CC_CHARGE_NOT_REMITTED');
2850: FND_MSG_PUB.Add;
2851: p_return_status := FND_API.G_RET_STS_ERROR;
2852: END IF;
2853: END IF ;
2854:
2859: END IF;
2860: p_return_status := FND_API.G_RET_STS_ERROR;
2861: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
2862: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','Validate ccrefund' ||SQLERRM);
2863: FND_MSG_PUB.Add;
2864: END;
2865:
2866: END IF;
2867: IF PG_DEBUG in ('Y', 'C') THEN
2912: OPEN activity_type;
2913: FETCH activity_type INTO l_activity_type;
2914: IF activity_type%NOTFOUND THEN
2915: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REC_TRX_ID_INVALID');
2916: FND_MSG_PUB.Add;
2917: p_return_status := FND_API.G_RET_STS_ERROR;
2918: END IF;
2919: CLOSE activity_type;
2920:
2924: -- -2 corresponds to short term debit
2925: IF p_applied_ps_id = -2 THEN
2926: IF l_activity_type <> 'SHORT_TERM_DEBT' THEN
2927: FND_MESSAGE.SET_NAME('AR','AR_RAPI_ACTIVITY_X_INVALID');
2928: FND_MSG_PUB.Add;
2929: p_return_status := FND_API.G_RET_STS_ERROR;
2930: END IF;
2931:
2932: --SNAMBIAR - Modified for Write-Off
2932: --SNAMBIAR - Modified for Write-Off
2933: ELSIF p_applied_ps_id = -3 THEN
2934: IF l_activity_type <> 'WRITEOFF' THEN
2935: FND_MESSAGE.SET_NAME('AR','AR_RAPI_ACTIVITY_X_INVALID');
2936: FND_MSG_PUB.Add;
2937: p_return_status := FND_API.G_RET_STS_ERROR;
2938: END IF;
2939:
2940: --some additional validation that we need to do for the Write-Off: Bug 1645041.
2981: and document_type ='WRTOFF';
2982: EXCEPTION
2983: WHEN NO_DATA_FOUND THEN
2984: fnd_message.set_name ('AR','AR_WR_NO_LIMIT');
2985: FND_MSG_PUB.Add;
2986: p_return_status := FND_API.G_RET_STS_ERROR;
2987: END;
2988:
2989: IF (NVL(l_tot_write_off_amt,0) > l_amount_to) OR
2991: THEN
2992: fnd_message.set_name ('AR','AR_WR_USER_LIMIT');
2993: fnd_message.set_token('FROM_AMOUNT', to_char(l_amount_from), FALSE);
2994: fnd_message.set_token('TO_AMOUNT', to_char(l_amount_to), FALSE);
2995: FND_MSG_PUB.Add;
2996: p_return_status := FND_API.G_RET_STS_ERROR;
2997: END IF;
2998:
2999: END IF;
3017: (l_min_wrt_off_amount IS NULL AND
3018: NVL(l_tot_write_off_amt,0) < 0 )
3019: ) THEN
3020: fnd_message.set_name ('AR','AR_SYSTEM_WR_NO_LIMIT_SET');
3021: FND_MSG_PUB.Add;
3022: p_return_status := FND_API.G_RET_STS_ERROR;
3023: END IF;
3024:
3025: IF PG_DEBUG in ('Y', 'C') THEN
3046: IF ( (NVL(l_tot_write_off_amt,0) > l_max_wrt_off_amount) OR
3047: (NVL(l_tot_write_off_amt,0) < l_min_wrt_off_amount) ) THEN
3048: arp_util.debug('ERROR l_tot_write_off_amt = '||l_tot_write_off_amt);
3049: fnd_message.set_name ('AR','AR_WR_TOTAL_EXCEED_MAX_AMOUNT');
3050: FND_MSG_PUB.Add;
3051: p_return_status := FND_API.G_RET_STS_ERROR;
3052: END IF;
3053:
3054: ELSIF p_applied_ps_id = -4 THEN
3053:
3054: ELSIF p_applied_ps_id = -4 THEN
3055: IF l_activity_type <> 'CLAIM_INVESTIGATION' THEN
3056: FND_MESSAGE.SET_NAME('AR','AR_RAPI_ACTIVITY_X_INVALID');
3057: FND_MSG_PUB.Add;
3058: p_return_status := FND_API.G_RET_STS_ERROR;
3059: END IF;
3060: ELSIF p_applied_ps_id = -5 THEN
3061: IF (l_activity_type <> 'ADJUST') OR (p_receivables_trx_id <> -11) THEN
3059: END IF;
3060: ELSIF p_applied_ps_id = -5 THEN
3061: IF (l_activity_type <> 'ADJUST') OR (p_receivables_trx_id <> -11) THEN
3062: FND_MESSAGE.SET_NAME('AR','AR_RAPI_ACTIVITY_X_INVALID');
3063: FND_MSG_PUB.Add;
3064: p_return_status := FND_API.G_RET_STS_ERROR;
3065: END IF;
3066: ELSIF p_applied_ps_id = -6 THEN
3067: IF l_activity_type <> 'CCREFUND' THEN
3065: END IF;
3066: ELSIF p_applied_ps_id = -6 THEN
3067: IF l_activity_type <> 'CCREFUND' THEN
3068: FND_MESSAGE.SET_NAME('AR','AR_RAPI_ACTIVITY_X_INVALID');
3069: FND_MSG_PUB.Add;
3070: p_return_status := FND_API.G_RET_STS_ERROR;
3071: END IF;
3072: ELSIF p_applied_ps_id = -7 THEN
3073: IF l_activity_type <> 'PREPAYMENT' THEN
3071: END IF;
3072: ELSIF p_applied_ps_id = -7 THEN
3073: IF l_activity_type <> 'PREPAYMENT' THEN
3074: FND_MESSAGE.SET_NAME('AR','AR_RAPI_ACTIVITY_X_INVALID');
3075: FND_MSG_PUB.Add;
3076: p_return_status := FND_API.G_RET_STS_ERROR;
3077: END IF;
3078: ELSIF p_applied_ps_id = -8 THEN
3079: IF l_activity_type <> 'CM_REFUND' THEN
3077: END IF;
3078: ELSIF p_applied_ps_id = -8 THEN
3079: IF l_activity_type <> 'CM_REFUND' THEN
3080: FND_MESSAGE.SET_NAME('AR','AR_RAPI_ACTIVITY_X_INVALID');
3081: FND_MSG_PUB.Add;
3082: p_return_status := FND_API.G_RET_STS_ERROR;
3083: END IF;
3084: ELSIF p_applied_ps_id = -9 THEN
3085: IF l_activity_type <> 'CC_CHARGEBACK' THEN
3083: END IF;
3084: ELSIF p_applied_ps_id = -9 THEN
3085: IF l_activity_type <> 'CC_CHARGEBACK' THEN
3086: FND_MESSAGE.SET_NAME('AR','AR_RAPI_ACTIVITY_X_INVALID');
3087: FND_MSG_PUB.Add;
3088: p_return_status := FND_API.G_RET_STS_ERROR;
3089: END IF;
3090: ELSE
3091: --the applied payment schedule id is invalid
3089: END IF;
3090: ELSE
3091: --the applied payment schedule id is invalid
3092: FND_MESSAGE.SET_NAME('AR','AR_RAPI_APP_PS_ID_INVALID');
3093: FND_MSG_PUB.Add;
3094: p_return_status := FND_API.G_RET_STS_ERROR;
3095: END IF; --additional control structures to be added for new activity types.
3096: END IF;
3097: IF PG_DEBUG in ('Y', 'C') THEN
3168: AND class='CB';
3169: EXCEPTION
3170: WHEN no_data_found THEN
3171: FND_MESSAGE.SET_NAME('AR','AR_RAPI_LK_CUS_TRX_ID_INVALID');
3172: FND_MSG_PUB.Add;
3173: p_return_status := FND_API.G_RET_STS_ERROR;
3174: WHEN others THEN
3175: raise;
3176: END;
3175: raise;
3176: END;
3177: IF l_valid <> 'Y' THEN
3178: FND_MESSAGE.SET_NAME('AR','AR_RAPI_LK_CUS_TRX_ID_INVALID');
3179: FND_MSG_PUB.Add;
3180: p_return_status := FND_API.G_RET_STS_ERROR;
3181: END IF;
3182: l_valid := Null;
3183: ELSE
3181: END IF;
3182: l_valid := Null;
3183: ELSE
3184: FND_MESSAGE.SET_NAME('AR','AR_RAPI_LK_CUS_TRX_ID_INVALID');
3185: FND_MSG_PUB.Add;
3186: p_return_status := FND_API.G_RET_STS_ERROR;
3187: END IF;
3188: END IF;
3189:
3201: AND current_record_flag = 'Y';
3202:
3203: IF l_valid <> 'Y' THEN
3204: FND_MESSAGE.SET_NAME('AR','AR_RAPI_LK_CUS_TRX_ID_INVALID');
3205: FND_MSG_PUB.Add;
3206: p_return_status := FND_API.G_RET_STS_ERROR;
3207: END IF;
3208:
3209: EXCEPTION
3208:
3209: EXCEPTION
3210: WHEN no_data_found THEN
3211: FND_MESSAGE.SET_NAME('AR','AR_RAPI_LK_CUS_TRX_ID_INVALID');
3212: FND_MSG_PUB.Add;
3213: p_return_status := FND_API.G_RET_STS_ERROR;
3214: WHEN others THEN
3215: raise;
3216: END;
3264: AND lookup_code = p_application_ref_type;
3265: EXCEPTION
3266: WHEN no_data_found THEN
3267: FND_MESSAGE.SET_NAME('AR','AR_RAPI_INVALID_APP_REF');
3268: FND_MSG_PUB.Add;
3269: p_return_status := FND_API.G_RET_STS_ERROR;
3270: END;
3271: ELSE
3272: FND_MESSAGE.SET_NAME('AR','AR_RAPI_APP_PS_ID_INVALID');
3269: p_return_status := FND_API.G_RET_STS_ERROR;
3270: END;
3271: ELSE
3272: FND_MESSAGE.SET_NAME('AR','AR_RAPI_APP_PS_ID_INVALID');
3273: FND_MSG_PUB.Add;
3274: p_return_status := FND_API.G_RET_STS_ERROR;
3275: END IF;
3276: END IF;
3277: /* Bug 2270825 - claim specific validation */
3292: EXECUTE IMMEDIATE l_query_text INTO l_dummy USING l_reason_code_id;
3293: EXCEPTION
3294: WHEN OTHERS THEN
3295: FND_MESSAGE.SET_NAME('AR','AR_RAPI_INVALID_REF_REASON');
3296: FND_MSG_PUB.Add;
3297: p_return_status := FND_API.G_RET_STS_ERROR;
3298: END;
3299: END IF;
3300: ELSE
3358: ELSE
3359: FND_MESSAGE.SET_NAME('AR','AR_RAPI_INVALID_CLAIM_NUM');
3360: FND_MESSAGE.SET_TOKEN('CLAIM_NUM',p_application_ref_num);
3361: END IF;
3362: FND_MSG_PUB.Add;
3363: p_return_status := FND_API.G_RET_STS_ERROR;
3364: RAISE;
3365: WHEN others THEN
3366: p_return_status := FND_API.G_RET_STS_ERROR;
3464: p_doc_sequence_value IS NOT NULL
3465: THEN
3466: l_doc_seq_return_status := FND_API.G_RET_STS_ERROR ;
3467: FND_MESSAGE.SET_NAME('AR','AR_RAPI_DOC_SEQ_VAL_INVALID');
3468: FND_MSG_PUB.Add;
3469: END IF;
3470:
3471: --Validate currency and exchange rate info.
3472: IF p_currency_code <> arp_global.functional_currency OR
3517: WHEN no_data_found THEN
3518: IF p_orig_receivables_trx_id IS NULL THEN
3519: l_activity_return_status := FND_API.G_RET_STS_ERROR ;
3520: FND_MESSAGE.SET_NAME('AR','AR_RAPI_ACTIVITY_INVALID');
3521: FND_MSG_PUB.Add;
3522: ELSE
3523: l_activity_return_status := FND_API.G_RET_STS_ERROR ;
3524: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REC_TRX_ID_INVALID');
3525: FND_MSG_PUB.Add;
3521: FND_MSG_PUB.Add;
3522: ELSE
3523: l_activity_return_status := FND_API.G_RET_STS_ERROR ;
3524: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REC_TRX_ID_INVALID');
3525: FND_MSG_PUB.Add;
3526: END IF;
3527: END;
3528: ELSE
3529: l_activity_return_status := FND_API.G_RET_STS_ERROR ;
3527: END;
3528: ELSE
3529: l_activity_return_status := FND_API.G_RET_STS_ERROR ;
3530: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REC_TRX_ID_NULL');
3531: FND_MSG_PUB.Add;
3532: END IF;
3533:
3534:
3535: --Validate vat_tax_id
3570: WHEN no_data_found THEN
3571: IF p_orig_vat_tax_id IS NOT NULL THEN
3572: l_tax_id_return_status := FND_API.G_RET_STS_ERROR ;
3573: FND_MESSAGE.SET_NAME('AR','AR_RAPI_VAT_TAX_ID_INVALID');
3574: FND_MSG_PUB.Add;
3575: ELSE
3576: l_tax_id_return_status := FND_API.G_RET_STS_ERROR ;
3577: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TAX_CODE_INVALID');
3578: FND_MSG_PUB.Add;
3574: FND_MSG_PUB.Add;
3575: ELSE
3576: l_tax_id_return_status := FND_API.G_RET_STS_ERROR ;
3577: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TAX_CODE_INVALID');
3578: FND_MSG_PUB.Add;
3579: END IF;
3580: END;
3581:
3582: --In case where user has specified the tax_rate/tax amount , we need to verify
3591: IF fnd_profile.value('ZX_ALLOW_TAX_UPDATE') = 'N'
3592: THEN
3593: l_tax_rate_return_status := FND_API.G_RET_STS_ERROR;
3594: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TAX_RATE_INVALID');
3595: FND_MSG_PUB.Add;
3596: END IF;
3597: ELSE
3598:
3599: IF arp_global.sysparam.accounting_method = 'ACCRUAL' THEN
3608: --tax rate as a input parameter.
3609: IF p_tax_rate IS NOT NULL THEN
3610: l_tax_id_return_status := FND_API.G_RET_STS_ERROR ;
3611: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TAX_RATE_INVALID');
3612: FND_MSG_PUB.Add;
3613: END IF;
3614: END IF;
3615:
3616: ELSE
3618: IF p_vat_tax_id IS NOT NULL THEN
3619: --raise error as no tax accounting is done for cash basis in misc receipt.
3620: l_tax_id_return_status := FND_API.G_RET_STS_ERROR ;
3621: FND_MESSAGE.SET_NAME('AR','AR_RAPI_VAT_TAX_ID_INVALID');
3622: FND_MSG_PUB.Add;
3623: END IF;
3624:
3625: IF p_tax_rate IS NOT NULL THEN
3626: l_tax_id_return_status := FND_API.G_RET_STS_ERROR ;
3624:
3625: IF p_tax_rate IS NOT NULL THEN
3626: l_tax_id_return_status := FND_API.G_RET_STS_ERROR ;
3627: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TAX_RATE_INVALID');
3628: FND_MSG_PUB.Add;
3629: END IF;
3630:
3631: END IF;
3632:
3679: ELSE
3680: --the reference_type is invalid, raise error.
3681: l_ref_type_return_status := FND_API.G_RET_STS_ERROR;
3682: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REF_TYPE_INVALID');
3683: FND_MSG_PUB.Add;
3684:
3685: END IF;
3686: EXCEPTION
3687: WHEN no_data_found THEN
3687: WHEN no_data_found THEN
3688: IF p_orig_reference_id IS NULL THEN
3689: l_ref_id_return_status := FND_API.G_RET_STS_ERROR;
3690: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REF_NUM_INVALID');
3691: FND_MSG_PUB.Add;
3692: ELSE
3693: l_ref_id_return_status := FND_API.G_RET_STS_ERROR;
3694: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REF_ID_INVALID');
3695: FND_MSG_PUB.Add;
3691: FND_MSG_PUB.Add;
3692: ELSE
3693: l_ref_id_return_status := FND_API.G_RET_STS_ERROR;
3694: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REF_ID_INVALID');
3695: FND_MSG_PUB.Add;
3696: END IF;
3697: END;
3698: ELSE
3699: --the reference_id is null, raise error.
3701: --this would happen if the reference_id could not be
3702: --derived from reference number
3703: l_ref_id_return_status := FND_API.G_RET_STS_ERROR;
3704: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REF_NUM_INVALID');
3705: FND_MSG_PUB.Add;
3706: ELSE
3707: l_ref_id_return_status := FND_API.G_RET_STS_ERROR;
3708: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REF_ID_NULL');
3709: FND_MSG_PUB.Add;
3705: FND_MSG_PUB.Add;
3706: ELSE
3707: l_ref_id_return_status := FND_API.G_RET_STS_ERROR;
3708: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REF_ID_NULL');
3709: FND_MSG_PUB.Add;
3710: END IF;
3711:
3712: END IF;
3713:
3723: --reference_id is specified, so a null reference type should
3724: --raise an error.
3725: l_ref_type_return_status := FND_API.G_RET_STS_ERROR;
3726: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REF_TYPE_NULL');
3727: FND_MSG_PUB.Add;
3728: END IF;
3729: END IF;
3730:
3731:
3806:
3807: IF nvl(p_refund_amount,0) > l_prepay_amount THEN
3808: --raise error X validation failed
3809: FND_MESSAGE.SET_NAME('AR','AR_RAPI_PREPAY_AMT_LESS');
3810: FND_MSG_PUB.Add;
3811: p_return_status := FND_API.G_RET_STS_ERROR ;
3812: END IF;
3813:
3814: arp_util.debug('Validate prepay amount (-)');
3816: EXCEPTION
3817: WHEN others THEN
3818: FND_MESSAGE.SET_NAME('AR', 'GENERIC_MESSAGE');
3819: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT',SQLERRM);
3820: FND_MSG_PUB.Add;
3821: p_return_status := FND_API.G_RET_STS_ERROR ;
3822: arp_util.debug('EXCEPTION :Validate prepay amount '||SQLERRM);
3823: END;
3824:
3872:
3873: IF p_payment_action = 'CREATE_RCPT' THEN
3874:
3875: FND_MESSAGE.set_name ('AR','AR_RAPI_PREPAY_ONLYFOR_CC');
3876: FND_MSG_PUB.Add;
3877: p_return_status := FND_API.G_RET_STS_ERROR ;
3878:
3879: ELSIF p_payment_action = 'REFUND_RCPT' THEN
3880:
3878:
3879: ELSIF p_payment_action = 'REFUND_RCPT' THEN
3880:
3881: FND_MESSAGE.set_name ('AR','AR_RW_CCR_NOT_CC_RECEIPT');
3882: FND_MSG_PUB.Add;
3883: p_return_status := FND_API.G_RET_STS_ERROR ;
3884:
3885: END IF;
3886: END IF;
3890: EXCEPTION
3891: WHEN others THEN
3892: FND_MESSAGE.SET_NAME('AR', 'GENERIC_MESSAGE');
3893: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT',SQLERRM);
3894: FND_MSG_PUB.Add;
3895: p_return_status := FND_API.G_RET_STS_ERROR ;
3896: arp_util.debug('EXCEPTION :Validate payment type '||SQLERRM);
3897: END;
3898:
3948: EXCEPTION
3949: WHEN others THEN
3950: FND_MESSAGE.SET_NAME('AR', 'GENERIC_MESSAGE');
3951: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT',SQLERRM);
3952: FND_MSG_PUB.Add;
3953: p_return_status := FND_API.G_RET_STS_ERROR ;
3954: IF PG_DEBUG in ('Y', 'C') THEN
3955: arp_util.debug('EXCEPTION :ar_receipt_val_pvt.validate_claim_unapply '||SQLERRM);
3956: END IF;
3999: WHERE receivables_trx_id = -16;
4000:
4001: IF l_ccid IS NULL THEN
4002: FND_MESSAGE.SET_NAME('AR','AR_RW_NO_NETTING_ACCOUNT');
4003: FND_MSG_PUB.Add;
4004: l_act_return_status := FND_API.G_RET_STS_ERROR;
4005: END IF;
4006: EXCEPTION
4007: WHEN NO_DATA_FOUND THEN
4005: END IF;
4006: EXCEPTION
4007: WHEN NO_DATA_FOUND THEN
4008: FND_MESSAGE.SET_NAME('AR','AR_RW_MISSING_NETTING_ACTIVITY');
4009: FND_MSG_PUB.Add;
4010: l_act_return_status := FND_API.G_RET_STS_ERROR;
4011: END;
4012:
4013: IF p_cash_receipt_id = p_open_cash_receipt_id THEN
4011: END;
4012:
4013: IF p_cash_receipt_id = p_open_cash_receipt_id THEN
4014: FND_MESSAGE.SET_NAME('AR','AR_RW_NET_RCT_APPLY_SELF');
4015: FND_MSG_PUB.Add;
4016: l_rct_return_status := FND_API.G_RET_STS_ERROR;
4017: END IF;
4018:
4019: -- Check if valid paying customer
4025: p_currency_code => p_receipt_currency,
4026: p_pay_unrelated_invoices_flag => arp_global.sysparam.pay_unrelated_invoices_flag,
4027: p_ct_prev_trx_date => p_cr_date) THEN
4028: FND_MESSAGE.SET_NAME('AR','ARTA_PYMNT_UNRELATED_CUST');
4029: FND_MSG_PUB.Add;
4030: l_cust_return_status := FND_API.G_RET_STS_ERROR;
4031: END IF;
4032:
4033:
4048: );
4049:
4050: IF p_apply_gl_date < p_open_cr_gl_date THEN
4051: FND_MESSAGE.SET_NAME('AR','AR_RW_GL_DATE_BEFORE_OPEN_REC');
4052: FND_MSG_PUB.Add;
4053: l_gl_date_return_status := FND_API.G_RET_STS_ERROR;
4054: END IF;
4055:
4056:
4062: END IF;
4063: -- validate amount applied
4064: IF p_amount_applied IS NULL THEN
4065: FND_MESSAGE.SET_NAME('AR','AR_RAPI_APPLIED_AMT_NULL');
4066: FND_MSG_PUB.Add;
4067: l_amt_return_status := FND_API.G_RET_STS_ERROR;
4068:
4069: ELSE
4070: -- Bug 2897244 - receipt overapplication not checked if called
4072: IF NVL(p_called_from,'RAPI') NOT IN ('ARXRWAPP','ARCAPB')
4073: THEN
4074: IF (nvl(p_unapplied_cash,0)- p_amount_applied) < 0 THEN
4075: FND_MESSAGE.SET_NAME('AR','AR_RW_AMOUNT_LESS_THAN_APP');
4076: FND_MSG_PUB.Add;
4077: l_amt_return_status := FND_API.G_RET_STS_ERROR;
4078: END IF;
4079: END IF;
4080: IF ((SIGN(p_other_amount_applied * -1) <> SIGN(p_amount_applied)) OR
4079: END IF;
4080: IF ((SIGN(p_other_amount_applied * -1) <> SIGN(p_amount_applied)) OR
4081: (ABS(p_amount_applied) > ABS(p_other_amount_applied)) ) THEN
4082: FND_MESSAGE.SET_NAME('AR','AR_RW_NET_OPEN_AMT_INC');
4083: FND_MSG_PUB.Add;
4084: l_amt_return_status := FND_API.G_RET_STS_ERROR;
4085: END IF;
4086:
4087: END IF;
4097: WHERE sp.set_of_books_id = sob.set_of_books_id;
4098:
4099: IF (p_receipt_currency <> p_open_receipt_currency) THEN
4100: FND_MESSAGE.SET_NAME('AR','AR_RW_NET_DIFF_RCT_CURR');
4101: FND_MSG_PUB.Add;
4102: l_cur_return_status := FND_API.G_RET_STS_ERROR;
4103: END IF;
4104:
4105: IF l_gl_date_return_status <> FND_API.G_RET_STS_SUCCESS OR
4119: EXCEPTION
4120: WHEN others THEN
4121: FND_MESSAGE.SET_NAME('AR', 'GENERIC_MESSAGE');
4122: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT',SQLERRM);
4123: FND_MSG_PUB.Add;
4124: p_return_status := FND_API.G_RET_STS_ERROR ;
4125: IF PG_DEBUG in ('Y', 'C') THEN
4126: arp_util.debug('EXCEPTION :ar_receipt_val_pvt.validate_open_receipt_info '||SQLERRM);
4127: END IF;
4161: END IF;
4162:
4163: IF (l_cr_amount - l_amount_applied - p_amount_applied) < 0 THEN
4164: FND_MESSAGE.set_name('AR','AR_RW_NET_UNAPP_OVERAPP');
4165: FND_MSG_PUB.Add;
4166: p_return_status := FND_API.G_RET_STS_ERROR;
4167: END IF;
4168:
4169: IF PG_DEBUG in ('Y', 'C') THEN
4173: EXCEPTION
4174: WHEN others THEN
4175: FND_MESSAGE.SET_NAME('AR', 'GENERIC_MESSAGE');
4176: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT',SQLERRM);
4177: FND_MSG_PUB.Add;
4178: p_return_status := FND_API.G_RET_STS_ERROR ;
4179: IF PG_DEBUG in ('Y', 'C') THEN
4180: arp_util.debug('EXCEPTION :ar_receipt_val_pvt.validate_unapp_open_receipt '||SQLERRM);
4181: END IF;
4708: EXCEPTION
4709: WHEN NO_DATA_FOUND THEN
4710: p_return_status := FND_API.G_RET_STS_ERROR ;
4711: FND_MESSAGE.SET_NAME( 'AR','AR_RAPI_TRX_LINE_ID_INVALID');
4712: FND_MSG_PUB.ADD;
4713: RAISE;
4714: WHEN others THEN
4715: IF PG_DEBUG in ('Y', 'C') THEN
4716: arp_util.debug('' || 'EXCEPTION: validate_llac_insert_ad()');
4742: arp_util.debug('Raise an error... amount applied and buckets');
4743: END IF;
4744: p_return_status := FND_API.G_RET_STS_ERROR;
4745: fnd_message.set_name ('AR','AR_RW_APP_NEG_UNAPP');
4746: fnd_msg_pub.Add;
4747: End If; */
4748:
4749: -- Reset the balance
4750: l_cr_unapp_bal := Nvl(l_cr_unapp_bal,0) - Nvl(l_calc_amount_app_from,0);