[Home] [Help]
17: IF PG_DEBUG in ('Y', 'C') THEN
18: arp_util.debug('Validate_Receipt_Date()+');
19: END IF;
20:
21: p_return_status := FND_API.G_RET_STS_SUCCESS;
22:
23: IF PG_DEBUG in ('Y', 'C') THEN
24: arp_util.debug('Validate_Receipt_Date()-');
25: END IF;
30: BEGIN
31: IF PG_DEBUG in ('Y', 'C') THEN
32: arp_util.debug('Validate_Gl_Date ()+');
33: END IF;
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: --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));
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 ()+');
44: END IF;
49: BEGIN
50: IF PG_DEBUG in ('Y', 'C') THEN
51: arp_util.debug('Validate_Deposit_Date ()+');
52: END IF;
53: p_return_status := FND_API.G_RET_STS_SUCCESS;
54:
55: END Validate_Deposit_Date;
56:
57: PROCEDURE Validate_Maturity_Date(p_maturity_date IN DATE,
61: IF PG_DEBUG in ('Y', 'C') THEN
62: arp_util.debug('Validate_Maturity_Date ()+');
63: END IF;
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
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
73: arp_util.debug('Validate_Maturity_Date ()-');
74: END IF;
82: BEGIN
83: IF PG_DEBUG in ('Y', 'C') THEN
84: arp_util.debug('Validate_amount () +');
85: END IF;
86: p_return_status := FND_API.G_RET_STS_SUCCESS;
87:
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;
86: p_return_status := FND_API.G_RET_STS_SUCCESS;
87:
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')
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;
97: FND_MESSAGE.SET_NAME('AR','AR_RW_RCT_AMOUNT_NEGATIVE');
98: FND_MSG_PUB.Add;
99:
100: END IF;
108: THEN
109:
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 ');
122: IF (p_state <> 'CLEARED') AND (NVL(p_factor_discount_amount,0) <> 0 )
123: THEN
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');
133:
134: IF p_factor_discount_amount < 0 THEN
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 ');
172: BEGIN
173: IF PG_DEBUG in ('Y', 'C') THEN
174: arp_util.debug('Validate_amount: ' || 'Validate_Customer_id()+');
175: END IF;
176: p_return_status := FND_API.G_RET_STS_SUCCESS;
177: /* l_temp := Customer_Cache_Tbl.LAST;
178: IF PG_DEBUG in ('Y', 'C') THEN
179: arp_util.debug('Validate_amount: ' || 'cache ');
180: END IF;
230: cust.cust_account_id = p_customer_id and
231: cust.party_id = party.party_id;
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
251: --There is no point in validating the customer_site_use_id
252: --and the customer bank account id if the validation of
253: --customer id has failed
254:
255: IF p_return_status = FND_API.G_RET_STS_SUCCESS THEN
256: --no need to validate site_use_id if derived from the transaction
257: IF ar_receipt_lib_pvt.pg_cust_derived_from IS NULL THEN
258:
259: IF p_customer_site_use_id IS NOT NULL THEN
275: AND site_uses.site_use_id = p_customer_site_use_id;
276: ar_receipt_lib_pvt.pg_cust_derived_from := NULL;
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
296: IF p_location IS NOT NULL THEN
297: -- for the specified location there is no data in
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:
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)
317: THEN
374:
375: EXCEPTION
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;
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;
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;
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;
389: END IF;
390: WHEN too_many_rows THEN
410: END IF;
411:
412: END IF;
413:
414: /* IF p_return_status = FND_API.G_RET_STS_SUCCESS THEN
415:
416: l_temp := nvl(l_temp,0) + 1;
417: Customer_Cache_Tbl(l_temp) := l_dummy_cust;
418:
426: /* 6612301 */
427: IF p_customer_bank_account_id IS NOT NULL THEN
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
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');
437: FND_MSG_PUB.Add;
438: ELSIF ar_receipt_api_pub.Original_create_cash_info.customer_bank_account_name IS NOT NULL
439: THEN
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');
442: FND_MSG_PUB.Add;
443: END IF;
444:
446:
447: IF p_customer_site_use_id IS NOT NULL THEN
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;
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;
457: END IF;
458: END IF;
483: IF PG_DEBUG in ('Y', 'C') THEN
484: arp_util.debug('Validate_amount: ' || 'Validate_Receipt_Method()+');
485: END IF;
486:
487: p_return_status := FND_API.G_RET_STS_SUCCESS;
488:
489: l_temp := Method_Info_Cache_Tbl.LAST;
490: IF l_temp IS NULL THEN
491: --The cache is empty : populate it directly.
594: arp_util.debug('Validate_amount: ' || 'Remittance bank account id is valid ');
595: END IF;
596:
597: --Cache the valid record [Bug 6454022]
598: IF (p_return_status = FND_API.G_RET_STS_SUCCESS) THEN
599: l_temp := nvl(l_temp,0) + 1;
600: Method_Info_Cache_Tbl(l_temp) := l_dummy_method;
601: END IF;
602:
692: raise remittance_bank_invalid;
693: END;
694: END IF;
695:
696: IF (p_return_status = FND_API.G_RET_STS_SUCCESS) THEN
697: l_temp := nvl(l_temp,0) + 1;
698: Method_Info_Cache_Tbl(l_temp) := l_dummy_method;
699: END IF;
700:
704: END IF;
705: EXCEPTION
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 ');
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
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 ');
727: END IF;
728:
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');
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
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');
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
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 ');
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
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 ');
786: l_conversion_rate NUMBER;
787: l_exchange_rate_valid varchar2(2);
788: BEGIN
789:
790: p_return_status := FND_API.G_RET_STS_SUCCESS;
791:
792: IF p_currency_code <> arp_global.functional_currency THEN
793:
794: IF p_exchange_rate_type IS NULL THEN
793:
794: IF p_exchange_rate_type IS NULL 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:
808: FROM gl_daily_conversion_types
809: WHERE conversion_type = p_exchange_rate_type;
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;
818: IF p_exchange_rate_type = 'User' THEN
819:
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 ;
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;
829: ELSIF p_exchange_rate < 0 THEN
830: p_return_status := FND_API.G_RET_STS_ERROR ;
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;
833: END IF;
834:
838: --This could happen only in case if the defaulting routines
839: --could not get the exchange_rate
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:
851: --the functional and the entered currency are same
852: --so there should be no exchange_rate information
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
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');
862: FND_MSG_PUB.Add;
863: END IF;
864: IF (p_exchange_rate_date IS NOT NULL) THEN
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');
867: FND_MSG_PUB.Add;
868: END IF;
869: END IF;
905: p_exchange_rate IN ar_cash_receipts.exchange_rate%TYPE,
906: p_exchange_rate_date IN ar_cash_receipts.exchange_date%TYPE,
907: p_return_status OUT NOCOPY VARCHAR2) IS
908: BEGIN
909: p_return_status := FND_API.G_RET_STS_SUCCESS;
910: IF (Is_currency_valid(p_currency_code) = 'Y') THEN
911:
912: IF ((arp_global.functional_currency <> p_currency_code) OR
913: (p_exchange_rate_type IS NOT NULL OR
921: p_return_status);
922: END IF;
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;
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;
979: p_return_status := FND_API.G_RET_STS_ERROR;
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;
983: IF PG_DEBUG in ('Y', 'C') THEN
1026: IF PG_DEBUG in ('Y', 'C') THEN
1027: arp_util.debug('Validate_amount: ' || 'Validate_Receipt()+ ');
1028: END IF;
1029:
1030: p_return_status := FND_API.G_RET_STS_SUCCESS;
1031:
1032: --Validate receipt_date
1033:
1034: Validate_Receipt_Date(p_receipt_date,
1078:
1079: IF(NVL(ar_receipt_lib_pvt.pg_profile_doc_seq, 'N') = 'N' ) AND
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
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;
1118: IF PG_DEBUG in ('Y', 'C') 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;
1118: IF PG_DEBUG in ('Y', 'C') THEN
1119: arp_util.debug('Validate_amount: ' || 'l_override_remit_return_status : '||l_override_remit_return_status);
1120: END IF;
1143: p_customer_id ,
1144: l_dup_return_status );
1145: END IF;
1146:
1147: IF (l_receipt_date_return_status = FND_API.G_RET_STS_ERROR) OR
1148: (l_gl_date_return_status = FND_API.G_RET_STS_ERROR) OR
1149: (l_deposit_date_return_status = FND_API.G_RET_STS_ERROR) OR
1150: (l_maturity_date_return_status = FND_API.G_RET_STS_ERROR) OR
1151: (l_rcpt_md_return_status = FND_API.G_RET_STS_ERROR) OR
1144: l_dup_return_status );
1145: END IF;
1146:
1147: IF (l_receipt_date_return_status = FND_API.G_RET_STS_ERROR) OR
1148: (l_gl_date_return_status = FND_API.G_RET_STS_ERROR) OR
1149: (l_deposit_date_return_status = FND_API.G_RET_STS_ERROR) OR
1150: (l_maturity_date_return_status = FND_API.G_RET_STS_ERROR) OR
1151: (l_rcpt_md_return_status = FND_API.G_RET_STS_ERROR) OR
1152: (l_amount_return_status = FND_API.G_RET_STS_ERROR) OR
1145: END IF;
1146:
1147: IF (l_receipt_date_return_status = FND_API.G_RET_STS_ERROR) OR
1148: (l_gl_date_return_status = FND_API.G_RET_STS_ERROR) OR
1149: (l_deposit_date_return_status = FND_API.G_RET_STS_ERROR) OR
1150: (l_maturity_date_return_status = FND_API.G_RET_STS_ERROR) OR
1151: (l_rcpt_md_return_status = FND_API.G_RET_STS_ERROR) OR
1152: (l_amount_return_status = FND_API.G_RET_STS_ERROR) OR
1153: (l_customer_return_status = FND_API.G_RET_STS_ERROR) OR
1146:
1147: IF (l_receipt_date_return_status = FND_API.G_RET_STS_ERROR) OR
1148: (l_gl_date_return_status = FND_API.G_RET_STS_ERROR) OR
1149: (l_deposit_date_return_status = FND_API.G_RET_STS_ERROR) OR
1150: (l_maturity_date_return_status = FND_API.G_RET_STS_ERROR) OR
1151: (l_rcpt_md_return_status = FND_API.G_RET_STS_ERROR) OR
1152: (l_amount_return_status = FND_API.G_RET_STS_ERROR) OR
1153: (l_customer_return_status = FND_API.G_RET_STS_ERROR) OR
1154: (l_override_remit_return_status = FND_API.G_RET_STS_ERROR) OR
1147: IF (l_receipt_date_return_status = FND_API.G_RET_STS_ERROR) OR
1148: (l_gl_date_return_status = FND_API.G_RET_STS_ERROR) OR
1149: (l_deposit_date_return_status = FND_API.G_RET_STS_ERROR) OR
1150: (l_maturity_date_return_status = FND_API.G_RET_STS_ERROR) OR
1151: (l_rcpt_md_return_status = FND_API.G_RET_STS_ERROR) OR
1152: (l_amount_return_status = FND_API.G_RET_STS_ERROR) OR
1153: (l_customer_return_status = FND_API.G_RET_STS_ERROR) OR
1154: (l_override_remit_return_status = FND_API.G_RET_STS_ERROR) OR
1155: (l_currency_return_status = FND_API.G_RET_STS_ERROR) OR
1148: (l_gl_date_return_status = FND_API.G_RET_STS_ERROR) OR
1149: (l_deposit_date_return_status = FND_API.G_RET_STS_ERROR) OR
1150: (l_maturity_date_return_status = FND_API.G_RET_STS_ERROR) OR
1151: (l_rcpt_md_return_status = FND_API.G_RET_STS_ERROR) OR
1152: (l_amount_return_status = FND_API.G_RET_STS_ERROR) OR
1153: (l_customer_return_status = FND_API.G_RET_STS_ERROR) OR
1154: (l_override_remit_return_status = FND_API.G_RET_STS_ERROR) OR
1155: (l_currency_return_status = FND_API.G_RET_STS_ERROR) OR
1156: (l_doc_seq_return_status = FND_API.G_RET_STS_ERROR) OR
1149: (l_deposit_date_return_status = FND_API.G_RET_STS_ERROR) OR
1150: (l_maturity_date_return_status = FND_API.G_RET_STS_ERROR) OR
1151: (l_rcpt_md_return_status = FND_API.G_RET_STS_ERROR) OR
1152: (l_amount_return_status = FND_API.G_RET_STS_ERROR) OR
1153: (l_customer_return_status = FND_API.G_RET_STS_ERROR) OR
1154: (l_override_remit_return_status = FND_API.G_RET_STS_ERROR) OR
1155: (l_currency_return_status = FND_API.G_RET_STS_ERROR) OR
1156: (l_doc_seq_return_status = FND_API.G_RET_STS_ERROR) OR
1157: (l_dup_return_status = FND_API.G_RET_STS_ERROR)
1150: (l_maturity_date_return_status = FND_API.G_RET_STS_ERROR) OR
1151: (l_rcpt_md_return_status = FND_API.G_RET_STS_ERROR) OR
1152: (l_amount_return_status = FND_API.G_RET_STS_ERROR) OR
1153: (l_customer_return_status = FND_API.G_RET_STS_ERROR) OR
1154: (l_override_remit_return_status = FND_API.G_RET_STS_ERROR) OR
1155: (l_currency_return_status = FND_API.G_RET_STS_ERROR) OR
1156: (l_doc_seq_return_status = FND_API.G_RET_STS_ERROR) OR
1157: (l_dup_return_status = FND_API.G_RET_STS_ERROR)
1158: THEN
1151: (l_rcpt_md_return_status = FND_API.G_RET_STS_ERROR) OR
1152: (l_amount_return_status = FND_API.G_RET_STS_ERROR) OR
1153: (l_customer_return_status = FND_API.G_RET_STS_ERROR) OR
1154: (l_override_remit_return_status = FND_API.G_RET_STS_ERROR) OR
1155: (l_currency_return_status = FND_API.G_RET_STS_ERROR) OR
1156: (l_doc_seq_return_status = FND_API.G_RET_STS_ERROR) OR
1157: (l_dup_return_status = FND_API.G_RET_STS_ERROR)
1158: THEN
1159: p_return_status := FND_API.G_RET_STS_ERROR;
1152: (l_amount_return_status = FND_API.G_RET_STS_ERROR) OR
1153: (l_customer_return_status = FND_API.G_RET_STS_ERROR) OR
1154: (l_override_remit_return_status = FND_API.G_RET_STS_ERROR) OR
1155: (l_currency_return_status = FND_API.G_RET_STS_ERROR) OR
1156: (l_doc_seq_return_status = FND_API.G_RET_STS_ERROR) OR
1157: (l_dup_return_status = FND_API.G_RET_STS_ERROR)
1158: THEN
1159: p_return_status := FND_API.G_RET_STS_ERROR;
1160: END IF;
1153: (l_customer_return_status = FND_API.G_RET_STS_ERROR) OR
1154: (l_override_remit_return_status = FND_API.G_RET_STS_ERROR) OR
1155: (l_currency_return_status = FND_API.G_RET_STS_ERROR) OR
1156: (l_doc_seq_return_status = FND_API.G_RET_STS_ERROR) OR
1157: (l_dup_return_status = FND_API.G_RET_STS_ERROR)
1158: THEN
1159: p_return_status := FND_API.G_RET_STS_ERROR;
1160: END IF;
1161: IF PG_DEBUG in ('Y', 'C') THEN
1155: (l_currency_return_status = FND_API.G_RET_STS_ERROR) OR
1156: (l_doc_seq_return_status = FND_API.G_RET_STS_ERROR) OR
1157: (l_dup_return_status = FND_API.G_RET_STS_ERROR)
1158: THEN
1159: p_return_status := FND_API.G_RET_STS_ERROR;
1160: END IF;
1161: IF PG_DEBUG in ('Y', 'C') THEN
1162: arp_util.debug('Validate_amount: ' || 'Validate_Cash_Receipt Return status :'||p_return_status);
1163: END IF;
1186: BEGIN
1187: IF PG_DEBUG in ('Y', 'C') THEN
1188: arp_util.debug('Validate_amount_applied ()+');
1189: END IF;
1190: p_return_status := FND_API.G_RET_STS_SUCCESS;
1191:
1192:
1193: IF p_amount_applied IS NULL
1194: THEN
1191:
1192:
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
1204: --in case of line_number being not null and
1205: --inv_line_amount being null error message
1206: --would have been raised in the validate_line_number
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; */
1230: , p_message_name => l_message_name);
1231:
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:
1262: BEGIN
1263: IF PG_DEBUG in ('Y', 'C') THEN
1264: arp_util.debug('Validate_line_applied ()+');
1265: END IF;
1266: p_return_status := FND_API.G_RET_STS_SUCCESS;
1267:
1268: IF p_line_amount IS NULL THEN
1269: return;
1270: END IF;
1289: , p_message_name => l_line_message_name);
1290:
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:
1318: BEGIN
1319: IF PG_DEBUG in ('Y', 'C') THEN
1320: arp_util.debug('Validate_tax_applied ()+');
1321: END IF;
1322: p_return_status := FND_API.G_RET_STS_SUCCESS;
1323:
1324: IF p_tax_amount IS NULL THEN
1325: return;
1326: END IF;
1345: , p_message_name => l_tax_message_name);
1346:
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:
1377: BEGIN
1378: IF PG_DEBUG in ('Y', 'C') THEN
1379: arp_util.debug('Validate_freight_applied ()+');
1380: END IF;
1381: p_return_status := FND_API.G_RET_STS_SUCCESS;
1382:
1383: IF p_freight_amount IS NULL THEN
1384: return;
1385: END IF;
1404: , p_message_name => l_frt_message_name);
1405:
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:
1437: BEGIN
1438: IF PG_DEBUG in ('Y', 'C') THEN
1439: arp_util.debug('Validate_charges_applied ()+');
1440: END IF;
1441: p_return_status := FND_API.G_RET_STS_SUCCESS;
1442:
1443: IF p_charges_amount IS NULL THEN
1444: return;
1445: END IF;
1464: , p_message_name => l_message_name);
1465:
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:
1490: BEGIN
1491: IF PG_DEBUG in ('Y', 'C') THEN
1492: arp_util.debug('Validate_amount_applied_from ()+');
1493: END IF;
1494: p_return_status := FND_API.G_RET_STS_SUCCESS;
1495: /* Bugfix 2634721. Modified the NVL clause */
1496: l_remaining_unapp_rct_amt := p_cr_unapp_amount - nvl(p_amount_applied_from, p_amount_applied);
1497:
1498: IF l_remaining_unapp_rct_amt < 0 THEN
1498: IF l_remaining_unapp_rct_amt < 0 THEN
1499: IF PG_DEBUG in ('Y', 'C') THEN
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:
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 ()-');
1516: END IF;
1528: BEGIN
1529: IF PG_DEBUG in ('Y', 'C') THEN
1530: arp_util.debug('Validate_amount_applied_from over loaded()+');
1531: END IF;
1532: p_return_status := FND_API.G_RET_STS_SUCCESS;
1533:
1534: SELECT amount_applied,
1535: amount_applied_from INTO l_amount_applied,l_amount_applied_from
1536: FROM ar_receivable_applications
1541: IF l_remaining_unapp_rct_amt < 0 THEN
1542: IF PG_DEBUG in ('Y', 'C') THEN
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
1565: BEGIN
1566: IF PG_DEBUG in ('Y', 'C') THEN
1567: arp_util.debug('Validate_trans_to_receipt_rate ()+');
1568: END IF;
1569: p_return_status := FND_API.G_RET_STS_SUCCESS;
1570: --Validate the trans_to_receipt_rate
1571: IF p_trx_currency_code = p_cr_currency_code AND
1572: p_trans_to_receipt_rate IS NOT NULL
1573: THEN
1573: THEN
1574: --raise error because this is not a cross-currency application
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
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;
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:
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');
1590: FND_MSG_PUB.Add;
1591:
1592: ELSE
1616: p_cr_currency_code
1617: );
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;
1649: BEGIN
1650: IF PG_DEBUG in ('Y', 'C') THEN
1651: arp_util.debug('Validate_discount ()+');
1652: END IF;
1653: p_return_status := FND_API.G_RET_STS_SUCCESS;
1654: -- Do not allow discount for "On Account" applications
1655: IF (p_discount <> 0
1656: AND p_applied_payment_schedule_id = -1)
1657: THEN
1654: -- Do not allow discount for "On Account" applications
1655: IF (p_discount <> 0
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
1662: -- Do not negative discounts unless the amount applied is also
1663: -- negative.
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
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:
1679: -- OSTEINME 3/9/01: Bug 1680623: partial discount
1692: (p_amount_due_remaining - (p_amount_applied + p_discount)) > 0)
1693: OR (p_amount_applied < 0 AND
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
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:
1725: IF PG_DEBUG in ('Y', 'C') THEN
1737: BEGIN
1738: IF PG_DEBUG in ('Y', 'C') THEN
1739: arp_util.debug('Validate_apply_gl_date ()+');
1740: END IF;
1741: p_return_status := FND_API.G_RET_STS_SUCCESS;
1742:
1743: IF p_apply_gl_date IS NOT NULL THEN
1744:
1745: -- Check that the application GL Date is not before the invoice GL Date.
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;
1753:
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:
1761: -- Check that the Application GL Date is in an open or future GL period.
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:
1771: END IF;
1784: BEGIN
1785: IF PG_DEBUG in ('Y', 'C') THEN
1786: arp_util.debug('Validate_apply_date ()+');
1787: END IF;
1788: p_return_status := FND_API.G_RET_STS_SUCCESS;
1789:
1790: IF p_apply_date IS NOT NULL THEN
1791:
1792: -- check that the apply date is not before the invoice date.
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;
1800:
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;
1808:
1873:
1874: IF PG_DEBUG in ('Y', 'C') THEN
1875: arp_util.debug('Validate_Application_info ()+');
1876: END IF;
1877: p_return_status := FND_API.G_RET_STS_SUCCESS;
1878: --validation of the trx_number/customer_trx_id and
1879: --receipt_number/cash_receipt_id entered by the user
1880: --is done in the process of defaulting the Trx info and
1881: --the Receipt Info by the respective defaulting routines
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:
2054: --validate p_move_deferred_tax
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);
2062: END IF;
2060: IF PG_DEBUG in ('Y', 'C') THEN
2061: arp_util.debug('Validate_Application_info: ' || 'Discount return status :'||l_disc_return_status);
2062: END IF;
2063:
2064: IF l_gl_date_return_status <> FND_API.G_RET_STS_SUCCESS OR
2065: l_amt_applied_return_status <> FND_API.G_RET_STS_SUCCESS OR
2066: l_x_rate_return_status <> FND_API.G_RET_STS_SUCCESS OR
2067: l_disc_return_status <> FND_API.G_RET_STS_SUCCESS OR
2068: l_amt_app_from_return_status <> FND_API.G_RET_STS_SUCCESS OR
2061: arp_util.debug('Validate_Application_info: ' || 'Discount return status :'||l_disc_return_status);
2062: END IF;
2063:
2064: IF l_gl_date_return_status <> FND_API.G_RET_STS_SUCCESS OR
2065: l_amt_applied_return_status <> FND_API.G_RET_STS_SUCCESS OR
2066: l_x_rate_return_status <> FND_API.G_RET_STS_SUCCESS OR
2067: l_disc_return_status <> FND_API.G_RET_STS_SUCCESS OR
2068: l_amt_app_from_return_status <> FND_API.G_RET_STS_SUCCESS OR
2069: l_apply_date_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2062: END IF;
2063:
2064: IF l_gl_date_return_status <> FND_API.G_RET_STS_SUCCESS OR
2065: l_amt_applied_return_status <> FND_API.G_RET_STS_SUCCESS OR
2066: l_x_rate_return_status <> FND_API.G_RET_STS_SUCCESS OR
2067: l_disc_return_status <> FND_API.G_RET_STS_SUCCESS OR
2068: l_amt_app_from_return_status <> FND_API.G_RET_STS_SUCCESS OR
2069: l_apply_date_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2070:
2063:
2064: IF l_gl_date_return_status <> FND_API.G_RET_STS_SUCCESS OR
2065: l_amt_applied_return_status <> FND_API.G_RET_STS_SUCCESS OR
2066: l_x_rate_return_status <> FND_API.G_RET_STS_SUCCESS OR
2067: l_disc_return_status <> FND_API.G_RET_STS_SUCCESS OR
2068: l_amt_app_from_return_status <> FND_API.G_RET_STS_SUCCESS OR
2069: l_apply_date_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2070:
2071: p_return_status := FND_API.G_RET_STS_ERROR;
2064: IF l_gl_date_return_status <> FND_API.G_RET_STS_SUCCESS OR
2065: l_amt_applied_return_status <> FND_API.G_RET_STS_SUCCESS OR
2066: l_x_rate_return_status <> FND_API.G_RET_STS_SUCCESS OR
2067: l_disc_return_status <> FND_API.G_RET_STS_SUCCESS OR
2068: l_amt_app_from_return_status <> FND_API.G_RET_STS_SUCCESS OR
2069: l_apply_date_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2070:
2071: p_return_status := FND_API.G_RET_STS_ERROR;
2072: END IF;
2065: l_amt_applied_return_status <> FND_API.G_RET_STS_SUCCESS OR
2066: l_x_rate_return_status <> FND_API.G_RET_STS_SUCCESS OR
2067: l_disc_return_status <> FND_API.G_RET_STS_SUCCESS OR
2068: l_amt_app_from_return_status <> FND_API.G_RET_STS_SUCCESS OR
2069: l_apply_date_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2070:
2071: p_return_status := FND_API.G_RET_STS_ERROR;
2072: END IF;
2073:
2067: l_disc_return_status <> FND_API.G_RET_STS_SUCCESS OR
2068: l_amt_app_from_return_status <> FND_API.G_RET_STS_SUCCESS OR
2069: l_apply_date_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2070:
2071: p_return_status := FND_API.G_RET_STS_ERROR;
2072: END IF;
2073:
2074: IF PG_DEBUG in ('Y', 'C') THEN
2075: arp_util.debug('Validate_Application_info ()-');
2092: BEGIN
2093: IF PG_DEBUG in ('Y', 'C') THEN
2094: arp_util.debug('Validate_Rev_gl_date ()+');
2095: END IF;
2096: p_return_status := FND_API.G_RET_STS_SUCCESS;
2097: IF p_reversal_gl_date IS NOT NULL THEN
2098:
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');
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');
2108: --Int'l Calendar Project
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
2115: FND_MESSAGE.SET_NAME('AR','AR_RW_BEF_RCPT_STATE_GL_DATE');
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' );
2123: --Int'l Calendar Project
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
2130: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REV_GL_DATE_NULL');
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;
2136: END IF;
2160: IF PG_DEBUG in ('Y', 'C') THEN
2161: arp_util.debug('validate_rev_appln_date ()+');
2162: END IF;
2163:
2164: p_return_status := FND_API.G_RET_STS_SUCCESS;
2165:
2166: Select max(apply_date) , max(gl_date)
2167: into l_apply_date , l_gl_date
2168: from ar_receivable_applications
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
2180: FND_MESSAGE.SET_NAME('AR','AR_RW_BEF_RCPT_APP_DATE');
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
2188: arp_util.debug('validate_rev_appln_date ()-');
2207: p_application_type IN VARCHAR2,
2208: p_return_status OUT NOCOPY VARCHAR2) IS
2209: l_valid NUMBER;
2210: BEGIN
2211: p_return_status := FND_API.G_RET_STS_SUCCESS;
2212: IF PG_DEBUG in ('Y', 'C') THEN
2213: arp_util.debug('Validate_receivable_appln_id ()+');
2214: END IF;
2215: --validate the receivable application id only if it was passed in
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
2235: IF ar_receipt_api_pub.Original_unapp_info.trx_number IS NULL AND
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
2248: (ar_receipt_api_pub.Original_unapp_info.cash_receipt_id IS NOT NULL OR
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
2258: ar_receipt_api_pub.Original_unapp_info.cash_receipt_id IS NULL AND
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;
2268: IF PG_DEBUG in ('Y', 'C') THEN
2284: p_apply_gl_date IN DATE,
2285: p_cr_unapp_amount IN NUMBER,
2286: p_return_status OUT NOCOPY VARCHAR2
2287: ) IS
2288: l_rec_app_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2289: l_rev_gl_date_return_status VARCHAR2(1) ;
2290: l_amt_app_from_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;/*Added for 3119391 */
2291: BEGIN
2292: p_return_status := FND_API.G_RET_STS_SUCCESS;
2286: p_return_status OUT NOCOPY VARCHAR2
2287: ) IS
2288: l_rec_app_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2289: l_rev_gl_date_return_status VARCHAR2(1) ;
2290: l_amt_app_from_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;/*Added for 3119391 */
2291: BEGIN
2292: p_return_status := FND_API.G_RET_STS_SUCCESS;
2293: IF PG_DEBUG in ('Y', 'C') THEN
2294: arp_util.debug('Validate_unapp_info ()+');
2288: l_rec_app_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2289: l_rev_gl_date_return_status VARCHAR2(1) ;
2290: l_amt_app_from_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;/*Added for 3119391 */
2291: BEGIN
2292: p_return_status := FND_API.G_RET_STS_SUCCESS;
2293: IF PG_DEBUG in ('Y', 'C') THEN
2294: arp_util.debug('Validate_unapp_info ()+');
2295: END IF;
2296:
2312: Validate_amount_applied_from( p_receivable_application_id,
2313: p_cr_unapp_amount,
2314: l_amt_app_from_return_status);
2315: /*Added l_amt_app_from_return_status condition for bug 3119391 */
2316: IF l_rev_gl_date_return_status <> FND_API.G_RET_STS_SUCCESS OR
2317: l_rec_app_return_status <> FND_API.G_RET_STS_SUCCESS OR
2318: l_amt_app_from_return_status <> FND_API.G_RET_STS_SUCCESS
2319: THEN
2320: p_return_status := FND_API.G_RET_STS_ERROR;
2313: p_cr_unapp_amount,
2314: l_amt_app_from_return_status);
2315: /*Added l_amt_app_from_return_status condition for bug 3119391 */
2316: IF l_rev_gl_date_return_status <> FND_API.G_RET_STS_SUCCESS OR
2317: l_rec_app_return_status <> FND_API.G_RET_STS_SUCCESS OR
2318: l_amt_app_from_return_status <> FND_API.G_RET_STS_SUCCESS
2319: THEN
2320: p_return_status := FND_API.G_RET_STS_ERROR;
2321: ELSE
2314: l_amt_app_from_return_status);
2315: /*Added l_amt_app_from_return_status condition for bug 3119391 */
2316: IF l_rev_gl_date_return_status <> FND_API.G_RET_STS_SUCCESS OR
2317: l_rec_app_return_status <> FND_API.G_RET_STS_SUCCESS OR
2318: l_amt_app_from_return_status <> FND_API.G_RET_STS_SUCCESS
2319: THEN
2320: p_return_status := FND_API.G_RET_STS_ERROR;
2321: ELSE
2322: p_return_status := FND_API.G_RET_STS_SUCCESS;
2316: IF l_rev_gl_date_return_status <> FND_API.G_RET_STS_SUCCESS OR
2317: l_rec_app_return_status <> FND_API.G_RET_STS_SUCCESS OR
2318: l_amt_app_from_return_status <> FND_API.G_RET_STS_SUCCESS
2319: THEN
2320: p_return_status := FND_API.G_RET_STS_ERROR;
2321: ELSE
2322: p_return_status := FND_API.G_RET_STS_SUCCESS;
2323: END IF;
2324: IF PG_DEBUG in ('Y', 'C') THEN
2318: l_amt_app_from_return_status <> FND_API.G_RET_STS_SUCCESS
2319: THEN
2320: p_return_status := FND_API.G_RET_STS_ERROR;
2321: ELSE
2322: p_return_status := FND_API.G_RET_STS_SUCCESS;
2323: END IF;
2324: IF PG_DEBUG in ('Y', 'C') THEN
2325: arp_util.debug('Validate_unapp_info: ' || 'Recevable appln id return status '||l_rec_app_return_status);
2326: arp_util.debug('Validate_unapp_info: ' || 'Rev_gl_date_return_status :'||l_rev_gl_date_return_status);
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');
2489: FND_MSG_PUB.Add;
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 ()-');
2494: END IF;
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');
2526: FND_MSG_PUB.Add;
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 ()-');
2531: END IF;
2542: p_return_status OUT NOCOPY VARCHAR2
2543: ) IS
2544: l_valid NUMBER;
2545: BEGIN
2546: p_return_status := FND_API.G_RET_STS_SUCCESS;
2547: IF p_reversal_reason_code IS NOT NULL THEN
2548: SELECT count(*)
2549: INTO l_valid
2550: FROM ar_lookups
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');
2561: FND_MSG_PUB.Add;
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
2566: IF PG_DEBUG in ('Y', 'C') THEN
2577: p_reversal_gl_date IN DATE,
2578: p_reversal_date IN DATE,
2579: p_return_status OUT NOCOPY VARCHAR2
2580: ) IS
2581: l_cr_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
2582: l_rev_cat_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
2583: l_rev_res_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
2584: l_rev_gld_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
2585: l_rev_appln_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
2578: p_reversal_date IN DATE,
2579: p_return_status OUT NOCOPY VARCHAR2
2580: ) IS
2581: l_cr_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
2582: l_rev_cat_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
2583: l_rev_res_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
2584: l_rev_gld_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
2585: l_rev_appln_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
2586: BEGIN
2579: p_return_status OUT NOCOPY VARCHAR2
2580: ) IS
2581: l_cr_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
2582: l_rev_cat_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
2583: l_rev_res_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
2584: l_rev_gld_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
2585: l_rev_appln_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
2586: BEGIN
2587: p_return_status := FND_API.G_RET_STS_SUCCESS;
2580: ) IS
2581: l_cr_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
2582: l_rev_cat_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
2583: l_rev_res_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
2584: l_rev_gld_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
2585: l_rev_appln_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
2586: BEGIN
2587: p_return_status := FND_API.G_RET_STS_SUCCESS;
2588: IF PG_DEBUG in ('Y', 'C') THEN
2581: l_cr_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
2582: l_rev_cat_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
2583: l_rev_res_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
2584: l_rev_gld_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
2585: l_rev_appln_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
2586: BEGIN
2587: p_return_status := FND_API.G_RET_STS_SUCCESS;
2588: IF PG_DEBUG in ('Y', 'C') THEN
2589: arp_util.debug('Validate_reverse_info ()+');
2583: l_rev_res_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
2584: l_rev_gld_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
2585: l_rev_appln_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
2586: BEGIN
2587: p_return_status := FND_API.G_RET_STS_SUCCESS;
2588: IF PG_DEBUG in ('Y', 'C') THEN
2589: arp_util.debug('Validate_reverse_info ()+');
2590: END IF;
2591: Validate_cash_receipt_id('ALL',
2617: p_reversal_date,
2618: l_rev_appln_return_status
2619: );
2620:
2621: IF l_rev_gld_return_status <> FND_API.G_RET_STS_SUCCESS OR
2622: l_rev_res_return_status <> FND_API.G_RET_STS_SUCCESS OR
2623: l_rev_cat_return_status <> FND_API.G_RET_STS_SUCCESS OR
2624: l_cr_return_status <> FND_API.G_RET_STS_SUCCESS OR
2625: l_rev_appln_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2618: l_rev_appln_return_status
2619: );
2620:
2621: IF l_rev_gld_return_status <> FND_API.G_RET_STS_SUCCESS OR
2622: l_rev_res_return_status <> FND_API.G_RET_STS_SUCCESS OR
2623: l_rev_cat_return_status <> FND_API.G_RET_STS_SUCCESS OR
2624: l_cr_return_status <> FND_API.G_RET_STS_SUCCESS OR
2625: l_rev_appln_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2626: p_return_status := FND_API.G_RET_STS_ERROR;
2619: );
2620:
2621: IF l_rev_gld_return_status <> FND_API.G_RET_STS_SUCCESS OR
2622: l_rev_res_return_status <> FND_API.G_RET_STS_SUCCESS OR
2623: l_rev_cat_return_status <> FND_API.G_RET_STS_SUCCESS OR
2624: l_cr_return_status <> FND_API.G_RET_STS_SUCCESS OR
2625: l_rev_appln_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2626: p_return_status := FND_API.G_RET_STS_ERROR;
2627: END IF;
2620:
2621: IF l_rev_gld_return_status <> FND_API.G_RET_STS_SUCCESS OR
2622: l_rev_res_return_status <> FND_API.G_RET_STS_SUCCESS OR
2623: l_rev_cat_return_status <> FND_API.G_RET_STS_SUCCESS OR
2624: l_cr_return_status <> FND_API.G_RET_STS_SUCCESS OR
2625: l_rev_appln_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2626: p_return_status := FND_API.G_RET_STS_ERROR;
2627: END IF;
2628: IF PG_DEBUG in ('Y', 'C') THEN
2621: IF l_rev_gld_return_status <> FND_API.G_RET_STS_SUCCESS OR
2622: l_rev_res_return_status <> FND_API.G_RET_STS_SUCCESS OR
2623: l_rev_cat_return_status <> FND_API.G_RET_STS_SUCCESS OR
2624: l_cr_return_status <> FND_API.G_RET_STS_SUCCESS OR
2625: l_rev_appln_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2626: p_return_status := FND_API.G_RET_STS_ERROR;
2627: END IF;
2628: IF PG_DEBUG in ('Y', 'C') THEN
2629: arp_util.debug('Validate_reverse_info ()-');
2622: l_rev_res_return_status <> FND_API.G_RET_STS_SUCCESS OR
2623: l_rev_cat_return_status <> FND_API.G_RET_STS_SUCCESS OR
2624: l_cr_return_status <> FND_API.G_RET_STS_SUCCESS OR
2625: l_rev_appln_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2626: p_return_status := FND_API.G_RET_STS_ERROR;
2627: END IF;
2628: IF PG_DEBUG in ('Y', 'C') THEN
2629: arp_util.debug('Validate_reverse_info ()-');
2630: END IF;
2648: p_applied_ps_id IN NUMBER,
2649: p_called_from IN VARCHAR2
2650: ) IS
2651: l_cr_return_status VARCHAR2(1);
2652: l_amt_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2653: l_gl_date_return_status VARCHAR2(1);
2654: l_apply_date_return_status VARCHAR2(1);
2655: BEGIN
2656: p_return_status := FND_API.G_RET_STS_SUCCESS;
2652: l_amt_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2653: l_gl_date_return_status VARCHAR2(1);
2654: l_apply_date_return_status VARCHAR2(1);
2655: BEGIN
2656: p_return_status := FND_API.G_RET_STS_SUCCESS;
2657: IF PG_DEBUG in ('Y', 'C') THEN
2658: arp_util.debug('validate_on_ac_app ()+');
2659: END IF;
2660:
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
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
2696: NVL(p_applied_ps_id,-1) <> -4 AND
2697: NVL(p_called_from,'RAPI') NOT IN ('ARXRWAPP','ARCAPB')) THEN
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,
2704: p_apply_gl_date,
2705: p_cr_gl_date,
2706: l_gl_date_return_status
2707: );
2708:
2709: IF l_cr_return_status <> FND_API.G_RET_STS_SUCCESS OR
2710: l_amt_return_status <> FND_API.G_RET_STS_SUCCESS OR
2711: l_gl_date_return_status <> FND_API.G_RET_STS_SUCCESS OR
2712: l_apply_date_return_status <> FND_API.G_RET_STS_SUCCESS
2713: THEN
2706: l_gl_date_return_status
2707: );
2708:
2709: IF l_cr_return_status <> FND_API.G_RET_STS_SUCCESS OR
2710: l_amt_return_status <> FND_API.G_RET_STS_SUCCESS OR
2711: l_gl_date_return_status <> FND_API.G_RET_STS_SUCCESS OR
2712: l_apply_date_return_status <> FND_API.G_RET_STS_SUCCESS
2713: THEN
2714: p_return_status := FND_API.G_RET_STS_ERROR;
2707: );
2708:
2709: IF l_cr_return_status <> FND_API.G_RET_STS_SUCCESS OR
2710: l_amt_return_status <> FND_API.G_RET_STS_SUCCESS OR
2711: l_gl_date_return_status <> FND_API.G_RET_STS_SUCCESS OR
2712: l_apply_date_return_status <> FND_API.G_RET_STS_SUCCESS
2713: THEN
2714: p_return_status := FND_API.G_RET_STS_ERROR;
2715: END IF;
2708:
2709: IF l_cr_return_status <> FND_API.G_RET_STS_SUCCESS OR
2710: l_amt_return_status <> FND_API.G_RET_STS_SUCCESS OR
2711: l_gl_date_return_status <> FND_API.G_RET_STS_SUCCESS OR
2712: l_apply_date_return_status <> FND_API.G_RET_STS_SUCCESS
2713: THEN
2714: p_return_status := FND_API.G_RET_STS_ERROR;
2715: END IF;
2716:
2710: l_amt_return_status <> FND_API.G_RET_STS_SUCCESS OR
2711: l_gl_date_return_status <> FND_API.G_RET_STS_SUCCESS OR
2712: l_apply_date_return_status <> FND_API.G_RET_STS_SUCCESS
2713: THEN
2714: p_return_status := FND_API.G_RET_STS_ERROR;
2715: END IF;
2716:
2717: IF PG_DEBUG in ('Y', 'C') THEN
2718: arp_util.debug('validate_on_ac_app ()-');
2738: p_apply_gl_date IN DATE,
2739: p_cr_unapp_amt IN NUMBER, /* Bug fix 3569640 */
2740: p_return_status OUT NOCOPY VARCHAR2
2741: ) IS
2742: l_amt_app_from_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;/*Added for 3569640 */
2743: BEGIN
2744: p_return_status := FND_API.G_RET_STS_SUCCESS;
2745: IF PG_DEBUG in ('Y', 'C') THEN
2746: arp_util.debug('validate_unapp_on_ac_act_info: ' || 'Validate_unapp_on_acc_act_info ()+');
2740: p_return_status OUT NOCOPY VARCHAR2
2741: ) IS
2742: l_amt_app_from_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;/*Added for 3569640 */
2743: BEGIN
2744: p_return_status := FND_API.G_RET_STS_SUCCESS;
2745: IF PG_DEBUG in ('Y', 'C') THEN
2746: arp_util.debug('validate_unapp_on_ac_act_info: ' || 'Validate_unapp_on_acc_act_info ()+');
2747: END IF;
2748:
2766: Validate_amount_applied_from( p_receivable_application_id,
2767: p_cr_unapp_amt,
2768: l_amt_app_from_return_status);
2769: END IF;
2770: IF l_amt_app_from_return_status <> FND_API.G_RET_STS_SUCCESS OR
2771: p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2772: p_return_status := FND_API.G_RET_STS_ERROR;
2773: END IF;
2774:
2767: p_cr_unapp_amt,
2768: l_amt_app_from_return_status);
2769: END IF;
2770: IF l_amt_app_from_return_status <> FND_API.G_RET_STS_SUCCESS OR
2771: p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2772: p_return_status := FND_API.G_RET_STS_ERROR;
2773: END IF;
2774:
2775: IF PG_DEBUG in ('Y', 'C') THEN
2768: l_amt_app_from_return_status);
2769: END IF;
2770: IF l_amt_app_from_return_status <> FND_API.G_RET_STS_SUCCESS OR
2771: p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2772: p_return_status := FND_API.G_RET_STS_ERROR;
2773: END IF;
2774:
2775: IF PG_DEBUG in ('Y', 'C') THEN
2776: arp_util.debug('validate_unapp_on_ac_act_info: ' || 'p_return_status :'||p_return_status);
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;
2817: p_return_status := FND_API.G_RET_STS_ERROR;
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:
2821: EXCEPTION
2822: WHEN others THEN
2823: IF PG_DEBUG in ('Y', 'C') THEN
2824: arp_util.debug('Exception ' || sqlerrm);
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;
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;
2851: p_return_status := FND_API.G_RET_STS_ERROR;
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:
2855: EXCEPTION
2856: WHEN others THEN
2857: IF PG_DEBUG in ('Y', 'C') THEN
2858: arp_util.debug('Exception ' || sqlerrm);
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;
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:
2921: IF l_activity_type IS NOT NULL THEN
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
2933: ELSIF p_applied_ps_id = -3 THEN
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.
2941: -- Bug 2751910 - Validation against user limits excluded if flag set
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
2990: (NVL(l_tot_write_off_amt,l_amount_from) < l_amount_from)
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;
3000:
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
3026: arp_util.debug('l_max_wrt_off_amount = '||l_max_wrt_off_amount);
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
3055: IF l_activity_type <> 'CLAIM_INVESTIGATION' THEN
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
3062: FND_MESSAGE.SET_NAME('AR','AR_RAPI_ACTIVITY_X_INVALID');
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
3068: FND_MESSAGE.SET_NAME('AR','AR_RAPI_ACTIVITY_X_INVALID');
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
3074: FND_MESSAGE.SET_NAME('AR','AR_RAPI_ACTIVITY_X_INVALID');
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
3080: FND_MESSAGE.SET_NAME('AR','AR_RAPI_ACTIVITY_X_INVALID');
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
3086: FND_MESSAGE.SET_NAME('AR','AR_RAPI_ACTIVITY_X_INVALID');
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
3092: FND_MESSAGE.SET_NAME('AR','AR_RAPI_APP_PS_ID_INVALID');
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
3098: arp_util.debug('validate_activity (-)');
3119: BEGIN
3120: IF PG_DEBUG in ('Y', 'C') THEN
3121: arp_util.debug('validate_activity_app ()+');
3122: END IF;
3123: p_return_status := FND_API.G_RET_STS_SUCCESS;
3124: validate_on_ac_app(
3125: p_cash_receipt_id,
3126: p_cr_gl_date,
3127: p_cr_unapp_amount,
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;
3177: IF l_valid <> 'Y' THEN
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
3184: FND_MESSAGE.SET_NAME('AR','AR_RAPI_LK_CUS_TRX_ID_INVALID');
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:
3190: --validate the p_link_to_customer_trx_id
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
3210: WHEN no_data_found THEN
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;
3217: END IF;
3214: WHEN others THEN
3215: raise;
3216: END;
3217: END IF;
3218: arp_util.debug('fnd_api.g_ret_sts_error = '||fnd_api.g_ret_sts_error);
3219: IF PG_DEBUG in ('Y', 'C') THEN
3220: arp_util.debug('validate_activity_app ()-');
3221: END IF;
3222: END validate_activity_app;
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');
3273: FND_MSG_PUB.Add;
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 */
3278: /* Bug 2751910 - reason no longer compulsory */
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
3301:
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;
3367: arp_util.debug('EXCEPTION :validate_application_reference ()-'||SQLERRM);
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;
3367: arp_util.debug('EXCEPTION :validate_application_reference ()-'||SQLERRM);
3368: raise;
3369: END;
3370:
3405: l_amount_return_status VARCHAR2(1);
3406: l_currency_return_status VARCHAR2(1);
3407: l_doc_seq_return_status VARCHAR2(1);
3408: l_dup_return_status VARCHAR2(1);
3409: l_activity_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
3410: l_tax_id_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
3411: l_tax_rate_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
3412: l_tax_rate NUMBER;
3413: l_tax_validate_flag VARCHAR2(1);
3406: l_currency_return_status VARCHAR2(1);
3407: l_doc_seq_return_status VARCHAR2(1);
3408: l_dup_return_status VARCHAR2(1);
3409: l_activity_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
3410: l_tax_id_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
3411: l_tax_rate_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
3412: l_tax_rate NUMBER;
3413: l_tax_validate_flag VARCHAR2(1);
3414: l_reference_valid VARCHAR2(1);
3407: l_doc_seq_return_status VARCHAR2(1);
3408: l_dup_return_status VARCHAR2(1);
3409: l_activity_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
3410: l_tax_id_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
3411: l_tax_rate_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
3412: l_tax_rate NUMBER;
3413: l_tax_validate_flag VARCHAR2(1);
3414: l_reference_valid VARCHAR2(1);
3415: l_ref_id_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
3411: l_tax_rate_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
3412: l_tax_rate NUMBER;
3413: l_tax_validate_flag VARCHAR2(1);
3414: l_reference_valid VARCHAR2(1);
3415: l_ref_id_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
3416: l_ref_type_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
3417: BEGIN
3418: IF PG_DEBUG in ('Y', 'C') THEN
3419: arp_util.debug('Validate_misc_receipt()+ ');
3412: l_tax_rate NUMBER;
3413: l_tax_validate_flag VARCHAR2(1);
3414: l_reference_valid VARCHAR2(1);
3415: l_ref_id_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
3416: l_ref_type_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
3417: BEGIN
3418: IF PG_DEBUG in ('Y', 'C') THEN
3419: arp_util.debug('Validate_misc_receipt()+ ');
3420: END IF;
3418: IF PG_DEBUG in ('Y', 'C') THEN
3419: arp_util.debug('Validate_misc_receipt()+ ');
3420: END IF;
3421:
3422: p_return_status := FND_API.G_RET_STS_SUCCESS;
3423:
3424: --Validate receipt_date
3425:
3426: Validate_Receipt_Date(p_receipt_date,
3462:
3463: IF(NVL(ar_receipt_lib_pvt.pg_profile_doc_seq, 'N') = 'N' ) AND
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:
3515: AND p_receipt_date <= nvl(rt.end_date_active, p_receipt_date);
3516: EXCEPTION
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 ;
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;
3526: END IF;
3527: END;
3525: FND_MSG_PUB.Add;
3526: END IF;
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:
3568:
3569: EXCEPTION
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 ;
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;
3579: END IF;
3580: END;
3589: IF p_tax_rate IS NOT NULL THEN
3590: /* Bug 5955921 l_tax_validate_flag = 'N' OR */
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
3606: ELSE
3607: --this is the case where we dont have any vat_tax_id, but the user has specified the
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;
3616: ELSE
3617: --if the accounting is cash basis.
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:
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 ;
3627: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TAX_RATE_INVALID');
3628: FND_MSG_PUB.Add;
3629: END IF;
3630:
3677: from ra_customer_trx
3678: where customer_trx_id = p_reference_id;
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;
3685: END IF;
3686: EXCEPTION
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;
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;
3696: END IF;
3697: END;
3699: --the reference_id is null, raise error.
3700: IF p_reference_num IS NOT NULL THEN
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;
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;
3710: END IF;
3711:
3721: ELSE
3722: --this means any one of the orig_reference_id, reference_num or
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;
3728: END IF;
3729: END IF;
3730:
3731:
3732: IF (l_receipt_date_return_status = FND_API.G_RET_STS_ERROR) OR
3733: (l_gl_date_return_status = FND_API.G_RET_STS_ERROR) OR
3734: (l_deposit_date_return_status = FND_API.G_RET_STS_ERROR) OR
3735: (l_rcpt_md_return_status = FND_API.G_RET_STS_ERROR) OR
3736: (l_amount_return_status = FND_API.G_RET_STS_ERROR) OR
3729: END IF;
3730:
3731:
3732: IF (l_receipt_date_return_status = FND_API.G_RET_STS_ERROR) OR
3733: (l_gl_date_return_status = FND_API.G_RET_STS_ERROR) OR
3734: (l_deposit_date_return_status = FND_API.G_RET_STS_ERROR) OR
3735: (l_rcpt_md_return_status = FND_API.G_RET_STS_ERROR) OR
3736: (l_amount_return_status = FND_API.G_RET_STS_ERROR) OR
3737: (l_currency_return_status = FND_API.G_RET_STS_ERROR) OR
3730:
3731:
3732: IF (l_receipt_date_return_status = FND_API.G_RET_STS_ERROR) OR
3733: (l_gl_date_return_status = FND_API.G_RET_STS_ERROR) OR
3734: (l_deposit_date_return_status = FND_API.G_RET_STS_ERROR) OR
3735: (l_rcpt_md_return_status = FND_API.G_RET_STS_ERROR) OR
3736: (l_amount_return_status = FND_API.G_RET_STS_ERROR) OR
3737: (l_currency_return_status = FND_API.G_RET_STS_ERROR) OR
3738: (l_doc_seq_return_status = FND_API.G_RET_STS_ERROR) OR
3731:
3732: IF (l_receipt_date_return_status = FND_API.G_RET_STS_ERROR) OR
3733: (l_gl_date_return_status = FND_API.G_RET_STS_ERROR) OR
3734: (l_deposit_date_return_status = FND_API.G_RET_STS_ERROR) OR
3735: (l_rcpt_md_return_status = FND_API.G_RET_STS_ERROR) OR
3736: (l_amount_return_status = FND_API.G_RET_STS_ERROR) OR
3737: (l_currency_return_status = FND_API.G_RET_STS_ERROR) OR
3738: (l_doc_seq_return_status = FND_API.G_RET_STS_ERROR) OR
3739: (l_dup_return_status = FND_API.G_RET_STS_ERROR) OR
3732: IF (l_receipt_date_return_status = FND_API.G_RET_STS_ERROR) OR
3733: (l_gl_date_return_status = FND_API.G_RET_STS_ERROR) OR
3734: (l_deposit_date_return_status = FND_API.G_RET_STS_ERROR) OR
3735: (l_rcpt_md_return_status = FND_API.G_RET_STS_ERROR) OR
3736: (l_amount_return_status = FND_API.G_RET_STS_ERROR) OR
3737: (l_currency_return_status = FND_API.G_RET_STS_ERROR) OR
3738: (l_doc_seq_return_status = FND_API.G_RET_STS_ERROR) OR
3739: (l_dup_return_status = FND_API.G_RET_STS_ERROR) OR
3740: (l_activity_return_status = FND_API.G_RET_STS_ERROR) OR
3733: (l_gl_date_return_status = FND_API.G_RET_STS_ERROR) OR
3734: (l_deposit_date_return_status = FND_API.G_RET_STS_ERROR) OR
3735: (l_rcpt_md_return_status = FND_API.G_RET_STS_ERROR) OR
3736: (l_amount_return_status = FND_API.G_RET_STS_ERROR) OR
3737: (l_currency_return_status = FND_API.G_RET_STS_ERROR) OR
3738: (l_doc_seq_return_status = FND_API.G_RET_STS_ERROR) OR
3739: (l_dup_return_status = FND_API.G_RET_STS_ERROR) OR
3740: (l_activity_return_status = FND_API.G_RET_STS_ERROR) OR
3741: (l_tax_id_return_status = FND_API.G_RET_STS_ERROR) OR
3734: (l_deposit_date_return_status = FND_API.G_RET_STS_ERROR) OR
3735: (l_rcpt_md_return_status = FND_API.G_RET_STS_ERROR) OR
3736: (l_amount_return_status = FND_API.G_RET_STS_ERROR) OR
3737: (l_currency_return_status = FND_API.G_RET_STS_ERROR) OR
3738: (l_doc_seq_return_status = FND_API.G_RET_STS_ERROR) OR
3739: (l_dup_return_status = FND_API.G_RET_STS_ERROR) OR
3740: (l_activity_return_status = FND_API.G_RET_STS_ERROR) OR
3741: (l_tax_id_return_status = FND_API.G_RET_STS_ERROR) OR
3742: (l_ref_id_return_status = FND_API.G_RET_STS_ERROR) OR
3735: (l_rcpt_md_return_status = FND_API.G_RET_STS_ERROR) OR
3736: (l_amount_return_status = FND_API.G_RET_STS_ERROR) OR
3737: (l_currency_return_status = FND_API.G_RET_STS_ERROR) OR
3738: (l_doc_seq_return_status = FND_API.G_RET_STS_ERROR) OR
3739: (l_dup_return_status = FND_API.G_RET_STS_ERROR) OR
3740: (l_activity_return_status = FND_API.G_RET_STS_ERROR) OR
3741: (l_tax_id_return_status = FND_API.G_RET_STS_ERROR) OR
3742: (l_ref_id_return_status = FND_API.G_RET_STS_ERROR) OR
3743: (l_ref_type_return_status = FND_API.G_RET_STS_ERROR)
3736: (l_amount_return_status = FND_API.G_RET_STS_ERROR) OR
3737: (l_currency_return_status = FND_API.G_RET_STS_ERROR) OR
3738: (l_doc_seq_return_status = FND_API.G_RET_STS_ERROR) OR
3739: (l_dup_return_status = FND_API.G_RET_STS_ERROR) OR
3740: (l_activity_return_status = FND_API.G_RET_STS_ERROR) OR
3741: (l_tax_id_return_status = FND_API.G_RET_STS_ERROR) OR
3742: (l_ref_id_return_status = FND_API.G_RET_STS_ERROR) OR
3743: (l_ref_type_return_status = FND_API.G_RET_STS_ERROR)
3744: THEN
3737: (l_currency_return_status = FND_API.G_RET_STS_ERROR) OR
3738: (l_doc_seq_return_status = FND_API.G_RET_STS_ERROR) OR
3739: (l_dup_return_status = FND_API.G_RET_STS_ERROR) OR
3740: (l_activity_return_status = FND_API.G_RET_STS_ERROR) OR
3741: (l_tax_id_return_status = FND_API.G_RET_STS_ERROR) OR
3742: (l_ref_id_return_status = FND_API.G_RET_STS_ERROR) OR
3743: (l_ref_type_return_status = FND_API.G_RET_STS_ERROR)
3744: THEN
3745: p_return_status := FND_API.G_RET_STS_ERROR;
3738: (l_doc_seq_return_status = FND_API.G_RET_STS_ERROR) OR
3739: (l_dup_return_status = FND_API.G_RET_STS_ERROR) OR
3740: (l_activity_return_status = FND_API.G_RET_STS_ERROR) OR
3741: (l_tax_id_return_status = FND_API.G_RET_STS_ERROR) OR
3742: (l_ref_id_return_status = FND_API.G_RET_STS_ERROR) OR
3743: (l_ref_type_return_status = FND_API.G_RET_STS_ERROR)
3744: THEN
3745: p_return_status := FND_API.G_RET_STS_ERROR;
3746: END IF;
3739: (l_dup_return_status = FND_API.G_RET_STS_ERROR) OR
3740: (l_activity_return_status = FND_API.G_RET_STS_ERROR) OR
3741: (l_tax_id_return_status = FND_API.G_RET_STS_ERROR) OR
3742: (l_ref_id_return_status = FND_API.G_RET_STS_ERROR) OR
3743: (l_ref_type_return_status = FND_API.G_RET_STS_ERROR)
3744: THEN
3745: p_return_status := FND_API.G_RET_STS_ERROR;
3746: END IF;
3747: IF PG_DEBUG in ('Y', 'C') THEN
3741: (l_tax_id_return_status = FND_API.G_RET_STS_ERROR) OR
3742: (l_ref_id_return_status = FND_API.G_RET_STS_ERROR) OR
3743: (l_ref_type_return_status = FND_API.G_RET_STS_ERROR)
3744: THEN
3745: p_return_status := FND_API.G_RET_STS_ERROR;
3746: END IF;
3747: IF PG_DEBUG in ('Y', 'C') THEN
3748: arp_util.debug('Validate_misc_receipt return status :'||p_return_status);
3749: END IF;
3769: l_prepay_amount NUMBER;
3770: BEGIN
3771:
3772: arp_util.debug('Validate prepay amount (+)');
3773: p_return_status := FND_API.G_RET_STS_SUCCESS;
3774:
3775: l_cash_receipt_id := p_cash_receipt_id;
3776:
3777: IF p_receipt_number IS NOT NULL THEN
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 (-)');
3815:
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:
3825: PROCEDURE validate_payment_type(
3834: l_cash_receipt_id NUMBER;
3835:
3836: BEGIN
3837: arp_util.debug('Validate payment Type (+)');
3838: p_return_status := FND_API.G_RET_STS_SUCCESS;
3839:
3840: l_cash_receipt_id := p_cash_receipt_id;
3841:
3842: IF p_receipt_number IS NOT NULL THEN
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:
3881: FND_MESSAGE.set_name ('AR','AR_RW_CCR_NOT_CC_RECEIPT');
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;
3887:
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:
3899: -- Bug 2270809
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;
3957: END validate_claim_unapply;
3973: , p_unapplied_cash IN NUMBER
3974: , p_called_from IN VARCHAR2
3975: , p_return_status OUT NOCOPY VARCHAR2
3976: ) IS
3977: l_rct_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3978: l_gl_date_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3979: l_act_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3980: l_amt_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3981: l_cust_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3974: , p_called_from IN VARCHAR2
3975: , p_return_status OUT NOCOPY VARCHAR2
3976: ) IS
3977: l_rct_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3978: l_gl_date_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3979: l_act_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3980: l_amt_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3981: l_cust_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3982: l_cur_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3975: , p_return_status OUT NOCOPY VARCHAR2
3976: ) IS
3977: l_rct_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3978: l_gl_date_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3979: l_act_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3980: l_amt_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3981: l_cust_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3982: l_cur_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3983: l_apply_date_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3976: ) IS
3977: l_rct_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3978: l_gl_date_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3979: l_act_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3980: l_amt_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3981: l_cust_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3982: l_cur_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3983: l_apply_date_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3984: l_func_currency gl_sets_of_books.currency_code%TYPE;
3977: l_rct_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3978: l_gl_date_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3979: l_act_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3980: l_amt_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3981: l_cust_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3982: l_cur_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3983: l_apply_date_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3984: l_func_currency gl_sets_of_books.currency_code%TYPE;
3985: l_activity_name ar_receivables_trx.name%TYPE;
3978: l_gl_date_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3979: l_act_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3980: l_amt_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3981: l_cust_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3982: l_cur_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3983: l_apply_date_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3984: l_func_currency gl_sets_of_books.currency_code%TYPE;
3985: l_activity_name ar_receivables_trx.name%TYPE;
3986: l_ccid NUMBER;
3979: l_act_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3980: l_amt_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3981: l_cust_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3982: l_cur_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3983: l_apply_date_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3984: l_func_currency gl_sets_of_books.currency_code%TYPE;
3985: l_activity_name ar_receivables_trx.name%TYPE;
3986: l_ccid NUMBER;
3987:
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
4008: FND_MESSAGE.SET_NAME('AR','AR_RW_MISSING_NETTING_ACTIVITY');
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
4014: FND_MESSAGE.SET_NAME('AR','AR_RW_NET_RCT_APPLY_SELF');
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
4020: IF NOT arp_trx_validate.validate_paying_customer(
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:
4034: validate_apply_date(p_apply_date,
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:
4057: IF PG_DEBUG in ('Y', 'C') THEN
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
4071: -- from ARXRWAPP or PostBatch
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
4081: (ABS(p_amount_applied) > ABS(p_other_amount_applied)) ) THEN
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;
4088:
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
4106: l_rct_return_status <> FND_API.G_RET_STS_SUCCESS OR
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
4106: l_rct_return_status <> FND_API.G_RET_STS_SUCCESS OR
4107: l_act_return_status <> FND_API.G_RET_STS_SUCCESS OR
4108: l_amt_return_status <> FND_API.G_RET_STS_SUCCESS OR
4109: l_cur_return_status <> FND_API.G_RET_STS_SUCCESS OR
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
4106: l_rct_return_status <> FND_API.G_RET_STS_SUCCESS OR
4107: l_act_return_status <> FND_API.G_RET_STS_SUCCESS OR
4108: l_amt_return_status <> FND_API.G_RET_STS_SUCCESS OR
4109: l_cur_return_status <> FND_API.G_RET_STS_SUCCESS OR
4110: l_cust_return_status <> FND_API.G_RET_STS_SUCCESS OR
4103: END IF;
4104:
4105: IF l_gl_date_return_status <> FND_API.G_RET_STS_SUCCESS OR
4106: l_rct_return_status <> FND_API.G_RET_STS_SUCCESS OR
4107: l_act_return_status <> FND_API.G_RET_STS_SUCCESS OR
4108: l_amt_return_status <> FND_API.G_RET_STS_SUCCESS OR
4109: l_cur_return_status <> FND_API.G_RET_STS_SUCCESS OR
4110: l_cust_return_status <> FND_API.G_RET_STS_SUCCESS OR
4111: l_apply_date_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4104:
4105: IF l_gl_date_return_status <> FND_API.G_RET_STS_SUCCESS OR
4106: l_rct_return_status <> FND_API.G_RET_STS_SUCCESS OR
4107: l_act_return_status <> FND_API.G_RET_STS_SUCCESS OR
4108: l_amt_return_status <> FND_API.G_RET_STS_SUCCESS OR
4109: l_cur_return_status <> FND_API.G_RET_STS_SUCCESS OR
4110: l_cust_return_status <> FND_API.G_RET_STS_SUCCESS OR
4111: l_apply_date_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4112:
4105: IF l_gl_date_return_status <> FND_API.G_RET_STS_SUCCESS OR
4106: l_rct_return_status <> FND_API.G_RET_STS_SUCCESS OR
4107: l_act_return_status <> FND_API.G_RET_STS_SUCCESS OR
4108: l_amt_return_status <> FND_API.G_RET_STS_SUCCESS OR
4109: l_cur_return_status <> FND_API.G_RET_STS_SUCCESS OR
4110: l_cust_return_status <> FND_API.G_RET_STS_SUCCESS OR
4111: l_apply_date_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4112:
4113: p_return_status := FND_API.G_RET_STS_ERROR;
4106: l_rct_return_status <> FND_API.G_RET_STS_SUCCESS OR
4107: l_act_return_status <> FND_API.G_RET_STS_SUCCESS OR
4108: l_amt_return_status <> FND_API.G_RET_STS_SUCCESS OR
4109: l_cur_return_status <> FND_API.G_RET_STS_SUCCESS OR
4110: l_cust_return_status <> FND_API.G_RET_STS_SUCCESS OR
4111: l_apply_date_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4112:
4113: p_return_status := FND_API.G_RET_STS_ERROR;
4114: END IF;
4107: l_act_return_status <> FND_API.G_RET_STS_SUCCESS OR
4108: l_amt_return_status <> FND_API.G_RET_STS_SUCCESS OR
4109: l_cur_return_status <> FND_API.G_RET_STS_SUCCESS OR
4110: l_cust_return_status <> FND_API.G_RET_STS_SUCCESS OR
4111: l_apply_date_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4112:
4113: p_return_status := FND_API.G_RET_STS_ERROR;
4114: END IF;
4115:
4109: l_cur_return_status <> FND_API.G_RET_STS_SUCCESS OR
4110: l_cust_return_status <> FND_API.G_RET_STS_SUCCESS OR
4111: l_apply_date_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4112:
4113: p_return_status := FND_API.G_RET_STS_ERROR;
4114: END IF;
4115:
4116: IF PG_DEBUG in ('Y', 'C') THEN
4117: arp_util.debug('ar_receipt_val_pvt.validate_open_receipt_info()-');
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;
4128:
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
4170: arp_util.debug('ar_receipt_val_pvt.validate_unapp_open_receipt()-');
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;
4182:
4308: IF PG_DEBUG in ('Y', 'C') THEN
4309: arp_util.debug('ar_receipt_val_pvt.validate_llac_insert_ad()+');
4310: END IF;
4311:
4312: p_return_status := FND_API.G_RET_STS_SUCCESS;
4313:
4314: IF PG_DEBUG in ('Y', 'C') THEN
4315: arp_util.debug('Initialization the GT tables ...');
4316: arp_util.debug('DONE In the default initialization the GT tables ...');
4661: 'AR_ACTIVITY_DETAILS',
4662: l_dflex_val_return_status
4663: );
4664:
4665: If l_dflex_val_return_status <> FND_API.G_RET_STS_SUCCESS Then
4666: p_return_status := 'X';
4667: ar_receipt_lib_pvt.populate_errors_gt(
4668: p_customer_trx_id => p_customer_trx_id,
4669: p_customer_trx_line_id => sp_lines_row.customer_trx_line_id,
4706: and line.line_type = 'LINE'
4707: and line.customer_trx_line_id = tax.link_to_cust_trx_line_id (+);
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
4740: IF PG_DEBUG in ('Y', 'C') THEN
4741: arp_util.debug('l_calc_amount_app_from > l_cr_unapp_bal' );
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:
4900: Begin
4901: IF PG_DEBUG in ('Y', 'C') THEN
4902: arp_util.debug('ar_receipt_val_pvt.validate_llac_insert_app()+');
4903: END IF;
4904: ll_return_status := FND_API.G_RET_STS_SUCCESS;
4905: -- Execute the application and populate the Line wise details into RA GT
4906: For rcv_lines_row in rcv_lines_cur (p_customer_trx_id, p_cash_receipt_id)
4907: LOOP
4908:
4963: IF PG_DEBUG in ('Y', 'C') THEN
4964: arp_util.debug('ar_receipt_val_pvt.validate_llac_insert_app(Line)+');
4965: END IF;
4966:
4967: IF ll_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4968: ll_return_status := FND_API.G_RET_STS_ERROR;
4969: ELSE
4970: FOR rcv_frtchg_row in rcv_frtchg_cur (p_customer_trx_id, p_cash_receipt_id)
4971: LOOP
4964: arp_util.debug('ar_receipt_val_pvt.validate_llac_insert_app(Line)+');
4965: END IF;
4966:
4967: IF ll_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4968: ll_return_status := FND_API.G_RET_STS_ERROR;
4969: ELSE
4970: FOR rcv_frtchg_row in rcv_frtchg_cur (p_customer_trx_id, p_cash_receipt_id)
4971: LOOP
4972: l_demon := p_disc_earn_allowed + (p_disc_max_allowed - p_disc_earn_allowed);