[Home] [Help]
1: Package Body AR_RECEIPT_VAL_PVT AS
2: /* $Header: ARXPREVB.pls 120.46.12010000.5 2008/11/17 12:14:43 pbapna 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.46.12010000.5 2008/11/17 12:14:43 pbapna 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,
34: p_return_status := FND_API.G_RET_STS_SUCCESS;
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: FND_MESSAGE.set_token( 'GL_DATE', TO_CHAR( p_gl_date ));
38: FND_MSG_PUB.Add;
39: p_return_status := FND_API.G_RET_STS_ERROR;
40: END IF;
41: IF PG_DEBUG in ('Y', 'C') THEN
42: arp_util.debug('Validate_Gl_Date ()+');
63: IF (p_maturity_date < p_receipt_date) THEN
64: p_return_status := FND_API.G_RET_STS_ERROR;
65: FND_MESSAGE.set_name( 'AR','AR_RW_MAT_BEFORE_RCT_DATE');
66: -- arp_util.debug('m'||FND_MESSAGE.GET_ENCODED);
67: FND_MSG_PUB.ADD;
68: ELSE
69: p_return_status := FND_API.G_RET_STS_SUCCESS;
70: END IF;
71: IF PG_DEBUG in ('Y', 'C') THEN
87: --Raise error if the receipt amount is null or negative
88: IF p_amount IS NULL THEN
89: p_return_status := FND_API.G_RET_STS_ERROR;
90: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_AMOUNT_NULL');
91: FND_MSG_PUB.Add;
92:
93: ElSIF (p_amount < 0) AND (p_type = 'CASH')
94: THEN
95: p_return_status := FND_API.G_RET_STS_ERROR;
93: ElSIF (p_amount < 0) AND (p_type = 'CASH')
94: THEN
95: p_return_status := FND_API.G_RET_STS_ERROR;
96: FND_MESSAGE.SET_NAME('AR','AR_RW_RCT_AMOUNT_NEGATIVE');
97: FND_MSG_PUB.Add;
98:
99: END IF;
100:
101:
109: IF ( NVL(p_factor_discount_amount,0) <> 0 )
110: THEN
111: p_return_status := FND_API.G_RET_STS_ERROR;
112: FND_MESSAGE.SET_NAME('AR', 'AR_BK_CH_NOT_ALLWD_IF_NOT_CLR');
113: FND_MSG_PUB.Add;
114: IF PG_DEBUG in ('Y', 'C') THEN
115: arp_util.debug('Validate_amount: ' || 'Bank charges are not allowed ');
116: END IF;
117: END IF;
123: -- raise error about bank charges not allowed because the
124: -- state of the receipt is <> 'CLEARED'
125: p_return_status := FND_API.G_RET_STS_ERROR;
126: FND_MESSAGE.SET_NAME('AR','AR_BK_CH_NOT_ALLWD_IF_NOT_CLR');
127: FND_MSG_PUB.Add;
128: IF PG_DEBUG in ('Y', 'C') THEN
129: arp_util.debug('Validate_amount: ' || 'The bank charges are not allowed if the state <> CLEARED');
130: END IF;
131: END IF;
134:
135: -- Raise error if the bank charges amount less than 0
136: p_return_status := FND_API.G_RET_STS_ERROR;
137: FND_MESSAGE.SET_NAME('AR','AR_JG_BC_AMOUNT_NEGATIVE');
138: FND_MSG_PUB.Add;
139: END IF;
140:
141: p_amount := nvl(p_amount,0) + nvl(p_factor_discount_amount,0);
142:
143: IF (p_amount < 0) AND (p_type = 'CASH')
144: THEN
145: p_return_status := FND_API.G_RET_STS_ERROR;
146: FND_MESSAGE.SET_NAME('AR','AR_RW_RCT_AMOUNT_NEGATIVE');
147: FND_MSG_PUB.Add;
148: IF PG_DEBUG in ('Y', 'C') THEN
149: arp_util.debug('Validate_amount: ' || 'Receipt amount is negative ');
150: END IF;
151: END IF;
231: EXCEPTION
232: WHEN NO_DATA_FOUND THEN
233: p_return_status := FND_API.G_RET_STS_ERROR;
234: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUST_ID_INVALID');
235: FND_MSG_PUB.Add;
236:
237: WHEN OTHERS THEN
238: IF PG_DEBUG in ('Y', 'C') THEN
239: arp_util.debug('Validate_amount: ' || 'EXCEPTION: Cache_Customer_id() ');
276: EXCEPTION
277: WHEN NO_DATA_FOUND THEN
278: p_return_status := FND_API.G_RET_STS_ERROR;
279: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_STE_USE_ID_INVALID');
280: FND_MSG_PUB.Add;
281:
282: WHEN OTHERS THEN
283: IF PG_DEBUG in ('Y', 'C') THEN
284: arp_util.debug('Validate_amount: ' || 'EXCEPTION: Validate_Customer_Site_Use_id() ');
297: -- hz_cust_site_uses
298: -- the error message was not raised in the defaulting routine.
299: p_return_status := FND_API.G_RET_STS_ERROR;
300: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_LOC_INVALID');
301: FND_MSG_PUB.Add;
302: ELSE
303:
304: --This is the case where customer site use id is null, neither it was supplied
305: --by the user nor it could be defaulted a WARNING message is raised to
307:
308: IF nvl(arp_global.sysparam.site_required_flag,'N') = 'Y' THEN
309: --error
310: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_STE_USE_ID_NOT_DEF');
311: FND_MSG_PUB.Add;
312: p_return_status := FND_API.G_RET_STS_ERROR;
313: ELSE
314: --warning
315: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
311: FND_MSG_PUB.Add;
312: p_return_status := FND_API.G_RET_STS_ERROR;
313: ELSE
314: --warning
315: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
316: THEN
317: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_STE_USE_ID_NOT_DEF');
318: FND_MSG_PUB.Add;
319: IF PG_DEBUG in ('Y', 'C') THEN
314: --warning
315: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
316: THEN
317: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_STE_USE_ID_NOT_DEF');
318: FND_MSG_PUB.Add;
319: IF PG_DEBUG in ('Y', 'C') THEN
320: arp_util.debug('Validate_amount: ' || 'Customer site use id is null');
321: END IF;
322: END IF;
375: WHEN no_data_found THEN
376: IF ar_receipt_api_pub.Original_create_cash_info.customer_bank_account_id IS NOT NULL THEN
377: p_return_status := FND_API.G_RET_STS_ERROR;
378: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_BK_AC_ID_INVALID');
379: FND_MSG_PUB.Add;
380: ELSIF ar_receipt_api_pub.Original_create_cash_info.customer_bank_account_num IS NOT NULL THEN
381: p_return_status := FND_API.G_RET_STS_ERROR;
382: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_BK_AC_NUM_INVALID');
383: FND_MSG_PUB.Add;
379: FND_MSG_PUB.Add;
380: ELSIF ar_receipt_api_pub.Original_create_cash_info.customer_bank_account_num IS NOT NULL THEN
381: p_return_status := FND_API.G_RET_STS_ERROR;
382: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_BK_AC_NUM_INVALID');
383: FND_MSG_PUB.Add;
384: ELSIF ar_receipt_api_pub.Original_create_cash_info.customer_bank_account_name IS NOT NULL THEN
385: p_return_status := FND_API.G_RET_STS_ERROR;
386: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_BK_AC_NAME_INVALID');
387: FND_MSG_PUB.Add;
383: FND_MSG_PUB.Add;
384: ELSIF ar_receipt_api_pub.Original_create_cash_info.customer_bank_account_name IS NOT NULL THEN
385: p_return_status := FND_API.G_RET_STS_ERROR;
386: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_BK_AC_NAME_INVALID');
387: FND_MSG_PUB.Add;
388: END IF;
389: WHEN too_many_rows THEN
390: --Each customer site can have multiple accounts, so if it retrives more than
391: --one record, the validation is true.
427: IF ar_receipt_api_pub.Original_create_cash_info.customer_bank_account_id IS NOT NULL
428: THEN
429: p_return_status := FND_API.G_RET_STS_ERROR;
430: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_BK_AC_ID_INVALID');
431: FND_MSG_PUB.Add;
432: ELSIF ar_receipt_api_pub.Original_create_cash_info.customer_bank_account_num IS NOT NULL
433: THEN
434: p_return_status := FND_API.G_RET_STS_ERROR;
435: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_BK_AC_NUM_INVALID');
432: ELSIF ar_receipt_api_pub.Original_create_cash_info.customer_bank_account_num IS NOT NULL
433: THEN
434: p_return_status := FND_API.G_RET_STS_ERROR;
435: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_BK_AC_NUM_INVALID');
436: FND_MSG_PUB.Add;
437: ELSIF ar_receipt_api_pub.Original_create_cash_info.customer_bank_account_name IS NOT NULL
438: THEN
439: p_return_status := FND_API.G_RET_STS_ERROR;
440: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_BK_AC_NAME_INVALID');
437: ELSIF ar_receipt_api_pub.Original_create_cash_info.customer_bank_account_name IS NOT NULL
438: THEN
439: p_return_status := FND_API.G_RET_STS_ERROR;
440: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_BK_AC_NAME_INVALID');
441: FND_MSG_PUB.Add;
442: END IF;
443:
444: END IF; /* bichatte payment uptake commenting ( Reverted) */
445:
447: IF ar_receipt_api_pub.Original_create_cash_info.cust_site_use_id IS NOT NULL
448: THEN
449: p_return_status := FND_API.G_RET_STS_ERROR;
450: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_SITE_USE_ID_INVALID');
451: FND_MSG_PUB.Add;
452: ELSIF ar_receipt_api_pub.Original_create_cash_info.location IS NULL THEN
453: p_return_status := FND_API.G_RET_STS_ERROR;
454: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_LOC_INVALID');
455: FND_MSG_PUB.Add;
451: FND_MSG_PUB.Add;
452: ELSIF ar_receipt_api_pub.Original_create_cash_info.location IS NULL THEN
453: p_return_status := FND_API.G_RET_STS_ERROR;
454: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_LOC_INVALID');
455: FND_MSG_PUB.Add;
456: END IF;
457: END IF;
458:
459: END IF;
699: WHEN receipt_method_invalid THEN
700: IF ar_receipt_api_pub.Original_create_cash_info.receipt_method_id IS NOT NULL THEN
701: p_return_status := FND_API.G_RET_STS_ERROR;
702: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_MD_ID_INVALID');
703: FND_MSG_PUB.Add;
704: IF PG_DEBUG in ('Y', 'C') THEN
705: arp_util.debug('Validate_amount: ' || 'Invalid receipt method id ');
706: END IF;
707: ELSIF ar_receipt_api_pub.Original_create_cash_info.receipt_method_name IS NOT NULL THEN
706: END IF;
707: ELSIF ar_receipt_api_pub.Original_create_cash_info.receipt_method_name IS NOT NULL THEN
708: p_return_status := FND_API.G_RET_STS_ERROR;
709: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCT_MD_NAME_INVALID');
710: FND_MSG_PUB.Add;
711: IF PG_DEBUG in ('Y', 'C') THEN
712: arp_util.debug('Validate_amount: ' || 'Invalid receipt method name ');
713: END IF;
714: END IF;
722: WHEN remittance_bank_invalid THEN
723: IF ar_receipt_api_pub.Original_create_cash_info.remit_bank_acct_use_id IS NOT NULL THEN
724: p_return_status := FND_API.G_RET_STS_ERROR;
725: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REM_BK_AC_ID_INVALID');
726: FND_MSG_PUB.Add;
727: IF PG_DEBUG in ('Y', 'C') THEN
728: arp_util.debug('Validate_amount: ' || 'Invalid remittance bank account id');
729: END IF;
730: ELSIF ar_receipt_api_pub.Original_create_cash_info.remittance_bank_account_num IS NOT NULL THEN
729: END IF;
730: ELSIF ar_receipt_api_pub.Original_create_cash_info.remittance_bank_account_num 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_NUM_INVALID');
733: FND_MSG_PUB.Add;
734: IF PG_DEBUG in ('Y', 'C') THEN
735: arp_util.debug('Validate_amount: ' || 'Invalid remittance bank account number');
736: END IF;
737: ELSIF ar_receipt_api_pub.Original_create_cash_info.remittance_bank_account_name IS NOT NULL THEN
736: END IF;
737: ELSIF ar_receipt_api_pub.Original_create_cash_info.remittance_bank_account_name 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_NAME_INVALID');
740: FND_MSG_PUB.Add;
741: IF PG_DEBUG in ('Y', 'C') THEN
742: arp_util.debug('Validate_amount: ' || 'Invalid remittance bank account name');
743: END IF;
744: END IF;
745:
746: WHEN remittance_bank_null THEN
747: p_return_status := FND_API.G_RET_STS_ERROR;
748: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REM_BK_AC_ID_NULL');
749: FND_MSG_PUB.Add;
750: IF PG_DEBUG in ('Y', 'C') THEN
751: arp_util.debug('Validate_amount: ' || 'The remittance bank account could not be defaulted ');
752: END IF;
753: WHEN receipt_md_null THEN
752: END IF;
753: WHEN receipt_md_null THEN
754: p_return_status := FND_API.G_RET_STS_ERROR;
755: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_MD_ID_NULL');
756: FND_MSG_PUB.Add;
757: IF PG_DEBUG in ('Y', 'C') THEN
758: arp_util.debug('Validate_amount: ' || 'The receipt method id is null ');
759: END IF;
760: WHEN others THEN
788:
789: -- raise exception
790: p_return_status := FND_API.G_RET_STS_ERROR;
791: FND_MESSAGE.SET_NAME('AR','AR_RAPI_X_RATE_TYPE_NULL');
792: FND_MSG_PUB.Add;
793: Return;
794:
795: ELSE
796: -- Validate the rate_type against the database values
803: EXCEPTION
804: WHEN no_data_found THEN
805: p_return_status := FND_API.G_RET_STS_ERROR;
806: FND_MESSAGE.SET_NAME('AR','AR_RAPI_X_RATE_TYPE_INVALID');
807: FND_MSG_PUB.Add;
808: Return;
809: END;
810:
811: IF p_exchange_rate_type = 'User' THEN
813: IF p_exchange_rate IS NULL THEN
814: --raise error message, because for rate_type 'User' the rate should be specified.
815: p_return_status := FND_API.G_RET_STS_ERROR;
816: FND_MESSAGE.SET_NAME('AR','AR_RAPI_X_RATE_NULL');
817: FND_MSG_PUB.Add;
818: ELSIF p_exchange_rate = 0 THEN
819: p_return_status := FND_API.G_RET_STS_ERROR ;
820: FND_MESSAGE.SET_NAME('AR','AR_EXCHANGE_RATE_ZERO');
821: FND_MSG_PUB.Add;
817: FND_MSG_PUB.Add;
818: ELSIF p_exchange_rate = 0 THEN
819: p_return_status := FND_API.G_RET_STS_ERROR ;
820: FND_MESSAGE.SET_NAME('AR','AR_EXCHANGE_RATE_ZERO');
821: FND_MSG_PUB.Add;
822: ELSIF p_exchange_rate < 0 THEN
823: p_return_status := FND_API.G_RET_STS_ERROR ;
824: FND_MESSAGE.SET_NAME('AR','AR_EXCHANGE_RATE_NEGATIVE');
825: FND_MSG_PUB.Add;
821: FND_MSG_PUB.Add;
822: ELSIF p_exchange_rate < 0 THEN
823: p_return_status := FND_API.G_RET_STS_ERROR ;
824: FND_MESSAGE.SET_NAME('AR','AR_EXCHANGE_RATE_NEGATIVE');
825: FND_MSG_PUB.Add;
826: END IF;
827:
828: ELSE
829: --this is the case where rate_type <> 'User'
833: --raise an error message in that case
834:
835: p_return_status := FND_API.G_RET_STS_ERROR;
836: FND_MESSAGE.SET_NAME('AR','AR_NO_RATE_DATA_FOUND');
837: FND_MSG_PUB.Add;
838: END IF;
839:
840: END IF;
841:
846:
847: IF (p_exchange_rate IS NOT NULL) THEN
848: p_return_status := FND_API.G_RET_STS_ERROR ;
849: FND_MESSAGE.SET_NAME('AR','AR_RAPI_X_RATE_INVALID');
850: FND_MSG_PUB.Add;
851: END IF;
852: IF (p_exchange_rate_type IS NOT NULL) THEN
853: p_return_status := FND_API.G_RET_STS_ERROR ;
854: FND_MESSAGE.SET_NAME('AR','AR_RAPI_X_RATE_TYPE_INVALID');
851: END IF;
852: IF (p_exchange_rate_type IS NOT NULL) THEN
853: p_return_status := FND_API.G_RET_STS_ERROR ;
854: FND_MESSAGE.SET_NAME('AR','AR_RAPI_X_RATE_TYPE_INVALID');
855: FND_MSG_PUB.Add;
856: END IF;
857: IF (p_exchange_rate_date IS NOT NULL) THEN
858: p_return_status := FND_API.G_RET_STS_ERROR ;
859: FND_MESSAGE.SET_NAME('AR','AR_RAPI_X_RATE_DATE_INVALID');
856: END IF;
857: IF (p_exchange_rate_date IS NOT NULL) THEN
858: p_return_status := FND_API.G_RET_STS_ERROR ;
859: FND_MESSAGE.SET_NAME('AR','AR_RAPI_X_RATE_DATE_INVALID');
860: FND_MSG_PUB.Add;
861: END IF;
862: END IF;
863: EXCEPTION
864: WHEN others THEN
916: ELSE
917: --the entered currency is invalid
918: p_return_status := FND_API.G_RET_STS_ERROR;
919: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CURR_CODE_INVALID');
920: FND_MSG_PUB.Add;
921: END IF;
922: END Validate_Currency;
923:
924: PROCEDURE val_duplicate_receipt(p_receipt_number IN VARCHAR2,
961: -- Do not allow to create duplicate receipts
962: IF l_duplicate_receipt = 'Y' THEN
963: IF p_type = 'CASH' THEN
964: FND_MESSAGE.SET_NAME('AR','AR_RW_CASH_DUPLICATE_RECEIPT');
965: FND_MSG_PUB.ADD;
966: p_return_status := FND_API.G_RET_STS_ERROR;
967: ELSIF p_type = 'MISC' THEN
968: FND_MESSAGE.SET_NAME('AR','AR_RW_MISC_DUPLICATE_RECEIPT');
969: FND_MSG_PUB.ADD;
965: FND_MSG_PUB.ADD;
966: p_return_status := FND_API.G_RET_STS_ERROR;
967: ELSIF p_type = 'MISC' THEN
968: FND_MESSAGE.SET_NAME('AR','AR_RW_MISC_DUPLICATE_RECEIPT');
969: FND_MSG_PUB.ADD;
970: p_return_status := FND_API.G_RET_STS_ERROR;
971: END IF;
972:
973: END IF;
1071: p_doc_sequence_value IS NOT NULL
1072: THEN
1073: l_doc_seq_return_status := FND_API.G_RET_STS_ERROR ;
1074: FND_MESSAGE.SET_NAME('AR','AR_RAPI_DOC_SEQ_VAL_INVALID');
1075: FND_MSG_PUB.Add;
1076: END IF;
1077: --Validate amount
1078: Validate_amount(p_amount ,
1079: p_factor_discount_amount,
1100:
1101: --Validate the override_remit_bank_account_flag
1102: IF (p_override_remit_account_flag NOT IN ('Y','N')) THEN
1103: FND_MESSAGE.SET_NAME('AR','AR_OVERR_REM_BK_FLAG_INVALID');
1104: FND_MSG_PUB.ADD;
1105: l_override_remit_return_status := FND_API.G_RET_STS_ERROR;
1106: ELSE
1107: l_override_remit_return_status := FND_API.G_RET_STS_SUCCESS;
1108: END IF;
1184: IF p_amount_applied IS NULL
1185: THEN
1186: p_return_status := FND_API.G_RET_STS_ERROR;
1187: FND_MESSAGE.SET_NAME('AR','AR_RAPI_APPLIED_AMT_NULL');
1188: FND_MSG_PUB.Add;
1189: return;
1190: /* The amount Applied can be greater than the line amount. The line level application
1191: is not supported yet: Bug 3476306 */
1192: /*ELSE
1198: THEN
1199: p_return_status := FND_API.G_RET_STS_ERROR;
1200: FND_MESSAGE.SET_NAME('AR','AR_RW_APPLIED_GREATER_LINE');
1201: FND_MESSAGE.SET_TOKEN('AMOUNT',p_inv_line_amount);
1202: FND_MSG_PUB.Add;
1203: END IF; */
1204: END IF;
1205: IF PG_DEBUG in ('Y', 'C') THEN
1206: arp_util.debug('Validate_amount: ' || 'Before calling the check_natural_application routine ');
1223: IF ( l_message_name IS NOT NULL)
1224: THEN
1225: p_return_status := FND_API.G_RET_STS_ERROR;
1226: FND_MESSAGE.SET_NAME('AR',l_message_name);
1227: FND_MSG_PUB.Add;
1228: END IF;
1229:
1230: END IF;
1231:
1282: IF ( l_line_message_name IS NOT NULL)
1283: THEN
1284: p_return_status := FND_API.G_RET_STS_ERROR;
1285: FND_MESSAGE.SET_NAME('AR',l_line_message_name);
1286: FND_MSG_PUB.Add;
1287: END IF;
1288:
1289: END IF;
1290:
1338: IF ( l_tax_message_name IS NOT NULL)
1339: THEN
1340: p_return_status := FND_API.G_RET_STS_ERROR;
1341: FND_MESSAGE.SET_NAME('AR',l_tax_message_name);
1342: FND_MSG_PUB.Add;
1343: END IF;
1344:
1345: END IF;
1346:
1397: IF ( l_frt_message_name IS NOT NULL)
1398: THEN
1399: p_return_status := FND_API.G_RET_STS_ERROR;
1400: FND_MESSAGE.SET_NAME('AR',l_frt_message_name);
1401: FND_MSG_PUB.Add;
1402: END IF;
1403:
1404: END IF;
1405:
1457: IF ( l_message_name IS NOT NULL)
1458: THEN
1459: p_return_status := FND_API.G_RET_STS_ERROR;
1460: FND_MESSAGE.SET_NAME('AR',l_message_name);
1461: FND_MSG_PUB.Add;
1462: END IF;
1463:
1464: END IF;
1465:
1491: arp_util.debug('Validate_amount: ' || 'l_remaining_unapp_rct_amt :'||to_char(l_remaining_unapp_rct_amt));
1492: END IF;
1493: p_return_status := FND_API.G_RET_STS_ERROR;
1494: FND_MESSAGE.SET_NAME('AR','AR_RW_APP_NEG_UNAPP');
1495: FND_MSG_PUB.Add;
1496: END IF;
1497:
1498: IF p_cr_currency_code = p_trx_currency_code AND
1499: p_amount_applied_from IS NOT NULL
1498: IF p_cr_currency_code = p_trx_currency_code AND
1499: p_amount_applied_from IS NOT NULL
1500: THEN
1501: FND_MESSAGE.SET_NAME('AR','AR_RAPI_AMT_APP_FROM_INVALID');
1502: FND_MSG_PUB.Add;
1503: p_return_status := FND_API.G_RET_STS_ERROR;
1504: END IF;
1505: IF PG_DEBUG in ('Y', 'C') THEN
1506: arp_util.debug('Validate_amount_applied_from ()-');
1534: arp_util.debug('Validate_amount_applied_from: ' || 'l_remaining_unapp_rct_amt :'||to_char(l_remaining_unapp_rct_amt));
1535: END IF;
1536: p_return_status := FND_API.G_RET_STS_ERROR;
1537: FND_MESSAGE.SET_NAME('AR','AR_RW_AMOUNT_LESS_THAN_APP');
1538: FND_MSG_PUB.Add;
1539: END IF;
1540: IF PG_DEBUG in ('Y', 'C') THEN
1541: arp_util.debug('Validate_amount_applied_from over loaded()-');
1542: END IF;
1566: --and the user should not have specified a value for trans_to_receipt_rate
1567:
1568: p_return_status := FND_API.G_RET_STS_ERROR;
1569: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CC_RATE_INVALID');
1570: FND_MSG_PUB.Add;
1571: ELSIF p_trx_currency_code <> p_cr_currency_code THEN
1572: IF p_trans_to_receipt_rate IS NULL THEN
1573:
1574: p_return_status := FND_API.G_RET_STS_ERROR;
1572: IF p_trans_to_receipt_rate IS NULL THEN
1573:
1574: p_return_status := FND_API.G_RET_STS_ERROR;
1575: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CC_RATE_NULL');
1576: FND_MSG_PUB.Add;
1577: ELSIF p_trans_to_receipt_rate < 0 THEN
1578:
1579: p_return_status := FND_API.G_RET_STS_ERROR;
1580: FND_MESSAGE.SET_NAME('AR','AR_RW_CC_RATE_POSITIVE');
1577: ELSIF p_trans_to_receipt_rate < 0 THEN
1578:
1579: p_return_status := FND_API.G_RET_STS_ERROR;
1580: FND_MESSAGE.SET_NAME('AR','AR_RW_CC_RATE_POSITIVE');
1581: FND_MSG_PUB.Add;
1582:
1583: ELSE
1584:
1585: --Validate the trans_to_receipt_rate with reference to
1609:
1610: IF l_amount_applied_cr <> l_amount_applied_from THEN
1611: p_return_status := FND_API.G_RET_STS_ERROR;
1612: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CC_RATE_AMTS_INVALID');
1613: FND_MSG_PUB.Add;
1614: END IF;
1615: END IF;
1616: END IF;
1617: END IF;
1647: AND p_applied_payment_schedule_id = -1)
1648: THEN
1649: p_return_status := FND_API.G_RET_STS_ERROR;
1650: fnd_message.set_name ('AR','AR_RW_VAL_ONACC_DISC');
1651: fnd_msg_pub.Add;
1652:
1653: -- Do not negative discounts unless the amount applied is also
1654: -- negative.
1655: ELSIF p_amount_applied >= 0 and
1655: ELSIF p_amount_applied >= 0 and
1656: p_discount < 0 THEN
1657: p_return_status := FND_API.G_RET_STS_ERROR;
1658: fnd_message.set_name ('AR','AR_RW_VAL_NEG_DISCNT');
1659: fnd_msg_pub.Add;
1660: -- Bug 3527600: Do not allow positive discounts unless the amount
1661: -- applied is also positive.
1662: ELSIF p_amount_applied < 0 and
1663: p_discount > 0 THEN
1661: -- applied is also positive.
1662: ELSIF p_amount_applied < 0 and
1663: p_discount > 0 THEN
1664: fnd_message.set_name ('AR','AR_RW_VAL_POS_DISCNT');
1665: fnd_msg_pub.Add;
1666: p_return_status := FND_API.G_RET_STS_ERROR;
1667:
1668: -- If partial payment discounts are not allowed.
1669:
1685: (p_amount_due_remaining - (p_amount_applied + p_discount)) < 0))
1686: THEN
1687: p_return_status := FND_API.G_RET_STS_ERROR;
1688: fnd_message.set_name ('AR','AR_NO_PARTIAL_DISC');
1689: fnd_msg_pub.Add;
1690:
1691: ELSIF p_discount IS NOT NULL THEN
1692:
1693: --Do not give discounts more than allowed.
1698: fnd_message.set_token ('DISC_AVAILABLE'
1699: ,TO_CHAR(p_discount_max_allowed,
1700: fnd_currency.get_format_mask (p_trx_currency_code,30))
1701: ||' '||p_trx_currency_code);
1702: fnd_msg_pub.Add;
1703: p_return_status := FND_API.G_RET_STS_ERROR;
1704:
1705: -- Check for Unearned Discounts.
1706: -- Bug 3527600: Allow for negative discount
1707: ELSIF arp_global.sysparam.unearned_discount = 'N'
1708: AND ABS(p_discount) > ABS(p_discount_earned_allowed)
1709: THEN
1710: fnd_message.set_name ('AR','AR_RW_VAL_UNEARNED_DISCOUNT');
1711: fnd_msg_pub.Add;
1712: p_return_status := FND_API.G_RET_STS_ERROR;
1713: END IF;
1714: END IF;
1715:
1735:
1736: -- Check that the application GL Date is not before the invoice GL Date.
1737: IF p_apply_gl_date < p_trx_gl_date THEN
1738: FND_MESSAGE.SET_NAME('AR','AR_VAL_GL_INV_GL');
1739: FND_MSG_PUB.Add;
1740: p_return_status := FND_API.G_RET_STS_ERROR;
1741:
1742: -- Check that the application GL Date is not before the receipt GL Date.
1743: END IF;
1743: END IF;
1744:
1745: IF p_apply_gl_date < p_cr_gl_date THEN
1746: FND_MESSAGE.SET_NAME('AR','AR_RW_GL_DATE_BEFORE_REC_GL');
1747: FND_MSG_PUB.Add;
1748: p_return_status := FND_API.G_RET_STS_ERROR;
1749: END IF;
1750:
1751:
1752: -- Check that the Application GL Date is in an open or future GL period.
1753: IF ( NOT arp_util.is_gl_date_valid( p_apply_gl_date )) THEN
1754: FND_MESSAGE.set_name( 'AR', 'AR_INVALID_APP_GL_DATE' );
1755: FND_MESSAGE.set_token( 'GL_DATE', TO_CHAR( p_apply_gl_date ));
1756: FND_MSG_PUB.Add;
1757: p_return_status := FND_API.G_RET_STS_ERROR;
1758: END IF;
1759:
1760:
1781:
1782: -- check that the apply date is not before the invoice date.
1783: IF p_apply_date < p_trx_date THEN
1784: FND_MESSAGE.SET_NAME('AR','AR_APPLY_BEFORE_TRANSACTION');
1785: FND_MSG_PUB.Add;
1786: p_return_status := FND_API.G_RET_STS_ERROR;
1787:
1788: -- check that the application date is not before the receipt date.
1789: END IF;
1789: END IF;
1790:
1791: IF p_apply_date < p_cr_date THEN
1792: FND_MESSAGE.SET_NAME('AR','AR_APPLY_BEFORE_RECEIPT');
1793: FND_MSG_PUB.Add;
1794: p_return_status := FND_API.G_RET_STS_ERROR;
1795: END IF;
1796:
1797: END IF;
2035: > Nvl(p_discount_max_allowed,0)
2036: )
2037: THEN
2038: FND_MESSAGE.SET_NAME( 'AR','AR_RAPI_LTFC_DISC_OAPP');
2039: FND_MSG_PUB.ADD;
2040: p_return_status := FND_API.G_RET_STS_ERROR ;
2041: END IF;
2042: END IF; */
2043:
2043:
2044: --validate p_move_deferred_tax
2045: IF p_move_deferred_tax NOT IN ('Y','N') THEN
2046: FND_MESSAGE.SET_NAME('AR','AR_RAPI_DEF_TAX_FLAG_INVALID');
2047: FND_MSG_PUB.Add;
2048: p_return_status := FND_API.G_RET_STS_ERROR;
2049: END IF;
2050: IF PG_DEBUG in ('Y', 'C') THEN
2051: arp_util.debug('Validate_Application_info: ' || 'Discount return status :'||l_disc_return_status);
2088:
2089: IF p_reversal_gl_date < NVL(p_apply_gl_date,p_reversal_gl_date) THEN
2090: FND_MESSAGE.SET_NAME('AR','AR_RW_BEFORE_APP_GL_DATE');
2091: FND_MESSAGE.SET_TOKEN('GL_DATE', p_apply_gl_date);
2092: FND_MSG_PUB.Add;
2093: p_return_status := FND_API.G_RET_STS_ERROR;
2094: END IF;
2095: IF p_reversal_gl_date < nvl(p_receipt_gl_date,p_reversal_gl_date) THEN
2096: FND_MESSAGE.SET_NAME('AR','AR_RW_BEFORE_RECEIPT_GL_DATE');
2094: END IF;
2095: IF p_reversal_gl_date < nvl(p_receipt_gl_date,p_reversal_gl_date) THEN
2096: FND_MESSAGE.SET_NAME('AR','AR_RW_BEFORE_RECEIPT_GL_DATE');
2097: FND_MESSAGE.SET_TOKEN('GL_DATE', p_receipt_gl_date);
2098: FND_MSG_PUB.Add;
2099: p_return_status := FND_API.G_RET_STS_ERROR;
2100: END IF;
2101: /* Bug fix 2441105 */
2102: IF p_reversal_gl_date < nvl(p_recpt_last_state_gl_date,p_reversal_gl_date) THEN
2101: /* Bug fix 2441105 */
2102: IF p_reversal_gl_date < nvl(p_recpt_last_state_gl_date,p_reversal_gl_date) THEN
2103: FND_MESSAGE.SET_NAME('AR','AR_RW_BEF_RCPT_STATE_GL_DATE');
2104: FND_MESSAGE.SET_TOKEN('GL_DATE', p_recpt_last_state_gl_date);
2105: FND_MSG_PUB.Add;
2106: p_return_status := FND_API.G_RET_STS_ERROR;
2107: END IF;
2108: IF ( NOT arp_util.is_gl_date_valid(p_reversal_gl_date)) THEN
2109: FND_MESSAGE.set_name( 'AR', 'AR_INVALID_APP_GL_DATE' );
2107: END IF;
2108: IF ( NOT arp_util.is_gl_date_valid(p_reversal_gl_date)) THEN
2109: FND_MESSAGE.set_name( 'AR', 'AR_INVALID_APP_GL_DATE' );
2110: FND_MESSAGE.set_token( 'GL_DATE', TO_CHAR( p_reversal_gl_date ));
2111: FND_MSG_PUB.Add;
2112: p_return_status := FND_API.G_RET_STS_ERROR;
2113: END IF;
2114:
2115: ELSE
2113: END IF;
2114:
2115: ELSE
2116: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REV_GL_DATE_NULL');
2117: FND_MSG_PUB.Add;
2118: p_return_status := FND_API.G_RET_STS_ERROR;
2119: IF PG_DEBUG in ('Y', 'C') THEN
2120: arp_util.debug('Validate_Rev_gl_date: ' || 'The Reversal gl date is null ');
2121: END IF;
2156: and ra.application_type = 'CASH';
2157:
2158: IF l_valid = 0 THEN
2159: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REC_APP_ID_INVALID');
2160: FND_MSG_PUB.Add;
2161: p_return_status := FND_API.G_RET_STS_ERROR;
2162: END IF;
2163:
2164: ELSIF p_receivable_application_id IS NULL THEN
2169: ar_receipt_api_pub.Original_unapp_info.receipt_number IS NULL
2170: THEN
2171: --receivable application id is null
2172: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REC_APP_ID_NULL');
2173: FND_MSG_PUB.Add;
2174: p_return_status := FND_API.G_RET_STS_ERROR;
2175: ELSIF ar_receipt_api_pub.Original_unapp_info.trx_number IS NULL AND
2176: ar_receipt_api_pub.Original_unapp_info.customer_trx_id IS NULL AND
2177: ar_receipt_api_pub.Original_unapp_info.applied_ps_id IS NULL AND
2179: ar_receipt_api_pub.Original_unapp_info.receipt_number IS NOT NULL)
2180: THEN
2181: --the transaction was not specified
2182: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUST_TRX_ID_NULL');
2183: FND_MSG_PUB.Add;
2184: p_return_status := FND_API.G_RET_STS_ERROR;
2185: ELSIF (ar_receipt_api_pub.Original_unapp_info.trx_number IS NOT NULL OR
2186: ar_receipt_api_pub.Original_unapp_info.customer_trx_id IS NOT NULL OR
2187: ar_receipt_api_pub.Original_unapp_info.applied_ps_id IS NOT NULL) AND
2189: ar_receipt_api_pub.Original_unapp_info.receipt_number IS NULL
2190: THEN
2191: --the receipt was not specified
2192: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CASH_RCPT_ID_NULL');
2193: FND_MSG_PUB.Add;
2194: p_return_status := FND_API.G_RET_STS_ERROR;
2195: END IF;
2196:
2197: END IF;
2410: IN (p_status1,p_status2,p_status3,p_status4,p_status5);
2411:
2412: IF l_valid = 0 THEN
2413: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CASH_RCPT_ID_INVALID');
2414: FND_MSG_PUB.Add;
2415: p_return_status := FND_API.G_RET_STS_ERROR;
2416: END IF;
2417: ELSE
2418: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CASH_RCPT_ID_NULL');
2415: p_return_status := FND_API.G_RET_STS_ERROR;
2416: END IF;
2417: ELSE
2418: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CASH_RCPT_ID_NULL');
2419: FND_MSG_PUB.Add;
2420: p_return_status := FND_API.G_RET_STS_ERROR;
2421: END IF;
2422: IF PG_DEBUG in ('Y', 'C') THEN
2423: arp_util.debug('Validate_cash_receipt_id ()-');
2447: and enabled_flag = 'Y'
2448: and lookup_code = p_reversal_category_code;
2449: IF l_valid =0 THEN
2450: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REV_CAT_CD_INVALID');
2451: FND_MSG_PUB.Add;
2452: p_return_status := FND_API.G_RET_STS_ERROR;
2453: END IF;
2454: ELSE
2455: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REV_CAT_CD_NULL');
2452: p_return_status := FND_API.G_RET_STS_ERROR;
2453: END IF;
2454: ELSE
2455: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REV_CAT_CD_NULL');
2456: FND_MSG_PUB.Add;
2457: p_return_status := FND_API.G_RET_STS_ERROR;
2458: END IF;
2459: IF PG_DEBUG in ('Y', 'C') THEN
2460: arp_util.debug('Validate_reversal_catg_code ()-');
2482: and enabled_flag = 'Y'
2483: and lookup_code = p_reversal_reason_code;
2484: IF l_valid =0 THEN
2485: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REV_REAS_CD_INVALID');
2486: FND_MSG_PUB.Add;
2487: p_return_status := FND_API.G_RET_STS_ERROR;
2488: END IF;
2489: ELSE
2490: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REV_REAS_CD_NULL');
2487: p_return_status := FND_API.G_RET_STS_ERROR;
2488: END IF;
2489: ELSE
2490: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REV_REAS_CD_NULL');
2491: FND_MSG_PUB.Add;
2492: p_return_status := FND_API.G_RET_STS_ERROR;
2493: END IF;
2494: EXCEPTION
2495: WHEN others THEN
2595:
2596: -- validate amount applied
2597: IF p_applied_amount IS NULL THEN
2598: FND_MESSAGE.SET_NAME('AR','AR_RAPI_APPLIED_AMT_NULL');
2599: FND_MSG_PUB.Add;
2600: l_amt_return_status := FND_API.G_RET_STS_ERROR;
2601:
2602: -- Bug 2751910 - allow -ve amount on application to receipt (ps>0)
2603: ELSIF (p_applied_amount < 0 AND NVL(p_applied_ps_id,-1) <> -4 AND
2604: NVL(p_applied_ps_id,-1) <> -3 AND
2605: NVL(p_applied_ps_id,-1) < 0) THEN
2606: IF p_applied_ps_id = -8 THEN
2607: FND_MESSAGE.SET_NAME('AR','AR_REF_CM_APP_NEG');
2608: FND_MSG_PUB.Add;
2609: ELSE
2610: FND_MESSAGE.SET_NAME('AR','AR_RW_APP_NEG_ON_ACCT');
2611: FND_MSG_PUB.Add;
2612: END IF;
2607: FND_MESSAGE.SET_NAME('AR','AR_REF_CM_APP_NEG');
2608: FND_MSG_PUB.Add;
2609: ELSE
2610: FND_MESSAGE.SET_NAME('AR','AR_RW_APP_NEG_ON_ACCT');
2611: FND_MSG_PUB.Add;
2612: END IF;
2613: l_amt_return_status := FND_API.G_RET_STS_ERROR;
2614: -- Bug 2897244 - amount not checked if called from form/postbatch
2615: ELSIF ((nvl(p_cr_unapp_amount,0)- p_applied_amount) < 0 AND
2615: ELSIF ((nvl(p_cr_unapp_amount,0)- p_applied_amount) < 0 AND
2616: NVL(p_applied_ps_id,-1) <> -4 AND
2617: NVL(p_called_from,'RAPI') NOT IN ('ARXRWAPP','ARCAPB')) THEN
2618: FND_MESSAGE.SET_NAME('AR','AR_RW_AMOUNT_LESS_THAN_APP');
2619: FND_MSG_PUB.Add;
2620: l_amt_return_status := FND_API.G_RET_STS_ERROR;
2621: END IF;
2622:
2623: validate_apply_gl_date(p_apply_gl_date,
2722: AND cr.cash_receipt_id=p_cash_receipt_id;
2723:
2724: IF l_payment_type <> 'CREDIT_CARD' THEN
2725: FND_MESSAGE.SET_NAME('AR','AR_RW_CCR_RECEIPT_ONLY');
2726: FND_MSG_PUB.Add;
2727: p_return_status := FND_API.G_RET_STS_ERROR;
2728: END IF;
2729:
2730: EXCEPTION
2731: WHEN others then
2732: p_return_status := FND_API.G_RET_STS_ERROR;
2733: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
2734: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','Validate ccrefund' ||SQLERRM);
2735: FND_MSG_PUB.Add;
2736: END;
2737: END IF;
2738: IF PG_DEBUG in ('Y', 'C') THEN
2739: arp_util.debug('Validate_ccrefund (-)');
2783: OPEN activity_type;
2784: FETCH activity_type INTO l_activity_type;
2785: IF activity_type%NOTFOUND THEN
2786: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REC_TRX_ID_INVALID');
2787: FND_MSG_PUB.Add;
2788: p_return_status := FND_API.G_RET_STS_ERROR;
2789: END IF;
2790: CLOSE activity_type;
2791:
2795: -- -2 corresponds to short term debit
2796: IF p_applied_ps_id = -2 THEN
2797: IF l_activity_type <> 'SHORT_TERM_DEBT' THEN
2798: FND_MESSAGE.SET_NAME('AR','AR_RAPI_ACTIVITY_X_INVALID');
2799: FND_MSG_PUB.Add;
2800: p_return_status := FND_API.G_RET_STS_ERROR;
2801: END IF;
2802:
2803: --SNAMBIAR - Modified for Write-Off
2803: --SNAMBIAR - Modified for Write-Off
2804: ELSIF p_applied_ps_id = -3 THEN
2805: IF l_activity_type <> 'WRITEOFF' THEN
2806: FND_MESSAGE.SET_NAME('AR','AR_RAPI_ACTIVITY_X_INVALID');
2807: FND_MSG_PUB.Add;
2808: p_return_status := FND_API.G_RET_STS_ERROR;
2809: END IF;
2810:
2811: --some additional validation that we need to do for the Write-Off: Bug 1645041.
2850: and document_type ='WRTOFF';
2851: EXCEPTION
2852: WHEN NO_DATA_FOUND THEN
2853: fnd_message.set_name ('AR','AR_WR_NO_LIMIT');
2854: FND_MSG_PUB.Add;
2855: p_return_status := FND_API.G_RET_STS_ERROR;
2856: END;
2857:
2858: IF (NVL(l_tot_write_off_amt,0) > l_amount_to) OR
2860: THEN
2861: fnd_message.set_name ('AR','AR_WR_USER_LIMIT');
2862: fnd_message.set_token('FROM_AMOUNT', to_char(l_amount_from), FALSE);
2863: fnd_message.set_token('TO_AMOUNT', to_char(l_amount_to), FALSE);
2864: FND_MSG_PUB.Add;
2865: p_return_status := FND_API.G_RET_STS_ERROR;
2866: END IF;
2867:
2868: END IF;
2886: (l_min_wrt_off_amount IS NULL AND
2887: NVL(l_tot_write_off_amt,0) < 0 )
2888: ) THEN
2889: fnd_message.set_name ('AR','AR_SYSTEM_WR_NO_LIMIT_SET');
2890: FND_MSG_PUB.Add;
2891: p_return_status := FND_API.G_RET_STS_ERROR;
2892: END IF;
2893:
2894: IF PG_DEBUG in ('Y', 'C') THEN
2915: IF ( (NVL(l_tot_write_off_amt,0) > l_max_wrt_off_amount) OR
2916: (NVL(l_tot_write_off_amt,0) < l_min_wrt_off_amount) ) THEN
2917: arp_util.debug('ERROR l_tot_write_off_amt = '||l_tot_write_off_amt);
2918: fnd_message.set_name ('AR','AR_WR_TOTAL_EXCEED_MAX_AMOUNT');
2919: FND_MSG_PUB.Add;
2920: p_return_status := FND_API.G_RET_STS_ERROR;
2921: END IF;
2922:
2923: ELSIF p_applied_ps_id = -4 THEN
2922:
2923: ELSIF p_applied_ps_id = -4 THEN
2924: IF l_activity_type <> 'CLAIM_INVESTIGATION' THEN
2925: FND_MESSAGE.SET_NAME('AR','AR_RAPI_ACTIVITY_X_INVALID');
2926: FND_MSG_PUB.Add;
2927: p_return_status := FND_API.G_RET_STS_ERROR;
2928: END IF;
2929: ELSIF p_applied_ps_id = -5 THEN
2930: IF (l_activity_type <> 'ADJUST') OR (p_receivables_trx_id <> -11) THEN
2928: END IF;
2929: ELSIF p_applied_ps_id = -5 THEN
2930: IF (l_activity_type <> 'ADJUST') OR (p_receivables_trx_id <> -11) THEN
2931: FND_MESSAGE.SET_NAME('AR','AR_RAPI_ACTIVITY_X_INVALID');
2932: FND_MSG_PUB.Add;
2933: p_return_status := FND_API.G_RET_STS_ERROR;
2934: END IF;
2935: ELSIF p_applied_ps_id = -6 THEN
2936: IF l_activity_type <> 'CCREFUND' THEN
2934: END IF;
2935: ELSIF p_applied_ps_id = -6 THEN
2936: IF l_activity_type <> 'CCREFUND' THEN
2937: FND_MESSAGE.SET_NAME('AR','AR_RAPI_ACTIVITY_X_INVALID');
2938: FND_MSG_PUB.Add;
2939: p_return_status := FND_API.G_RET_STS_ERROR;
2940: END IF;
2941: ELSIF p_applied_ps_id = -7 THEN
2942: IF l_activity_type <> 'PREPAYMENT' THEN
2940: END IF;
2941: ELSIF p_applied_ps_id = -7 THEN
2942: IF l_activity_type <> 'PREPAYMENT' THEN
2943: FND_MESSAGE.SET_NAME('AR','AR_RAPI_ACTIVITY_X_INVALID');
2944: FND_MSG_PUB.Add;
2945: p_return_status := FND_API.G_RET_STS_ERROR;
2946: END IF;
2947: ELSIF p_applied_ps_id = -8 THEN
2948: IF l_activity_type <> 'CM_REFUND' THEN
2946: END IF;
2947: ELSIF p_applied_ps_id = -8 THEN
2948: IF l_activity_type <> 'CM_REFUND' THEN
2949: FND_MESSAGE.SET_NAME('AR','AR_RAPI_ACTIVITY_X_INVALID');
2950: FND_MSG_PUB.Add;
2951: p_return_status := FND_API.G_RET_STS_ERROR;
2952: END IF;
2953: ELSE
2954: --the applied payment schedule id is invalid
2952: END IF;
2953: ELSE
2954: --the applied payment schedule id is invalid
2955: FND_MESSAGE.SET_NAME('AR','AR_RAPI_APP_PS_ID_INVALID');
2956: FND_MSG_PUB.Add;
2957: p_return_status := FND_API.G_RET_STS_ERROR;
2958: END IF; --additional control structures to be added for new activity types.
2959: END IF;
2960: IF PG_DEBUG in ('Y', 'C') THEN
3031: AND class='CB';
3032: EXCEPTION
3033: WHEN no_data_found THEN
3034: FND_MESSAGE.SET_NAME('AR','AR_RAPI_LK_CUS_TRX_ID_INVALID');
3035: FND_MSG_PUB.Add;
3036: p_return_status := FND_API.G_RET_STS_ERROR;
3037: WHEN others THEN
3038: raise;
3039: END;
3038: raise;
3039: END;
3040: IF l_valid <> 'Y' THEN
3041: FND_MESSAGE.SET_NAME('AR','AR_RAPI_LK_CUS_TRX_ID_INVALID');
3042: FND_MSG_PUB.Add;
3043: p_return_status := FND_API.G_RET_STS_ERROR;
3044: END IF;
3045: l_valid := Null;
3046: ELSE
3044: END IF;
3045: l_valid := Null;
3046: ELSE
3047: FND_MESSAGE.SET_NAME('AR','AR_RAPI_LK_CUS_TRX_ID_INVALID');
3048: FND_MSG_PUB.Add;
3049: p_return_status := FND_API.G_RET_STS_ERROR;
3050: END IF;
3051: END IF;
3052:
3064: AND current_record_flag = 'Y';
3065:
3066: IF l_valid <> 'Y' THEN
3067: FND_MESSAGE.SET_NAME('AR','AR_RAPI_LK_CUS_TRX_ID_INVALID');
3068: FND_MSG_PUB.Add;
3069: p_return_status := FND_API.G_RET_STS_ERROR;
3070: END IF;
3071:
3072: EXCEPTION
3071:
3072: EXCEPTION
3073: WHEN no_data_found THEN
3074: FND_MESSAGE.SET_NAME('AR','AR_RAPI_LK_CUS_TRX_ID_INVALID');
3075: FND_MSG_PUB.Add;
3076: p_return_status := FND_API.G_RET_STS_ERROR;
3077: WHEN others THEN
3078: raise;
3079: END;
3127: AND lookup_code = p_application_ref_type;
3128: EXCEPTION
3129: WHEN no_data_found THEN
3130: FND_MESSAGE.SET_NAME('AR','AR_RAPI_INVALID_APP_REF');
3131: FND_MSG_PUB.Add;
3132: p_return_status := FND_API.G_RET_STS_ERROR;
3133: END;
3134: ELSE
3135: FND_MESSAGE.SET_NAME('AR','AR_RAPI_APP_PS_ID_INVALID');
3132: p_return_status := FND_API.G_RET_STS_ERROR;
3133: END;
3134: ELSE
3135: FND_MESSAGE.SET_NAME('AR','AR_RAPI_APP_PS_ID_INVALID');
3136: FND_MSG_PUB.Add;
3137: p_return_status := FND_API.G_RET_STS_ERROR;
3138: END IF;
3139: END IF;
3140: /* Bug 2270825 - claim specific validation */
3155: EXECUTE IMMEDIATE l_query_text INTO l_dummy USING l_reason_code_id;
3156: EXCEPTION
3157: WHEN OTHERS THEN
3158: FND_MESSAGE.SET_NAME('AR','AR_RAPI_INVALID_REF_REASON');
3159: FND_MSG_PUB.Add;
3160: p_return_status := FND_API.G_RET_STS_ERROR;
3161: END;
3162: END IF;
3163: ELSE
3221: ELSE
3222: FND_MESSAGE.SET_NAME('AR','AR_RAPI_INVALID_CLAIM_NUM');
3223: FND_MESSAGE.SET_TOKEN('CLAIM_NUM',p_application_ref_num);
3224: END IF;
3225: FND_MSG_PUB.Add;
3226: p_return_status := FND_API.G_RET_STS_ERROR;
3227: RAISE;
3228: WHEN others THEN
3229: p_return_status := FND_API.G_RET_STS_ERROR;
3327: p_doc_sequence_value IS NOT NULL
3328: THEN
3329: l_doc_seq_return_status := FND_API.G_RET_STS_ERROR ;
3330: FND_MESSAGE.SET_NAME('AR','AR_RAPI_DOC_SEQ_VAL_INVALID');
3331: FND_MSG_PUB.Add;
3332: END IF;
3333:
3334: --Validate currency and exchange rate info.
3335: IF p_currency_code <> arp_global.functional_currency OR
3380: WHEN no_data_found THEN
3381: IF p_orig_receivables_trx_id IS NULL THEN
3382: l_activity_return_status := FND_API.G_RET_STS_ERROR ;
3383: FND_MESSAGE.SET_NAME('AR','AR_RAPI_ACTIVITY_INVALID');
3384: FND_MSG_PUB.Add;
3385: ELSE
3386: l_activity_return_status := FND_API.G_RET_STS_ERROR ;
3387: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REC_TRX_ID_INVALID');
3388: FND_MSG_PUB.Add;
3384: FND_MSG_PUB.Add;
3385: ELSE
3386: l_activity_return_status := FND_API.G_RET_STS_ERROR ;
3387: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REC_TRX_ID_INVALID');
3388: FND_MSG_PUB.Add;
3389: END IF;
3390: END;
3391: ELSE
3392: l_activity_return_status := FND_API.G_RET_STS_ERROR ;
3390: END;
3391: ELSE
3392: l_activity_return_status := FND_API.G_RET_STS_ERROR ;
3393: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REC_TRX_ID_NULL');
3394: FND_MSG_PUB.Add;
3395: END IF;
3396:
3397:
3398: --Validate vat_tax_id
3433: WHEN no_data_found THEN
3434: IF p_orig_vat_tax_id IS NOT NULL THEN
3435: l_tax_id_return_status := FND_API.G_RET_STS_ERROR ;
3436: FND_MESSAGE.SET_NAME('AR','AR_RAPI_VAT_TAX_ID_INVALID');
3437: FND_MSG_PUB.Add;
3438: ELSE
3439: l_tax_id_return_status := FND_API.G_RET_STS_ERROR ;
3440: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TAX_CODE_INVALID');
3441: FND_MSG_PUB.Add;
3437: FND_MSG_PUB.Add;
3438: ELSE
3439: l_tax_id_return_status := FND_API.G_RET_STS_ERROR ;
3440: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TAX_CODE_INVALID');
3441: FND_MSG_PUB.Add;
3442: END IF;
3443: END;
3444:
3445: --In case where user has specified the tax_rate/tax amount , we need to verify
3454: IF fnd_profile.value('ZX_ALLOW_TAX_UPDATE') = 'N'
3455: THEN
3456: l_tax_rate_return_status := FND_API.G_RET_STS_ERROR;
3457: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TAX_RATE_INVALID');
3458: FND_MSG_PUB.Add;
3459: END IF;
3460: ELSE
3461:
3462: IF arp_global.sysparam.accounting_method = 'ACCRUAL' THEN
3471: --tax rate as a input parameter.
3472: IF p_tax_rate IS NOT NULL THEN
3473: l_tax_id_return_status := FND_API.G_RET_STS_ERROR ;
3474: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TAX_RATE_INVALID');
3475: FND_MSG_PUB.Add;
3476: END IF;
3477: END IF;
3478:
3479: ELSE
3481: IF p_vat_tax_id IS NOT NULL THEN
3482: --raise error as no tax accounting is done for cash basis in misc receipt.
3483: l_tax_id_return_status := FND_API.G_RET_STS_ERROR ;
3484: FND_MESSAGE.SET_NAME('AR','AR_RAPI_VAT_TAX_ID_INVALID');
3485: FND_MSG_PUB.Add;
3486: END IF;
3487:
3488: IF p_tax_rate IS NOT NULL THEN
3489: l_tax_id_return_status := FND_API.G_RET_STS_ERROR ;
3487:
3488: IF p_tax_rate IS NOT NULL THEN
3489: l_tax_id_return_status := FND_API.G_RET_STS_ERROR ;
3490: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TAX_RATE_INVALID');
3491: FND_MSG_PUB.Add;
3492: END IF;
3493:
3494: END IF;
3495:
3541: ELSE
3542: --the reference_type is invalid, raise error.
3543: l_ref_type_return_status := FND_API.G_RET_STS_ERROR;
3544: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REF_TYPE_INVALID');
3545: FND_MSG_PUB.Add;
3546:
3547: END IF;
3548: EXCEPTION
3549: WHEN no_data_found THEN
3549: WHEN no_data_found THEN
3550: IF p_orig_reference_id IS NULL THEN
3551: l_ref_id_return_status := FND_API.G_RET_STS_ERROR;
3552: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REF_NUM_INVALID');
3553: FND_MSG_PUB.Add;
3554: ELSE
3555: l_ref_id_return_status := FND_API.G_RET_STS_ERROR;
3556: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REF_ID_INVALID');
3557: FND_MSG_PUB.Add;
3553: FND_MSG_PUB.Add;
3554: ELSE
3555: l_ref_id_return_status := FND_API.G_RET_STS_ERROR;
3556: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REF_ID_INVALID');
3557: FND_MSG_PUB.Add;
3558: END IF;
3559: END;
3560: ELSE
3561: --the reference_id is null, raise error.
3563: --this would happen if the reference_id could not be
3564: --derived from reference number
3565: l_ref_id_return_status := FND_API.G_RET_STS_ERROR;
3566: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REF_NUM_INVALID');
3567: FND_MSG_PUB.Add;
3568: ELSE
3569: l_ref_id_return_status := FND_API.G_RET_STS_ERROR;
3570: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REF_ID_NULL');
3571: FND_MSG_PUB.Add;
3567: FND_MSG_PUB.Add;
3568: ELSE
3569: l_ref_id_return_status := FND_API.G_RET_STS_ERROR;
3570: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REF_ID_NULL');
3571: FND_MSG_PUB.Add;
3572: END IF;
3573:
3574: END IF;
3575:
3585: --reference_id is specified, so a null reference type should
3586: --raise an error.
3587: l_ref_type_return_status := FND_API.G_RET_STS_ERROR;
3588: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REF_TYPE_NULL');
3589: FND_MSG_PUB.Add;
3590: END IF;
3591: END IF;
3592:
3593:
3668:
3669: IF nvl(p_refund_amount,0) > l_prepay_amount THEN
3670: --raise error X validation failed
3671: FND_MESSAGE.SET_NAME('AR','AR_RAPI_PREPAY_AMT_LESS');
3672: FND_MSG_PUB.Add;
3673: p_return_status := FND_API.G_RET_STS_ERROR ;
3674: END IF;
3675:
3676: arp_util.debug('Validate prepay amount (-)');
3678: EXCEPTION
3679: WHEN others THEN
3680: FND_MESSAGE.SET_NAME('AR', 'GENERIC_MESSAGE');
3681: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT',SQLERRM);
3682: FND_MSG_PUB.Add;
3683: p_return_status := FND_API.G_RET_STS_ERROR ;
3684: arp_util.debug('EXCEPTION :Validate prepay amount '||SQLERRM);
3685: END;
3686:
3734:
3735: IF p_payment_action = 'CREATE_RCPT' THEN
3736:
3737: FND_MESSAGE.set_name ('AR','AR_RAPI_PREPAY_ONLYFOR_CC');
3738: FND_MSG_PUB.Add;
3739: p_return_status := FND_API.G_RET_STS_ERROR ;
3740:
3741: ELSIF p_payment_action = 'REFUND_RCPT' THEN
3742:
3740:
3741: ELSIF p_payment_action = 'REFUND_RCPT' THEN
3742:
3743: FND_MESSAGE.set_name ('AR','AR_RW_CCR_NOT_CC_RECEIPT');
3744: FND_MSG_PUB.Add;
3745: p_return_status := FND_API.G_RET_STS_ERROR ;
3746:
3747: END IF;
3748: END IF;
3752: EXCEPTION
3753: WHEN others THEN
3754: FND_MESSAGE.SET_NAME('AR', 'GENERIC_MESSAGE');
3755: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT',SQLERRM);
3756: FND_MSG_PUB.Add;
3757: p_return_status := FND_API.G_RET_STS_ERROR ;
3758: arp_util.debug('EXCEPTION :Validate payment type '||SQLERRM);
3759: END;
3760:
3810: EXCEPTION
3811: WHEN others THEN
3812: FND_MESSAGE.SET_NAME('AR', 'GENERIC_MESSAGE');
3813: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT',SQLERRM);
3814: FND_MSG_PUB.Add;
3815: p_return_status := FND_API.G_RET_STS_ERROR ;
3816: IF PG_DEBUG in ('Y', 'C') THEN
3817: arp_util.debug('EXCEPTION :ar_receipt_val_pvt.validate_claim_unapply '||SQLERRM);
3818: END IF;
3861: WHERE receivables_trx_id = -16;
3862:
3863: IF l_ccid IS NULL THEN
3864: FND_MESSAGE.SET_NAME('AR','AR_RW_NO_NETTING_ACCOUNT');
3865: FND_MSG_PUB.Add;
3866: l_act_return_status := FND_API.G_RET_STS_ERROR;
3867: END IF;
3868: EXCEPTION
3869: WHEN NO_DATA_FOUND THEN
3867: END IF;
3868: EXCEPTION
3869: WHEN NO_DATA_FOUND THEN
3870: FND_MESSAGE.SET_NAME('AR','AR_RW_MISSING_NETTING_ACTIVITY');
3871: FND_MSG_PUB.Add;
3872: l_act_return_status := FND_API.G_RET_STS_ERROR;
3873: END;
3874:
3875: IF p_cash_receipt_id = p_open_cash_receipt_id THEN
3873: END;
3874:
3875: IF p_cash_receipt_id = p_open_cash_receipt_id THEN
3876: FND_MESSAGE.SET_NAME('AR','AR_RW_NET_RCT_APPLY_SELF');
3877: FND_MSG_PUB.Add;
3878: l_rct_return_status := FND_API.G_RET_STS_ERROR;
3879: END IF;
3880:
3881: -- Check if valid paying customer
3887: p_currency_code => p_receipt_currency,
3888: p_pay_unrelated_invoices_flag => arp_global.sysparam.pay_unrelated_invoices_flag,
3889: p_ct_prev_trx_date => p_cr_date) THEN
3890: FND_MESSAGE.SET_NAME('AR','ARTA_PYMNT_UNRELATED_CUST');
3891: FND_MSG_PUB.Add;
3892: l_cust_return_status := FND_API.G_RET_STS_ERROR;
3893: END IF;
3894:
3895:
3910: );
3911:
3912: IF p_apply_gl_date < p_open_cr_gl_date THEN
3913: FND_MESSAGE.SET_NAME('AR','AR_RW_GL_DATE_BEFORE_OPEN_REC');
3914: FND_MSG_PUB.Add;
3915: l_gl_date_return_status := FND_API.G_RET_STS_ERROR;
3916: END IF;
3917:
3918:
3924: END IF;
3925: -- validate amount applied
3926: IF p_amount_applied IS NULL THEN
3927: FND_MESSAGE.SET_NAME('AR','AR_RAPI_APPLIED_AMT_NULL');
3928: FND_MSG_PUB.Add;
3929: l_amt_return_status := FND_API.G_RET_STS_ERROR;
3930:
3931: ELSE
3932: -- Bug 2897244 - receipt overapplication not checked if called
3934: IF NVL(p_called_from,'RAPI') NOT IN ('ARXRWAPP','ARCAPB')
3935: THEN
3936: IF (nvl(p_unapplied_cash,0)- p_amount_applied) < 0 THEN
3937: FND_MESSAGE.SET_NAME('AR','AR_RW_AMOUNT_LESS_THAN_APP');
3938: FND_MSG_PUB.Add;
3939: l_amt_return_status := FND_API.G_RET_STS_ERROR;
3940: END IF;
3941: END IF;
3942: IF ((SIGN(p_other_amount_applied * -1) <> SIGN(p_amount_applied)) OR
3941: END IF;
3942: IF ((SIGN(p_other_amount_applied * -1) <> SIGN(p_amount_applied)) OR
3943: (ABS(p_amount_applied) > ABS(p_other_amount_applied)) ) THEN
3944: FND_MESSAGE.SET_NAME('AR','AR_RW_NET_OPEN_AMT_INC');
3945: FND_MSG_PUB.Add;
3946: l_amt_return_status := FND_API.G_RET_STS_ERROR;
3947: END IF;
3948:
3949: END IF;
3959: WHERE sp.set_of_books_id = sob.set_of_books_id;
3960:
3961: IF (p_receipt_currency <> p_open_receipt_currency) THEN
3962: FND_MESSAGE.SET_NAME('AR','AR_RW_NET_DIFF_RCT_CURR');
3963: FND_MSG_PUB.Add;
3964: l_cur_return_status := FND_API.G_RET_STS_ERROR;
3965: END IF;
3966:
3967: IF l_gl_date_return_status <> FND_API.G_RET_STS_SUCCESS OR
3981: EXCEPTION
3982: WHEN others THEN
3983: FND_MESSAGE.SET_NAME('AR', 'GENERIC_MESSAGE');
3984: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT',SQLERRM);
3985: FND_MSG_PUB.Add;
3986: p_return_status := FND_API.G_RET_STS_ERROR ;
3987: IF PG_DEBUG in ('Y', 'C') THEN
3988: arp_util.debug('EXCEPTION :ar_receipt_val_pvt.validate_open_receipt_info '||SQLERRM);
3989: END IF;
4023: END IF;
4024:
4025: IF (l_cr_amount - l_amount_applied - p_amount_applied) < 0 THEN
4026: FND_MESSAGE.set_name('AR','AR_RW_NET_UNAPP_OVERAPP');
4027: FND_MSG_PUB.Add;
4028: p_return_status := FND_API.G_RET_STS_ERROR;
4029: END IF;
4030:
4031: IF PG_DEBUG in ('Y', 'C') THEN
4035: EXCEPTION
4036: WHEN others THEN
4037: FND_MESSAGE.SET_NAME('AR', 'GENERIC_MESSAGE');
4038: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT',SQLERRM);
4039: FND_MSG_PUB.Add;
4040: p_return_status := FND_API.G_RET_STS_ERROR ;
4041: IF PG_DEBUG in ('Y', 'C') THEN
4042: arp_util.debug('EXCEPTION :ar_receipt_val_pvt.validate_unapp_open_receipt '||SQLERRM);
4043: END IF;
4570: EXCEPTION
4571: WHEN NO_DATA_FOUND THEN
4572: p_return_status := FND_API.G_RET_STS_ERROR ;
4573: FND_MESSAGE.SET_NAME( 'AR','AR_RAPI_TRX_LINE_ID_INVALID');
4574: FND_MSG_PUB.ADD;
4575: RAISE;
4576: WHEN others THEN
4577: IF PG_DEBUG in ('Y', 'C') THEN
4578: arp_util.debug('' || 'EXCEPTION: validate_llac_insert_ad()');
4604: arp_util.debug('Raise an error... amount applied and buckets');
4605: END IF;
4606: p_return_status := FND_API.G_RET_STS_ERROR;
4607: fnd_message.set_name ('AR','AR_RW_APP_NEG_UNAPP');
4608: fnd_msg_pub.Add;
4609: End If; */
4610:
4611: -- Reset the balance
4612: l_cr_unapp_bal := Nvl(l_cr_unapp_bal,0) - Nvl(l_calc_amount_app_from,0);