[Home] [Help]
14: PROCEDURE Validate_Receipt_Date(p_receipt_date IN DATE,
15: p_return_status OUT NOCOPY VARCHAR2) IS
16: BEGIN
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:
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;
26: END Validate_Receipt_Date;
27:
28: PROCEDURE Validate_Gl_Date(p_gl_date IN DATE,
28: PROCEDURE Validate_Gl_Date(p_gl_date IN DATE,
29: p_return_status OUT NOCOPY VARCHAR2) IS
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' );
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));
39: FND_MSG_PUB.Add;
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;
45: END Validate_Gl_Date;
46:
47: PROCEDURE Validate_Deposit_Date(p_deposit_date IN DATE,
47: PROCEDURE Validate_Deposit_Date(p_deposit_date IN DATE,
48: p_return_status OUT NOCOPY VARCHAR2) IS
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;
58: p_receipt_date IN DATE,
59: p_return_status OUT NOCOPY VARCHAR2) IS
60: BEGIN
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');
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
70: p_return_status := FND_API.G_RET_STS_SUCCESS;
71: END IF;
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;
75: END Validate_Maturity_Date;
76:
77: PROCEDURE Validate_amount(p_amount IN OUT NOCOPY NUMBER,
80: p_type IN VARCHAR2,
81: p_return_status OUT NOCOPY VARCHAR2) IS
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
112: p_return_status := FND_API.G_RET_STS_ERROR;
113: FND_MESSAGE.SET_NAME('AR', 'AR_BK_CH_NOT_ALLWD_IF_NOT_CLR');
114: FND_MSG_PUB.Add;
115: IF PG_DEBUG in ('Y', 'C') THEN
116: arp_util.debug('Validate_amount: ' || 'Bank charges are not allowed ');
117: END IF;
118: END IF;
119:
120: ELSE
126: p_return_status := FND_API.G_RET_STS_ERROR;
127: FND_MESSAGE.SET_NAME('AR','AR_BK_CH_NOT_ALLWD_IF_NOT_CLR');
128: FND_MSG_PUB.Add;
129: IF PG_DEBUG in ('Y', 'C') THEN
130: arp_util.debug('Validate_amount: ' || 'The bank charges are not allowed if the state <> CLEARED');
131: END IF;
132: END IF;
133:
134: IF p_factor_discount_amount < 0 THEN
146: p_return_status := FND_API.G_RET_STS_ERROR;
147: FND_MESSAGE.SET_NAME('AR','AR_RW_RCT_AMOUNT_NEGATIVE');
148: FND_MSG_PUB.Add;
149: IF PG_DEBUG in ('Y', 'C') THEN
150: arp_util.debug('Validate_amount: ' || 'Receipt amount is negative ');
151: END IF;
152: END IF;
153:
154: END IF;
152: END IF;
153:
154: END IF;
155: IF PG_DEBUG in ('Y', 'C') THEN
156: arp_util.debug('Validate_amount () +');
157: END IF;
158: END Validate_amount;
159:
160: PROCEDURE Validate_Customer(p_customer_id IN NUMBER,
170: l_dummy_cust Customer_Rec;
171: l_record_exists_in_cache VARCHAR2(2);
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
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;
181:
182: IF l_temp IS NULL THEN
183: --The cache is empty : populate it directly.
200: END LOOP;
201: END IF;
202:
203: IF PG_DEBUG in ('Y', 'C') THEN
204: arp_util.debug('Validate_amount: ' || 'record_exists_in_cache = '||l_record_exists_in_cache);
205: END IF;
206: */
207: IF (p_customer_id IS NOT NULL) THEN
208: IF PG_DEBUG in ('Y', 'C') THEN
205: END IF;
206: */
207: IF (p_customer_id IS NOT NULL) THEN
208: IF PG_DEBUG in ('Y', 'C') THEN
209: arp_util.debug('Validate_amount: ' || 'Now Validating Customer id ');
210: END IF;
211: /*--------------------------------+
212: | |
213: | Validate Customer_id |
236: FND_MSG_PUB.Add;
237:
238: WHEN OTHERS THEN
239: IF PG_DEBUG in ('Y', 'C') THEN
240: arp_util.debug('Validate_amount: ' || 'EXCEPTION: Cache_Customer_id() ');
241: arp_util.debug('Validate_amount: ' || 'p_customer_id = ' ||TO_CHAR(p_customer_id));
242: END IF;
243: RAISE;
244: END;
237:
238: WHEN OTHERS THEN
239: IF PG_DEBUG in ('Y', 'C') THEN
240: arp_util.debug('Validate_amount: ' || 'EXCEPTION: Cache_Customer_id() ');
241: arp_util.debug('Validate_amount: ' || 'p_customer_id = ' ||TO_CHAR(p_customer_id));
242: END IF;
243: RAISE;
244: END;
245:
258:
259: IF p_customer_site_use_id IS NOT NULL THEN
260: --no need to validate site_use_id if derived from the transaction
261: IF PG_DEBUG in ('Y', 'C') THEN
262: arp_util.debug('Validate_amount: ' || 'Now validating Customer site_use_id ');
263: END IF;
264: BEGIN
265: SELECT site_uses.site_use_id
266: INTO l_dummy_cust.site_use_id
281: FND_MSG_PUB.Add;
282:
283: WHEN OTHERS THEN
284: IF PG_DEBUG in ('Y', 'C') THEN
285: arp_util.debug('Validate_amount: ' || 'EXCEPTION: Validate_Customer_Site_Use_id() ');
286: arp_util.debug('Validate_amount: ' || 'p_customer_site_use_id = '
287: ||TO_CHAR(p_customer_site_use_id));
288: END IF;
289: RAISE;
282:
283: WHEN OTHERS THEN
284: IF PG_DEBUG in ('Y', 'C') THEN
285: arp_util.debug('Validate_amount: ' || 'EXCEPTION: Validate_Customer_Site_Use_id() ');
286: arp_util.debug('Validate_amount: ' || 'p_customer_site_use_id = '
287: ||TO_CHAR(p_customer_site_use_id));
288: END IF;
289: RAISE;
290: END;
317: THEN
318: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_STE_USE_ID_NOT_DEF');
319: FND_MSG_PUB.Add;
320: IF PG_DEBUG in ('Y', 'C') THEN
321: arp_util.debug('Validate_amount: ' || 'Customer site use id is null');
322: END IF;
323: END IF;
324: END IF;
325:
392: --one record, the validation is true.
393: null;
394: WHEN OTHERS THEN
395: IF PG_DEBUG in ('Y', 'C') THEN
396: arp_util.debug('Validate_amount: ' || 'EXCEPTION: Validate_Customer_Bank_account_id() ');
397: arp_util.debug('Validate_amount: ' || 'p_customer_bank_account_id = '
398: ||TO_CHAR(p_customer_bank_account_id));
399: END IF;
400: RAISE;
393: null;
394: WHEN OTHERS THEN
395: IF PG_DEBUG in ('Y', 'C') THEN
396: arp_util.debug('Validate_amount: ' || 'EXCEPTION: Validate_Customer_Bank_account_id() ');
397: arp_util.debug('Validate_amount: ' || 'p_customer_bank_account_id = '
398: ||TO_CHAR(p_customer_bank_account_id));
399: END IF;
400: RAISE;
401:
458: END IF;
459:
460: END IF;
461: IF PG_DEBUG in ('Y', 'C') THEN
462: arp_util.debug('Validate_amount: ' || 'Validate_Customer_id ()-');
463: END IF;
464: END Validate_Customer;
465:
466: PROCEDURE Validate_receipt_method (p_receipt_method_id IN NUMBER,
480: receipt_method_invalid EXCEPTION;
481: BEGIN
482:
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:
505: END IF;
506: END LOOP;
507: END IF;
508: IF PG_DEBUG in ('Y', 'C') THEN
509: arp_util.debug('Validate_amount: ' || 'l_record_exists_in_cache = '||l_record_exists_in_cache);
510: END IF;
511: IF l_record_exists_in_cache = 'N' THEN
512:
513: --validate the existing record against the database
590:
591: IF p_remittance_bank_account_id IS NOT NULL THEN
592: IF l_dummy_method.bank_account_id = p_remittance_bank_account_id THEN
593: IF PG_DEBUG in ('Y', 'C') THEN
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
613: --the receipt method is valid but has more than one remittance bank account
614: --If the remittance bank account id is null at this stage that means that neither the
615: --user had not entered one and nor could it be defaulted
616: IF PG_DEBUG in ('Y', 'C') THEN
617: arp_util.debug('Validate_amount: ' || 'Too_many_rows raised');
618: END IF;
619: null;
620: WHEN no_data_found THEN
621: IF PG_DEBUG in ('Y', 'C') THEN
618: END IF;
619: null;
620: WHEN no_data_found THEN
621: IF PG_DEBUG in ('Y', 'C') THEN
622: arp_util.debug('Validate_amount: ' || 'no_data_found_raised');
623: END IF;
624: raise receipt_method_invalid;
625: --raising the exception here so that the next block which validates the
626: --remittance bank_id does not executed and the exception in trapped in the
699: END IF;
700:
701: END IF;
702: IF PG_DEBUG in ('Y', 'C') THEN
703: arp_util.debug('Validate_amount: ' || 'Validate_Receipt_Method ()-');
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 ');
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');
715: p_return_status := FND_API.G_RET_STS_ERROR;
716: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCT_MD_NAME_INVALID');
717: FND_MSG_PUB.Add;
718: IF PG_DEBUG in ('Y', 'C') THEN
719: arp_util.debug('Validate_amount: ' || 'Invalid receipt method name ');
720: END IF;
721: END IF;
722:
723: WHEN remittance_bank_valid THEN
722:
723: WHEN remittance_bank_valid THEN
724: null;
725: IF PG_DEBUG in ('Y', 'C') THEN
726: arp_util.debug('Validate_amount: ' || 'Exception: remittance_bank_valid ');
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');
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');
738: p_return_status := FND_API.G_RET_STS_ERROR;
739: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REM_BK_AC_NUM_INVALID');
740: FND_MSG_PUB.Add;
741: IF PG_DEBUG in ('Y', 'C') THEN
742: arp_util.debug('Validate_amount: ' || 'Invalid remittance bank account number');
743: END IF;
744: ELSIF ar_receipt_api_pub.Original_create_cash_info.remittance_bank_account_name IS NOT NULL THEN
745: p_return_status := FND_API.G_RET_STS_ERROR;
746: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REM_BK_AC_NAME_INVALID');
745: p_return_status := FND_API.G_RET_STS_ERROR;
746: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REM_BK_AC_NAME_INVALID');
747: FND_MSG_PUB.Add;
748: IF PG_DEBUG in ('Y', 'C') THEN
749: arp_util.debug('Validate_amount: ' || 'Invalid remittance bank account name');
750: END IF;
751: END IF;
752:
753: WHEN remittance_bank_null THEN
754: p_return_status := FND_API.G_RET_STS_ERROR;
755: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REM_BK_AC_ID_NULL');
756: FND_MSG_PUB.Add;
757: IF PG_DEBUG in ('Y', 'C') THEN
758: arp_util.debug('Validate_amount: ' || 'The remittance bank account could not be defaulted ');
759: END IF;
760: WHEN receipt_md_null THEN
761: p_return_status := FND_API.G_RET_STS_ERROR;
762: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_MD_ID_NULL');
761: p_return_status := FND_API.G_RET_STS_ERROR;
762: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_MD_ID_NULL');
763: FND_MSG_PUB.Add;
764: IF PG_DEBUG in ('Y', 'C') THEN
765: arp_util.debug('Validate_amount: ' || 'The receipt method id is null ');
766: END IF;
767: WHEN others THEN
768: IF PG_DEBUG in ('Y', 'C') THEN
769: arp_util.debug('Validate_amount: ' || 'EXCEPTION: Validate_Receipt_Method_() ');
765: arp_util.debug('Validate_amount: ' || 'The receipt method id is null ');
766: END IF;
767: WHEN others THEN
768: IF PG_DEBUG in ('Y', 'C') THEN
769: arp_util.debug('Validate_amount: ' || 'EXCEPTION: Validate_Receipt_Method_() ');
770: arp_util.debug('Validate_amount: ' || 'p_receipt_method_id = '
771: ||TO_CHAR(p_receipt_method_id));
772: arp_util.debug('Validate_amount: ' || 'p_remittance_bank_account_id = '
773: ||TO_CHAR(p_remittance_bank_account_id));
766: END IF;
767: WHEN others THEN
768: IF PG_DEBUG in ('Y', 'C') THEN
769: arp_util.debug('Validate_amount: ' || 'EXCEPTION: Validate_Receipt_Method_() ');
770: arp_util.debug('Validate_amount: ' || 'p_receipt_method_id = '
771: ||TO_CHAR(p_receipt_method_id));
772: arp_util.debug('Validate_amount: ' || 'p_remittance_bank_account_id = '
773: ||TO_CHAR(p_remittance_bank_account_id));
774: END IF;
768: IF PG_DEBUG in ('Y', 'C') THEN
769: arp_util.debug('Validate_amount: ' || 'EXCEPTION: Validate_Receipt_Method_() ');
770: arp_util.debug('Validate_amount: ' || 'p_receipt_method_id = '
771: ||TO_CHAR(p_receipt_method_id));
772: arp_util.debug('Validate_amount: ' || 'p_remittance_bank_account_id = '
773: ||TO_CHAR(p_remittance_bank_account_id));
774: END IF;
775: RAISE;
776: END Validate_Receipt_Method;
869: END IF;
870: EXCEPTION
871: WHEN others THEN
872: IF PG_DEBUG in ('Y', 'C') THEN
873: arp_util.debug('Validate_amount: ' || 'EXCEPTION: Validate_Exchange_Rate() ');
874: arp_util.debug('Validate_amount: ' || 'p_exchange_rate_type = '
875: ||p_exchange_rate_type);
876: END IF;
877: RAISE;
870: EXCEPTION
871: WHEN others THEN
872: IF PG_DEBUG in ('Y', 'C') THEN
873: arp_util.debug('Validate_amount: ' || 'EXCEPTION: Validate_Exchange_Rate() ');
874: arp_util.debug('Validate_amount: ' || 'p_exchange_rate_type = '
875: ||p_exchange_rate_type);
876: END IF;
877: RAISE;
878: END Validate_Exchange_Rate;
892: l_currency_valid := 'N';
893: RETURN(l_currency_valid);
894: WHEN others THEN
895: IF PG_DEBUG in ('Y', 'C') THEN
896: arp_util.debug('Validate_amount: ' || 'EXCEPTION: Validate_Exchange_Rate() ');
897: arp_util.debug('Validate_amount: ' || 'p_currency_code = '||p_currency_code);
898: END IF;
899: raise;
900: END Is_currency_valid;
893: RETURN(l_currency_valid);
894: WHEN others THEN
895: IF PG_DEBUG in ('Y', 'C') THEN
896: arp_util.debug('Validate_amount: ' || 'EXCEPTION: Validate_Exchange_Rate() ');
897: arp_util.debug('Validate_amount: ' || 'p_currency_code = '||p_currency_code);
898: END IF;
899: raise;
900: END Is_currency_valid;
901:
948: WHERE arl.lookup_type = 'REVERSAL_CATEGORY_TYPE');
949:
950: BEGIN
951: IF PG_DEBUG in ('Y', 'C') THEN
952: arp_util.debug('Validate_amount: ' || 'val_duplicate_receipt ()+');
953: END IF;
954: BEGIN
955:
956: OPEN validate_duplicate_receipt;
964: l_duplicate_receipt := 'Y';
965: END;
966:
967: IF PG_DEBUG in ('Y', 'C') THEN
968: arp_util.debug('Validate_amount: ' || 'l_duplicate_receipt :'||l_duplicate_receipt);
969: END IF;
970: -- Do not allow to create duplicate receipts
971: IF l_duplicate_receipt = 'Y' THEN
972: IF p_type = 'CASH' THEN
980: END IF;
981:
982: END IF;
983: IF PG_DEBUG in ('Y', 'C') THEN
984: arp_util.debug('Validate_amount: ' || 'val_duplicate_receipt ()-');
985: END IF;
986: END val_duplicate_receipt;
987:
988: PROCEDURE Validate_Cash_Receipt(
1023: l_doc_seq_return_status VARCHAR2(1);
1024: l_dup_return_status VARCHAR2(1);
1025: BEGIN
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:
1033:
1034: Validate_Receipt_Date(p_receipt_date,
1035: l_receipt_date_return_status);
1036: IF PG_DEBUG in ('Y', 'C') THEN
1037: arp_util.debug('Validate_amount: ' || 'l_receipt_date_return_status : '||l_receipt_date_return_status);
1038: END IF;
1039:
1040: --Validate gl_date
1041:
1041:
1042: Validate_Gl_Date(p_gl_date,
1043: l_gl_date_return_status);
1044: IF PG_DEBUG in ('Y', 'C') THEN
1045: arp_util.debug('Validate_amount: ' || 'l_gl_date_return_status : '||l_gl_date_return_status);
1046: END IF;
1047: --Validate deposit_date
1048:
1049: Validate_Deposit_Date(p_deposit_date,
1048:
1049: Validate_Deposit_Date(p_deposit_date,
1050: l_deposit_date_return_status);
1051: IF PG_DEBUG in ('Y', 'C') THEN
1052: arp_util.debug('Validate_amount: ' || 'l_deposit_date_return_status : '||l_deposit_date_return_status);
1053: END IF;
1054:
1055: --Validate maturity_date
1056: /* bug 16386733: drop this maturity date validation
1057: Validate_Maturity_Date(p_maturity_date,
1058: p_receipt_date,
1059: l_maturity_date_return_status);
1060: IF PG_DEBUG in ('Y', 'C') THEN
1061: arp_util.debug('Validate_amount: ' || 'l_maturity_date_return_status : '||l_maturity_date_return_status);
1062: END IF;
1063: */
1064:
1065: --Validate Receipt_method
1070: p_state,
1071: p_called_from,
1072: l_rcpt_md_return_status);
1073: IF PG_DEBUG in ('Y', 'C') THEN
1074: arp_util.debug('Validate_amount: ' || 'l_rcpt_md_return_status : '||l_rcpt_md_return_status);
1075: END IF;
1076:
1077: --Validate document sequence value
1078:
1089: p_state,
1090: 'CASH',
1091: l_amount_return_status);
1092: IF PG_DEBUG in ('Y', 'C') THEN
1093: arp_util.debug('Validate_amount: ' || 'l_amount_return_status : '||l_amount_return_status);
1094: END IF;
1095:
1096: --Validate Customer info
1097:
1103: p_currency_code,
1104: p_receipt_date,
1105: l_customer_return_status);
1106: IF PG_DEBUG in ('Y', 'C') THEN
1107: arp_util.debug('Validate_amount: ' || 'l_customer_return_status : '||l_customer_return_status);
1108: END IF;
1109:
1110: --Validate the override_remit_bank_account_flag
1111: IF (p_override_remit_account_flag NOT IN ('Y','N')) THEN
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;
1121:
1122: --Validate currency and exchange rate info.
1123: IF p_currency_code <> arp_global.functional_currency OR
1130: p_exchange_rate_date,
1131: l_currency_return_status);
1132: END IF;
1133: IF PG_DEBUG in ('Y', 'C') THEN
1134: arp_util.debug('Validate_amount: ' || 'l_currency_return_status : '||l_currency_return_status);
1135: END IF;
1136:
1137: IF p_receipt_number IS NOT NULL AND
1138: p_amount IS NOT NULL THEN
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;
1164:
1165: EXCEPTION
1166: WHEN others THEN
1184: ) IS
1185: l_message_name VARCHAR2(50);
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:
1211: FND_MSG_PUB.Add;
1212: END IF; */
1213: END IF;
1214: IF PG_DEBUG in ('Y', 'C') THEN
1215: arp_util.debug('Validate_amount: ' || 'Before calling the check_natural_application routine ');
1216: END IF;
1217: IF p_applied_payment_schedule_id > 0 THEN
1218:
1219: arp_non_db_pkg.check_natural_application(
1238:
1239: END IF;
1240:
1241: IF PG_DEBUG in ('Y', 'C') THEN
1242: arp_util.debug('Validate_amount_applied ()-');
1243: END IF;
1244: END Validate_amount_applied;
1245:
1246: --- LLCA
1260: ) IS
1261: l_line_message_name VARCHAR2(50);
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;
1271:
1272: IF PG_DEBUG in ('Y', 'C') THEN
1273: arp_util.debug('Validate_amount: ' || 'Before calling the check_natural_application routine ');
1274: END IF;
1275:
1276: IF p_applied_payment_schedule_id > 0 THEN
1277:
1297:
1298: END IF;
1299:
1300: IF PG_DEBUG in ('Y', 'C') THEN
1301: arp_util.debug('Validate_line_applied ()-');
1302: END IF;
1303: END Validate_line_applied;
1304: --- LLCA
1305: PROCEDURE Validate_tax_applied(
1316: ) IS
1317: l_tax_message_name VARCHAR2(50);
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;
1327:
1328: IF PG_DEBUG in ('Y', 'C') THEN
1329: arp_util.debug('Validate_amount: ' || 'Before calling the check_natural_application routine ');
1330: END IF;
1331:
1332: IF p_applied_payment_schedule_id > 0 THEN
1333:
1353:
1354: END IF;
1355:
1356: IF PG_DEBUG in ('Y', 'C') THEN
1357: arp_util.debug('Validate_tax_applied ()-');
1358: END IF;
1359: END Validate_tax_applied;
1360:
1361: --- LLCA
1375: ) IS
1376: l_frt_message_name VARCHAR2(50);
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;
1386:
1387: IF PG_DEBUG in ('Y', 'C') THEN
1388: arp_util.debug('Validate_amount: ' || 'Before calling the check_natural_application routine ');
1389: END IF;
1390:
1391: IF p_applied_payment_schedule_id > 0 THEN
1392:
1412:
1413: END IF;
1414:
1415: IF PG_DEBUG in ('Y', 'C') THEN
1416: arp_util.debug('Validate_freight_applied ()-');
1417: END IF;
1418: END Validate_freight_applied;
1419:
1420:
1435: ) IS
1436: l_message_name VARCHAR2(50);
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;
1446:
1447: IF PG_DEBUG in ('Y', 'C') THEN
1448: arp_util.debug('Validate_amount: ' || 'Before calling the check_natural_application routine ');
1449: END IF;
1450:
1451: IF p_applied_payment_schedule_id > 0 THEN
1452:
1472:
1473: END IF;
1474:
1475: IF PG_DEBUG in ('Y', 'C') THEN
1476: arp_util.debug('Validate_charges_applied ()-');
1477: END IF;
1478: END Validate_charges_applied;
1479:
1480: PROCEDURE Validate_amount_applied_from(
1488: l_remaining_unapp_rct_amt NUMBER;
1489:
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);
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
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;
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;
1517: END Validate_amount_applied_from;
1518:
1519: /* Added this over loaded procedure for bug 3119391 */
1526: l_amount_applied_from NUMBER;
1527: l_remaining_unapp_rct_amt NUMBER;
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,
1539: l_remaining_unapp_rct_amt := p_cr_unapp_amount + nvl(l_amount_applied_from, l_amount_applied);
1540:
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;
1546: FND_MESSAGE.SET_NAME('AR','AR_RW_AMOUNT_LESS_THAN_APP');
1547: FND_MSG_PUB.Add;
1548: END IF;
1549: IF PG_DEBUG in ('Y', 'C') THEN
1550: arp_util.debug('Validate_amount_applied_from over loaded()-');
1551: END IF;
1552: END Validate_amount_applied_from;
1553:
1554: PROCEDURE Validate_trans_to_receipt_rate(
1563: l_amount_applied_from NUMBER;
1564: l_amount_applied NUMBER;
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
1602: IF p_amount_applied IS NOT NULL AND
1603: ar_receipt_api_pub.Original_application_info.amount_applied_from IS NOT NULL AND
1604: ar_receipt_api_pub.Original_application_info.trans_to_receipt_rate IS NOT NULL
1605: THEN
1606: l_amount_applied := arp_util.CurrRound(
1607: p_amount_applied,
1608: p_trx_currency_code
1609: );
1610: l_amount_applied_cr := arp_util.CurrRound(
1606: l_amount_applied := arp_util.CurrRound(
1607: p_amount_applied,
1608: p_trx_currency_code
1609: );
1610: l_amount_applied_cr := arp_util.CurrRound(
1611: l_amount_applied*p_trans_to_receipt_rate,
1612: p_cr_currency_code
1613: );
1614: l_amount_applied_from := arp_util.CurrRound(
1610: l_amount_applied_cr := arp_util.CurrRound(
1611: l_amount_applied*p_trans_to_receipt_rate,
1612: p_cr_currency_code
1613: );
1614: l_amount_applied_from := arp_util.CurrRound(
1615: p_amount_applied_from,
1616: p_cr_currency_code
1617: );
1618:
1624: END IF;
1625: END IF;
1626: END IF;
1627: IF PG_DEBUG in ('Y', 'C') THEN
1628: arp_util.debug('Validate_trans_to_receipt_rate ()-');
1629: END IF;
1630: EXCEPTION
1631: WHEN others THEN
1632: IF PG_DEBUG in ('Y', 'C') THEN
1629: END IF;
1630: EXCEPTION
1631: WHEN others THEN
1632: IF PG_DEBUG in ('Y', 'C') THEN
1633: arp_util.debug('Validate_trans_to_receipt_rate: ' || 'EXCEPTION: Validate_Exchange_Rate() ');
1634: END IF;
1635: raise;
1636: END Validate_trans_to_receipt_rate;
1637:
1647: p_return_status OUT NOCOPY VARCHAR2
1648: ) IS
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
1722: END IF;
1723: END IF;
1724:
1725: IF PG_DEBUG in ('Y', 'C') THEN
1726: arp_util.debug('Validate_discount ()-');
1727: END IF;
1728: END Validate_discount;
1729:
1730: PROCEDURE Validate_apply_gl_date(p_apply_gl_date IN DATE,
1735: l_bool BOOLEAN;
1736:
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
1758: END IF;
1759:
1760:
1761: -- Check that the Application GL Date is in an open or future GL period.
1762: IF ( NOT arp_util.is_gl_date_valid( p_apply_gl_date )) THEN
1763: FND_MESSAGE.set_name( 'AR', 'AR_INVALID_APP_GL_DATE' );
1764: --Int'l Calendar Project
1765: FND_MESSAGE.set_token( 'GL_DATE', fnd_date.date_to_chardate(p_apply_gl_date, calendar_aware=> FND_DATE.calendar_aware_alt));
1766: FND_MSG_PUB.Add;
1769:
1770:
1771: END IF;
1772: IF PG_DEBUG in ('Y', 'C') THEN
1773: arp_util.debug('Validate_apply_gl_date ()-');
1774: END IF;
1775:
1776: END Validate_apply_gl_date;
1777:
1782: ) IS
1783:
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
1806:
1807: END IF;
1808:
1809: IF PG_DEBUG in ('Y', 'C') THEN
1810: arp_util.debug('Validate_apply_date ()-');
1811: END IF;
1812: END Validate_apply_date;
1813:
1814: PROCEDURE Validate_Application_info(
1871: --The customer_trx_id, cash_receipt_id and the applied_payment_schedule_id
1872: --have already been validated in the defaulting routines.
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
1892: l_gl_date_return_status
1893: );
1894:
1895: IF PG_DEBUG in ('Y', 'C') THEN
1896: arp_util.debug('Validate_Application_info: ' || 'Apply gl_date return
1897: status :'||l_gl_date_return_status);
1898: END IF;
1899: validate_amount_applied(
1900: p_amount_applied ,
1909: p_amount_due_original,
1910: l_amt_applied_return_status
1911: );
1912: IF PG_DEBUG in ('Y', 'C') THEN
1913: arp_util.debug('Validate_Application_info: ' || 'Amount applied return
1914: status :'||l_amt_applied_return_status);
1915: END IF;
1916:
1917: If p_llca_type = 'S' THEN
1932: p_line_items_original,
1933: l_line_applied_return_status
1934: );
1935: IF PG_DEBUG in ('Y', 'C') THEN
1936: arp_util.debug('Validate_Application_info: ' || 'Line
1937: Amount applied return status :'||l_line_applied_return_status);
1938: END IF;
1939: End If;
1940:
1951: p_tax_original,
1952: l_tax_applied_return_status
1953: );
1954: IF PG_DEBUG in ('Y', 'C') THEN
1955: arp_util.debug('Validate_Application_info: ' || 'Tax Amount
1956: applied return status :'||l_tax_applied_return_status);
1957: END IF;
1958: END IF;
1959:
1972: p_freight_original,
1973: l_frt_applied_return_status
1974: );
1975: IF PG_DEBUG in ('Y', 'C') THEN
1976: arp_util.debug('Validate_Application_info: ' || 'Freight Amount
1977: applied return status :'||l_frt_applied_return_status);
1978: END IF;
1979: END IF;
1980:
1995: p_rec_charges_remaining ,
1996: l_chg_applied_return_status
1997: );
1998: IF PG_DEBUG in ('Y', 'C') THEN
1999: arp_util.debug('Validate_Application_info: ' || 'Charges Amount
2000: applied return status :'||l_chg_applied_return_status);
2001: END IF;
2002: END IF;
2003: END IF;
2010: p_amount_applied_from ,
2011: l_x_rate_return_status
2012: );
2013: IF PG_DEBUG in ('Y', 'C') THEN
2014: arp_util.debug('Validate_Application_info: ' || 'Trans to receipt rate return status :'||l_x_rate_return_status);
2015: END IF;
2016: validate_amount_applied_from(
2017: p_amount_applied_from ,
2018: p_amount_applied,
2021: p_trx_currency_code ,
2022: l_amt_app_from_return_status
2023: );
2024: IF PG_DEBUG in ('Y', 'C') THEN
2025: arp_util.debug('Validate_Application_info: ' || 'Amount applied from return_status :'||l_amt_app_from_return_status);
2026: END IF;
2027:
2028: validate_discount(p_discount ,
2029: p_amount_due_remaining ,
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;
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
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 ()-');
2076: END IF;
2077: EXCEPTION
2078: WHEN others THEN
2079: IF PG_DEBUG in ('Y', 'C') THEN
2076: END IF;
2077: EXCEPTION
2078: WHEN others THEN
2079: IF PG_DEBUG in ('Y', 'C') THEN
2080: arp_util.debug('EXCEPTION: Validate_Application_Info() ');
2081: END IF;
2082: raise;
2083: END Validate_Application_info;
2084:
2090: ) IS
2091:
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:
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
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;
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;
2137:
2138: IF PG_DEBUG in ('Y', 'C') THEN
2135: END IF;
2136: END IF;
2137:
2138: IF PG_DEBUG in ('Y', 'C') THEN
2139: arp_util.debug('Validate_Rev_gl_date ()+');
2140: END IF;
2141: EXCEPTION
2142: WHEN others THEN
2143: IF PG_DEBUG in ('Y', 'C') THEN
2140: END IF;
2141: EXCEPTION
2142: WHEN others THEN
2143: IF PG_DEBUG in ('Y', 'C') THEN
2144: arp_util.debug('EXCEPTION: Validate_rev_gl_date() ');
2145: END IF;
2146: raise;
2147: END Validate_Rev_gl_date;
2148:
2157: l_gl_date date;
2158:
2159: BEGIN
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:
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 ()-');
2189: END IF;
2190:
2191: EXCEPTION
2192: WHEN NO_DATA_FOUND THEN
2190:
2191: EXCEPTION
2192: WHEN NO_DATA_FOUND THEN
2193: IF PG_DEBUG in ('Y', 'C') THEN
2194: arp_util.debug('No application exists for this receipt.');
2195: END IF;
2196: null;
2197: WHEN OTHERS THEN
2198: IF PG_DEBUG in ('Y', 'C') THEN
2195: END IF;
2196: null;
2197: WHEN OTHERS THEN
2198: IF PG_DEBUG in ('Y', 'C') THEN
2199: arp_util.debug('EXCEPTION: validate_rev_appln_date() ' || sqlerrm);
2200: END IF;
2201: raise;
2202: END validate_rev_appln_date;
2203:
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
2216: --directly as a parameter. No need to validate if it was derived.
2217: IF p_receivable_application_id IS NOT NULL AND
2265: END IF;
2266:
2267: END IF;
2268: IF PG_DEBUG in ('Y', 'C') THEN
2269: arp_util.debug('Validate_receivable_appln_id ()-');
2270: END IF;
2271: EXCEPTION
2272: WHEN others THEN
2273: IF PG_DEBUG in ('Y', 'C') THEN
2270: END IF;
2271: EXCEPTION
2272: WHEN others THEN
2273: IF PG_DEBUG in ('Y', 'C') THEN
2274: arp_util.debug('EXCEPTION: Validate_receivable_appln_id()');
2275: END IF;
2276: raise;
2277: END Validate_receivable_appln_id;
2278:
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:
2297: --In case the user has entered the receivable application id
2298: -- as well as the receipt and transaction info, then the cross validation
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);
2327: arp_util.debug('Validate_unapp_info ()-');
2328: END IF;
2329: END Validate_unapp_info;
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);
2327: arp_util.debug('Validate_unapp_info ()-');
2328: END IF;
2329: END Validate_unapp_info;
2330:
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);
2327: arp_util.debug('Validate_unapp_info ()-');
2328: END IF;
2329: END Validate_unapp_info;
2330:
2331: PROCEDURE check_std_reversible(p_cash_receipt_id IN NUMBER,
2338: l_reserved VARCHAR2(1) DEFAULT 'N';
2339: l_std_appln VARCHAR2(1) DEFAULT 'N';
2340: BEGIN
2341: IF PG_DEBUG in ('Y', 'C') THEN
2342: arp_util.debug('check_std_reversible ()+');
2343: END IF;
2344: --Check whether it has not been reversed yet
2345: IF p_reversal_date IS NULL OR
2346: p_receipt_state <> 'APPROVED' THEN
2441: END IF;
2442:
2443: END IF;
2444: IF PG_DEBUG in ('Y', 'C') THEN
2445: arp_util.debug('check_std_reversible ()-');
2446: END IF;
2447:
2448: EXCEPTION
2449: WHEN others THEN
2447:
2448: EXCEPTION
2449: WHEN others THEN
2450: IF PG_DEBUG in ('Y', 'C') THEN
2451: arp_util.debug('EXCEPTION: check_std_reversible()');
2452: END IF;
2453: raise;
2454: END check_std_reversible;
2455:
2464: p_return_status OUT NOCOPY VARCHAR2) IS
2465: l_valid NUMBER;
2466: BEGIN
2467: IF PG_DEBUG in ('Y', 'C') THEN
2468: arp_util.debug('Validate_cash_receipt_id ()+');
2469: END IF;
2470: IF p_cash_receipt_id IS NOT NULL THEN
2471:
2472: SELECT count(*)
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;
2495: EXCEPTION
2496: WHEN others THEN
2497: IF PG_DEBUG in ('Y', 'C') THEN
2494: END IF;
2495: EXCEPTION
2496: WHEN others THEN
2497: IF PG_DEBUG in ('Y', 'C') THEN
2498: arp_util.debug('EXCEPTION: Validate_cash_receipt_id() ');
2499: END IF;
2500: raise;
2501: END Validate_cash_receipt_id;
2502:
2506: ) IS
2507: l_valid NUMBER;
2508: BEGIN
2509: IF PG_DEBUG in ('Y', 'C') THEN
2510: arp_util.debug('Validate_reversal_catg_code ()+');
2511: END IF;
2512: IF p_reversal_category_code IS NOT NULL THEN
2513: SELECT count(*)
2514: INTO l_valid
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;
2532: EXCEPTION
2533: WHEN others THEN
2534: IF PG_DEBUG in ('Y', 'C') THEN
2531: END IF;
2532: EXCEPTION
2533: WHEN others THEN
2534: IF PG_DEBUG in ('Y', 'C') THEN
2535: arp_util.debug('EXCEPTION: Validate_reversal_catg_code() ');
2536: END IF;
2537: raise;
2538: END Validate_reversal_catg_code;
2539:
2563: END IF;
2564: EXCEPTION
2565: WHEN others THEN
2566: IF PG_DEBUG in ('Y', 'C') THEN
2567: arp_util.debug('EXCEPTION: Validate_reversal_reason_code() ');
2568: END IF;
2569: raise;
2570: END Validate_reversal_reason_code;
2571:
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',
2592: p_cash_receipt_id,
2593: 'APPROVED',
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;
2631: EXCEPTION
2632: WHEN others THEN
2633: IF PG_DEBUG in ('Y', 'C') THEN
2630: END IF;
2631: EXCEPTION
2632: WHEN others THEN
2633: IF PG_DEBUG in ('Y', 'C') THEN
2634: arp_util.debug('EXCEPTION: Validate_reverse_info ()');
2635: END IF;
2636: raise;
2637: END Validate_reverse_info;
2638:
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:
2661: validate_cash_receipt_id('ALL',
2662: p_cash_receipt_id,
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 ()-');
2719: END IF;
2720: EXCEPTION
2721: WHEN others THEN
2722: IF PG_DEBUG in ('Y', 'C') THEN
2719: END IF;
2720: EXCEPTION
2721: WHEN others THEN
2722: IF PG_DEBUG in ('Y', 'C') THEN
2723: arp_util.debug('EXCEPTION: validate_on_ac_app()');
2724: END IF;
2725: raise;
2726: END validate_on_ac_app;
2727:
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:
2749:
2750: --the receivable_application_id was validated in the defaulting stage
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);
2777: arp_util.debug('validate_unapp_on_ac_act_info: ' || 'Validate_unapp_on_acc_act_info ()-');
2778: END IF;
2779: END validate_unapp_on_ac_act_info;
2780:
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);
2777: arp_util.debug('validate_unapp_on_ac_act_info: ' || 'Validate_unapp_on_acc_act_info ()-');
2778: END IF;
2779: END validate_unapp_on_ac_act_info;
2780:
2781: PROCEDURE validate_ccrefund(
2790:
2791: --If the applied payment schedule_id -7, we can issue the refund only to credit card.
2792:
2793: IF PG_DEBUG in ('Y', 'C') THEN
2794: arp_util.debug('Validate_ccrefund (+)');
2795: END IF;
2796: IF p_applied_ps_id IN (-6, -9) THEN
2797: BEGIN
2798: SELECT NVL(arm.payment_channel_code,'NONE')
2803: AND cr.cash_receipt_id=p_cash_receipt_id;
2804:
2805: IF l_payment_type <> 'CREDIT_CARD' THEN
2806: IF PG_DEBUG in ('Y', 'C') THEN
2807: arp_util.debug('This receipt is not a Credit Card Receipt');
2808: END IF;
2809:
2810: IF p_applied_ps_id = -6 THEN
2811: FND_MESSAGE.SET_NAME('AR','AR_RW_CCR_NOT_CC_RECEIPT');
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);
2837: AND current_record_flag = 'Y';
2838:
2839: IF l_status NOT IN ('REMITTED', 'CLEARED') THEN
2840: IF PG_DEBUG in ('Y', 'C') THEN
2841: arp_util.debug('This receipt is still not REMITTED.');
2842: END IF;
2843:
2844: IF p_applied_ps_id = -6 THEN
2845: FND_MESSAGE.SET_NAME ('AR','AR_RW_CCR_NOT_REMITTED');
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);
2864: END;
2865:
2866: END IF;
2867: IF PG_DEBUG in ('Y', 'C') THEN
2868: arp_util.debug('Validate_ccrefund (-)');
2869: END IF;
2870: END validate_ccrefund;
2871:
2872:
2905:
2906: BEGIN
2907:
2908: IF PG_DEBUG in ('Y', 'C') THEN
2909: arp_util.debug('validate_activity (+)');
2910: END IF;
2911:
2912: OPEN activity_type;
2913: FETCH activity_type INTO l_activity_type;
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);
3027: arp_util.debug('l_min_wrt_off_amount = '||l_min_wrt_off_amount);
3028: arp_util.debug('l_tot_write_off_amt = '||l_tot_write_off_amt);
3029: END IF;
3030:
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);
3027: arp_util.debug('l_min_wrt_off_amount = '||l_min_wrt_off_amount);
3028: arp_util.debug('l_tot_write_off_amt = '||l_tot_write_off_amt);
3029: END IF;
3030:
3031: /**Bug 5367753 Condition is added to convert the writeoff amount into
3024:
3025: IF PG_DEBUG in ('Y', 'C') THEN
3026: arp_util.debug('l_max_wrt_off_amount = '||l_max_wrt_off_amount);
3027: arp_util.debug('l_min_wrt_off_amount = '||l_min_wrt_off_amount);
3028: arp_util.debug('l_tot_write_off_amt = '||l_tot_write_off_amt);
3029: END IF;
3030:
3031: /**Bug 5367753 Condition is added to convert the writeoff amount into
3032: functional currency for validation */
3044: END IF;
3045:
3046: IF ( (NVL(l_tot_write_off_amt,0) > l_max_wrt_off_amount) OR
3047: (NVL(l_tot_write_off_amt,0) < l_min_wrt_off_amount) ) THEN
3048: arp_util.debug('ERROR l_tot_write_off_amt = '||l_tot_write_off_amt);
3049: fnd_message.set_name ('AR','AR_WR_TOTAL_EXCEED_MAX_AMOUNT');
3050: FND_MSG_PUB.Add;
3051: p_return_status := FND_API.G_RET_STS_ERROR;
3052: END IF;
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 (-)');
3099: END IF;
3100: END validate_activity;
3101:
3102: PROCEDURE validate_activity_app( p_receivables_trx_id IN NUMBER,
3117: ) IS
3118: l_valid VARCHAR2(1) DEFAULT 'N';
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,
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;
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;
3223:
3224: -- Bug 2270825 - additional validation for claims
3246: l_currency_code fnd_currencies.currency_code%TYPE;
3247: invalid_claim EXCEPTION;
3248:
3249: BEGIN
3250: arp_util.debug('validate_application_reference ()+');
3251:
3252: IF (p_application_ref_type IS NOT NULL AND p_applied_ps_id < 0) THEN
3253: IF p_applied_ps_id IS NOT NULL and p_applied_ps_id in (-4,-5,-6,-7) THEN
3254: BEGIN
3312: THEN
3313: l_query_text := l_query_text ||
3314: ' where claim_id = :secondary_application_ref_id '||
3315: ' and currency_code = :currency_code ';
3316: arp_util.debug('claim query text : '||l_query_text);
3317: BEGIN
3318: EXECUTE IMMEDIATE l_query_text INTO l_claim_id
3319: USING p_secondary_application_ref_id, l_currency_code ;
3320: EXCEPTION
3324: ELSE
3325: l_query_text := l_query_text ||
3326: ' where claim_number = :application_ref_num '||
3327: ' and currency_code = :currency_code ';
3328: arp_util.debug('claim query text : '||l_query_text);
3329: BEGIN
3330: EXECUTE IMMEDIATE l_query_text INTO l_claim_id
3331: USING p_application_ref_num, l_currency_code ;
3332: EXCEPTION
3341: l_check_amount := (p_amount_applied * -1);
3342: ELSE
3343: l_check_amount := (p_amount_due_remaining - p_amount_applied);
3344: END IF;
3345: arp_util.debug('l_check_amount = '||l_check_amount);
3346: /* Bug 2751910 - no longer need to cross check the amount */
3347:
3348: END IF;
3349: END IF;
3347:
3348: END IF;
3349: END IF;
3350:
3351: arp_util.debug('validate_application_reference ()-');
3352: EXCEPTION
3353: WHEN invalid_claim THEN
3354: IF p_secondary_application_ref_id IS NOT NULL
3355: THEN
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:
3371: PROCEDURE Validate_misc_receipt(
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;
3421:
3422: p_return_status := FND_API.G_RET_STS_SUCCESS;
3423:
3425:
3426: Validate_Receipt_Date(p_receipt_date,
3427: l_receipt_date_return_status);
3428: IF PG_DEBUG in ('Y', 'C') THEN
3429: arp_util.debug('Validate_misc_receipt: ' || 'l_receipt_date_return_status : '||l_receipt_date_return_status);
3430: END IF;
3431:
3432: --Validate gl_date
3433:
3433:
3434: Validate_Gl_Date(p_gl_date,
3435: l_gl_date_return_status);
3436: IF PG_DEBUG in ('Y', 'C') THEN
3437: arp_util.debug('Validate_misc_receipt: ' || 'l_gl_date_return_status : '||l_gl_date_return_status);
3438: END IF;
3439:
3440: --Validate deposit_date
3441:
3441:
3442: Validate_Deposit_Date(p_deposit_date,
3443: l_deposit_date_return_status);
3444: IF PG_DEBUG in ('Y', 'C') THEN
3445: arp_util.debug('Validate_misc_receipt: ' || 'l_deposit_date_return_status : '||l_deposit_date_return_status);
3446: END IF;
3447:
3448:
3449: --Validate Receipt_method
3454: p_state,
3455: 'MISC',
3456: l_rcpt_md_return_status);
3457: IF PG_DEBUG in ('Y', 'C') THEN
3458: arp_util.debug('Validate_misc_receipt: ' || 'l_rcpt_md_return_status : '||l_rcpt_md_return_status);
3459: END IF;
3460:
3461: --Validate document sequence value
3462:
3480: p_exchange_date,
3481: l_currency_return_status);
3482: END IF;
3483: IF PG_DEBUG in ('Y', 'C') THEN
3484: arp_util.debug('Validate_misc_receipt: ' || 'l_currency_return_status : '||l_currency_return_status);
3485: END IF;
3486:
3487: IF p_receipt_number IS NOT NULL AND
3488: p_amount IS NOT NULL
3497:
3498: --Validate the activity on the misc receipt.
3499: --Also default the distribution_set_id.
3500: IF PG_DEBUG in ('Y', 'C') THEN
3501: arp_util.debug('Validate_misc_receipt: ' || 'Validating the activity ');
3502: END IF;
3503: IF p_receivables_trx_id IS NOT NULL THEN
3504:
3505: --CC Chargeback logic
3533:
3534:
3535: --Validate vat_tax_id
3536: IF PG_DEBUG in ('Y', 'C') THEN
3537: arp_util.debug('Validate_misc_receipt: ' || 'Validating vat_tax_id');
3538: END IF;
3539:
3540: IF arp_global.sysparam.accounting_method = 'ACCRUAL'
3541: THEN
3633:
3634:
3635: --Validate reference_id, reference_type
3636: IF PG_DEBUG in ('Y', 'C') THEN
3637: arp_util.debug('Validate_misc_receipt: ' || 'Validation for reference id begins');
3638: END IF;
3639: IF p_reference_type IS NOT NULL THEN
3640: IF p_reference_id IS NOT NULL THEN
3641: BEGIN
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;
3750:
3751: EXCEPTION
3752: WHEN others THEN
3750:
3751: EXCEPTION
3752: WHEN others THEN
3753: IF PG_DEBUG in ('Y', 'C') THEN
3754: arp_util.debug('EXCEPTION : Validate_misc_receipt()');
3755: END IF;
3756: raise;
3757:
3758: END Validate_misc_receipt;
3768: l_cash_receipt_id NUMBER;
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:
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:
3816: EXCEPTION
3817: WHEN others THEN
3818: FND_MESSAGE.SET_NAME('AR', 'GENERIC_MESSAGE');
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(
3826: p_receipt_number IN VARCHAR2,
3833: l_payment_type_code VARCHAR2(30);
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:
3884:
3885: END IF;
3886: END IF;
3887:
3888: arp_util.debug('Validate payment Type (-)');
3889:
3890: EXCEPTION
3891: WHEN others THEN
3892: FND_MESSAGE.SET_NAME('AR', 'GENERIC_MESSAGE');
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
3900: -- If a claim investigation app, then check the claim status.
3920:
3921:
3922: BEGIN
3923: IF PG_DEBUG in ('Y', 'C') THEN
3924: arp_util.debug('ar_receipt_val_pvt.validate_claim_unapply()+');
3925: END IF;
3926:
3927: l_secondary_app_ref_id := p_secondary_app_ref_id;
3928:
3942: , x_return_status => p_return_status
3943: , x_msg_count => l_msg_count
3944: , x_msg_data => l_msg_data);
3945: IF PG_DEBUG in ('Y', 'C') THEN
3946: arp_util.debug('ar_receipt_val_pvt.validate_claim_unapply()-');
3947: END IF;
3948: EXCEPTION
3949: WHEN others THEN
3950: FND_MESSAGE.SET_NAME('AR', 'GENERIC_MESSAGE');
3951: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT',SQLERRM);
3952: FND_MSG_PUB.Add;
3953: p_return_status := FND_API.G_RET_STS_ERROR ;
3954: IF PG_DEBUG in ('Y', 'C') THEN
3955: arp_util.debug('EXCEPTION :ar_receipt_val_pvt.validate_claim_unapply '||SQLERRM);
3956: END IF;
3957: END validate_claim_unapply;
3958:
3959: PROCEDURE validate_open_receipt_info(
3987:
3988: BEGIN
3989:
3990: IF PG_DEBUG in ('Y', 'C') THEN
3991: arp_util.debug('ar_receipt_val_pvt.validate_open_receipt_info()+');
3992: END IF;
3993:
3994: -- Bug 3235089: checks for activity existing and accounting set up
3995: BEGIN
4037: l_apply_date_return_status
4038: );
4039:
4040: IF PG_DEBUG in ('Y', 'C') THEN
4041: arp_util.debug('Validate_open_receipt_info: ' || 'Apply date return status :'||l_apply_date_return_status);
4042: END IF;
4043:
4044: validate_apply_gl_date(p_apply_gl_date ,
4045: p_cr_gl_date ,
4054: END IF;
4055:
4056:
4057: IF PG_DEBUG in ('Y', 'C') THEN
4058: arp_util.debug('Validate_open_receipt_info: ' || 'Apply gl_date return status :'||l_gl_date_return_status);
4059: arp_util.debug('Validate_open_receipt_info: ' || 'p_unapplied_cash :'||p_unapplied_cash);
4060: arp_util.debug('Validate_open_receipt_info: ' || 'p_amount_applied :'||p_amount_applied);
4061: arp_util.debug('Validate_open_receipt_info: ' || 'p_called_from :'||p_called_from);
4062: END IF;
4055:
4056:
4057: IF PG_DEBUG in ('Y', 'C') THEN
4058: arp_util.debug('Validate_open_receipt_info: ' || 'Apply gl_date return status :'||l_gl_date_return_status);
4059: arp_util.debug('Validate_open_receipt_info: ' || 'p_unapplied_cash :'||p_unapplied_cash);
4060: arp_util.debug('Validate_open_receipt_info: ' || 'p_amount_applied :'||p_amount_applied);
4061: arp_util.debug('Validate_open_receipt_info: ' || 'p_called_from :'||p_called_from);
4062: END IF;
4063: -- validate amount applied
4056:
4057: IF PG_DEBUG in ('Y', 'C') THEN
4058: arp_util.debug('Validate_open_receipt_info: ' || 'Apply gl_date return status :'||l_gl_date_return_status);
4059: arp_util.debug('Validate_open_receipt_info: ' || 'p_unapplied_cash :'||p_unapplied_cash);
4060: arp_util.debug('Validate_open_receipt_info: ' || 'p_amount_applied :'||p_amount_applied);
4061: arp_util.debug('Validate_open_receipt_info: ' || 'p_called_from :'||p_called_from);
4062: END IF;
4063: -- validate amount applied
4064: IF p_amount_applied IS NULL THEN
4057: IF PG_DEBUG in ('Y', 'C') THEN
4058: arp_util.debug('Validate_open_receipt_info: ' || 'Apply gl_date return status :'||l_gl_date_return_status);
4059: arp_util.debug('Validate_open_receipt_info: ' || 'p_unapplied_cash :'||p_unapplied_cash);
4060: arp_util.debug('Validate_open_receipt_info: ' || 'p_amount_applied :'||p_amount_applied);
4061: arp_util.debug('Validate_open_receipt_info: ' || 'p_called_from :'||p_called_from);
4062: END IF;
4063: -- validate amount applied
4064: IF p_amount_applied IS NULL THEN
4065: FND_MESSAGE.SET_NAME('AR','AR_RAPI_APPLIED_AMT_NULL');
4086:
4087: END IF;
4088:
4089: IF PG_DEBUG in ('Y', 'C') THEN
4090: arp_util.debug('Validate_open_receipt_info: ' || 'Amount return status :'||l_amt_return_status);
4091: END IF;
4092:
4093: SELECT sob.currency_code
4094: INTO l_func_currency
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()-');
4118: END IF;
4119: EXCEPTION
4120: WHEN others THEN
4121: FND_MESSAGE.SET_NAME('AR', 'GENERIC_MESSAGE');
4122: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT',SQLERRM);
4123: FND_MSG_PUB.Add;
4124: p_return_status := FND_API.G_RET_STS_ERROR ;
4125: IF PG_DEBUG in ('Y', 'C') THEN
4126: arp_util.debug('EXCEPTION :ar_receipt_val_pvt.validate_open_receipt_info '||SQLERRM);
4127: END IF;
4128:
4129: END validate_open_receipt_info;
4130:
4138: l_amount_applied NUMBER;
4139: BEGIN
4140:
4141: IF PG_DEBUG in ('Y', 'C') THEN
4142: arp_util.debug('ar_receipt_val_pvt.validate_unapp_open_receipt()+');
4143: END IF;
4144:
4145: -- Check if unapplication will send the applied-to receipt negative
4146:
4155: WHERE cash_receipt_id = p_applied_cash_receipt_id
4156: AND display = 'Y';
4157:
4158: IF PG_DEBUG in ('Y', 'C') THEN
4159: arp_util.debug('validate_unapp_open_receipt-Receipt amount: '||l_cr_amount);
4160: arp_util.debug('validate_unapp_open_receipt-Applied amount: '||l_amount_applied);
4161: END IF;
4162:
4163: IF (l_cr_amount - l_amount_applied - p_amount_applied) < 0 THEN
4156: AND display = 'Y';
4157:
4158: IF PG_DEBUG in ('Y', 'C') THEN
4159: arp_util.debug('validate_unapp_open_receipt-Receipt amount: '||l_cr_amount);
4160: arp_util.debug('validate_unapp_open_receipt-Applied amount: '||l_amount_applied);
4161: END IF;
4162:
4163: IF (l_cr_amount - l_amount_applied - p_amount_applied) < 0 THEN
4164: FND_MESSAGE.set_name('AR','AR_RW_NET_UNAPP_OVERAPP');
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()-');
4171: END IF;
4172:
4173: EXCEPTION
4174: WHEN others THEN
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:
4183: END validate_unapp_open_receipt;
4184:
4305: l_dflex_val_return_status VARCHAR2(1); --bug7311231
4306: l_attribute_rec ar_receipt_api_pub.attribute_rec_type; --bug7311231
4307: BEGIN
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:
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 ...');
4317: END IF;
4318: /*
4319: -- Initialize the Sys Parameters /INV PS /REC PS / Copy Trx lines into GT
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 ...');
4317: END IF;
4318: /*
4319: -- Initialize the Sys Parameters /INV PS /REC PS / Copy Trx lines into GT
4320: arp_process_det_pkg.initialization (p_customer_trx_id,
4322: p_return_status,
4323: p_msg_data,
4324: p_msg_count); */
4325: IF PG_DEBUG in ('Y', 'C') THEN
4326: arp_util.debug('Initialization Return_status = '||p_return_status);
4327: END IF;
4328:
4329: -- LLCA Summary
4330: IF p_llca_type = 'S'
4330: IF p_llca_type = 'S'
4331: THEN
4332:
4333: IF PG_DEBUG in ('Y', 'C') THEN
4334: arp_util.debug('Summary Level application... ');
4335: arp_util.debug('p_line_amount ... '||p_line_amount);
4336: arp_util.debug('p_tax_amount ... '||p_tax_amount);
4337: arp_util.debug('p_freight_amount ... '||p_freight_amount);
4338: arp_util.debug('p_charges_amount ... '||p_charges_amount);
4331: THEN
4332:
4333: IF PG_DEBUG in ('Y', 'C') THEN
4334: arp_util.debug('Summary Level application... ');
4335: arp_util.debug('p_line_amount ... '||p_line_amount);
4336: arp_util.debug('p_tax_amount ... '||p_tax_amount);
4337: arp_util.debug('p_freight_amount ... '||p_freight_amount);
4338: arp_util.debug('p_charges_amount ... '||p_charges_amount);
4339: arp_util.debug('p_line_discount ... '||p_line_discount);
4332:
4333: IF PG_DEBUG in ('Y', 'C') THEN
4334: arp_util.debug('Summary Level application... ');
4335: arp_util.debug('p_line_amount ... '||p_line_amount);
4336: arp_util.debug('p_tax_amount ... '||p_tax_amount);
4337: arp_util.debug('p_freight_amount ... '||p_freight_amount);
4338: arp_util.debug('p_charges_amount ... '||p_charges_amount);
4339: arp_util.debug('p_line_discount ... '||p_line_discount);
4340: arp_util.debug('p_tax_discount ... '||p_tax_discount);
4333: IF PG_DEBUG in ('Y', 'C') THEN
4334: arp_util.debug('Summary Level application... ');
4335: arp_util.debug('p_line_amount ... '||p_line_amount);
4336: arp_util.debug('p_tax_amount ... '||p_tax_amount);
4337: arp_util.debug('p_freight_amount ... '||p_freight_amount);
4338: arp_util.debug('p_charges_amount ... '||p_charges_amount);
4339: arp_util.debug('p_line_discount ... '||p_line_discount);
4340: arp_util.debug('p_tax_discount ... '||p_tax_discount);
4341: arp_util.debug('p_freight_discount ... '||p_freight_discount);
4334: arp_util.debug('Summary Level application... ');
4335: arp_util.debug('p_line_amount ... '||p_line_amount);
4336: arp_util.debug('p_tax_amount ... '||p_tax_amount);
4337: arp_util.debug('p_freight_amount ... '||p_freight_amount);
4338: arp_util.debug('p_charges_amount ... '||p_charges_amount);
4339: arp_util.debug('p_line_discount ... '||p_line_discount);
4340: arp_util.debug('p_tax_discount ... '||p_tax_discount);
4341: arp_util.debug('p_freight_discount ... '||p_freight_discount);
4342: arp_util.debug('Trans_to_receipt_rate='||p_trans_to_receipt_rate);
4335: arp_util.debug('p_line_amount ... '||p_line_amount);
4336: arp_util.debug('p_tax_amount ... '||p_tax_amount);
4337: arp_util.debug('p_freight_amount ... '||p_freight_amount);
4338: arp_util.debug('p_charges_amount ... '||p_charges_amount);
4339: arp_util.debug('p_line_discount ... '||p_line_discount);
4340: arp_util.debug('p_tax_discount ... '||p_tax_discount);
4341: arp_util.debug('p_freight_discount ... '||p_freight_discount);
4342: arp_util.debug('Trans_to_receipt_rate='||p_trans_to_receipt_rate);
4343: arp_util.debug('Invoice Currency Code='||p_invoice_currency_code);
4336: arp_util.debug('p_tax_amount ... '||p_tax_amount);
4337: arp_util.debug('p_freight_amount ... '||p_freight_amount);
4338: arp_util.debug('p_charges_amount ... '||p_charges_amount);
4339: arp_util.debug('p_line_discount ... '||p_line_discount);
4340: arp_util.debug('p_tax_discount ... '||p_tax_discount);
4341: arp_util.debug('p_freight_discount ... '||p_freight_discount);
4342: arp_util.debug('Trans_to_receipt_rate='||p_trans_to_receipt_rate);
4343: arp_util.debug('Invoice Currency Code='||p_invoice_currency_code);
4344: arp_util.debug('Receipt Currency Code='||p_receipt_currency_code);
4337: arp_util.debug('p_freight_amount ... '||p_freight_amount);
4338: arp_util.debug('p_charges_amount ... '||p_charges_amount);
4339: arp_util.debug('p_line_discount ... '||p_line_discount);
4340: arp_util.debug('p_tax_discount ... '||p_tax_discount);
4341: arp_util.debug('p_freight_discount ... '||p_freight_discount);
4342: arp_util.debug('Trans_to_receipt_rate='||p_trans_to_receipt_rate);
4343: arp_util.debug('Invoice Currency Code='||p_invoice_currency_code);
4344: arp_util.debug('Receipt Currency Code='||p_receipt_currency_code);
4345: arp_util.debug('............................ ');
4338: arp_util.debug('p_charges_amount ... '||p_charges_amount);
4339: arp_util.debug('p_line_discount ... '||p_line_discount);
4340: arp_util.debug('p_tax_discount ... '||p_tax_discount);
4341: arp_util.debug('p_freight_discount ... '||p_freight_discount);
4342: arp_util.debug('Trans_to_receipt_rate='||p_trans_to_receipt_rate);
4343: arp_util.debug('Invoice Currency Code='||p_invoice_currency_code);
4344: arp_util.debug('Receipt Currency Code='||p_receipt_currency_code);
4345: arp_util.debug('............................ ');
4346: END IF;
4339: arp_util.debug('p_line_discount ... '||p_line_discount);
4340: arp_util.debug('p_tax_discount ... '||p_tax_discount);
4341: arp_util.debug('p_freight_discount ... '||p_freight_discount);
4342: arp_util.debug('Trans_to_receipt_rate='||p_trans_to_receipt_rate);
4343: arp_util.debug('Invoice Currency Code='||p_invoice_currency_code);
4344: arp_util.debug('Receipt Currency Code='||p_receipt_currency_code);
4345: arp_util.debug('............................ ');
4346: END IF;
4347:
4340: arp_util.debug('p_tax_discount ... '||p_tax_discount);
4341: arp_util.debug('p_freight_discount ... '||p_freight_discount);
4342: arp_util.debug('Trans_to_receipt_rate='||p_trans_to_receipt_rate);
4343: arp_util.debug('Invoice Currency Code='||p_invoice_currency_code);
4344: arp_util.debug('Receipt Currency Code='||p_receipt_currency_code);
4345: arp_util.debug('............................ ');
4346: END IF;
4347:
4348: --bug7311231.
4341: arp_util.debug('p_freight_discount ... '||p_freight_discount);
4342: arp_util.debug('Trans_to_receipt_rate='||p_trans_to_receipt_rate);
4343: arp_util.debug('Invoice Currency Code='||p_invoice_currency_code);
4344: arp_util.debug('Receipt Currency Code='||p_receipt_currency_code);
4345: arp_util.debug('............................ ');
4346: END IF;
4347:
4348: --bug7311231.
4349: ar_ll_rcv_summary_pkg.insert_row(
4381: ELSIF p_llca_type = 'G'
4382: THEN
4383:
4384: IF PG_DEBUG in ('Y', 'C') THEN
4385: arp_util.debug('Group Level application... ');
4386: END IF;
4387:
4388: If p_group_id is NOT NULL
4389: THEN
4406: -- Unapplied balance to total amount applied and calculate the line amount as
4407: -- amount_applied * (line_bal/(line_bal+tax_bal)) and tax_amount =
4408: -- amount_applied - line_amount
4409:
4410: l_calc_tot_amount_app := arp_util.CurrRound(l_cr_unapp_bal
4411: ,p_invoice_currency_code);
4412:
4413: Select decode ( ( Nvl(line_grp.line_to_apply,0)
4414: / (Nvl(line_grp.line_to_apply,0)
4423: )
4424: into l_calc_line_per
4425: from dual;
4426:
4427: l_calc_line_amount := arp_util.CurrRound((l_calc_tot_amount_app
4428: * l_calc_line_per),p_invoice_currency_code);
4429: l_calc_tax_amount := arp_util.CurrRound((Nvl(l_calc_tot_amount_app,0)
4430: - Nvl(l_calc_line_amount,0))
4431: ,p_invoice_currency_code);
4425: from dual;
4426:
4427: l_calc_line_amount := arp_util.CurrRound((l_calc_tot_amount_app
4428: * l_calc_line_per),p_invoice_currency_code);
4429: l_calc_tax_amount := arp_util.CurrRound((Nvl(l_calc_tot_amount_app,0)
4430: - Nvl(l_calc_line_amount,0))
4431: ,p_invoice_currency_code);
4432: Else
4433: l_calc_line_amount := Nvl(line_grp.line_to_apply,0);
4482: -- Line Level
4483: ELSIF p_llca_type = 'L'
4484: THEN
4485: IF PG_DEBUG in ('Y', 'C') THEN
4486: arp_util.debug('Line Level application... ');
4487: END IF;
4488:
4489: select count(*)
4490: into l_gt_count
4495: -- All Lines
4496: IF nvl(l_gt_count,0) = 0
4497: THEN
4498: IF PG_DEBUG in ('Y', 'C') THEN
4499: arp_util.debug('All Lines... ');
4500: END IF;
4501: -- Customer Select All lines
4502: l_cr_unapp_bal := Nvl(p_cr_unapp_amount,0);
4503:
4507: l_calc_tot_amount_app := Nvl(All_lines_row.line_to_apply,0)
4508: + Nvl(All_lines_row.tax_to_apply,0);
4509: /* Bug 5438627 : Amount in Receipt Currency */
4510: If p_trans_to_receipt_rate <> 0 then
4511: l_calc_amount_app_from := arp_util.CurrRound((Nvl(l_calc_tot_amount_app,0) *
4512: nvl(p_trans_to_receipt_rate,0)), p_receipt_currency_code);
4513: Else
4514: l_calc_amount_app_from := Nvl(l_calc_tot_amount_app,0);
4515: End If;
4521: l_calc_line_amount := 0;
4522: l_calc_tax_amount := 0;
4523: Else
4524: IF PG_DEBUG in ('Y', 'C') THEN
4525: arp_util.debug('Customer_trx_line_id => '||to_char(All_lines_row.line_id));
4526: arp_util.debug('l_calc_tot_amount_app -> '||to_char(l_calc_tot_amount_app));
4527: arp_util.debug('l_calc_amount_app_from-> '||to_char(l_calc_amount_app_from));
4528: arp_util.debug('l_cr_unapp_bal -> '||to_char(l_cr_unapp_bal));
4529: END IF;
4522: l_calc_tax_amount := 0;
4523: Else
4524: IF PG_DEBUG in ('Y', 'C') THEN
4525: arp_util.debug('Customer_trx_line_id => '||to_char(All_lines_row.line_id));
4526: arp_util.debug('l_calc_tot_amount_app -> '||to_char(l_calc_tot_amount_app));
4527: arp_util.debug('l_calc_amount_app_from-> '||to_char(l_calc_amount_app_from));
4528: arp_util.debug('l_cr_unapp_bal -> '||to_char(l_cr_unapp_bal));
4529: END IF;
4530: If Nvl(l_calc_amount_app_from,0) > Nvl(l_cr_unapp_bal,0) Then
4523: Else
4524: IF PG_DEBUG in ('Y', 'C') THEN
4525: arp_util.debug('Customer_trx_line_id => '||to_char(All_lines_row.line_id));
4526: arp_util.debug('l_calc_tot_amount_app -> '||to_char(l_calc_tot_amount_app));
4527: arp_util.debug('l_calc_amount_app_from-> '||to_char(l_calc_amount_app_from));
4528: arp_util.debug('l_cr_unapp_bal -> '||to_char(l_cr_unapp_bal));
4529: END IF;
4530: If Nvl(l_calc_amount_app_from,0) > Nvl(l_cr_unapp_bal,0) Then
4531: -- Unapplied balance is non zero and > than amount applied, so default the
4524: IF PG_DEBUG in ('Y', 'C') THEN
4525: arp_util.debug('Customer_trx_line_id => '||to_char(All_lines_row.line_id));
4526: arp_util.debug('l_calc_tot_amount_app -> '||to_char(l_calc_tot_amount_app));
4527: arp_util.debug('l_calc_amount_app_from-> '||to_char(l_calc_amount_app_from));
4528: arp_util.debug('l_cr_unapp_bal -> '||to_char(l_cr_unapp_bal));
4529: END IF;
4530: If Nvl(l_calc_amount_app_from,0) > Nvl(l_cr_unapp_bal,0) Then
4531: -- Unapplied balance is non zero and > than amount applied, so default the
4532: -- Unapplied balance to total amount applied and calculate the line amount as
4533: -- amount_applied * (line_bal/(line_bal+tax_bal)) and tax_amount =
4534: -- amount_applied - line_amount
4535:
4536: IF PG_DEBUG in ('Y', 'C') THEN
4537: arp_util.debug('l_calc_amount_app_from > l_cr_unapp_bal' );
4538: arp_util.debug('Resetting... amount applied and buckets');
4539: END IF;
4540:
4541: l_calc_amount_app_from := Nvl(l_cr_unapp_bal,0);
4534: -- amount_applied - line_amount
4535:
4536: IF PG_DEBUG in ('Y', 'C') THEN
4537: arp_util.debug('l_calc_amount_app_from > l_cr_unapp_bal' );
4538: arp_util.debug('Resetting... amount applied and buckets');
4539: END IF;
4540:
4541: l_calc_amount_app_from := Nvl(l_cr_unapp_bal,0);
4542:
4540:
4541: l_calc_amount_app_from := Nvl(l_cr_unapp_bal,0);
4542:
4543: If p_trans_to_receipt_rate <> 0 then
4544: l_calc_tot_amount_app := arp_util.CurrRound((l_cr_unapp_bal/p_trans_to_receipt_rate)
4545: ,p_invoice_currency_code);
4546: Else
4547: l_calc_tot_amount_app := arp_util.CurrRound(l_cr_unapp_bal
4548: ,p_invoice_currency_code);
4543: If p_trans_to_receipt_rate <> 0 then
4544: l_calc_tot_amount_app := arp_util.CurrRound((l_cr_unapp_bal/p_trans_to_receipt_rate)
4545: ,p_invoice_currency_code);
4546: Else
4547: l_calc_tot_amount_app := arp_util.CurrRound(l_cr_unapp_bal
4548: ,p_invoice_currency_code);
4549: End If;
4550:
4551:
4562: )
4563: into l_calc_line_per
4564: from dual;
4565:
4566: l_calc_line_amount := arp_util.CurrRound((l_calc_tot_amount_app
4567: * l_calc_line_per),p_invoice_currency_code);
4568: l_calc_tax_amount := arp_util.CurrRound((Nvl(l_calc_tot_amount_app,0)
4569: - Nvl(l_calc_line_amount,0))
4570: ,p_invoice_currency_code);
4564: from dual;
4565:
4566: l_calc_line_amount := arp_util.CurrRound((l_calc_tot_amount_app
4567: * l_calc_line_per),p_invoice_currency_code);
4568: l_calc_tax_amount := arp_util.CurrRound((Nvl(l_calc_tot_amount_app,0)
4569: - Nvl(l_calc_line_amount,0))
4570: ,p_invoice_currency_code);
4571: Else
4572: l_calc_line_amount := Nvl(All_lines_row.line_to_apply,0);
4576: -- Reset the balance
4577: l_cr_unapp_bal := Nvl(l_cr_unapp_bal,0) - Nvl(l_calc_amount_app_from,0);
4578:
4579: IF PG_DEBUG in ('Y', 'C') THEN
4580: arp_util.debug('l_calc_line_amount -> '||to_char(l_calc_line_amount));
4581: arp_util.debug('l_calc_tax_amount -> '||to_char(l_calc_tax_amount));
4582: arp_util.debug('l_cr_unapp_bal (R) => '||to_char(l_cr_unapp_bal));
4583: END IF;
4584: End If;
4577: l_cr_unapp_bal := Nvl(l_cr_unapp_bal,0) - Nvl(l_calc_amount_app_from,0);
4578:
4579: IF PG_DEBUG in ('Y', 'C') THEN
4580: arp_util.debug('l_calc_line_amount -> '||to_char(l_calc_line_amount));
4581: arp_util.debug('l_calc_tax_amount -> '||to_char(l_calc_tax_amount));
4582: arp_util.debug('l_cr_unapp_bal (R) => '||to_char(l_cr_unapp_bal));
4583: END IF;
4584: End If;
4585:
4578:
4579: IF PG_DEBUG in ('Y', 'C') THEN
4580: arp_util.debug('l_calc_line_amount -> '||to_char(l_calc_line_amount));
4581: arp_util.debug('l_calc_tax_amount -> '||to_char(l_calc_tax_amount));
4582: arp_util.debug('l_cr_unapp_bal (R) => '||to_char(l_cr_unapp_bal));
4583: END IF;
4584: End If;
4585:
4586: ar_activity_details_pkg.insert_row (
4626: ELSIF Nvl(l_gt_count,0) > 0
4627: THEN
4628: ---
4629: IF PG_DEBUG in ('Y', 'C') THEN
4630: arp_util.debug('Specified one or more lines in PLSQL table... ');
4631: END IF;
4632:
4633: -- Calculate the line level amounts
4634: l_cr_unapp_bal := Nvl(p_cr_unapp_amount,0);
4634: l_cr_unapp_bal := Nvl(p_cr_unapp_amount,0);
4635:
4636: --bug7311231, start
4637: IF PG_DEBUG in ('Y', 'C') THEN
4638: arp_util.debug('Validating Value passed for Descriptive Flexfield at line level.');
4639: END IF;
4640: For sp_lines_row in gt_lines_cur(p_customer_trx_id)
4641: LOOP
4642: l_attribute_rec.attribute_category := sp_lines_row.attribute_category;
4674: End Loop;
4675:
4676: If p_return_status = 'X' Then
4677: IF PG_DEBUG in ('Y', 'C') THEN
4678: arp_util.debug('Failed: Validation of Descriptive Flexfield at line level.');
4679: END IF;
4680: return;
4681: End If;
4682: --bug7311231, End.
4712: FND_MSG_PUB.ADD;
4713: RAISE;
4714: WHEN others THEN
4715: IF PG_DEBUG in ('Y', 'C') THEN
4716: arp_util.debug('' || 'EXCEPTION: validate_llac_insert_ad()');
4717: END IF;
4718: RAISE;
4719: END;
4720:
4719: END;
4720:
4721: /* Bug 5438627 : Amount in Receipt Currency */
4722: If p_trans_to_receipt_rate <> 0 then
4723: l_calc_amount_app_from := arp_util.CurrRound((Nvl(sp_lines_row.amount_applied,0) *
4724: nvl(p_trans_to_receipt_rate,0)), p_receipt_currency_code);
4725: Else
4726: l_calc_amount_app_from := Nvl(sp_lines_row.amount_applied,0);
4727: End If;
4726: l_calc_amount_app_from := Nvl(sp_lines_row.amount_applied,0);
4727: End If;
4728:
4729: IF PG_DEBUG in ('Y', 'C') THEN
4730: arp_util.debug('Amount_applied -> '||to_char(sp_lines_row.amount_applied));
4731: arp_util.debug('l_calc_amount_app_from-> '||to_char(l_calc_amount_app_from));
4732: arp_util.debug('l_cr_unapp_bal -> '||to_char(l_cr_unapp_bal));
4733: END IF;
4734:
4727: End If;
4728:
4729: IF PG_DEBUG in ('Y', 'C') THEN
4730: arp_util.debug('Amount_applied -> '||to_char(sp_lines_row.amount_applied));
4731: arp_util.debug('l_calc_amount_app_from-> '||to_char(l_calc_amount_app_from));
4732: arp_util.debug('l_cr_unapp_bal -> '||to_char(l_cr_unapp_bal));
4733: END IF;
4734:
4735: -- Check the Unapplied balance
4728:
4729: IF PG_DEBUG in ('Y', 'C') THEN
4730: arp_util.debug('Amount_applied -> '||to_char(sp_lines_row.amount_applied));
4731: arp_util.debug('l_calc_amount_app_from-> '||to_char(l_calc_amount_app_from));
4732: arp_util.debug('l_cr_unapp_bal -> '||to_char(l_cr_unapp_bal));
4733: END IF;
4734:
4735: -- Check the Unapplied balance
4736: /* Acctd amount will be validated via validate_amount_applied_from, so
4737: the below validation is not required.
4738: If Nvl(l_calc_amount_app_from,0) > Nvl(l_cr_unapp_bal,0)
4739: 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');
4738: If Nvl(l_calc_amount_app_from,0) > Nvl(l_cr_unapp_bal,0)
4739: 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;
4749: -- Reset the balance
4750: l_cr_unapp_bal := Nvl(l_cr_unapp_bal,0) - Nvl(l_calc_amount_app_from,0);
4751:
4752: IF PG_DEBUG in ('Y', 'C') THEN
4753: arp_util.debug('l_calc_line_amount -> '||to_char(l_calc_line_amount));
4754: arp_util.debug('l_calc_tax_amount -> '||to_char(l_calc_tax_amount));
4755: arp_util.debug('l_cr_unapp_bal (R) => '||to_char(l_cr_unapp_bal));
4756: END IF;
4757: --- End If;
4750: l_cr_unapp_bal := Nvl(l_cr_unapp_bal,0) - Nvl(l_calc_amount_app_from,0);
4751:
4752: IF PG_DEBUG in ('Y', 'C') THEN
4753: arp_util.debug('l_calc_line_amount -> '||to_char(l_calc_line_amount));
4754: arp_util.debug('l_calc_tax_amount -> '||to_char(l_calc_tax_amount));
4755: arp_util.debug('l_cr_unapp_bal (R) => '||to_char(l_cr_unapp_bal));
4756: END IF;
4757: --- End If;
4758: --bug7311231, Picking the flexfield value from ar_llca_trx_lines_gt, for each line.
4751:
4752: IF PG_DEBUG in ('Y', 'C') THEN
4753: arp_util.debug('l_calc_line_amount -> '||to_char(l_calc_line_amount));
4754: arp_util.debug('l_calc_tax_amount -> '||to_char(l_calc_tax_amount));
4755: arp_util.debug('l_cr_unapp_bal (R) => '||to_char(l_cr_unapp_bal));
4756: END IF;
4757: --- End If;
4758: --bug7311231, Picking the flexfield value from ar_llca_trx_lines_gt, for each line.
4759: ar_activity_details_pkg.insert_row(
4815:
4816: End If; /* End of LLCA TYPE */
4817:
4818: IF PG_DEBUG in ('Y', 'C') THEN
4819: arp_util.debug('ar_receipt_val_pvt.validate_llac_insert_ad()-');
4820: END IF;
4821: EXCEPTION
4822: WHEN others THEN
4823: IF PG_DEBUG in ('Y', 'C') THEN
4820: END IF;
4821: EXCEPTION
4822: WHEN others THEN
4823: IF PG_DEBUG in ('Y', 'C') THEN
4824: arp_util.debug('EXCEPTION: ar_receipt_val_pvt.validate_llac_insert_ad()');
4825: END IF;
4826: RAISE;
4827: END validate_llca_insert_ad;
4828:
4898: lf_calc_ed_frt_disc NUMBER :=0;
4899: lf_calc_ued_frt_disc NUMBER :=0;
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)
4917: l_calc_ued_frt_disc := rcv_lines_row.frt_disc - l_calc_ed_frt_disc;
4918: End If;
4919:
4920: IF PG_DEBUG in ('Y', 'C') THEN
4921: arp_util.debug('Calling Application Execute for Lines and Tax');
4922: arp_util.debug('Customer Trx Line ID => '||rcv_lines_row.ctl_id);
4923: arp_util.debug('Line Amount => '||rcv_lines_row.lin);
4924: arp_util.debug('Tax Amount => '||rcv_lines_row.Tax);
4925: arp_util.debug('Freight Amount => '||rcv_lines_row.frt);
4918: End If;
4919:
4920: IF PG_DEBUG in ('Y', 'C') THEN
4921: arp_util.debug('Calling Application Execute for Lines and Tax');
4922: arp_util.debug('Customer Trx Line ID => '||rcv_lines_row.ctl_id);
4923: arp_util.debug('Line Amount => '||rcv_lines_row.lin);
4924: arp_util.debug('Tax Amount => '||rcv_lines_row.Tax);
4925: arp_util.debug('Freight Amount => '||rcv_lines_row.frt);
4926: arp_util.debug('Charges Amount => '||rcv_lines_row.Chg);
4919:
4920: IF PG_DEBUG in ('Y', 'C') THEN
4921: arp_util.debug('Calling Application Execute for Lines and Tax');
4922: arp_util.debug('Customer Trx Line ID => '||rcv_lines_row.ctl_id);
4923: arp_util.debug('Line Amount => '||rcv_lines_row.lin);
4924: arp_util.debug('Tax Amount => '||rcv_lines_row.Tax);
4925: arp_util.debug('Freight Amount => '||rcv_lines_row.frt);
4926: arp_util.debug('Charges Amount => '||rcv_lines_row.Chg);
4927: arp_util.debug('Line Earned Discount => '||l_calc_ed_line_disc);
4920: IF PG_DEBUG in ('Y', 'C') THEN
4921: arp_util.debug('Calling Application Execute for Lines and Tax');
4922: arp_util.debug('Customer Trx Line ID => '||rcv_lines_row.ctl_id);
4923: arp_util.debug('Line Amount => '||rcv_lines_row.lin);
4924: arp_util.debug('Tax Amount => '||rcv_lines_row.Tax);
4925: arp_util.debug('Freight Amount => '||rcv_lines_row.frt);
4926: arp_util.debug('Charges Amount => '||rcv_lines_row.Chg);
4927: arp_util.debug('Line Earned Discount => '||l_calc_ed_line_disc);
4928: arp_util.debug('Tax Earned Discount => '||l_calc_ed_tax_disc);
4921: arp_util.debug('Calling Application Execute for Lines and Tax');
4922: arp_util.debug('Customer Trx Line ID => '||rcv_lines_row.ctl_id);
4923: arp_util.debug('Line Amount => '||rcv_lines_row.lin);
4924: arp_util.debug('Tax Amount => '||rcv_lines_row.Tax);
4925: arp_util.debug('Freight Amount => '||rcv_lines_row.frt);
4926: arp_util.debug('Charges Amount => '||rcv_lines_row.Chg);
4927: arp_util.debug('Line Earned Discount => '||l_calc_ed_line_disc);
4928: arp_util.debug('Tax Earned Discount => '||l_calc_ed_tax_disc);
4929: arp_util.debug('Frt Earned Discount => '||l_calc_ed_frt_disc);
4922: arp_util.debug('Customer Trx Line ID => '||rcv_lines_row.ctl_id);
4923: arp_util.debug('Line Amount => '||rcv_lines_row.lin);
4924: arp_util.debug('Tax Amount => '||rcv_lines_row.Tax);
4925: arp_util.debug('Freight Amount => '||rcv_lines_row.frt);
4926: arp_util.debug('Charges Amount => '||rcv_lines_row.Chg);
4927: arp_util.debug('Line Earned Discount => '||l_calc_ed_line_disc);
4928: arp_util.debug('Tax Earned Discount => '||l_calc_ed_tax_disc);
4929: arp_util.debug('Frt Earned Discount => '||l_calc_ed_frt_disc);
4930: arp_util.debug('Line UNearned Discount=> '||l_calc_ued_line_disc);
4923: arp_util.debug('Line Amount => '||rcv_lines_row.lin);
4924: arp_util.debug('Tax Amount => '||rcv_lines_row.Tax);
4925: arp_util.debug('Freight Amount => '||rcv_lines_row.frt);
4926: arp_util.debug('Charges Amount => '||rcv_lines_row.Chg);
4927: arp_util.debug('Line Earned Discount => '||l_calc_ed_line_disc);
4928: arp_util.debug('Tax Earned Discount => '||l_calc_ed_tax_disc);
4929: arp_util.debug('Frt Earned Discount => '||l_calc_ed_frt_disc);
4930: arp_util.debug('Line UNearned Discount=> '||l_calc_ued_line_disc);
4931: arp_util.debug('Tax UNearned Discount=> '||l_calc_ued_tax_disc);
4924: arp_util.debug('Tax Amount => '||rcv_lines_row.Tax);
4925: arp_util.debug('Freight Amount => '||rcv_lines_row.frt);
4926: arp_util.debug('Charges Amount => '||rcv_lines_row.Chg);
4927: arp_util.debug('Line Earned Discount => '||l_calc_ed_line_disc);
4928: arp_util.debug('Tax Earned Discount => '||l_calc_ed_tax_disc);
4929: arp_util.debug('Frt Earned Discount => '||l_calc_ed_frt_disc);
4930: arp_util.debug('Line UNearned Discount=> '||l_calc_ued_line_disc);
4931: arp_util.debug('Tax UNearned Discount=> '||l_calc_ued_tax_disc);
4932: arp_util.debug('Frt UNearned Discount=> '||l_calc_ued_frt_disc);
4925: arp_util.debug('Freight Amount => '||rcv_lines_row.frt);
4926: arp_util.debug('Charges Amount => '||rcv_lines_row.Chg);
4927: arp_util.debug('Line Earned Discount => '||l_calc_ed_line_disc);
4928: arp_util.debug('Tax Earned Discount => '||l_calc_ed_tax_disc);
4929: arp_util.debug('Frt Earned Discount => '||l_calc_ed_frt_disc);
4930: arp_util.debug('Line UNearned Discount=> '||l_calc_ued_line_disc);
4931: arp_util.debug('Tax UNearned Discount=> '||l_calc_ued_tax_disc);
4932: arp_util.debug('Frt UNearned Discount=> '||l_calc_ued_frt_disc);
4933: END IF;
4926: arp_util.debug('Charges Amount => '||rcv_lines_row.Chg);
4927: arp_util.debug('Line Earned Discount => '||l_calc_ed_line_disc);
4928: arp_util.debug('Tax Earned Discount => '||l_calc_ed_tax_disc);
4929: arp_util.debug('Frt Earned Discount => '||l_calc_ed_frt_disc);
4930: arp_util.debug('Line UNearned Discount=> '||l_calc_ued_line_disc);
4931: arp_util.debug('Tax UNearned Discount=> '||l_calc_ued_tax_disc);
4932: arp_util.debug('Frt UNearned Discount=> '||l_calc_ued_frt_disc);
4933: END IF;
4934: arp_process_det_pkg.application_execute(
4927: arp_util.debug('Line Earned Discount => '||l_calc_ed_line_disc);
4928: arp_util.debug('Tax Earned Discount => '||l_calc_ed_tax_disc);
4929: arp_util.debug('Frt Earned Discount => '||l_calc_ed_frt_disc);
4930: arp_util.debug('Line UNearned Discount=> '||l_calc_ued_line_disc);
4931: arp_util.debug('Tax UNearned Discount=> '||l_calc_ued_tax_disc);
4932: arp_util.debug('Frt UNearned Discount=> '||l_calc_ued_frt_disc);
4933: END IF;
4934: arp_process_det_pkg.application_execute(
4935: p_app_level =>'LINE',
4928: arp_util.debug('Tax Earned Discount => '||l_calc_ed_tax_disc);
4929: arp_util.debug('Frt Earned Discount => '||l_calc_ed_frt_disc);
4930: arp_util.debug('Line UNearned Discount=> '||l_calc_ued_line_disc);
4931: arp_util.debug('Tax UNearned Discount=> '||l_calc_ued_tax_disc);
4932: arp_util.debug('Frt UNearned Discount=> '||l_calc_ued_frt_disc);
4933: END IF;
4934: arp_process_det_pkg.application_execute(
4935: p_app_level =>'LINE',
4936: p_source_data_key1 =>rcv_lines_row.sdk1,
4960: x_msg_data =>ll_msg_data);
4961: End Loop;
4962:
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;
4975: lf_calc_ed_frt_disc := (rcv_frtchg_row.frt_disc / l_demon) * p_disc_earn_allowed;
4976: lf_calc_ued_frt_disc := rcv_frtchg_row.frt_disc - lf_calc_ed_frt_disc;
4977: End If;
4978: IF PG_DEBUG in ('Y', 'C') THEN
4979: arp_util.debug('Calling Application Execute for Freight Lines ');
4980: arp_util.debug('Line Amount => '||rcv_frtchg_row.lin);
4981: arp_util.debug('Tax Amount => '||rcv_frtchg_row.Tax);
4982: arp_util.debug('Freight Amount => '||rcv_frtchg_row.frt);
4983: arp_util.debug('Charges Amount => '||rcv_frtchg_row.Chg);
4976: lf_calc_ued_frt_disc := rcv_frtchg_row.frt_disc - lf_calc_ed_frt_disc;
4977: End If;
4978: IF PG_DEBUG in ('Y', 'C') THEN
4979: arp_util.debug('Calling Application Execute for Freight Lines ');
4980: arp_util.debug('Line Amount => '||rcv_frtchg_row.lin);
4981: arp_util.debug('Tax Amount => '||rcv_frtchg_row.Tax);
4982: arp_util.debug('Freight Amount => '||rcv_frtchg_row.frt);
4983: arp_util.debug('Charges Amount => '||rcv_frtchg_row.Chg);
4984: arp_util.debug('Frt Earned Discount => '||lf_calc_ed_frt_disc);
4977: End If;
4978: IF PG_DEBUG in ('Y', 'C') THEN
4979: arp_util.debug('Calling Application Execute for Freight Lines ');
4980: arp_util.debug('Line Amount => '||rcv_frtchg_row.lin);
4981: arp_util.debug('Tax Amount => '||rcv_frtchg_row.Tax);
4982: arp_util.debug('Freight Amount => '||rcv_frtchg_row.frt);
4983: arp_util.debug('Charges Amount => '||rcv_frtchg_row.Chg);
4984: arp_util.debug('Frt Earned Discount => '||lf_calc_ed_frt_disc);
4985: arp_util.debug('Frt UNearned Discount=> '||lf_calc_ued_frt_disc);
4978: IF PG_DEBUG in ('Y', 'C') THEN
4979: arp_util.debug('Calling Application Execute for Freight Lines ');
4980: arp_util.debug('Line Amount => '||rcv_frtchg_row.lin);
4981: arp_util.debug('Tax Amount => '||rcv_frtchg_row.Tax);
4982: arp_util.debug('Freight Amount => '||rcv_frtchg_row.frt);
4983: arp_util.debug('Charges Amount => '||rcv_frtchg_row.Chg);
4984: arp_util.debug('Frt Earned Discount => '||lf_calc_ed_frt_disc);
4985: arp_util.debug('Frt UNearned Discount=> '||lf_calc_ued_frt_disc);
4986: END IF;
4979: arp_util.debug('Calling Application Execute for Freight Lines ');
4980: arp_util.debug('Line Amount => '||rcv_frtchg_row.lin);
4981: arp_util.debug('Tax Amount => '||rcv_frtchg_row.Tax);
4982: arp_util.debug('Freight Amount => '||rcv_frtchg_row.frt);
4983: arp_util.debug('Charges Amount => '||rcv_frtchg_row.Chg);
4984: arp_util.debug('Frt Earned Discount => '||lf_calc_ed_frt_disc);
4985: arp_util.debug('Frt UNearned Discount=> '||lf_calc_ued_frt_disc);
4986: END IF;
4987: arp_process_det_pkg.application_execute(
4980: arp_util.debug('Line Amount => '||rcv_frtchg_row.lin);
4981: arp_util.debug('Tax Amount => '||rcv_frtchg_row.Tax);
4982: arp_util.debug('Freight Amount => '||rcv_frtchg_row.frt);
4983: arp_util.debug('Charges Amount => '||rcv_frtchg_row.Chg);
4984: arp_util.debug('Frt Earned Discount => '||lf_calc_ed_frt_disc);
4985: arp_util.debug('Frt UNearned Discount=> '||lf_calc_ued_frt_disc);
4986: END IF;
4987: arp_process_det_pkg.application_execute(
4988: p_app_level =>'TRANSACTION',
4981: arp_util.debug('Tax Amount => '||rcv_frtchg_row.Tax);
4982: arp_util.debug('Freight Amount => '||rcv_frtchg_row.frt);
4983: arp_util.debug('Charges Amount => '||rcv_frtchg_row.Chg);
4984: arp_util.debug('Frt Earned Discount => '||lf_calc_ed_frt_disc);
4985: arp_util.debug('Frt UNearned Discount=> '||lf_calc_ued_frt_disc);
4986: END IF;
4987: arp_process_det_pkg.application_execute(
4988: p_app_level =>'TRANSACTION',
4989: p_source_data_key1 =>NULL,
5013: x_msg_data =>ll_msg_data);
5014: END LOOP;
5015: END IF;
5016: IF PG_DEBUG in ('Y', 'C') THEN
5017: arp_util.debug('ar_receipt_val_pvt.validate_llac_insert_app()-');
5018: END IF;
5019:
5020: EXCEPTION
5021: WHEN others THEN
5019:
5020: EXCEPTION
5021: WHEN others THEN
5022: IF PG_DEBUG in ('Y', 'C') THEN
5023: arp_util.debug('EXCEPTION: ar_receipt_val_pvt.validate_llac_insert_app()');
5024: END IF;
5025: RAISE;
5026: END validate_llca_insert_app;
5027: