[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: FND_MESSAGE.set_token( 'GL_DATE', TO_CHAR( p_gl_date ));
38: FND_MSG_PUB.Add;
39: p_return_status := FND_API.G_RET_STS_ERROR;
38: FND_MSG_PUB.Add;
39: p_return_status := FND_API.G_RET_STS_ERROR;
40: END IF;
41: IF PG_DEBUG in ('Y', 'C') THEN
42: arp_util.debug('Validate_Gl_Date ()+');
43: END IF;
44: END Validate_Gl_Date;
45:
46: PROCEDURE Validate_Deposit_Date(p_deposit_date IN DATE,
46: PROCEDURE Validate_Deposit_Date(p_deposit_date IN DATE,
47: p_return_status OUT NOCOPY VARCHAR2) IS
48: BEGIN
49: IF PG_DEBUG in ('Y', 'C') THEN
50: arp_util.debug('Validate_Deposit_Date ()+');
51: END IF;
52: p_return_status := FND_API.G_RET_STS_SUCCESS;
53:
54: END Validate_Deposit_Date;
57: p_receipt_date IN DATE,
58: p_return_status OUT NOCOPY VARCHAR2) IS
59: BEGIN
60: IF PG_DEBUG in ('Y', 'C') THEN
61: arp_util.debug('Validate_Maturity_Date ()+');
62: END IF;
63: IF (p_maturity_date < p_receipt_date) THEN
64: p_return_status := FND_API.G_RET_STS_ERROR;
65: FND_MESSAGE.set_name( 'AR','AR_RW_MAT_BEFORE_RCT_DATE');
62: END IF;
63: IF (p_maturity_date < p_receipt_date) THEN
64: p_return_status := FND_API.G_RET_STS_ERROR;
65: FND_MESSAGE.set_name( 'AR','AR_RW_MAT_BEFORE_RCT_DATE');
66: -- arp_util.debug('m'||FND_MESSAGE.GET_ENCODED);
67: FND_MSG_PUB.ADD;
68: ELSE
69: p_return_status := FND_API.G_RET_STS_SUCCESS;
70: END IF;
68: ELSE
69: p_return_status := FND_API.G_RET_STS_SUCCESS;
70: END IF;
71: IF PG_DEBUG in ('Y', 'C') THEN
72: arp_util.debug('Validate_Maturity_Date ()-');
73: END IF;
74: END Validate_Maturity_Date;
75:
76: PROCEDURE Validate_amount(p_amount IN OUT NOCOPY NUMBER,
79: p_type IN VARCHAR2,
80: p_return_status OUT NOCOPY VARCHAR2) IS
81: BEGIN
82: IF PG_DEBUG in ('Y', 'C') THEN
83: arp_util.debug('Validate_amount () +');
84: END IF;
85: p_return_status := FND_API.G_RET_STS_SUCCESS;
86:
87: --Raise error if the receipt amount is null or negative
111: p_return_status := FND_API.G_RET_STS_ERROR;
112: FND_MESSAGE.SET_NAME('AR', 'AR_BK_CH_NOT_ALLWD_IF_NOT_CLR');
113: FND_MSG_PUB.Add;
114: IF PG_DEBUG in ('Y', 'C') THEN
115: arp_util.debug('Validate_amount: ' || 'Bank charges are not allowed ');
116: END IF;
117: END IF;
118:
119: ELSE
125: p_return_status := FND_API.G_RET_STS_ERROR;
126: FND_MESSAGE.SET_NAME('AR','AR_BK_CH_NOT_ALLWD_IF_NOT_CLR');
127: FND_MSG_PUB.Add;
128: IF PG_DEBUG in ('Y', 'C') THEN
129: arp_util.debug('Validate_amount: ' || 'The bank charges are not allowed if the state <> CLEARED');
130: END IF;
131: END IF;
132:
133: IF p_factor_discount_amount < 0 THEN
145: p_return_status := FND_API.G_RET_STS_ERROR;
146: FND_MESSAGE.SET_NAME('AR','AR_RW_RCT_AMOUNT_NEGATIVE');
147: FND_MSG_PUB.Add;
148: IF PG_DEBUG in ('Y', 'C') THEN
149: arp_util.debug('Validate_amount: ' || 'Receipt amount is negative ');
150: END IF;
151: END IF;
152:
153: END IF;
151: END IF;
152:
153: END IF;
154: IF PG_DEBUG in ('Y', 'C') THEN
155: arp_util.debug('Validate_amount () +');
156: END IF;
157: END Validate_amount;
158:
159: PROCEDURE Validate_Customer(p_customer_id IN NUMBER,
169: l_dummy_cust Customer_Rec;
170: l_record_exists_in_cache VARCHAR2(2);
171: BEGIN
172: IF PG_DEBUG in ('Y', 'C') THEN
173: arp_util.debug('Validate_amount: ' || 'Validate_Customer_id()+');
174: END IF;
175: p_return_status := FND_API.G_RET_STS_SUCCESS;
176: /* l_temp := Customer_Cache_Tbl.LAST;
177: IF PG_DEBUG in ('Y', 'C') THEN
174: END IF;
175: p_return_status := FND_API.G_RET_STS_SUCCESS;
176: /* l_temp := Customer_Cache_Tbl.LAST;
177: IF PG_DEBUG in ('Y', 'C') THEN
178: arp_util.debug('Validate_amount: ' || 'cache ');
179: END IF;
180:
181: IF l_temp IS NULL THEN
182: --The cache is empty : populate it directly.
199: END LOOP;
200: END IF;
201:
202: IF PG_DEBUG in ('Y', 'C') THEN
203: arp_util.debug('Validate_amount: ' || 'record_exists_in_cache = '||l_record_exists_in_cache);
204: END IF;
205: */
206: IF (p_customer_id IS NOT NULL) THEN
207: IF PG_DEBUG in ('Y', 'C') THEN
204: END IF;
205: */
206: IF (p_customer_id IS NOT NULL) THEN
207: IF PG_DEBUG in ('Y', 'C') THEN
208: arp_util.debug('Validate_amount: ' || 'Now Validating Customer id ');
209: END IF;
210: /*--------------------------------+
211: | |
212: | Validate Customer_id |
235: FND_MSG_PUB.Add;
236:
237: WHEN OTHERS THEN
238: IF PG_DEBUG in ('Y', 'C') THEN
239: arp_util.debug('Validate_amount: ' || 'EXCEPTION: Cache_Customer_id() ');
240: arp_util.debug('Validate_amount: ' || 'p_customer_id = ' ||TO_CHAR(p_customer_id));
241: END IF;
242: RAISE;
243: END;
236:
237: WHEN OTHERS THEN
238: IF PG_DEBUG in ('Y', 'C') THEN
239: arp_util.debug('Validate_amount: ' || 'EXCEPTION: Cache_Customer_id() ');
240: arp_util.debug('Validate_amount: ' || 'p_customer_id = ' ||TO_CHAR(p_customer_id));
241: END IF;
242: RAISE;
243: END;
244:
257:
258: IF p_customer_site_use_id IS NOT NULL THEN
259: --no need to validate site_use_id if derived from the transaction
260: IF PG_DEBUG in ('Y', 'C') THEN
261: arp_util.debug('Validate_amount: ' || 'Now validating Customer site_use_id ');
262: END IF;
263: BEGIN
264: SELECT site_uses.site_use_id
265: INTO l_dummy_cust.site_use_id
280: FND_MSG_PUB.Add;
281:
282: WHEN OTHERS THEN
283: IF PG_DEBUG in ('Y', 'C') THEN
284: arp_util.debug('Validate_amount: ' || 'EXCEPTION: Validate_Customer_Site_Use_id() ');
285: arp_util.debug('Validate_amount: ' || 'p_customer_site_use_id = '
286: ||TO_CHAR(p_customer_site_use_id));
287: END IF;
288: RAISE;
281:
282: WHEN OTHERS THEN
283: IF PG_DEBUG in ('Y', 'C') THEN
284: arp_util.debug('Validate_amount: ' || 'EXCEPTION: Validate_Customer_Site_Use_id() ');
285: arp_util.debug('Validate_amount: ' || 'p_customer_site_use_id = '
286: ||TO_CHAR(p_customer_site_use_id));
287: END IF;
288: RAISE;
289: END;
316: THEN
317: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_STE_USE_ID_NOT_DEF');
318: FND_MSG_PUB.Add;
319: IF PG_DEBUG in ('Y', 'C') THEN
320: arp_util.debug('Validate_amount: ' || 'Customer site use id is null');
321: END IF;
322: END IF;
323: END IF;
324:
391: --one record, the validation is true.
392: null;
393: WHEN OTHERS THEN
394: IF PG_DEBUG in ('Y', 'C') THEN
395: arp_util.debug('Validate_amount: ' || 'EXCEPTION: Validate_Customer_Bank_account_id() ');
396: arp_util.debug('Validate_amount: ' || 'p_customer_bank_account_id = '
397: ||TO_CHAR(p_customer_bank_account_id));
398: END IF;
399: RAISE;
392: null;
393: WHEN OTHERS THEN
394: IF PG_DEBUG in ('Y', 'C') THEN
395: arp_util.debug('Validate_amount: ' || 'EXCEPTION: Validate_Customer_Bank_account_id() ');
396: arp_util.debug('Validate_amount: ' || 'p_customer_bank_account_id = '
397: ||TO_CHAR(p_customer_bank_account_id));
398: END IF;
399: RAISE;
400:
457: END IF;
458:
459: END IF;
460: IF PG_DEBUG in ('Y', 'C') THEN
461: arp_util.debug('Validate_amount: ' || 'Validate_Customer_id ()-');
462: END IF;
463: END Validate_Customer;
464:
465: PROCEDURE Validate_receipt_method (p_receipt_method_id IN NUMBER,
479: receipt_method_invalid EXCEPTION;
480: BEGIN
481:
482: IF PG_DEBUG in ('Y', 'C') THEN
483: arp_util.debug('Validate_amount: ' || 'Validate_Receipt_Method()+');
484: END IF;
485:
486: p_return_status := FND_API.G_RET_STS_SUCCESS;
487:
503: END IF;
504: END LOOP;
505: END IF;
506: IF PG_DEBUG in ('Y', 'C') THEN
507: arp_util.debug('Validate_amount: ' || 'l_record_exists_in_cache = '||l_record_exists_in_cache);
508: END IF;
509: IF l_record_exists_in_cache = 'N' THEN
510:
511: --validate the existing record against the database
585:
586: IF p_remittance_bank_account_id IS NOT NULL THEN
587: IF l_dummy_method.bank_account_id = p_remittance_bank_account_id THEN
588: IF PG_DEBUG in ('Y', 'C') THEN
589: arp_util.debug('Validate_amount: ' || 'Remittance bank account id is valid ');
590: END IF;
591:
592: --Cache the valid record [Bug 6454022]
593: IF (p_return_status = FND_API.G_RET_STS_SUCCESS) THEN
608: --the receipt method is valid but has more than one remittance bank account
609: --If the remittance bank account id is null at this stage that means that neither the
610: --user had not entered one and nor could it be defaulted
611: IF PG_DEBUG in ('Y', 'C') THEN
612: arp_util.debug('Validate_amount: ' || 'Too_many_rows raised');
613: END IF;
614: null;
615: WHEN no_data_found THEN
616: IF PG_DEBUG in ('Y', 'C') THEN
613: END IF;
614: null;
615: WHEN no_data_found THEN
616: IF PG_DEBUG in ('Y', 'C') THEN
617: arp_util.debug('Validate_amount: ' || 'no_data_found_raised');
618: END IF;
619: raise receipt_method_invalid;
620: --raising the exception here so that the next block which validates the
621: --remittance bank_id does not executed and the exception in trapped in the
692: END IF;
693:
694: END IF;
695: IF PG_DEBUG in ('Y', 'C') THEN
696: arp_util.debug('Validate_amount: ' || 'Validate_Receipt_Method ()-');
697: END IF;
698: EXCEPTION
699: WHEN receipt_method_invalid THEN
700: IF ar_receipt_api_pub.Original_create_cash_info.receipt_method_id IS NOT NULL THEN
701: p_return_status := FND_API.G_RET_STS_ERROR;
702: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_MD_ID_INVALID');
703: FND_MSG_PUB.Add;
704: IF PG_DEBUG in ('Y', 'C') THEN
705: arp_util.debug('Validate_amount: ' || 'Invalid receipt method id ');
706: END IF;
707: ELSIF ar_receipt_api_pub.Original_create_cash_info.receipt_method_name IS NOT NULL THEN
708: p_return_status := FND_API.G_RET_STS_ERROR;
709: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCT_MD_NAME_INVALID');
708: p_return_status := FND_API.G_RET_STS_ERROR;
709: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCT_MD_NAME_INVALID');
710: FND_MSG_PUB.Add;
711: IF PG_DEBUG in ('Y', 'C') THEN
712: arp_util.debug('Validate_amount: ' || 'Invalid receipt method name ');
713: END IF;
714: END IF;
715:
716: WHEN remittance_bank_valid THEN
715:
716: WHEN remittance_bank_valid THEN
717: null;
718: IF PG_DEBUG in ('Y', 'C') THEN
719: arp_util.debug('Validate_amount: ' || 'Exception: remittance_bank_valid ');
720: END IF;
721:
722: WHEN remittance_bank_invalid THEN
723: IF ar_receipt_api_pub.Original_create_cash_info.remit_bank_acct_use_id IS NOT NULL THEN
724: p_return_status := FND_API.G_RET_STS_ERROR;
725: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REM_BK_AC_ID_INVALID');
726: FND_MSG_PUB.Add;
727: IF PG_DEBUG in ('Y', 'C') THEN
728: arp_util.debug('Validate_amount: ' || 'Invalid remittance bank account id');
729: END IF;
730: ELSIF ar_receipt_api_pub.Original_create_cash_info.remittance_bank_account_num IS NOT NULL THEN
731: p_return_status := FND_API.G_RET_STS_ERROR;
732: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REM_BK_AC_NUM_INVALID');
731: p_return_status := FND_API.G_RET_STS_ERROR;
732: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REM_BK_AC_NUM_INVALID');
733: FND_MSG_PUB.Add;
734: IF PG_DEBUG in ('Y', 'C') THEN
735: arp_util.debug('Validate_amount: ' || 'Invalid remittance bank account number');
736: END IF;
737: ELSIF ar_receipt_api_pub.Original_create_cash_info.remittance_bank_account_name IS NOT NULL THEN
738: p_return_status := FND_API.G_RET_STS_ERROR;
739: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REM_BK_AC_NAME_INVALID');
738: p_return_status := FND_API.G_RET_STS_ERROR;
739: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REM_BK_AC_NAME_INVALID');
740: FND_MSG_PUB.Add;
741: IF PG_DEBUG in ('Y', 'C') THEN
742: arp_util.debug('Validate_amount: ' || 'Invalid remittance bank account name');
743: END IF;
744: END IF;
745:
746: WHEN remittance_bank_null THEN
747: p_return_status := FND_API.G_RET_STS_ERROR;
748: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REM_BK_AC_ID_NULL');
749: FND_MSG_PUB.Add;
750: IF PG_DEBUG in ('Y', 'C') THEN
751: arp_util.debug('Validate_amount: ' || 'The remittance bank account could not be defaulted ');
752: END IF;
753: WHEN receipt_md_null THEN
754: p_return_status := FND_API.G_RET_STS_ERROR;
755: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_MD_ID_NULL');
754: p_return_status := FND_API.G_RET_STS_ERROR;
755: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_MD_ID_NULL');
756: FND_MSG_PUB.Add;
757: IF PG_DEBUG in ('Y', 'C') THEN
758: arp_util.debug('Validate_amount: ' || 'The receipt method id is null ');
759: END IF;
760: WHEN others THEN
761: IF PG_DEBUG in ('Y', 'C') THEN
762: arp_util.debug('Validate_amount: ' || 'EXCEPTION: Validate_Receipt_Method_() ');
758: arp_util.debug('Validate_amount: ' || 'The receipt method id is null ');
759: END IF;
760: WHEN others THEN
761: IF PG_DEBUG in ('Y', 'C') THEN
762: arp_util.debug('Validate_amount: ' || 'EXCEPTION: Validate_Receipt_Method_() ');
763: arp_util.debug('Validate_amount: ' || 'p_receipt_method_id = '
764: ||TO_CHAR(p_receipt_method_id));
765: arp_util.debug('Validate_amount: ' || 'p_remittance_bank_account_id = '
766: ||TO_CHAR(p_remittance_bank_account_id));
759: END IF;
760: WHEN others THEN
761: IF PG_DEBUG in ('Y', 'C') THEN
762: arp_util.debug('Validate_amount: ' || 'EXCEPTION: Validate_Receipt_Method_() ');
763: arp_util.debug('Validate_amount: ' || 'p_receipt_method_id = '
764: ||TO_CHAR(p_receipt_method_id));
765: arp_util.debug('Validate_amount: ' || 'p_remittance_bank_account_id = '
766: ||TO_CHAR(p_remittance_bank_account_id));
767: END IF;
761: IF PG_DEBUG in ('Y', 'C') THEN
762: arp_util.debug('Validate_amount: ' || 'EXCEPTION: Validate_Receipt_Method_() ');
763: arp_util.debug('Validate_amount: ' || 'p_receipt_method_id = '
764: ||TO_CHAR(p_receipt_method_id));
765: arp_util.debug('Validate_amount: ' || 'p_remittance_bank_account_id = '
766: ||TO_CHAR(p_remittance_bank_account_id));
767: END IF;
768: RAISE;
769: END Validate_Receipt_Method;
862: END IF;
863: EXCEPTION
864: WHEN others THEN
865: IF PG_DEBUG in ('Y', 'C') THEN
866: arp_util.debug('Validate_amount: ' || 'EXCEPTION: Validate_Exchange_Rate() ');
867: arp_util.debug('Validate_amount: ' || 'p_exchange_rate_type = '
868: ||p_exchange_rate_type);
869: END IF;
870: RAISE;
863: EXCEPTION
864: WHEN others THEN
865: IF PG_DEBUG in ('Y', 'C') THEN
866: arp_util.debug('Validate_amount: ' || 'EXCEPTION: Validate_Exchange_Rate() ');
867: arp_util.debug('Validate_amount: ' || 'p_exchange_rate_type = '
868: ||p_exchange_rate_type);
869: END IF;
870: RAISE;
871: END Validate_Exchange_Rate;
885: l_currency_valid := 'N';
886: RETURN(l_currency_valid);
887: WHEN others THEN
888: IF PG_DEBUG in ('Y', 'C') THEN
889: arp_util.debug('Validate_amount: ' || 'EXCEPTION: Validate_Exchange_Rate() ');
890: arp_util.debug('Validate_amount: ' || 'p_currency_code = '||p_currency_code);
891: END IF;
892: raise;
893: END Is_currency_valid;
886: RETURN(l_currency_valid);
887: WHEN others THEN
888: IF PG_DEBUG in ('Y', 'C') THEN
889: arp_util.debug('Validate_amount: ' || 'EXCEPTION: Validate_Exchange_Rate() ');
890: arp_util.debug('Validate_amount: ' || 'p_currency_code = '||p_currency_code);
891: END IF;
892: raise;
893: END Is_currency_valid;
894:
939: AND cr.status <> 'REV';
940:
941: BEGIN
942: IF PG_DEBUG in ('Y', 'C') THEN
943: arp_util.debug('Validate_amount: ' || 'val_duplicate_receipt ()+');
944: END IF;
945: BEGIN
946:
947: OPEN validate_duplicate_receipt;
955: l_duplicate_receipt := 'Y';
956: END;
957:
958: IF PG_DEBUG in ('Y', 'C') THEN
959: arp_util.debug('Validate_amount: ' || 'l_duplicate_receipt :'||l_duplicate_receipt);
960: END IF;
961: -- Do not allow to create duplicate receipts
962: IF l_duplicate_receipt = 'Y' THEN
963: IF p_type = 'CASH' THEN
971: END IF;
972:
973: END IF;
974: IF PG_DEBUG in ('Y', 'C') THEN
975: arp_util.debug('Validate_amount: ' || 'val_duplicate_receipt ()-');
976: END IF;
977: END val_duplicate_receipt;
978:
979: PROCEDURE Validate_Cash_Receipt(
1014: l_doc_seq_return_status VARCHAR2(1);
1015: l_dup_return_status VARCHAR2(1);
1016: BEGIN
1017: IF PG_DEBUG in ('Y', 'C') THEN
1018: arp_util.debug('Validate_amount: ' || 'Validate_Receipt()+ ');
1019: END IF;
1020:
1021: p_return_status := FND_API.G_RET_STS_SUCCESS;
1022:
1024:
1025: Validate_Receipt_Date(p_receipt_date,
1026: l_receipt_date_return_status);
1027: IF PG_DEBUG in ('Y', 'C') THEN
1028: arp_util.debug('Validate_amount: ' || 'l_receipt_date_return_status : '||l_receipt_date_return_status);
1029: END IF;
1030:
1031: --Validate gl_date
1032:
1032:
1033: Validate_Gl_Date(p_gl_date,
1034: l_gl_date_return_status);
1035: IF PG_DEBUG in ('Y', 'C') THEN
1036: arp_util.debug('Validate_amount: ' || 'l_gl_date_return_status : '||l_gl_date_return_status);
1037: END IF;
1038: --Validate deposit_date
1039:
1040: Validate_Deposit_Date(p_deposit_date,
1039:
1040: Validate_Deposit_Date(p_deposit_date,
1041: l_deposit_date_return_status);
1042: IF PG_DEBUG in ('Y', 'C') THEN
1043: arp_util.debug('Validate_amount: ' || 'l_deposit_date_return_status : '||l_deposit_date_return_status);
1044: END IF;
1045:
1046: --Validate maturity_date
1047:
1048: Validate_Maturity_Date(p_maturity_date,
1049: p_receipt_date,
1050: l_maturity_date_return_status);
1051: IF PG_DEBUG in ('Y', 'C') THEN
1052: arp_util.debug('Validate_amount: ' || 'l_maturity_date_return_status : '||l_maturity_date_return_status);
1053: END IF;
1054:
1055:
1056: --Validate Receipt_method
1061: p_state,
1062: p_called_from,
1063: l_rcpt_md_return_status);
1064: IF PG_DEBUG in ('Y', 'C') THEN
1065: arp_util.debug('Validate_amount: ' || 'l_rcpt_md_return_status : '||l_rcpt_md_return_status);
1066: END IF;
1067:
1068: --Validate document sequence value
1069:
1080: p_state,
1081: 'CASH',
1082: l_amount_return_status);
1083: IF PG_DEBUG in ('Y', 'C') THEN
1084: arp_util.debug('Validate_amount: ' || 'l_amount_return_status : '||l_amount_return_status);
1085: END IF;
1086:
1087: --Validate Customer info
1088:
1094: p_currency_code,
1095: p_receipt_date,
1096: l_customer_return_status);
1097: IF PG_DEBUG in ('Y', 'C') THEN
1098: arp_util.debug('Validate_amount: ' || 'l_customer_return_status : '||l_customer_return_status);
1099: END IF;
1100:
1101: --Validate the override_remit_bank_account_flag
1102: IF (p_override_remit_account_flag NOT IN ('Y','N')) THEN
1106: ELSE
1107: l_override_remit_return_status := FND_API.G_RET_STS_SUCCESS;
1108: END IF;
1109: IF PG_DEBUG in ('Y', 'C') THEN
1110: arp_util.debug('Validate_amount: ' || 'l_override_remit_return_status : '||l_override_remit_return_status);
1111: END IF;
1112:
1113: --Validate currency and exchange rate info.
1114: IF p_currency_code <> arp_global.functional_currency OR
1121: p_exchange_rate_date,
1122: l_currency_return_status);
1123: END IF;
1124: IF PG_DEBUG in ('Y', 'C') THEN
1125: arp_util.debug('Validate_amount: ' || 'l_currency_return_status : '||l_currency_return_status);
1126: END IF;
1127:
1128: IF p_receipt_number IS NOT NULL AND
1129: p_amount IS NOT NULL THEN
1149: THEN
1150: p_return_status := FND_API.G_RET_STS_ERROR;
1151: END IF;
1152: IF PG_DEBUG in ('Y', 'C') THEN
1153: arp_util.debug('Validate_amount: ' || 'Validate_Cash_Receipt Return status :'||p_return_status);
1154: END IF;
1155:
1156: EXCEPTION
1157: WHEN others THEN
1175: ) IS
1176: l_message_name VARCHAR2(50);
1177: BEGIN
1178: IF PG_DEBUG in ('Y', 'C') THEN
1179: arp_util.debug('Validate_amount_applied ()+');
1180: END IF;
1181: p_return_status := FND_API.G_RET_STS_SUCCESS;
1182:
1183:
1202: FND_MSG_PUB.Add;
1203: END IF; */
1204: END IF;
1205: IF PG_DEBUG in ('Y', 'C') THEN
1206: arp_util.debug('Validate_amount: ' || 'Before calling the check_natural_application routine ');
1207: END IF;
1208: IF p_applied_payment_schedule_id > 0 THEN
1209:
1210: arp_non_db_pkg.check_natural_application(
1229:
1230: END IF;
1231:
1232: IF PG_DEBUG in ('Y', 'C') THEN
1233: arp_util.debug('Validate_amount_applied ()-');
1234: END IF;
1235: END Validate_amount_applied;
1236:
1237: --- LLCA
1251: ) IS
1252: l_line_message_name VARCHAR2(50);
1253: BEGIN
1254: IF PG_DEBUG in ('Y', 'C') THEN
1255: arp_util.debug('Validate_line_applied ()+');
1256: END IF;
1257: p_return_status := FND_API.G_RET_STS_SUCCESS;
1258:
1259: IF p_line_amount IS NULL THEN
1260: return;
1261: END IF;
1262:
1263: IF PG_DEBUG in ('Y', 'C') THEN
1264: arp_util.debug('Validate_amount: ' || 'Before calling the check_natural_application routine ');
1265: END IF;
1266:
1267: IF p_applied_payment_schedule_id > 0 THEN
1268:
1288:
1289: END IF;
1290:
1291: IF PG_DEBUG in ('Y', 'C') THEN
1292: arp_util.debug('Validate_line_applied ()-');
1293: END IF;
1294: END Validate_line_applied;
1295: --- LLCA
1296: PROCEDURE Validate_tax_applied(
1307: ) IS
1308: l_tax_message_name VARCHAR2(50);
1309: BEGIN
1310: IF PG_DEBUG in ('Y', 'C') THEN
1311: arp_util.debug('Validate_tax_applied ()+');
1312: END IF;
1313: p_return_status := FND_API.G_RET_STS_SUCCESS;
1314:
1315: IF p_tax_amount IS NULL THEN
1316: return;
1317: END IF;
1318:
1319: IF PG_DEBUG in ('Y', 'C') THEN
1320: arp_util.debug('Validate_amount: ' || 'Before calling the check_natural_application routine ');
1321: END IF;
1322:
1323: IF p_applied_payment_schedule_id > 0 THEN
1324:
1344:
1345: END IF;
1346:
1347: IF PG_DEBUG in ('Y', 'C') THEN
1348: arp_util.debug('Validate_tax_applied ()-');
1349: END IF;
1350: END Validate_tax_applied;
1351:
1352: --- LLCA
1366: ) IS
1367: l_frt_message_name VARCHAR2(50);
1368: BEGIN
1369: IF PG_DEBUG in ('Y', 'C') THEN
1370: arp_util.debug('Validate_freight_applied ()+');
1371: END IF;
1372: p_return_status := FND_API.G_RET_STS_SUCCESS;
1373:
1374: IF p_freight_amount IS NULL THEN
1375: return;
1376: END IF;
1377:
1378: IF PG_DEBUG in ('Y', 'C') THEN
1379: arp_util.debug('Validate_amount: ' || 'Before calling the check_natural_application routine ');
1380: END IF;
1381:
1382: IF p_applied_payment_schedule_id > 0 THEN
1383:
1403:
1404: END IF;
1405:
1406: IF PG_DEBUG in ('Y', 'C') THEN
1407: arp_util.debug('Validate_freight_applied ()-');
1408: END IF;
1409: END Validate_freight_applied;
1410:
1411:
1426: ) IS
1427: l_message_name VARCHAR2(50);
1428: BEGIN
1429: IF PG_DEBUG in ('Y', 'C') THEN
1430: arp_util.debug('Validate_charges_applied ()+');
1431: END IF;
1432: p_return_status := FND_API.G_RET_STS_SUCCESS;
1433:
1434: IF p_charges_amount IS NULL THEN
1435: return;
1436: END IF;
1437:
1438: IF PG_DEBUG in ('Y', 'C') THEN
1439: arp_util.debug('Validate_amount: ' || 'Before calling the check_natural_application routine ');
1440: END IF;
1441:
1442: IF p_applied_payment_schedule_id > 0 THEN
1443:
1463:
1464: END IF;
1465:
1466: IF PG_DEBUG in ('Y', 'C') THEN
1467: arp_util.debug('Validate_charges_applied ()-');
1468: END IF;
1469: END Validate_charges_applied;
1470:
1471: PROCEDURE Validate_amount_applied_from(
1479: l_remaining_unapp_rct_amt NUMBER;
1480:
1481: BEGIN
1482: IF PG_DEBUG in ('Y', 'C') THEN
1483: arp_util.debug('Validate_amount_applied_from ()+');
1484: END IF;
1485: p_return_status := FND_API.G_RET_STS_SUCCESS;
1486: /* Bugfix 2634721. Modified the NVL clause */
1487: l_remaining_unapp_rct_amt := p_cr_unapp_amount - nvl(p_amount_applied_from, p_amount_applied);
1487: l_remaining_unapp_rct_amt := p_cr_unapp_amount - nvl(p_amount_applied_from, p_amount_applied);
1488:
1489: IF l_remaining_unapp_rct_amt < 0 THEN
1490: IF PG_DEBUG in ('Y', 'C') THEN
1491: arp_util.debug('Validate_amount: ' || 'l_remaining_unapp_rct_amt :'||to_char(l_remaining_unapp_rct_amt));
1492: END IF;
1493: p_return_status := FND_API.G_RET_STS_ERROR;
1494: FND_MESSAGE.SET_NAME('AR','AR_RW_APP_NEG_UNAPP');
1495: FND_MSG_PUB.Add;
1502: FND_MSG_PUB.Add;
1503: p_return_status := FND_API.G_RET_STS_ERROR;
1504: END IF;
1505: IF PG_DEBUG in ('Y', 'C') THEN
1506: arp_util.debug('Validate_amount_applied_from ()-');
1507: END IF;
1508: END Validate_amount_applied_from;
1509:
1510: /* Added this over loaded procedure for bug 3119391 */
1517: l_amount_applied_from NUMBER;
1518: l_remaining_unapp_rct_amt NUMBER;
1519: BEGIN
1520: IF PG_DEBUG in ('Y', 'C') THEN
1521: arp_util.debug('Validate_amount_applied_from over loaded()+');
1522: END IF;
1523: p_return_status := FND_API.G_RET_STS_SUCCESS;
1524:
1525: SELECT amount_applied,
1530: l_remaining_unapp_rct_amt := p_cr_unapp_amount + nvl(l_amount_applied_from, l_amount_applied);
1531:
1532: IF l_remaining_unapp_rct_amt < 0 THEN
1533: IF PG_DEBUG in ('Y', 'C') THEN
1534: arp_util.debug('Validate_amount_applied_from: ' || 'l_remaining_unapp_rct_amt :'||to_char(l_remaining_unapp_rct_amt));
1535: END IF;
1536: p_return_status := FND_API.G_RET_STS_ERROR;
1537: FND_MESSAGE.SET_NAME('AR','AR_RW_AMOUNT_LESS_THAN_APP');
1538: FND_MSG_PUB.Add;
1537: FND_MESSAGE.SET_NAME('AR','AR_RW_AMOUNT_LESS_THAN_APP');
1538: FND_MSG_PUB.Add;
1539: END IF;
1540: IF PG_DEBUG in ('Y', 'C') THEN
1541: arp_util.debug('Validate_amount_applied_from over loaded()-');
1542: END IF;
1543: END Validate_amount_applied_from;
1544:
1545: PROCEDURE Validate_trans_to_receipt_rate(
1554: l_amount_applied_from NUMBER;
1555: l_amount_applied NUMBER;
1556: BEGIN
1557: IF PG_DEBUG in ('Y', 'C') THEN
1558: arp_util.debug('Validate_trans_to_receipt_rate ()+');
1559: END IF;
1560: p_return_status := FND_API.G_RET_STS_SUCCESS;
1561: --Validate the trans_to_receipt_rate
1562: IF p_trx_currency_code = p_cr_currency_code AND
1593: IF p_amount_applied IS NOT NULL AND
1594: ar_receipt_api_pub.Original_application_info.amount_applied_from IS NOT NULL AND
1595: ar_receipt_api_pub.Original_application_info.trans_to_receipt_rate IS NOT NULL
1596: THEN
1597: l_amount_applied := arp_util.CurrRound(
1598: p_amount_applied,
1599: p_trx_currency_code
1600: );
1601: l_amount_applied_cr := arp_util.CurrRound(
1597: l_amount_applied := arp_util.CurrRound(
1598: p_amount_applied,
1599: p_trx_currency_code
1600: );
1601: l_amount_applied_cr := arp_util.CurrRound(
1602: l_amount_applied*p_trans_to_receipt_rate,
1603: p_cr_currency_code
1604: );
1605: l_amount_applied_from := arp_util.CurrRound(
1601: l_amount_applied_cr := arp_util.CurrRound(
1602: l_amount_applied*p_trans_to_receipt_rate,
1603: p_cr_currency_code
1604: );
1605: l_amount_applied_from := arp_util.CurrRound(
1606: p_amount_applied_from,
1607: p_cr_currency_code
1608: );
1609:
1615: END IF;
1616: END IF;
1617: END IF;
1618: IF PG_DEBUG in ('Y', 'C') THEN
1619: arp_util.debug('Validate_trans_to_receipt_rate ()-');
1620: END IF;
1621: EXCEPTION
1622: WHEN others THEN
1623: IF PG_DEBUG in ('Y', 'C') THEN
1620: END IF;
1621: EXCEPTION
1622: WHEN others THEN
1623: IF PG_DEBUG in ('Y', 'C') THEN
1624: arp_util.debug('Validate_trans_to_receipt_rate: ' || 'EXCEPTION: Validate_Exchange_Rate() ');
1625: END IF;
1626: raise;
1627: END Validate_trans_to_receipt_rate;
1628:
1638: p_return_status OUT NOCOPY VARCHAR2
1639: ) IS
1640: BEGIN
1641: IF PG_DEBUG in ('Y', 'C') THEN
1642: arp_util.debug('Validate_discount ()+');
1643: END IF;
1644: p_return_status := FND_API.G_RET_STS_SUCCESS;
1645: -- Do not allow discount for "On Account" applications
1646: IF (p_discount <> 0
1713: END IF;
1714: END IF;
1715:
1716: IF PG_DEBUG in ('Y', 'C') THEN
1717: arp_util.debug('Validate_discount ()-');
1718: END IF;
1719: END Validate_discount;
1720:
1721: PROCEDURE Validate_apply_gl_date(p_apply_gl_date IN DATE,
1726: l_bool BOOLEAN;
1727:
1728: BEGIN
1729: IF PG_DEBUG in ('Y', 'C') THEN
1730: arp_util.debug('Validate_apply_gl_date ()+');
1731: END IF;
1732: p_return_status := FND_API.G_RET_STS_SUCCESS;
1733:
1734: IF p_apply_gl_date IS NOT NULL THEN
1749: END IF;
1750:
1751:
1752: -- Check that the Application GL Date is in an open or future GL period.
1753: IF ( NOT arp_util.is_gl_date_valid( p_apply_gl_date )) THEN
1754: FND_MESSAGE.set_name( 'AR', 'AR_INVALID_APP_GL_DATE' );
1755: FND_MESSAGE.set_token( 'GL_DATE', TO_CHAR( p_apply_gl_date ));
1756: FND_MSG_PUB.Add;
1757: p_return_status := FND_API.G_RET_STS_ERROR;
1759:
1760:
1761: END IF;
1762: IF PG_DEBUG in ('Y', 'C') THEN
1763: arp_util.debug('Validate_apply_gl_date ()-');
1764: END IF;
1765:
1766: END Validate_apply_gl_date;
1767:
1772: ) IS
1773:
1774: BEGIN
1775: IF PG_DEBUG in ('Y', 'C') THEN
1776: arp_util.debug('Validate_apply_date ()+');
1777: END IF;
1778: p_return_status := FND_API.G_RET_STS_SUCCESS;
1779:
1780: IF p_apply_date IS NOT NULL THEN
1796:
1797: END IF;
1798:
1799: IF PG_DEBUG in ('Y', 'C') THEN
1800: arp_util.debug('Validate_apply_date ()-');
1801: END IF;
1802: END Validate_apply_date;
1803:
1804: PROCEDURE Validate_Application_info(
1861: --The customer_trx_id, cash_receipt_id and the applied_payment_schedule_id
1862: --have already been validated in the defaulting routines.
1863:
1864: IF PG_DEBUG in ('Y', 'C') THEN
1865: arp_util.debug('Validate_Application_info ()+');
1866: END IF;
1867: p_return_status := FND_API.G_RET_STS_SUCCESS;
1868: --validation of the trx_number/customer_trx_id and
1869: --receipt_number/cash_receipt_id entered by the user
1882: l_gl_date_return_status
1883: );
1884:
1885: IF PG_DEBUG in ('Y', 'C') THEN
1886: arp_util.debug('Validate_Application_info: ' || 'Apply gl_date return
1887: status :'||l_gl_date_return_status);
1888: END IF;
1889: validate_amount_applied(
1890: p_amount_applied ,
1899: p_amount_due_original,
1900: l_amt_applied_return_status
1901: );
1902: IF PG_DEBUG in ('Y', 'C') THEN
1903: arp_util.debug('Validate_Application_info: ' || 'Amount applied return
1904: status :'||l_amt_applied_return_status);
1905: END IF;
1906:
1907: If p_llca_type = 'S' THEN
1922: p_line_items_original,
1923: l_line_applied_return_status
1924: );
1925: IF PG_DEBUG in ('Y', 'C') THEN
1926: arp_util.debug('Validate_Application_info: ' || 'Line
1927: Amount applied return status :'||l_line_applied_return_status);
1928: END IF;
1929: End If;
1930:
1941: p_tax_original,
1942: l_tax_applied_return_status
1943: );
1944: IF PG_DEBUG in ('Y', 'C') THEN
1945: arp_util.debug('Validate_Application_info: ' || 'Tax Amount
1946: applied return status :'||l_tax_applied_return_status);
1947: END IF;
1948: END IF;
1949:
1962: p_freight_original,
1963: l_frt_applied_return_status
1964: );
1965: IF PG_DEBUG in ('Y', 'C') THEN
1966: arp_util.debug('Validate_Application_info: ' || 'Freight Amount
1967: applied return status :'||l_frt_applied_return_status);
1968: END IF;
1969: END IF;
1970:
1985: p_rec_charges_remaining ,
1986: l_chg_applied_return_status
1987: );
1988: IF PG_DEBUG in ('Y', 'C') THEN
1989: arp_util.debug('Validate_Application_info: ' || 'Charges Amount
1990: applied return status :'||l_chg_applied_return_status);
1991: END IF;
1992: END IF;
1993: END IF;
2000: p_amount_applied_from ,
2001: l_x_rate_return_status
2002: );
2003: IF PG_DEBUG in ('Y', 'C') THEN
2004: arp_util.debug('Validate_Application_info: ' || 'Trans to receipt rate return status :'||l_x_rate_return_status);
2005: END IF;
2006: validate_amount_applied_from(
2007: p_amount_applied_from ,
2008: p_amount_applied,
2011: p_trx_currency_code ,
2012: l_amt_app_from_return_status
2013: );
2014: IF PG_DEBUG in ('Y', 'C') THEN
2015: arp_util.debug('Validate_Application_info: ' || 'Amount applied from return_status :'||l_amt_app_from_return_status);
2016: END IF;
2017:
2018: validate_discount(p_discount ,
2019: p_amount_due_remaining ,
2047: FND_MSG_PUB.Add;
2048: p_return_status := FND_API.G_RET_STS_ERROR;
2049: END IF;
2050: IF PG_DEBUG in ('Y', 'C') THEN
2051: arp_util.debug('Validate_Application_info: ' || 'Discount return status :'||l_disc_return_status);
2052: END IF;
2053:
2054: IF l_gl_date_return_status <> FND_API.G_RET_STS_SUCCESS OR
2055: l_amt_applied_return_status <> FND_API.G_RET_STS_SUCCESS OR
2061: p_return_status := FND_API.G_RET_STS_ERROR;
2062: END IF;
2063:
2064: IF PG_DEBUG in ('Y', 'C') THEN
2065: arp_util.debug('Validate_Application_info ()-');
2066: END IF;
2067: EXCEPTION
2068: WHEN others THEN
2069: IF PG_DEBUG in ('Y', 'C') THEN
2066: END IF;
2067: EXCEPTION
2068: WHEN others THEN
2069: IF PG_DEBUG in ('Y', 'C') THEN
2070: arp_util.debug('EXCEPTION: Validate_Application_Info() ');
2071: END IF;
2072: raise;
2073: END Validate_Application_info;
2074:
2080: ) IS
2081:
2082: BEGIN
2083: IF PG_DEBUG in ('Y', 'C') THEN
2084: arp_util.debug('Validate_Rev_gl_date ()+');
2085: END IF;
2086: p_return_status := FND_API.G_RET_STS_SUCCESS;
2087: IF p_reversal_gl_date IS NOT NULL THEN
2088:
2104: FND_MESSAGE.SET_TOKEN('GL_DATE', p_recpt_last_state_gl_date);
2105: FND_MSG_PUB.Add;
2106: p_return_status := FND_API.G_RET_STS_ERROR;
2107: END IF;
2108: IF ( NOT arp_util.is_gl_date_valid(p_reversal_gl_date)) THEN
2109: FND_MESSAGE.set_name( 'AR', 'AR_INVALID_APP_GL_DATE' );
2110: FND_MESSAGE.set_token( 'GL_DATE', TO_CHAR( p_reversal_gl_date ));
2111: FND_MSG_PUB.Add;
2112: p_return_status := FND_API.G_RET_STS_ERROR;
2116: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REV_GL_DATE_NULL');
2117: FND_MSG_PUB.Add;
2118: p_return_status := FND_API.G_RET_STS_ERROR;
2119: IF PG_DEBUG in ('Y', 'C') THEN
2120: arp_util.debug('Validate_Rev_gl_date: ' || 'The Reversal gl date is null ');
2121: END IF;
2122: END IF;
2123:
2124: IF PG_DEBUG in ('Y', 'C') THEN
2121: END IF;
2122: END IF;
2123:
2124: IF PG_DEBUG in ('Y', 'C') THEN
2125: arp_util.debug('Validate_Rev_gl_date ()+');
2126: END IF;
2127: EXCEPTION
2128: WHEN others THEN
2129: IF PG_DEBUG in ('Y', 'C') THEN
2126: END IF;
2127: EXCEPTION
2128: WHEN others THEN
2129: IF PG_DEBUG in ('Y', 'C') THEN
2130: arp_util.debug('EXCEPTION: Validate_rev_gl_date() ');
2131: END IF;
2132: raise;
2133: END Validate_Rev_gl_date;
2134:
2139: l_valid NUMBER;
2140: BEGIN
2141: p_return_status := FND_API.G_RET_STS_SUCCESS;
2142: IF PG_DEBUG in ('Y', 'C') THEN
2143: arp_util.debug('Validate_receivable_appln_id ()+');
2144: END IF;
2145: --validate the receivable application id only if it was passed in
2146: --directly as a parameter. No need to validate if it was derived.
2147: IF p_receivable_application_id IS NOT NULL AND
2195: END IF;
2196:
2197: END IF;
2198: IF PG_DEBUG in ('Y', 'C') THEN
2199: arp_util.debug('Validate_receivable_appln_id ()-');
2200: END IF;
2201: EXCEPTION
2202: WHEN others THEN
2203: IF PG_DEBUG in ('Y', 'C') THEN
2200: END IF;
2201: EXCEPTION
2202: WHEN others THEN
2203: IF PG_DEBUG in ('Y', 'C') THEN
2204: arp_util.debug('EXCEPTION: Validate_receivable_appln_id()');
2205: END IF;
2206: raise;
2207: END Validate_receivable_appln_id;
2208:
2220: l_amt_app_from_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;/*Added for 3119391 */
2221: BEGIN
2222: p_return_status := FND_API.G_RET_STS_SUCCESS;
2223: IF PG_DEBUG in ('Y', 'C') THEN
2224: arp_util.debug('Validate_unapp_info ()+');
2225: END IF;
2226:
2227: --In case the user has entered the receivable application id
2228: -- as well as the receipt and transaction info, then the cross validation
2251: ELSE
2252: p_return_status := FND_API.G_RET_STS_SUCCESS;
2253: END IF;
2254: IF PG_DEBUG in ('Y', 'C') THEN
2255: arp_util.debug('Validate_unapp_info: ' || 'Recevable appln id return status '||l_rec_app_return_status);
2256: arp_util.debug('Validate_unapp_info: ' || 'Rev_gl_date_return_status :'||l_rev_gl_date_return_status);
2257: arp_util.debug('Validate_unapp_info ()-');
2258: END IF;
2259: END Validate_unapp_info;
2252: p_return_status := FND_API.G_RET_STS_SUCCESS;
2253: END IF;
2254: IF PG_DEBUG in ('Y', 'C') THEN
2255: arp_util.debug('Validate_unapp_info: ' || 'Recevable appln id return status '||l_rec_app_return_status);
2256: arp_util.debug('Validate_unapp_info: ' || 'Rev_gl_date_return_status :'||l_rev_gl_date_return_status);
2257: arp_util.debug('Validate_unapp_info ()-');
2258: END IF;
2259: END Validate_unapp_info;
2260:
2253: END IF;
2254: IF PG_DEBUG in ('Y', 'C') THEN
2255: arp_util.debug('Validate_unapp_info: ' || 'Recevable appln id return status '||l_rec_app_return_status);
2256: arp_util.debug('Validate_unapp_info: ' || 'Rev_gl_date_return_status :'||l_rev_gl_date_return_status);
2257: arp_util.debug('Validate_unapp_info ()-');
2258: END IF;
2259: END Validate_unapp_info;
2260:
2261: PROCEDURE check_std_reversible(p_cash_receipt_id IN NUMBER,
2268: l_reserved VARCHAR2(1) DEFAULT 'N';
2269: l_std_appln VARCHAR2(1) DEFAULT 'N';
2270: BEGIN
2271: IF PG_DEBUG in ('Y', 'C') THEN
2272: arp_util.debug('check_std_reversible ()+');
2273: END IF;
2274: --Check whether it has not been reversed yet
2275: IF p_reversal_date IS NULL OR
2276: p_receipt_state <> 'APPROVED' THEN
2371: END IF;
2372:
2373: END IF;
2374: IF PG_DEBUG in ('Y', 'C') THEN
2375: arp_util.debug('check_std_reversible ()-');
2376: END IF;
2377:
2378: EXCEPTION
2379: WHEN others THEN
2377:
2378: EXCEPTION
2379: WHEN others THEN
2380: IF PG_DEBUG in ('Y', 'C') THEN
2381: arp_util.debug('EXCEPTION: check_std_reversible()');
2382: END IF;
2383: raise;
2384: END check_std_reversible;
2385:
2394: p_return_status OUT NOCOPY VARCHAR2) IS
2395: l_valid NUMBER;
2396: BEGIN
2397: IF PG_DEBUG in ('Y', 'C') THEN
2398: arp_util.debug('Validate_cash_receipt_id ()+');
2399: END IF;
2400: IF p_cash_receipt_id IS NOT NULL THEN
2401:
2402: SELECT count(*)
2419: FND_MSG_PUB.Add;
2420: p_return_status := FND_API.G_RET_STS_ERROR;
2421: END IF;
2422: IF PG_DEBUG in ('Y', 'C') THEN
2423: arp_util.debug('Validate_cash_receipt_id ()-');
2424: END IF;
2425: EXCEPTION
2426: WHEN others THEN
2427: IF PG_DEBUG in ('Y', 'C') THEN
2424: END IF;
2425: EXCEPTION
2426: WHEN others THEN
2427: IF PG_DEBUG in ('Y', 'C') THEN
2428: arp_util.debug('EXCEPTION: Validate_cash_receipt_id() ');
2429: END IF;
2430: raise;
2431: END Validate_cash_receipt_id;
2432:
2436: ) IS
2437: l_valid NUMBER;
2438: BEGIN
2439: IF PG_DEBUG in ('Y', 'C') THEN
2440: arp_util.debug('Validate_reversal_catg_code ()+');
2441: END IF;
2442: IF p_reversal_category_code IS NOT NULL THEN
2443: SELECT count(*)
2444: INTO l_valid
2456: FND_MSG_PUB.Add;
2457: p_return_status := FND_API.G_RET_STS_ERROR;
2458: END IF;
2459: IF PG_DEBUG in ('Y', 'C') THEN
2460: arp_util.debug('Validate_reversal_catg_code ()-');
2461: END IF;
2462: EXCEPTION
2463: WHEN others THEN
2464: IF PG_DEBUG in ('Y', 'C') THEN
2461: END IF;
2462: EXCEPTION
2463: WHEN others THEN
2464: IF PG_DEBUG in ('Y', 'C') THEN
2465: arp_util.debug('EXCEPTION: Validate_reversal_catg_code() ');
2466: END IF;
2467: raise;
2468: END Validate_reversal_catg_code;
2469:
2493: END IF;
2494: EXCEPTION
2495: WHEN others THEN
2496: IF PG_DEBUG in ('Y', 'C') THEN
2497: arp_util.debug('EXCEPTION: Validate_reversal_reason_code() ');
2498: END IF;
2499: raise;
2500: END Validate_reversal_reason_code;
2501:
2514: l_rev_gld_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
2515: BEGIN
2516: p_return_status := FND_API.G_RET_STS_SUCCESS;
2517: IF PG_DEBUG in ('Y', 'C') THEN
2518: arp_util.debug('Validate_reverse_info ()+');
2519: END IF;
2520: Validate_cash_receipt_id('ALL',
2521: p_cash_receipt_id,
2522: 'APPROVED',
2545: l_cr_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2546: p_return_status := FND_API.G_RET_STS_ERROR;
2547: END IF;
2548: IF PG_DEBUG in ('Y', 'C') THEN
2549: arp_util.debug('Validate_reverse_info ()-');
2550: END IF;
2551: EXCEPTION
2552: WHEN others THEN
2553: IF PG_DEBUG in ('Y', 'C') THEN
2550: END IF;
2551: EXCEPTION
2552: WHEN others THEN
2553: IF PG_DEBUG in ('Y', 'C') THEN
2554: arp_util.debug('EXCEPTION: Validate_reverse_info ()');
2555: END IF;
2556: raise;
2557: END Validate_reverse_info;
2558:
2574: l_apply_date_return_status VARCHAR2(1);
2575: BEGIN
2576: p_return_status := FND_API.G_RET_STS_SUCCESS;
2577: IF PG_DEBUG in ('Y', 'C') THEN
2578: arp_util.debug('validate_on_ac_app ()+');
2579: END IF;
2580:
2581: validate_cash_receipt_id('ALL',
2582: p_cash_receipt_id,
2634: p_return_status := FND_API.G_RET_STS_ERROR;
2635: END IF;
2636:
2637: IF PG_DEBUG in ('Y', 'C') THEN
2638: arp_util.debug('validate_on_ac_app ()-');
2639: END IF;
2640: EXCEPTION
2641: WHEN others THEN
2642: IF PG_DEBUG in ('Y', 'C') THEN
2639: END IF;
2640: EXCEPTION
2641: WHEN others THEN
2642: IF PG_DEBUG in ('Y', 'C') THEN
2643: arp_util.debug('EXCEPTION: validate_on_ac_app()');
2644: END IF;
2645: raise;
2646: END validate_on_ac_app;
2647:
2662: l_amt_app_from_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;/*Added for 3569640 */
2663: BEGIN
2664: p_return_status := FND_API.G_RET_STS_SUCCESS;
2665: IF PG_DEBUG in ('Y', 'C') THEN
2666: arp_util.debug('validate_unapp_on_ac_act_info: ' || 'Validate_unapp_on_acc_act_info ()+');
2667: END IF;
2668:
2669:
2670: --the receivable_application_id was validated in the defaulting stage
2692: p_return_status := FND_API.G_RET_STS_ERROR;
2693: END IF;
2694:
2695: IF PG_DEBUG in ('Y', 'C') THEN
2696: arp_util.debug('validate_unapp_on_ac_act_info: ' || 'p_return_status :'||p_return_status);
2697: arp_util.debug('validate_unapp_on_ac_act_info: ' || 'Validate_unapp_on_acc_act_info ()-');
2698: END IF;
2699: END validate_unapp_on_ac_act_info;
2700:
2693: END IF;
2694:
2695: IF PG_DEBUG in ('Y', 'C') THEN
2696: arp_util.debug('validate_unapp_on_ac_act_info: ' || 'p_return_status :'||p_return_status);
2697: arp_util.debug('validate_unapp_on_ac_act_info: ' || 'Validate_unapp_on_acc_act_info ()-');
2698: END IF;
2699: END validate_unapp_on_ac_act_info;
2700:
2701: PROCEDURE validate_ccrefund(
2709:
2710: --If the applied payment schedule_id -7, we can issue the refund only to credit card.
2711:
2712: IF PG_DEBUG in ('Y', 'C') THEN
2713: arp_util.debug('Validate_ccrefund (+)');
2714: END IF;
2715: IF p_applied_ps_id = -6 THEN
2716: BEGIN
2717: SELECT NVL(arm.payment_channel_code,'NONE')
2735: FND_MSG_PUB.Add;
2736: END;
2737: END IF;
2738: IF PG_DEBUG in ('Y', 'C') THEN
2739: arp_util.debug('Validate_ccrefund (-)');
2740: END IF;
2741: END validate_ccrefund;
2742:
2743:
2776:
2777: BEGIN
2778:
2779: IF PG_DEBUG in ('Y', 'C') THEN
2780: arp_util.debug('validate_activity (+)');
2781: END IF;
2782:
2783: OPEN activity_type;
2784: FETCH activity_type INTO l_activity_type;
2891: p_return_status := FND_API.G_RET_STS_ERROR;
2892: END IF;
2893:
2894: IF PG_DEBUG in ('Y', 'C') THEN
2895: arp_util.debug('l_max_wrt_off_amount = '||l_max_wrt_off_amount);
2896: arp_util.debug('l_min_wrt_off_amount = '||l_min_wrt_off_amount);
2897: arp_util.debug('l_tot_write_off_amt = '||l_tot_write_off_amt);
2898: END IF;
2899:
2892: END IF;
2893:
2894: IF PG_DEBUG in ('Y', 'C') THEN
2895: arp_util.debug('l_max_wrt_off_amount = '||l_max_wrt_off_amount);
2896: arp_util.debug('l_min_wrt_off_amount = '||l_min_wrt_off_amount);
2897: arp_util.debug('l_tot_write_off_amt = '||l_tot_write_off_amt);
2898: END IF;
2899:
2900: /**Bug 5367753 Condition is added to convert the writeoff amount into
2893:
2894: IF PG_DEBUG in ('Y', 'C') THEN
2895: arp_util.debug('l_max_wrt_off_amount = '||l_max_wrt_off_amount);
2896: arp_util.debug('l_min_wrt_off_amount = '||l_min_wrt_off_amount);
2897: arp_util.debug('l_tot_write_off_amt = '||l_tot_write_off_amt);
2898: END IF;
2899:
2900: /**Bug 5367753 Condition is added to convert the writeoff amount into
2901: functional currency for validation */
2913: END IF;
2914:
2915: IF ( (NVL(l_tot_write_off_amt,0) > l_max_wrt_off_amount) OR
2916: (NVL(l_tot_write_off_amt,0) < l_min_wrt_off_amount) ) THEN
2917: arp_util.debug('ERROR l_tot_write_off_amt = '||l_tot_write_off_amt);
2918: fnd_message.set_name ('AR','AR_WR_TOTAL_EXCEED_MAX_AMOUNT');
2919: FND_MSG_PUB.Add;
2920: p_return_status := FND_API.G_RET_STS_ERROR;
2921: END IF;
2957: p_return_status := FND_API.G_RET_STS_ERROR;
2958: END IF; --additional control structures to be added for new activity types.
2959: END IF;
2960: IF PG_DEBUG in ('Y', 'C') THEN
2961: arp_util.debug('validate_activity (-)');
2962: END IF;
2963: END validate_activity;
2964:
2965: PROCEDURE validate_activity_app( p_receivables_trx_id IN NUMBER,
2980: ) IS
2981: l_valid VARCHAR2(1) DEFAULT 'N';
2982: BEGIN
2983: IF PG_DEBUG in ('Y', 'C') THEN
2984: arp_util.debug('validate_activity_app ()+');
2985: END IF;
2986: p_return_status := FND_API.G_RET_STS_SUCCESS;
2987: validate_on_ac_app(
2988: p_cash_receipt_id,
3077: WHEN others THEN
3078: raise;
3079: END;
3080: END IF;
3081: arp_util.debug('fnd_api.g_ret_sts_error = '||fnd_api.g_ret_sts_error);
3082: IF PG_DEBUG in ('Y', 'C') THEN
3083: arp_util.debug('validate_activity_app ()-');
3084: END IF;
3085: END validate_activity_app;
3079: END;
3080: END IF;
3081: arp_util.debug('fnd_api.g_ret_sts_error = '||fnd_api.g_ret_sts_error);
3082: IF PG_DEBUG in ('Y', 'C') THEN
3083: arp_util.debug('validate_activity_app ()-');
3084: END IF;
3085: END validate_activity_app;
3086:
3087: -- Bug 2270825 - additional validation for claims
3109: l_currency_code fnd_currencies.currency_code%TYPE;
3110: invalid_claim EXCEPTION;
3111:
3112: BEGIN
3113: arp_util.debug('validate_application_reference ()+');
3114:
3115: IF (p_application_ref_type IS NOT NULL AND p_applied_ps_id < 0) THEN
3116: IF p_applied_ps_id IS NOT NULL and p_applied_ps_id in (-4,-5,-6,-7) THEN
3117: BEGIN
3175: THEN
3176: l_query_text := l_query_text ||
3177: ' where claim_id = :secondary_application_ref_id '||
3178: ' and currency_code = :currency_code ';
3179: arp_util.debug('claim query text : '||l_query_text);
3180: BEGIN
3181: EXECUTE IMMEDIATE l_query_text INTO l_claim_id
3182: USING p_secondary_application_ref_id, l_currency_code ;
3183: EXCEPTION
3187: ELSE
3188: l_query_text := l_query_text ||
3189: ' where claim_number = :application_ref_num '||
3190: ' and currency_code = :currency_code ';
3191: arp_util.debug('claim query text : '||l_query_text);
3192: BEGIN
3193: EXECUTE IMMEDIATE l_query_text INTO l_claim_id
3194: USING p_application_ref_num, l_currency_code ;
3195: EXCEPTION
3204: l_check_amount := (p_amount_applied * -1);
3205: ELSE
3206: l_check_amount := (p_amount_due_remaining - p_amount_applied);
3207: END IF;
3208: arp_util.debug('l_check_amount = '||l_check_amount);
3209: /* Bug 2751910 - no longer need to cross check the amount */
3210:
3211: END IF;
3212: END IF;
3210:
3211: END IF;
3212: END IF;
3213:
3214: arp_util.debug('validate_application_reference ()-');
3215: EXCEPTION
3216: WHEN invalid_claim THEN
3217: IF p_secondary_application_ref_id IS NOT NULL
3218: THEN
3226: p_return_status := FND_API.G_RET_STS_ERROR;
3227: RAISE;
3228: WHEN others THEN
3229: p_return_status := FND_API.G_RET_STS_ERROR;
3230: arp_util.debug('EXCEPTION :validate_application_reference ()-'||SQLERRM);
3231: raise;
3232: END;
3233:
3234: PROCEDURE Validate_misc_receipt(
3278: l_ref_id_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
3279: l_ref_type_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
3280: BEGIN
3281: IF PG_DEBUG in ('Y', 'C') THEN
3282: arp_util.debug('Validate_misc_receipt()+ ');
3283: END IF;
3284:
3285: p_return_status := FND_API.G_RET_STS_SUCCESS;
3286:
3288:
3289: Validate_Receipt_Date(p_receipt_date,
3290: l_receipt_date_return_status);
3291: IF PG_DEBUG in ('Y', 'C') THEN
3292: arp_util.debug('Validate_misc_receipt: ' || 'l_receipt_date_return_status : '||l_receipt_date_return_status);
3293: END IF;
3294:
3295: --Validate gl_date
3296:
3296:
3297: Validate_Gl_Date(p_gl_date,
3298: l_gl_date_return_status);
3299: IF PG_DEBUG in ('Y', 'C') THEN
3300: arp_util.debug('Validate_misc_receipt: ' || 'l_gl_date_return_status : '||l_gl_date_return_status);
3301: END IF;
3302:
3303: --Validate deposit_date
3304:
3304:
3305: Validate_Deposit_Date(p_deposit_date,
3306: l_deposit_date_return_status);
3307: IF PG_DEBUG in ('Y', 'C') THEN
3308: arp_util.debug('Validate_misc_receipt: ' || 'l_deposit_date_return_status : '||l_deposit_date_return_status);
3309: END IF;
3310:
3311:
3312: --Validate Receipt_method
3317: p_state,
3318: 'MISC',
3319: l_rcpt_md_return_status);
3320: IF PG_DEBUG in ('Y', 'C') THEN
3321: arp_util.debug('Validate_misc_receipt: ' || 'l_rcpt_md_return_status : '||l_rcpt_md_return_status);
3322: END IF;
3323:
3324: --Validate document sequence value
3325:
3343: p_exchange_date,
3344: l_currency_return_status);
3345: END IF;
3346: IF PG_DEBUG in ('Y', 'C') THEN
3347: arp_util.debug('Validate_misc_receipt: ' || 'l_currency_return_status : '||l_currency_return_status);
3348: END IF;
3349:
3350: IF p_receipt_number IS NOT NULL AND
3351: p_amount IS NOT NULL
3360:
3361: --Validate the activity on the misc receipt.
3362: --Also default the distribution_set_id.
3363: IF PG_DEBUG in ('Y', 'C') THEN
3364: arp_util.debug('Validate_misc_receipt: ' || 'Validating the activity ');
3365: END IF;
3366: IF p_receivables_trx_id IS NOT NULL THEN
3367:
3368: --CC Chargeback logic
3396:
3397:
3398: --Validate vat_tax_id
3399: IF PG_DEBUG in ('Y', 'C') THEN
3400: arp_util.debug('Validate_misc_receipt: ' || 'Validating vat_tax_id');
3401: END IF;
3402:
3403: IF arp_global.sysparam.accounting_method = 'ACCRUAL'
3404: THEN
3496:
3497:
3498: --Validate reference_id, reference_type
3499: IF PG_DEBUG in ('Y', 'C') THEN
3500: arp_util.debug('Validate_misc_receipt: ' || 'Validation for reference id begins');
3501: END IF;
3502: IF p_reference_type IS NOT NULL THEN
3503: IF p_reference_id IS NOT NULL THEN
3504: BEGIN
3606: THEN
3607: p_return_status := FND_API.G_RET_STS_ERROR;
3608: END IF;
3609: IF PG_DEBUG in ('Y', 'C') THEN
3610: arp_util.debug('Validate_misc_receipt return status :'||p_return_status);
3611: END IF;
3612:
3613: EXCEPTION
3614: WHEN others THEN
3612:
3613: EXCEPTION
3614: WHEN others THEN
3615: IF PG_DEBUG in ('Y', 'C') THEN
3616: arp_util.debug('EXCEPTION : Validate_misc_receipt()');
3617: END IF;
3618: raise;
3619:
3620: END Validate_misc_receipt;
3630: l_cash_receipt_id NUMBER;
3631: l_prepay_amount NUMBER;
3632: BEGIN
3633:
3634: arp_util.debug('Validate prepay amount (+)');
3635: p_return_status := FND_API.G_RET_STS_SUCCESS;
3636:
3637: l_cash_receipt_id := p_cash_receipt_id;
3638:
3672: FND_MSG_PUB.Add;
3673: p_return_status := FND_API.G_RET_STS_ERROR ;
3674: END IF;
3675:
3676: arp_util.debug('Validate prepay amount (-)');
3677:
3678: EXCEPTION
3679: WHEN others THEN
3680: FND_MESSAGE.SET_NAME('AR', 'GENERIC_MESSAGE');
3680: FND_MESSAGE.SET_NAME('AR', 'GENERIC_MESSAGE');
3681: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT',SQLERRM);
3682: FND_MSG_PUB.Add;
3683: p_return_status := FND_API.G_RET_STS_ERROR ;
3684: arp_util.debug('EXCEPTION :Validate prepay amount '||SQLERRM);
3685: END;
3686:
3687: PROCEDURE validate_payment_type(
3688: p_receipt_number IN VARCHAR2,
3695: l_payment_type_code VARCHAR2(30);
3696: l_cash_receipt_id NUMBER;
3697:
3698: BEGIN
3699: arp_util.debug('Validate payment Type (+)');
3700: p_return_status := FND_API.G_RET_STS_SUCCESS;
3701:
3702: l_cash_receipt_id := p_cash_receipt_id;
3703:
3746:
3747: END IF;
3748: END IF;
3749:
3750: arp_util.debug('Validate payment Type (-)');
3751:
3752: EXCEPTION
3753: WHEN others THEN
3754: FND_MESSAGE.SET_NAME('AR', 'GENERIC_MESSAGE');
3754: FND_MESSAGE.SET_NAME('AR', 'GENERIC_MESSAGE');
3755: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT',SQLERRM);
3756: FND_MSG_PUB.Add;
3757: p_return_status := FND_API.G_RET_STS_ERROR ;
3758: arp_util.debug('EXCEPTION :Validate payment type '||SQLERRM);
3759: END;
3760:
3761: -- Bug 2270809
3762: -- If a claim investigation app, then check the claim status.
3782:
3783:
3784: BEGIN
3785: IF PG_DEBUG in ('Y', 'C') THEN
3786: arp_util.debug('ar_receipt_val_pvt.validate_claim_unapply()+');
3787: END IF;
3788:
3789: l_secondary_app_ref_id := p_secondary_app_ref_id;
3790:
3804: , x_return_status => p_return_status
3805: , x_msg_count => l_msg_count
3806: , x_msg_data => l_msg_data);
3807: IF PG_DEBUG in ('Y', 'C') THEN
3808: arp_util.debug('ar_receipt_val_pvt.validate_claim_unapply()-');
3809: END IF;
3810: EXCEPTION
3811: WHEN others THEN
3812: FND_MESSAGE.SET_NAME('AR', 'GENERIC_MESSAGE');
3813: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT',SQLERRM);
3814: FND_MSG_PUB.Add;
3815: p_return_status := FND_API.G_RET_STS_ERROR ;
3816: IF PG_DEBUG in ('Y', 'C') THEN
3817: arp_util.debug('EXCEPTION :ar_receipt_val_pvt.validate_claim_unapply '||SQLERRM);
3818: END IF;
3819: END validate_claim_unapply;
3820:
3821: PROCEDURE validate_open_receipt_info(
3849:
3850: BEGIN
3851:
3852: IF PG_DEBUG in ('Y', 'C') THEN
3853: arp_util.debug('ar_receipt_val_pvt.validate_open_receipt_info()+');
3854: END IF;
3855:
3856: -- Bug 3235089: checks for activity existing and accounting set up
3857: BEGIN
3899: l_apply_date_return_status
3900: );
3901:
3902: IF PG_DEBUG in ('Y', 'C') THEN
3903: arp_util.debug('Validate_open_receipt_info: ' || 'Apply date return status :'||l_apply_date_return_status);
3904: END IF;
3905:
3906: validate_apply_gl_date(p_apply_gl_date ,
3907: p_cr_gl_date ,
3916: END IF;
3917:
3918:
3919: IF PG_DEBUG in ('Y', 'C') THEN
3920: arp_util.debug('Validate_open_receipt_info: ' || 'Apply gl_date return status :'||l_gl_date_return_status);
3921: arp_util.debug('Validate_open_receipt_info: ' || 'p_unapplied_cash :'||p_unapplied_cash);
3922: arp_util.debug('Validate_open_receipt_info: ' || 'p_amount_applied :'||p_amount_applied);
3923: arp_util.debug('Validate_open_receipt_info: ' || 'p_called_from :'||p_called_from);
3924: END IF;
3917:
3918:
3919: IF PG_DEBUG in ('Y', 'C') THEN
3920: arp_util.debug('Validate_open_receipt_info: ' || 'Apply gl_date return status :'||l_gl_date_return_status);
3921: arp_util.debug('Validate_open_receipt_info: ' || 'p_unapplied_cash :'||p_unapplied_cash);
3922: arp_util.debug('Validate_open_receipt_info: ' || 'p_amount_applied :'||p_amount_applied);
3923: arp_util.debug('Validate_open_receipt_info: ' || 'p_called_from :'||p_called_from);
3924: END IF;
3925: -- validate amount applied
3918:
3919: IF PG_DEBUG in ('Y', 'C') THEN
3920: arp_util.debug('Validate_open_receipt_info: ' || 'Apply gl_date return status :'||l_gl_date_return_status);
3921: arp_util.debug('Validate_open_receipt_info: ' || 'p_unapplied_cash :'||p_unapplied_cash);
3922: arp_util.debug('Validate_open_receipt_info: ' || 'p_amount_applied :'||p_amount_applied);
3923: arp_util.debug('Validate_open_receipt_info: ' || 'p_called_from :'||p_called_from);
3924: END IF;
3925: -- validate amount applied
3926: IF p_amount_applied IS NULL THEN
3919: IF PG_DEBUG in ('Y', 'C') THEN
3920: arp_util.debug('Validate_open_receipt_info: ' || 'Apply gl_date return status :'||l_gl_date_return_status);
3921: arp_util.debug('Validate_open_receipt_info: ' || 'p_unapplied_cash :'||p_unapplied_cash);
3922: arp_util.debug('Validate_open_receipt_info: ' || 'p_amount_applied :'||p_amount_applied);
3923: arp_util.debug('Validate_open_receipt_info: ' || 'p_called_from :'||p_called_from);
3924: END IF;
3925: -- validate amount applied
3926: IF p_amount_applied IS NULL THEN
3927: FND_MESSAGE.SET_NAME('AR','AR_RAPI_APPLIED_AMT_NULL');
3948:
3949: END IF;
3950:
3951: IF PG_DEBUG in ('Y', 'C') THEN
3952: arp_util.debug('Validate_open_receipt_info: ' || 'Amount return status :'||l_amt_return_status);
3953: END IF;
3954:
3955: SELECT sob.currency_code
3956: INTO l_func_currency
3975: p_return_status := FND_API.G_RET_STS_ERROR;
3976: END IF;
3977:
3978: IF PG_DEBUG in ('Y', 'C') THEN
3979: arp_util.debug('ar_receipt_val_pvt.validate_open_receipt_info()-');
3980: END IF;
3981: EXCEPTION
3982: WHEN others THEN
3983: FND_MESSAGE.SET_NAME('AR', 'GENERIC_MESSAGE');
3984: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT',SQLERRM);
3985: FND_MSG_PUB.Add;
3986: p_return_status := FND_API.G_RET_STS_ERROR ;
3987: IF PG_DEBUG in ('Y', 'C') THEN
3988: arp_util.debug('EXCEPTION :ar_receipt_val_pvt.validate_open_receipt_info '||SQLERRM);
3989: END IF;
3990:
3991: END validate_open_receipt_info;
3992:
4000: l_amount_applied NUMBER;
4001: BEGIN
4002:
4003: IF PG_DEBUG in ('Y', 'C') THEN
4004: arp_util.debug('ar_receipt_val_pvt.validate_unapp_open_receipt()+');
4005: END IF;
4006:
4007: -- Check if unapplication will send the applied-to receipt negative
4008:
4017: WHERE cash_receipt_id = p_applied_cash_receipt_id
4018: AND display = 'Y';
4019:
4020: IF PG_DEBUG in ('Y', 'C') THEN
4021: arp_util.debug('validate_unapp_open_receipt-Receipt amount: '||l_cr_amount);
4022: arp_util.debug('validate_unapp_open_receipt-Applied amount: '||l_amount_applied);
4023: END IF;
4024:
4025: IF (l_cr_amount - l_amount_applied - p_amount_applied) < 0 THEN
4018: AND display = 'Y';
4019:
4020: IF PG_DEBUG in ('Y', 'C') THEN
4021: arp_util.debug('validate_unapp_open_receipt-Receipt amount: '||l_cr_amount);
4022: arp_util.debug('validate_unapp_open_receipt-Applied amount: '||l_amount_applied);
4023: END IF;
4024:
4025: IF (l_cr_amount - l_amount_applied - p_amount_applied) < 0 THEN
4026: FND_MESSAGE.set_name('AR','AR_RW_NET_UNAPP_OVERAPP');
4028: p_return_status := FND_API.G_RET_STS_ERROR;
4029: END IF;
4030:
4031: IF PG_DEBUG in ('Y', 'C') THEN
4032: arp_util.debug('ar_receipt_val_pvt.validate_unapp_open_receipt()-');
4033: END IF;
4034:
4035: EXCEPTION
4036: WHEN others THEN
4038: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT',SQLERRM);
4039: FND_MSG_PUB.Add;
4040: p_return_status := FND_API.G_RET_STS_ERROR ;
4041: IF PG_DEBUG in ('Y', 'C') THEN
4042: arp_util.debug('EXCEPTION :ar_receipt_val_pvt.validate_unapp_open_receipt '||SQLERRM);
4043: END IF;
4044:
4045: END validate_unapp_open_receipt;
4046:
4167: l_dflex_val_return_status VARCHAR2(1); --bug7311231
4168: l_attribute_rec ar_receipt_api_pub.attribute_rec_type; --bug7311231
4169: BEGIN
4170: IF PG_DEBUG in ('Y', 'C') THEN
4171: arp_util.debug('ar_receipt_val_pvt.validate_llac_insert_ad()+');
4172: END IF;
4173:
4174: p_return_status := FND_API.G_RET_STS_SUCCESS;
4175:
4173:
4174: p_return_status := FND_API.G_RET_STS_SUCCESS;
4175:
4176: IF PG_DEBUG in ('Y', 'C') THEN
4177: arp_util.debug('Initialization the GT tables ...');
4178: arp_util.debug('DONE In the default initialization the GT tables ...');
4179: END IF;
4180: /*
4181: -- Initialize the Sys Parameters /INV PS /REC PS / Copy Trx lines into GT
4174: p_return_status := FND_API.G_RET_STS_SUCCESS;
4175:
4176: IF PG_DEBUG in ('Y', 'C') THEN
4177: arp_util.debug('Initialization the GT tables ...');
4178: arp_util.debug('DONE In the default initialization the GT tables ...');
4179: END IF;
4180: /*
4181: -- Initialize the Sys Parameters /INV PS /REC PS / Copy Trx lines into GT
4182: arp_process_det_pkg.initialization (p_customer_trx_id,
4184: p_return_status,
4185: p_msg_data,
4186: p_msg_count); */
4187: IF PG_DEBUG in ('Y', 'C') THEN
4188: arp_util.debug('Initialization Return_status = '||p_return_status);
4189: END IF;
4190:
4191: -- LLCA Summary
4192: IF p_llca_type = 'S'
4192: IF p_llca_type = 'S'
4193: THEN
4194:
4195: IF PG_DEBUG in ('Y', 'C') THEN
4196: arp_util.debug('Summary Level application... ');
4197: arp_util.debug('p_line_amount ... '||p_line_amount);
4198: arp_util.debug('p_tax_amount ... '||p_tax_amount);
4199: arp_util.debug('p_freight_amount ... '||p_freight_amount);
4200: arp_util.debug('p_charges_amount ... '||p_charges_amount);
4193: THEN
4194:
4195: IF PG_DEBUG in ('Y', 'C') THEN
4196: arp_util.debug('Summary Level application... ');
4197: arp_util.debug('p_line_amount ... '||p_line_amount);
4198: arp_util.debug('p_tax_amount ... '||p_tax_amount);
4199: arp_util.debug('p_freight_amount ... '||p_freight_amount);
4200: arp_util.debug('p_charges_amount ... '||p_charges_amount);
4201: arp_util.debug('p_line_discount ... '||p_line_discount);
4194:
4195: IF PG_DEBUG in ('Y', 'C') THEN
4196: arp_util.debug('Summary Level application... ');
4197: arp_util.debug('p_line_amount ... '||p_line_amount);
4198: arp_util.debug('p_tax_amount ... '||p_tax_amount);
4199: arp_util.debug('p_freight_amount ... '||p_freight_amount);
4200: arp_util.debug('p_charges_amount ... '||p_charges_amount);
4201: arp_util.debug('p_line_discount ... '||p_line_discount);
4202: arp_util.debug('p_tax_discount ... '||p_tax_discount);
4195: IF PG_DEBUG in ('Y', 'C') THEN
4196: arp_util.debug('Summary Level application... ');
4197: arp_util.debug('p_line_amount ... '||p_line_amount);
4198: arp_util.debug('p_tax_amount ... '||p_tax_amount);
4199: arp_util.debug('p_freight_amount ... '||p_freight_amount);
4200: arp_util.debug('p_charges_amount ... '||p_charges_amount);
4201: arp_util.debug('p_line_discount ... '||p_line_discount);
4202: arp_util.debug('p_tax_discount ... '||p_tax_discount);
4203: arp_util.debug('p_freight_discount ... '||p_freight_discount);
4196: arp_util.debug('Summary Level application... ');
4197: arp_util.debug('p_line_amount ... '||p_line_amount);
4198: arp_util.debug('p_tax_amount ... '||p_tax_amount);
4199: arp_util.debug('p_freight_amount ... '||p_freight_amount);
4200: arp_util.debug('p_charges_amount ... '||p_charges_amount);
4201: arp_util.debug('p_line_discount ... '||p_line_discount);
4202: arp_util.debug('p_tax_discount ... '||p_tax_discount);
4203: arp_util.debug('p_freight_discount ... '||p_freight_discount);
4204: arp_util.debug('Trans_to_receipt_rate='||p_trans_to_receipt_rate);
4197: arp_util.debug('p_line_amount ... '||p_line_amount);
4198: arp_util.debug('p_tax_amount ... '||p_tax_amount);
4199: arp_util.debug('p_freight_amount ... '||p_freight_amount);
4200: arp_util.debug('p_charges_amount ... '||p_charges_amount);
4201: arp_util.debug('p_line_discount ... '||p_line_discount);
4202: arp_util.debug('p_tax_discount ... '||p_tax_discount);
4203: arp_util.debug('p_freight_discount ... '||p_freight_discount);
4204: arp_util.debug('Trans_to_receipt_rate='||p_trans_to_receipt_rate);
4205: arp_util.debug('Invoice Currency Code='||p_invoice_currency_code);
4198: arp_util.debug('p_tax_amount ... '||p_tax_amount);
4199: arp_util.debug('p_freight_amount ... '||p_freight_amount);
4200: arp_util.debug('p_charges_amount ... '||p_charges_amount);
4201: arp_util.debug('p_line_discount ... '||p_line_discount);
4202: arp_util.debug('p_tax_discount ... '||p_tax_discount);
4203: arp_util.debug('p_freight_discount ... '||p_freight_discount);
4204: arp_util.debug('Trans_to_receipt_rate='||p_trans_to_receipt_rate);
4205: arp_util.debug('Invoice Currency Code='||p_invoice_currency_code);
4206: arp_util.debug('Receipt Currency Code='||p_receipt_currency_code);
4199: arp_util.debug('p_freight_amount ... '||p_freight_amount);
4200: arp_util.debug('p_charges_amount ... '||p_charges_amount);
4201: arp_util.debug('p_line_discount ... '||p_line_discount);
4202: arp_util.debug('p_tax_discount ... '||p_tax_discount);
4203: arp_util.debug('p_freight_discount ... '||p_freight_discount);
4204: arp_util.debug('Trans_to_receipt_rate='||p_trans_to_receipt_rate);
4205: arp_util.debug('Invoice Currency Code='||p_invoice_currency_code);
4206: arp_util.debug('Receipt Currency Code='||p_receipt_currency_code);
4207: arp_util.debug('............................ ');
4200: arp_util.debug('p_charges_amount ... '||p_charges_amount);
4201: arp_util.debug('p_line_discount ... '||p_line_discount);
4202: arp_util.debug('p_tax_discount ... '||p_tax_discount);
4203: arp_util.debug('p_freight_discount ... '||p_freight_discount);
4204: arp_util.debug('Trans_to_receipt_rate='||p_trans_to_receipt_rate);
4205: arp_util.debug('Invoice Currency Code='||p_invoice_currency_code);
4206: arp_util.debug('Receipt Currency Code='||p_receipt_currency_code);
4207: arp_util.debug('............................ ');
4208: END IF;
4201: arp_util.debug('p_line_discount ... '||p_line_discount);
4202: arp_util.debug('p_tax_discount ... '||p_tax_discount);
4203: arp_util.debug('p_freight_discount ... '||p_freight_discount);
4204: arp_util.debug('Trans_to_receipt_rate='||p_trans_to_receipt_rate);
4205: arp_util.debug('Invoice Currency Code='||p_invoice_currency_code);
4206: arp_util.debug('Receipt Currency Code='||p_receipt_currency_code);
4207: arp_util.debug('............................ ');
4208: END IF;
4209:
4202: arp_util.debug('p_tax_discount ... '||p_tax_discount);
4203: arp_util.debug('p_freight_discount ... '||p_freight_discount);
4204: arp_util.debug('Trans_to_receipt_rate='||p_trans_to_receipt_rate);
4205: arp_util.debug('Invoice Currency Code='||p_invoice_currency_code);
4206: arp_util.debug('Receipt Currency Code='||p_receipt_currency_code);
4207: arp_util.debug('............................ ');
4208: END IF;
4209:
4210: --bug7311231.
4203: arp_util.debug('p_freight_discount ... '||p_freight_discount);
4204: arp_util.debug('Trans_to_receipt_rate='||p_trans_to_receipt_rate);
4205: arp_util.debug('Invoice Currency Code='||p_invoice_currency_code);
4206: arp_util.debug('Receipt Currency Code='||p_receipt_currency_code);
4207: arp_util.debug('............................ ');
4208: END IF;
4209:
4210: --bug7311231.
4211: ar_ll_rcv_summary_pkg.insert_row(
4243: ELSIF p_llca_type = 'G'
4244: THEN
4245:
4246: IF PG_DEBUG in ('Y', 'C') THEN
4247: arp_util.debug('Group Level application... ');
4248: END IF;
4249:
4250: If p_group_id is NOT NULL
4251: THEN
4268: -- Unapplied balance to total amount applied and calculate the line amount as
4269: -- amount_applied * (line_bal/(line_bal+tax_bal)) and tax_amount =
4270: -- amount_applied - line_amount
4271:
4272: l_calc_tot_amount_app := arp_util.CurrRound(l_cr_unapp_bal
4273: ,p_invoice_currency_code);
4274:
4275: Select decode ( ( Nvl(line_grp.line_to_apply,0)
4276: / (Nvl(line_grp.line_to_apply,0)
4285: )
4286: into l_calc_line_per
4287: from dual;
4288:
4289: l_calc_line_amount := arp_util.CurrRound((l_calc_tot_amount_app
4290: * l_calc_line_per),p_invoice_currency_code);
4291: l_calc_tax_amount := arp_util.CurrRound((Nvl(l_calc_tot_amount_app,0)
4292: - Nvl(l_calc_line_amount,0))
4293: ,p_invoice_currency_code);
4287: from dual;
4288:
4289: l_calc_line_amount := arp_util.CurrRound((l_calc_tot_amount_app
4290: * l_calc_line_per),p_invoice_currency_code);
4291: l_calc_tax_amount := arp_util.CurrRound((Nvl(l_calc_tot_amount_app,0)
4292: - Nvl(l_calc_line_amount,0))
4293: ,p_invoice_currency_code);
4294: Else
4295: l_calc_line_amount := Nvl(line_grp.line_to_apply,0);
4344: -- Line Level
4345: ELSIF p_llca_type = 'L'
4346: THEN
4347: IF PG_DEBUG in ('Y', 'C') THEN
4348: arp_util.debug('Line Level application... ');
4349: END IF;
4350:
4351: select count(*)
4352: into l_gt_count
4357: -- All Lines
4358: IF nvl(l_gt_count,0) = 0
4359: THEN
4360: IF PG_DEBUG in ('Y', 'C') THEN
4361: arp_util.debug('All Lines... ');
4362: END IF;
4363: -- Customer Select All lines
4364: l_cr_unapp_bal := Nvl(p_cr_unapp_amount,0);
4365:
4369: l_calc_tot_amount_app := Nvl(All_lines_row.line_to_apply,0)
4370: + Nvl(All_lines_row.tax_to_apply,0);
4371: /* Bug 5438627 : Amount in Receipt Currency */
4372: If p_trans_to_receipt_rate <> 0 then
4373: l_calc_amount_app_from := arp_util.CurrRound((Nvl(l_calc_tot_amount_app,0) *
4374: nvl(p_trans_to_receipt_rate,0)), p_receipt_currency_code);
4375: Else
4376: l_calc_amount_app_from := Nvl(l_calc_tot_amount_app,0);
4377: End If;
4383: l_calc_line_amount := 0;
4384: l_calc_tax_amount := 0;
4385: Else
4386: IF PG_DEBUG in ('Y', 'C') THEN
4387: arp_util.debug('Customer_trx_line_id => '||to_char(All_lines_row.line_id));
4388: arp_util.debug('l_calc_tot_amount_app -> '||to_char(l_calc_tot_amount_app));
4389: arp_util.debug('l_calc_amount_app_from-> '||to_char(l_calc_amount_app_from));
4390: arp_util.debug('l_cr_unapp_bal -> '||to_char(l_cr_unapp_bal));
4391: END IF;
4384: l_calc_tax_amount := 0;
4385: Else
4386: IF PG_DEBUG in ('Y', 'C') THEN
4387: arp_util.debug('Customer_trx_line_id => '||to_char(All_lines_row.line_id));
4388: arp_util.debug('l_calc_tot_amount_app -> '||to_char(l_calc_tot_amount_app));
4389: arp_util.debug('l_calc_amount_app_from-> '||to_char(l_calc_amount_app_from));
4390: arp_util.debug('l_cr_unapp_bal -> '||to_char(l_cr_unapp_bal));
4391: END IF;
4392: If Nvl(l_calc_amount_app_from,0) > Nvl(l_cr_unapp_bal,0) Then
4385: Else
4386: IF PG_DEBUG in ('Y', 'C') THEN
4387: arp_util.debug('Customer_trx_line_id => '||to_char(All_lines_row.line_id));
4388: arp_util.debug('l_calc_tot_amount_app -> '||to_char(l_calc_tot_amount_app));
4389: arp_util.debug('l_calc_amount_app_from-> '||to_char(l_calc_amount_app_from));
4390: arp_util.debug('l_cr_unapp_bal -> '||to_char(l_cr_unapp_bal));
4391: END IF;
4392: If Nvl(l_calc_amount_app_from,0) > Nvl(l_cr_unapp_bal,0) Then
4393: -- Unapplied balance is non zero and > than amount applied, so default the
4386: IF PG_DEBUG in ('Y', 'C') THEN
4387: arp_util.debug('Customer_trx_line_id => '||to_char(All_lines_row.line_id));
4388: arp_util.debug('l_calc_tot_amount_app -> '||to_char(l_calc_tot_amount_app));
4389: arp_util.debug('l_calc_amount_app_from-> '||to_char(l_calc_amount_app_from));
4390: arp_util.debug('l_cr_unapp_bal -> '||to_char(l_cr_unapp_bal));
4391: END IF;
4392: If Nvl(l_calc_amount_app_from,0) > Nvl(l_cr_unapp_bal,0) Then
4393: -- Unapplied balance is non zero and > than amount applied, so default the
4394: -- Unapplied balance to total amount applied and calculate the line amount as
4395: -- amount_applied * (line_bal/(line_bal+tax_bal)) and tax_amount =
4396: -- amount_applied - line_amount
4397:
4398: IF PG_DEBUG in ('Y', 'C') THEN
4399: arp_util.debug('l_calc_amount_app_from > l_cr_unapp_bal' );
4400: arp_util.debug('Resetting... amount applied and buckets');
4401: END IF;
4402:
4403: l_calc_amount_app_from := Nvl(l_cr_unapp_bal,0);
4396: -- amount_applied - line_amount
4397:
4398: IF PG_DEBUG in ('Y', 'C') THEN
4399: arp_util.debug('l_calc_amount_app_from > l_cr_unapp_bal' );
4400: arp_util.debug('Resetting... amount applied and buckets');
4401: END IF;
4402:
4403: l_calc_amount_app_from := Nvl(l_cr_unapp_bal,0);
4404:
4402:
4403: l_calc_amount_app_from := Nvl(l_cr_unapp_bal,0);
4404:
4405: If p_trans_to_receipt_rate <> 0 then
4406: l_calc_tot_amount_app := arp_util.CurrRound((l_cr_unapp_bal/p_trans_to_receipt_rate)
4407: ,p_invoice_currency_code);
4408: Else
4409: l_calc_tot_amount_app := arp_util.CurrRound(l_cr_unapp_bal
4410: ,p_invoice_currency_code);
4405: If p_trans_to_receipt_rate <> 0 then
4406: l_calc_tot_amount_app := arp_util.CurrRound((l_cr_unapp_bal/p_trans_to_receipt_rate)
4407: ,p_invoice_currency_code);
4408: Else
4409: l_calc_tot_amount_app := arp_util.CurrRound(l_cr_unapp_bal
4410: ,p_invoice_currency_code);
4411: End If;
4412:
4413:
4424: )
4425: into l_calc_line_per
4426: from dual;
4427:
4428: l_calc_line_amount := arp_util.CurrRound((l_calc_tot_amount_app
4429: * l_calc_line_per),p_invoice_currency_code);
4430: l_calc_tax_amount := arp_util.CurrRound((Nvl(l_calc_tot_amount_app,0)
4431: - Nvl(l_calc_line_amount,0))
4432: ,p_invoice_currency_code);
4426: from dual;
4427:
4428: l_calc_line_amount := arp_util.CurrRound((l_calc_tot_amount_app
4429: * l_calc_line_per),p_invoice_currency_code);
4430: l_calc_tax_amount := arp_util.CurrRound((Nvl(l_calc_tot_amount_app,0)
4431: - Nvl(l_calc_line_amount,0))
4432: ,p_invoice_currency_code);
4433: Else
4434: l_calc_line_amount := Nvl(All_lines_row.line_to_apply,0);
4438: -- Reset the balance
4439: l_cr_unapp_bal := Nvl(l_cr_unapp_bal,0) - Nvl(l_calc_amount_app_from,0);
4440:
4441: IF PG_DEBUG in ('Y', 'C') THEN
4442: arp_util.debug('l_calc_line_amount -> '||to_char(l_calc_line_amount));
4443: arp_util.debug('l_calc_tax_amount -> '||to_char(l_calc_tax_amount));
4444: arp_util.debug('l_cr_unapp_bal (R) => '||to_char(l_cr_unapp_bal));
4445: END IF;
4446: End If;
4439: l_cr_unapp_bal := Nvl(l_cr_unapp_bal,0) - Nvl(l_calc_amount_app_from,0);
4440:
4441: IF PG_DEBUG in ('Y', 'C') THEN
4442: arp_util.debug('l_calc_line_amount -> '||to_char(l_calc_line_amount));
4443: arp_util.debug('l_calc_tax_amount -> '||to_char(l_calc_tax_amount));
4444: arp_util.debug('l_cr_unapp_bal (R) => '||to_char(l_cr_unapp_bal));
4445: END IF;
4446: End If;
4447:
4440:
4441: IF PG_DEBUG in ('Y', 'C') THEN
4442: arp_util.debug('l_calc_line_amount -> '||to_char(l_calc_line_amount));
4443: arp_util.debug('l_calc_tax_amount -> '||to_char(l_calc_tax_amount));
4444: arp_util.debug('l_cr_unapp_bal (R) => '||to_char(l_cr_unapp_bal));
4445: END IF;
4446: End If;
4447:
4448: ar_activity_details_pkg.insert_row (
4488: ELSIF Nvl(l_gt_count,0) > 0
4489: THEN
4490: ---
4491: IF PG_DEBUG in ('Y', 'C') THEN
4492: arp_util.debug('Specified one or more lines in PLSQL table... ');
4493: END IF;
4494:
4495: -- Calculate the line level amounts
4496: l_cr_unapp_bal := Nvl(p_cr_unapp_amount,0);
4496: l_cr_unapp_bal := Nvl(p_cr_unapp_amount,0);
4497:
4498: --bug7311231, start
4499: IF PG_DEBUG in ('Y', 'C') THEN
4500: arp_util.debug('Validating Value passed for Descriptive Flexfield at line level.');
4501: END IF;
4502: For sp_lines_row in gt_lines_cur(p_customer_trx_id)
4503: LOOP
4504: l_attribute_rec.attribute_category := sp_lines_row.attribute_category;
4536: End Loop;
4537:
4538: If p_return_status = 'X' Then
4539: IF PG_DEBUG in ('Y', 'C') THEN
4540: arp_util.debug('Failed: Validation of Descriptive Flexfield at line level.');
4541: END IF;
4542: return;
4543: End If;
4544: --bug7311231, End.
4574: FND_MSG_PUB.ADD;
4575: RAISE;
4576: WHEN others THEN
4577: IF PG_DEBUG in ('Y', 'C') THEN
4578: arp_util.debug('' || 'EXCEPTION: validate_llac_insert_ad()');
4579: END IF;
4580: RAISE;
4581: END;
4582:
4581: END;
4582:
4583: /* Bug 5438627 : Amount in Receipt Currency */
4584: If p_trans_to_receipt_rate <> 0 then
4585: l_calc_amount_app_from := arp_util.CurrRound((Nvl(sp_lines_row.amount_applied,0) *
4586: nvl(p_trans_to_receipt_rate,0)), p_receipt_currency_code);
4587: Else
4588: l_calc_amount_app_from := Nvl(sp_lines_row.amount_applied,0);
4589: End If;
4588: l_calc_amount_app_from := Nvl(sp_lines_row.amount_applied,0);
4589: End If;
4590:
4591: IF PG_DEBUG in ('Y', 'C') THEN
4592: arp_util.debug('Amount_applied -> '||to_char(sp_lines_row.amount_applied));
4593: arp_util.debug('l_calc_amount_app_from-> '||to_char(l_calc_amount_app_from));
4594: arp_util.debug('l_cr_unapp_bal -> '||to_char(l_cr_unapp_bal));
4595: END IF;
4596:
4589: End If;
4590:
4591: IF PG_DEBUG in ('Y', 'C') THEN
4592: arp_util.debug('Amount_applied -> '||to_char(sp_lines_row.amount_applied));
4593: arp_util.debug('l_calc_amount_app_from-> '||to_char(l_calc_amount_app_from));
4594: arp_util.debug('l_cr_unapp_bal -> '||to_char(l_cr_unapp_bal));
4595: END IF;
4596:
4597: -- Check the Unapplied balance
4590:
4591: IF PG_DEBUG in ('Y', 'C') THEN
4592: arp_util.debug('Amount_applied -> '||to_char(sp_lines_row.amount_applied));
4593: arp_util.debug('l_calc_amount_app_from-> '||to_char(l_calc_amount_app_from));
4594: arp_util.debug('l_cr_unapp_bal -> '||to_char(l_cr_unapp_bal));
4595: END IF;
4596:
4597: -- Check the Unapplied balance
4598: /* Acctd amount will be validated via validate_amount_applied_from, so
4599: the below validation is not required.
4600: If Nvl(l_calc_amount_app_from,0) > Nvl(l_cr_unapp_bal,0)
4601: Then
4602: IF PG_DEBUG in ('Y', 'C') THEN
4603: arp_util.debug('l_calc_amount_app_from > l_cr_unapp_bal' );
4604: arp_util.debug('Raise an error... amount applied and buckets');
4605: END IF;
4606: p_return_status := FND_API.G_RET_STS_ERROR;
4607: fnd_message.set_name ('AR','AR_RW_APP_NEG_UNAPP');
4600: If Nvl(l_calc_amount_app_from,0) > Nvl(l_cr_unapp_bal,0)
4601: Then
4602: IF PG_DEBUG in ('Y', 'C') THEN
4603: arp_util.debug('l_calc_amount_app_from > l_cr_unapp_bal' );
4604: arp_util.debug('Raise an error... amount applied and buckets');
4605: END IF;
4606: p_return_status := FND_API.G_RET_STS_ERROR;
4607: fnd_message.set_name ('AR','AR_RW_APP_NEG_UNAPP');
4608: fnd_msg_pub.Add;
4611: -- Reset the balance
4612: l_cr_unapp_bal := Nvl(l_cr_unapp_bal,0) - Nvl(l_calc_amount_app_from,0);
4613:
4614: IF PG_DEBUG in ('Y', 'C') THEN
4615: arp_util.debug('l_calc_line_amount -> '||to_char(l_calc_line_amount));
4616: arp_util.debug('l_calc_tax_amount -> '||to_char(l_calc_tax_amount));
4617: arp_util.debug('l_cr_unapp_bal (R) => '||to_char(l_cr_unapp_bal));
4618: END IF;
4619: --- End If;
4612: l_cr_unapp_bal := Nvl(l_cr_unapp_bal,0) - Nvl(l_calc_amount_app_from,0);
4613:
4614: IF PG_DEBUG in ('Y', 'C') THEN
4615: arp_util.debug('l_calc_line_amount -> '||to_char(l_calc_line_amount));
4616: arp_util.debug('l_calc_tax_amount -> '||to_char(l_calc_tax_amount));
4617: arp_util.debug('l_cr_unapp_bal (R) => '||to_char(l_cr_unapp_bal));
4618: END IF;
4619: --- End If;
4620: --bug7311231, Picking the flexfield value from ar_llca_trx_lines_gt, for each line.
4613:
4614: IF PG_DEBUG in ('Y', 'C') THEN
4615: arp_util.debug('l_calc_line_amount -> '||to_char(l_calc_line_amount));
4616: arp_util.debug('l_calc_tax_amount -> '||to_char(l_calc_tax_amount));
4617: arp_util.debug('l_cr_unapp_bal (R) => '||to_char(l_cr_unapp_bal));
4618: END IF;
4619: --- End If;
4620: --bug7311231, Picking the flexfield value from ar_llca_trx_lines_gt, for each line.
4621: ar_activity_details_pkg.insert_row(
4677:
4678: End If; /* End of LLCA TYPE */
4679:
4680: IF PG_DEBUG in ('Y', 'C') THEN
4681: arp_util.debug('ar_receipt_val_pvt.validate_llac_insert_ad()-');
4682: END IF;
4683: EXCEPTION
4684: WHEN others THEN
4685: IF PG_DEBUG in ('Y', 'C') THEN
4682: END IF;
4683: EXCEPTION
4684: WHEN others THEN
4685: IF PG_DEBUG in ('Y', 'C') THEN
4686: arp_util.debug('EXCEPTION: ar_receipt_val_pvt.validate_llac_insert_ad()');
4687: END IF;
4688: RAISE;
4689: END validate_llca_insert_ad;
4690:
4760: lf_calc_ed_frt_disc NUMBER :=0;
4761: lf_calc_ued_frt_disc NUMBER :=0;
4762: Begin
4763: IF PG_DEBUG in ('Y', 'C') THEN
4764: arp_util.debug('ar_receipt_val_pvt.validate_llac_insert_app()+');
4765: END IF;
4766: ll_return_status := FND_API.G_RET_STS_SUCCESS;
4767: -- Execute the application and populate the Line wise details into RA GT
4768: For rcv_lines_row in rcv_lines_cur (p_customer_trx_id, p_cash_receipt_id)
4779: l_calc_ued_frt_disc := rcv_lines_row.frt_disc - l_calc_ed_frt_disc;
4780: End If;
4781:
4782: IF PG_DEBUG in ('Y', 'C') THEN
4783: arp_util.debug('Calling Application Execute for Lines and Tax');
4784: arp_util.debug('Customer Trx Line ID => '||rcv_lines_row.ctl_id);
4785: arp_util.debug('Line Amount => '||rcv_lines_row.lin);
4786: arp_util.debug('Tax Amount => '||rcv_lines_row.Tax);
4787: arp_util.debug('Freight Amount => '||rcv_lines_row.frt);
4780: End If;
4781:
4782: IF PG_DEBUG in ('Y', 'C') THEN
4783: arp_util.debug('Calling Application Execute for Lines and Tax');
4784: arp_util.debug('Customer Trx Line ID => '||rcv_lines_row.ctl_id);
4785: arp_util.debug('Line Amount => '||rcv_lines_row.lin);
4786: arp_util.debug('Tax Amount => '||rcv_lines_row.Tax);
4787: arp_util.debug('Freight Amount => '||rcv_lines_row.frt);
4788: arp_util.debug('Charges Amount => '||rcv_lines_row.Chg);
4781:
4782: IF PG_DEBUG in ('Y', 'C') THEN
4783: arp_util.debug('Calling Application Execute for Lines and Tax');
4784: arp_util.debug('Customer Trx Line ID => '||rcv_lines_row.ctl_id);
4785: arp_util.debug('Line Amount => '||rcv_lines_row.lin);
4786: arp_util.debug('Tax Amount => '||rcv_lines_row.Tax);
4787: arp_util.debug('Freight Amount => '||rcv_lines_row.frt);
4788: arp_util.debug('Charges Amount => '||rcv_lines_row.Chg);
4789: arp_util.debug('Line Earned Discount => '||l_calc_ed_line_disc);
4782: IF PG_DEBUG in ('Y', 'C') THEN
4783: arp_util.debug('Calling Application Execute for Lines and Tax');
4784: arp_util.debug('Customer Trx Line ID => '||rcv_lines_row.ctl_id);
4785: arp_util.debug('Line Amount => '||rcv_lines_row.lin);
4786: arp_util.debug('Tax Amount => '||rcv_lines_row.Tax);
4787: arp_util.debug('Freight Amount => '||rcv_lines_row.frt);
4788: arp_util.debug('Charges Amount => '||rcv_lines_row.Chg);
4789: arp_util.debug('Line Earned Discount => '||l_calc_ed_line_disc);
4790: arp_util.debug('Tax Earned Discount => '||l_calc_ed_tax_disc);
4783: arp_util.debug('Calling Application Execute for Lines and Tax');
4784: arp_util.debug('Customer Trx Line ID => '||rcv_lines_row.ctl_id);
4785: arp_util.debug('Line Amount => '||rcv_lines_row.lin);
4786: arp_util.debug('Tax Amount => '||rcv_lines_row.Tax);
4787: arp_util.debug('Freight Amount => '||rcv_lines_row.frt);
4788: arp_util.debug('Charges Amount => '||rcv_lines_row.Chg);
4789: arp_util.debug('Line Earned Discount => '||l_calc_ed_line_disc);
4790: arp_util.debug('Tax Earned Discount => '||l_calc_ed_tax_disc);
4791: arp_util.debug('Frt Earned Discount => '||l_calc_ed_frt_disc);
4784: arp_util.debug('Customer Trx Line ID => '||rcv_lines_row.ctl_id);
4785: arp_util.debug('Line Amount => '||rcv_lines_row.lin);
4786: arp_util.debug('Tax Amount => '||rcv_lines_row.Tax);
4787: arp_util.debug('Freight Amount => '||rcv_lines_row.frt);
4788: arp_util.debug('Charges Amount => '||rcv_lines_row.Chg);
4789: arp_util.debug('Line Earned Discount => '||l_calc_ed_line_disc);
4790: arp_util.debug('Tax Earned Discount => '||l_calc_ed_tax_disc);
4791: arp_util.debug('Frt Earned Discount => '||l_calc_ed_frt_disc);
4792: arp_util.debug('Line UNearned Discount=> '||l_calc_ued_line_disc);
4785: arp_util.debug('Line Amount => '||rcv_lines_row.lin);
4786: arp_util.debug('Tax Amount => '||rcv_lines_row.Tax);
4787: arp_util.debug('Freight Amount => '||rcv_lines_row.frt);
4788: arp_util.debug('Charges Amount => '||rcv_lines_row.Chg);
4789: arp_util.debug('Line Earned Discount => '||l_calc_ed_line_disc);
4790: arp_util.debug('Tax Earned Discount => '||l_calc_ed_tax_disc);
4791: arp_util.debug('Frt Earned Discount => '||l_calc_ed_frt_disc);
4792: arp_util.debug('Line UNearned Discount=> '||l_calc_ued_line_disc);
4793: arp_util.debug('Tax UNearned Discount=> '||l_calc_ued_tax_disc);
4786: arp_util.debug('Tax Amount => '||rcv_lines_row.Tax);
4787: arp_util.debug('Freight Amount => '||rcv_lines_row.frt);
4788: arp_util.debug('Charges Amount => '||rcv_lines_row.Chg);
4789: arp_util.debug('Line Earned Discount => '||l_calc_ed_line_disc);
4790: arp_util.debug('Tax Earned Discount => '||l_calc_ed_tax_disc);
4791: arp_util.debug('Frt Earned Discount => '||l_calc_ed_frt_disc);
4792: arp_util.debug('Line UNearned Discount=> '||l_calc_ued_line_disc);
4793: arp_util.debug('Tax UNearned Discount=> '||l_calc_ued_tax_disc);
4794: arp_util.debug('Frt UNearned Discount=> '||l_calc_ued_frt_disc);
4787: arp_util.debug('Freight Amount => '||rcv_lines_row.frt);
4788: arp_util.debug('Charges Amount => '||rcv_lines_row.Chg);
4789: arp_util.debug('Line Earned Discount => '||l_calc_ed_line_disc);
4790: arp_util.debug('Tax Earned Discount => '||l_calc_ed_tax_disc);
4791: arp_util.debug('Frt Earned Discount => '||l_calc_ed_frt_disc);
4792: arp_util.debug('Line UNearned Discount=> '||l_calc_ued_line_disc);
4793: arp_util.debug('Tax UNearned Discount=> '||l_calc_ued_tax_disc);
4794: arp_util.debug('Frt UNearned Discount=> '||l_calc_ued_frt_disc);
4795: END IF;
4788: arp_util.debug('Charges Amount => '||rcv_lines_row.Chg);
4789: arp_util.debug('Line Earned Discount => '||l_calc_ed_line_disc);
4790: arp_util.debug('Tax Earned Discount => '||l_calc_ed_tax_disc);
4791: arp_util.debug('Frt Earned Discount => '||l_calc_ed_frt_disc);
4792: arp_util.debug('Line UNearned Discount=> '||l_calc_ued_line_disc);
4793: arp_util.debug('Tax UNearned Discount=> '||l_calc_ued_tax_disc);
4794: arp_util.debug('Frt UNearned Discount=> '||l_calc_ued_frt_disc);
4795: END IF;
4796: arp_process_det_pkg.application_execute(
4789: arp_util.debug('Line Earned Discount => '||l_calc_ed_line_disc);
4790: arp_util.debug('Tax Earned Discount => '||l_calc_ed_tax_disc);
4791: arp_util.debug('Frt Earned Discount => '||l_calc_ed_frt_disc);
4792: arp_util.debug('Line UNearned Discount=> '||l_calc_ued_line_disc);
4793: arp_util.debug('Tax UNearned Discount=> '||l_calc_ued_tax_disc);
4794: arp_util.debug('Frt UNearned Discount=> '||l_calc_ued_frt_disc);
4795: END IF;
4796: arp_process_det_pkg.application_execute(
4797: p_app_level =>'LINE',
4790: arp_util.debug('Tax Earned Discount => '||l_calc_ed_tax_disc);
4791: arp_util.debug('Frt Earned Discount => '||l_calc_ed_frt_disc);
4792: arp_util.debug('Line UNearned Discount=> '||l_calc_ued_line_disc);
4793: arp_util.debug('Tax UNearned Discount=> '||l_calc_ued_tax_disc);
4794: arp_util.debug('Frt UNearned Discount=> '||l_calc_ued_frt_disc);
4795: END IF;
4796: arp_process_det_pkg.application_execute(
4797: p_app_level =>'LINE',
4798: p_source_data_key1 =>rcv_lines_row.sdk1,
4822: x_msg_data =>ll_msg_data);
4823: End Loop;
4824:
4825: IF PG_DEBUG in ('Y', 'C') THEN
4826: arp_util.debug('ar_receipt_val_pvt.validate_llac_insert_app(Line)+');
4827: END IF;
4828:
4829: IF ll_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4830: ll_return_status := FND_API.G_RET_STS_ERROR;
4837: lf_calc_ed_frt_disc := (rcv_frtchg_row.frt_disc / l_demon) * p_disc_earn_allowed;
4838: lf_calc_ued_frt_disc := rcv_frtchg_row.frt_disc - lf_calc_ed_frt_disc;
4839: End If;
4840: IF PG_DEBUG in ('Y', 'C') THEN
4841: arp_util.debug('Calling Application Execute for Freight Lines ');
4842: arp_util.debug('Line Amount => '||rcv_frtchg_row.lin);
4843: arp_util.debug('Tax Amount => '||rcv_frtchg_row.Tax);
4844: arp_util.debug('Freight Amount => '||rcv_frtchg_row.frt);
4845: arp_util.debug('Charges Amount => '||rcv_frtchg_row.Chg);
4838: lf_calc_ued_frt_disc := rcv_frtchg_row.frt_disc - lf_calc_ed_frt_disc;
4839: End If;
4840: IF PG_DEBUG in ('Y', 'C') THEN
4841: arp_util.debug('Calling Application Execute for Freight Lines ');
4842: arp_util.debug('Line Amount => '||rcv_frtchg_row.lin);
4843: arp_util.debug('Tax Amount => '||rcv_frtchg_row.Tax);
4844: arp_util.debug('Freight Amount => '||rcv_frtchg_row.frt);
4845: arp_util.debug('Charges Amount => '||rcv_frtchg_row.Chg);
4846: arp_util.debug('Frt Earned Discount => '||lf_calc_ed_frt_disc);
4839: End If;
4840: IF PG_DEBUG in ('Y', 'C') THEN
4841: arp_util.debug('Calling Application Execute for Freight Lines ');
4842: arp_util.debug('Line Amount => '||rcv_frtchg_row.lin);
4843: arp_util.debug('Tax Amount => '||rcv_frtchg_row.Tax);
4844: arp_util.debug('Freight Amount => '||rcv_frtchg_row.frt);
4845: arp_util.debug('Charges Amount => '||rcv_frtchg_row.Chg);
4846: arp_util.debug('Frt Earned Discount => '||lf_calc_ed_frt_disc);
4847: arp_util.debug('Frt UNearned Discount=> '||lf_calc_ued_frt_disc);
4840: IF PG_DEBUG in ('Y', 'C') THEN
4841: arp_util.debug('Calling Application Execute for Freight Lines ');
4842: arp_util.debug('Line Amount => '||rcv_frtchg_row.lin);
4843: arp_util.debug('Tax Amount => '||rcv_frtchg_row.Tax);
4844: arp_util.debug('Freight Amount => '||rcv_frtchg_row.frt);
4845: arp_util.debug('Charges Amount => '||rcv_frtchg_row.Chg);
4846: arp_util.debug('Frt Earned Discount => '||lf_calc_ed_frt_disc);
4847: arp_util.debug('Frt UNearned Discount=> '||lf_calc_ued_frt_disc);
4848: END IF;
4841: arp_util.debug('Calling Application Execute for Freight Lines ');
4842: arp_util.debug('Line Amount => '||rcv_frtchg_row.lin);
4843: arp_util.debug('Tax Amount => '||rcv_frtchg_row.Tax);
4844: arp_util.debug('Freight Amount => '||rcv_frtchg_row.frt);
4845: arp_util.debug('Charges Amount => '||rcv_frtchg_row.Chg);
4846: arp_util.debug('Frt Earned Discount => '||lf_calc_ed_frt_disc);
4847: arp_util.debug('Frt UNearned Discount=> '||lf_calc_ued_frt_disc);
4848: END IF;
4849: arp_process_det_pkg.application_execute(
4842: arp_util.debug('Line Amount => '||rcv_frtchg_row.lin);
4843: arp_util.debug('Tax Amount => '||rcv_frtchg_row.Tax);
4844: arp_util.debug('Freight Amount => '||rcv_frtchg_row.frt);
4845: arp_util.debug('Charges Amount => '||rcv_frtchg_row.Chg);
4846: arp_util.debug('Frt Earned Discount => '||lf_calc_ed_frt_disc);
4847: arp_util.debug('Frt UNearned Discount=> '||lf_calc_ued_frt_disc);
4848: END IF;
4849: arp_process_det_pkg.application_execute(
4850: p_app_level =>'TRANSACTION',
4843: arp_util.debug('Tax Amount => '||rcv_frtchg_row.Tax);
4844: arp_util.debug('Freight Amount => '||rcv_frtchg_row.frt);
4845: arp_util.debug('Charges Amount => '||rcv_frtchg_row.Chg);
4846: arp_util.debug('Frt Earned Discount => '||lf_calc_ed_frt_disc);
4847: arp_util.debug('Frt UNearned Discount=> '||lf_calc_ued_frt_disc);
4848: END IF;
4849: arp_process_det_pkg.application_execute(
4850: p_app_level =>'TRANSACTION',
4851: p_source_data_key1 =>NULL,
4875: x_msg_data =>ll_msg_data);
4876: END LOOP;
4877: END IF;
4878: IF PG_DEBUG in ('Y', 'C') THEN
4879: arp_util.debug('ar_receipt_val_pvt.validate_llac_insert_app()-');
4880: END IF;
4881:
4882: EXCEPTION
4883: WHEN others THEN
4881:
4882: EXCEPTION
4883: WHEN others THEN
4884: IF PG_DEBUG in ('Y', 'C') THEN
4885: arp_util.debug('EXCEPTION: ar_receipt_val_pvt.validate_llac_insert_app()');
4886: END IF;
4887: RAISE;
4888: END validate_llca_insert_app;
4889: