40: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
41: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.CREATE_PAYMENT');
42: FND_MESSAGE.SET_TOKEN('API_PARAMETER', 'P_PMT_REC.PAYMENT_TARGET');
43: FND_MSG_PUB.Add;
44: RAISE FND_API.G_EXC_ERROR;
45: end if;
46:
47: /* validate total_amount */
48: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
57: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
58: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.CREATE_PAYMENT');
59: FND_MESSAGE.SET_TOKEN('API_PARAMETER', 'P_PMT_REC.TOTAL_AMOUNT');
60: FND_MSG_PUB.Add;
61: RAISE FND_API.G_EXC_ERROR;
62: end if;
63:
64: /* validate currency */
65: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
74: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
75: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.CREATE_PAYMENT');
76: FND_MESSAGE.SET_TOKEN('API_PARAMETER', 'P_PMT_REC.CURRENCY_CODE');
77: FND_MSG_PUB.Add;
78: RAISE FND_API.G_EXC_ERROR;
79: end if;
80:
81: /* validate exchange_rate_type */
82: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
96: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
97: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.CREATE_PAYMENT');
98: FND_MESSAGE.SET_TOKEN('API_PARAMETER', 'P_PMT_REC.EXCHANGE_RATE_TYPE');
99: FND_MSG_PUB.Add;
100: RAISE FND_API.G_EXC_ERROR;
101: end if;
102:
103: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
104: iex_debug_pub.LogMessage('validate_input: Validating P_PMT_REC.EXCHANGE_DATE');
112: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
113: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.CREATE_PAYMENT');
114: FND_MESSAGE.SET_TOKEN('API_PARAMETER', 'P_PMT_REC.EXCHANGE_DATE');
115: FND_MSG_PUB.Add;
116: RAISE FND_API.G_EXC_ERROR;
117: end if;
118: end if;
119:
120: if P_PMT_REC.PAYMENT_TARGET = 'CNSLD' or P_PMT_REC.PAYMENT_TARGET = 'CONTRACTS' then
131: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
132: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.CREATE_PAYMENT');
133: FND_MESSAGE.SET_TOKEN('API_PARAMETER', 'P_PMT_REC.PAYEE_ID');
134: FND_MSG_PUB.Add;
135: RAISE FND_API.G_EXC_ERROR;
136: end if;
137: end if;
138:
139: /* validate payment details */
148: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
149: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.CREATE_PAYMENT');
150: FND_MESSAGE.SET_TOKEN('API_PARAMETER', 'P_PMTDTLS_TBL.COUNT');
151: FND_MSG_PUB.Add;
152: RAISE FND_API.G_EXC_ERROR;
153: end if;
154:
155: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
156: iex_debug_pub.LogMessage('validate_input: Validating payment details');
168: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
169: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.CREATE_PAYMENT');
170: FND_MESSAGE.SET_TOKEN('API_PARAMETER', 'P_PMTDTLS_TBL(' || i || ').AMOUNT');
171: FND_MSG_PUB.Add;
172: RAISE FND_API.G_EXC_ERROR;
173: end if;
174: l_amount := l_amount + P_PMTDTLS_TBL(i).AMOUNT;
175:
176: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
184: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
185: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.CREATE_PAYMENT');
186: FND_MESSAGE.SET_TOKEN('API_PARAMETER', 'P_PMTDTLS_TBL(' || i || ').CUST_ACCOUNT_ID');
187: FND_MSG_PUB.Add;
188: RAISE FND_API.G_EXC_ERROR;
189: end if;
190:
191: if P_PMT_REC.PAYMENT_TARGET = 'ACCOUNTS' then
192: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
200: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
201: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.CREATE_PAYMENT');
202: FND_MESSAGE.SET_TOKEN('API_PARAMETER', 'P_PMTDTLS_TBL(' || i || ').CUST_SITE_USE_ID');
203: FND_MSG_PUB.Add;
204: RAISE FND_API.G_EXC_ERROR;
205: end if;
206: elsif P_PMT_REC.PAYMENT_TARGET = 'INVOICES' then
207: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
208: iex_debug_pub.LogMessage('validate_input: Validating P_PMTDTLS_TBL(i).CUST_SITE_USE_ID');
215: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
216: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.CREATE_PAYMENT');
217: FND_MESSAGE.SET_TOKEN('API_PARAMETER', 'P_PMTDTLS_TBL(' || i || ').CUST_SITE_USE_ID');
218: FND_MSG_PUB.Add;
219: RAISE FND_API.G_EXC_ERROR;
220: end if;
221: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
222: iex_debug_pub.LogMessage('validate_input: Validating P_PMTDTLS_TBL(i).PAYMENT_SCHEDULE_ID');
223: iex_debug_pub.LogMessage('validate_input: P_PMTDTLS_TBL(i).PAYMENT_SCHEDULE_ID = ' || P_PMTDTLS_TBL(i).PAYMENT_SCHEDULE_ID);
229: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
230: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.CREATE_PAYMENT');
231: FND_MESSAGE.SET_TOKEN('API_PARAMETER', 'P_PMTDTLS_TBL(' || i || ').PAYMENT_SCHEDULE_ID');
232: FND_MSG_PUB.Add;
233: RAISE FND_API.G_EXC_ERROR;
234: end if;
235: elsif P_PMT_REC.PAYMENT_TARGET = 'CNSLD' then
236: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
237: iex_debug_pub.LogMessage('validate_input: Validating P_PMTDTLS_TBL(i).CNSLD_INVOICE_ID');
244: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
245: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.CREATE_PAYMENT');
246: FND_MESSAGE.SET_TOKEN('API_PARAMETER', 'P_PMTDTLS_TBL(' || i || ').CNSLD_INVOICE_ID');
247: FND_MSG_PUB.Add;
248: RAISE FND_API.G_EXC_ERROR;
249: end if;
250: elsif P_PMT_REC.PAYMENT_TARGET = 'CONTRACTS' then
251: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
252: iex_debug_pub.LogMessage('validate_input: Validating P_PMTDTLS_TBL(i).CONTRACT_ID');
259: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
260: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.CREATE_PAYMENT');
261: FND_MESSAGE.SET_TOKEN('API_PARAMETER', 'P_PMTDTLS_TBL(' || i || ').CONTRACT_ID');
262: FND_MSG_PUB.Add;
263: RAISE FND_API.G_EXC_ERROR;
264: end if;
265: end if;
266: END LOOP;
267: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
276: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
277: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.CREATE_PAYMENT');
278: FND_MESSAGE.SET_TOKEN('API_PARAMETER', 'P_PMT_REC.TOTAL_AMOUNT');
279: FND_MSG_PUB.Add;
280: RAISE FND_API.G_EXC_ERROR;
281: end if;
282:
283: /* validate payment instrument */
284: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
295: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
296: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.CREATE_PAYMENT');
297: FND_MESSAGE.SET_TOKEN('API_PARAMETER', 'P_PMTINSTR_REC.USE_INSTRUMENT');
298: FND_MSG_PUB.Add;
299: RAISE FND_API.G_EXC_ERROR;
300: end if;
301:
302: /* -- begin - uptake funds capture changes - varangan
303: if P_PMTINSTR_REC.USE_INSTRUMENT = 'CC' then
317: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
318: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.CREATE_PAYMENT');
319: FND_MESSAGE.SET_TOKEN('API_PARAMETER', 'P_PMTINSTR_REC.CREDITCARDINSTR');
320: FND_MSG_PUB.Add;
321: RAISE FND_API.G_EXC_ERROR;
322: end if;
323: elsif P_PMTINSTR_REC.USE_INSTRUMENT = 'BA' then
324: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
325: iex_debug_pub.LogMessage('validate_input: Validating BA data');
339: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
340: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.CREATE_PAYMENT');
341: FND_MESSAGE.SET_TOKEN('API_PARAMETER', 'P_PMTINSTR_REC.BANKACCTINSTR');
342: FND_MSG_PUB.Add;
343: RAISE FND_API.G_EXC_ERROR;
344: end if;
345: end if; */
346:
347: end;
356: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
357: iex_debug_pub.LogMessage('get_fun_currency: Begin');
358: END IF;
359: IEX_CURRENCY_PVT.GET_FUNCT_CURR(p_api_version => 1.0,
360: p_init_msg_list => FND_API.G_FALSE,
361: p_commit => FND_API.G_FALSE,
362: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
363: x_return_status => l_return_status,
364: x_msg_count => l_msg_count,
357: iex_debug_pub.LogMessage('get_fun_currency: Begin');
358: END IF;
359: IEX_CURRENCY_PVT.GET_FUNCT_CURR(p_api_version => 1.0,
360: p_init_msg_list => FND_API.G_FALSE,
361: p_commit => FND_API.G_FALSE,
362: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
363: x_return_status => l_return_status,
364: x_msg_count => l_msg_count,
365: x_msg_data => l_msg_data,
358: END IF;
359: IEX_CURRENCY_PVT.GET_FUNCT_CURR(p_api_version => 1.0,
360: p_init_msg_list => FND_API.G_FALSE,
361: p_commit => FND_API.G_FALSE,
362: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
363: x_return_status => l_return_status,
364: x_msg_count => l_msg_count,
365: x_msg_data => l_msg_data,
366: x_functional_currency => l_fun_currency);
432: iex_debug_pub.LogMessage('GET_PAYER_INFO: Neither');
433: END IF;
434: FND_MESSAGE.SET_NAME('IEX','IEX_WRONG_PARTY');
435: FND_MSG_PUB.Add;
436: RAISE FND_API.G_EXC_ERROR;
437: end if;
438: end if;
439:
440: X_PAYER_ID := to_char(X_PAYER_NUM_ID);
455: END IF;
456: CLOSE get_payer_name_crs;
457: FND_MESSAGE.SET_NAME('IEX','IEX_WRONG_PARTY');
458: FND_MSG_PUB.Add;
459: RAISE FND_API.G_EXC_ERROR;
460: end if;
461: CLOSE get_payer_name_crs;
462:
463: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
486: iex_debug_pub.LogMessage(l_api_name || ': failed to get CC remittance');
487: END IF;
488: FND_MESSAGE.SET_NAME('IEX', 'IEX_NO_CC_REMITTANCE');
489: FND_MSG_PUB.Add;
490: RAISE FND_API.G_EXC_ERROR;
491: end if;
492: x_payment_method_id := to_number(x_payment_method);
493:
494: elsif p_payment_type = 'BA' then
499: iex_debug_pub.LogMessage(l_api_name || ': failed to get BA remittance');
500: END IF;
501: FND_MESSAGE.SET_NAME('IEX', 'IEX_NO_EFT_REMITTANCE');
502: FND_MSG_PUB.Add;
503: RAISE FND_API.G_EXC_ERROR;
504: end if;
505: x_payment_method_id := to_number(x_payment_method);
506:
507: end if;
602: iex_debug_pub.LogMessage('Invalid routing number');
603: END IF;
604: FND_MESSAGE.SET_NAME('IEX', 'IEX_INVALID_ROUTING_NUM');
605: FND_MSG_PUB.Add;
606: RAISE FND_API.G_EXC_ERROR;
607: end if;
608: */
609:
610:
733: BEGIN
734: SAVEPOINT CREATE_AR_PAYMENT_PVT1;
735:
736: -- Standard call to check for call compatibility
737: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
738: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
739:
740: END IF;
741:
734: SAVEPOINT CREATE_AR_PAYMENT_PVT1;
735:
736: -- Standard call to check for call compatibility
737: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
738: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
739:
740: END IF;
741:
742: -- Initialize message list if p_init_msg_list is set to TRUE
739:
740: END IF;
741:
742: -- Initialize message list if p_init_msg_list is set to TRUE
743: IF FND_API.To_Boolean(p_init_msg_list) THEN
744: FND_MSG_PUB.initialize;
745: END IF;
746:
747: -- Initialize API return status to success
744: FND_MSG_PUB.initialize;
745: END IF;
746:
747: -- Initialize API return status to success
748: l_return_status := FND_API.G_RET_STS_SUCCESS;
749:
750: -- START OF BODY OF API
751: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
752: iex_debug_pub.LogMessage(l_api_name || ': Start of API');
752: iex_debug_pub.LogMessage(l_api_name || ': Start of API');
753: END IF;
754:
755: -- Fix a bug 5897567 02/21/07 by Ehuh
756: if G_ONLINE_CCPAY = 'Y' then l_call_payment_processor := FND_API.G_TRUE;
757: else
758: l_call_payment_processor := FND_API.G_FALSE;
759: end if;
760:
754:
755: -- Fix a bug 5897567 02/21/07 by Ehuh
756: if G_ONLINE_CCPAY = 'Y' then l_call_payment_processor := FND_API.G_TRUE;
757: else
758: l_call_payment_processor := FND_API.G_FALSE;
759: end if;
760:
761:
762: /* validate all input parameters */
929: -- create cash receipts
930: if l_fun_currency = P_PMT_REC.CURRENCY_CODE then
931: /*AR_RECEIPT_API_PUB.CREATE_CASH(
932: P_API_VERSION => 1.0,
933: P_INIT_MSG_LIST => FND_API.G_FALSE,
934: P_COMMIT => FND_API.G_FALSE,
935: P_CURRENCY_CODE => P_PMT_REC.CURRENCY_CODE,
936: P_AMOUNT => P_PMTDTLS_TBL(i).AMOUNT,
937: P_RECEIPT_METHOD_ID => l_ar_pay_method,
930: if l_fun_currency = P_PMT_REC.CURRENCY_CODE then
931: /*AR_RECEIPT_API_PUB.CREATE_CASH(
932: P_API_VERSION => 1.0,
933: P_INIT_MSG_LIST => FND_API.G_FALSE,
934: P_COMMIT => FND_API.G_FALSE,
935: P_CURRENCY_CODE => P_PMT_REC.CURRENCY_CODE,
936: P_AMOUNT => P_PMTDTLS_TBL(i).AMOUNT,
937: P_RECEIPT_METHOD_ID => l_ar_pay_method,
938: P_RECEIPT_NUMBER => l_cr_number1,
947:
948:
949: AR_RECEIPT_API_PUB.CREATE_APPLY_ON_ACC(
950: P_API_VERSION => 1.0,
951: P_INIT_MSG_LIST => FND_API.G_FALSE,
952: P_COMMIT => FND_API.G_FALSE,
953: P_CURRENCY_CODE => P_PMT_REC.CURRENCY_CODE,
954: P_AMOUNT => P_PMTDTLS_TBL(i).AMOUNT,
955: P_RECEIPT_METHOD_ID => P_PMT_METHOD , -- l_ar_pay_method, commented for profile bug#4558547
948:
949: AR_RECEIPT_API_PUB.CREATE_APPLY_ON_ACC(
950: P_API_VERSION => 1.0,
951: P_INIT_MSG_LIST => FND_API.G_FALSE,
952: P_COMMIT => FND_API.G_FALSE,
953: P_CURRENCY_CODE => P_PMT_REC.CURRENCY_CODE,
954: P_AMOUNT => P_PMTDTLS_TBL(i).AMOUNT,
955: P_RECEIPT_METHOD_ID => P_PMT_METHOD , -- l_ar_pay_method, commented for profile bug#4558547
956: P_RECEIPT_NUMBER => l_cr_number1,
972: else
973: /*
974: AR_RECEIPT_API_PUB.CREATE_CASH(
975: P_API_VERSION => 1.0,
976: P_INIT_MSG_LIST => FND_API.G_FALSE,
977: P_COMMIT => FND_API.G_FALSE,
978: P_CURRENCY_CODE => P_PMT_REC.CURRENCY_CODE,
979: P_EXCHANGE_RATE_TYPE => P_PMT_REC.EXCHANGE_RATE_TYPE,
980: P_EXCHANGE_RATE_DATE => P_PMT_REC.EXCHANGE_DATE,
973: /*
974: AR_RECEIPT_API_PUB.CREATE_CASH(
975: P_API_VERSION => 1.0,
976: P_INIT_MSG_LIST => FND_API.G_FALSE,
977: P_COMMIT => FND_API.G_FALSE,
978: P_CURRENCY_CODE => P_PMT_REC.CURRENCY_CODE,
979: P_EXCHANGE_RATE_TYPE => P_PMT_REC.EXCHANGE_RATE_TYPE,
980: P_EXCHANGE_RATE_DATE => P_PMT_REC.EXCHANGE_DATE,
981: P_AMOUNT => P_PMTDTLS_TBL(i).AMOUNT,
993:
994:
995: AR_RECEIPT_API_PUB.CREATE_APPLY_ON_ACC(
996: P_API_VERSION => 1.0,
997: P_INIT_MSG_LIST => FND_API.G_FALSE,
998: P_COMMIT => FND_API.G_FALSE,
999: P_CURRENCY_CODE => P_PMT_REC.CURRENCY_CODE,
1000: P_EXCHANGE_RATE_TYPE => P_PMT_REC.EXCHANGE_RATE_TYPE,
1001: P_EXCHANGE_RATE_DATE => P_PMT_REC.EXCHANGE_DATE,
994:
995: AR_RECEIPT_API_PUB.CREATE_APPLY_ON_ACC(
996: P_API_VERSION => 1.0,
997: P_INIT_MSG_LIST => FND_API.G_FALSE,
998: P_COMMIT => FND_API.G_FALSE,
999: P_CURRENCY_CODE => P_PMT_REC.CURRENCY_CODE,
1000: P_EXCHANGE_RATE_TYPE => P_PMT_REC.EXCHANGE_RATE_TYPE,
1001: P_EXCHANGE_RATE_DATE => P_PMT_REC.EXCHANGE_DATE,
1002: P_AMOUNT => P_PMTDTLS_TBL(i).AMOUNT,
1037: X_MSG_COUNT := L_MSG_COUNT;
1038:
1039: FND_MESSAGE.SET_NAME('IEX', 'IEX_FAILED_CREATE_CR');
1040: FND_MSG_PUB.Add;
1041: return; --RAISE FND_API.G_EXC_ERROR;
1042: END IF;
1043:
1044:
1045: /*
1049:
1050: -- apply on_account
1051: AR_RECEIPT_API_PUB.APPLY_ON_ACCOUNT(
1052: P_API_VERSION => 1.0,
1053: P_INIT_MSG_LIST => FND_API.G_FALSE,
1054: P_COMMIT => FND_API.G_FALSE,
1055: X_RETURN_STATUS => L_RETURN_STATUS,
1056: X_MSG_COUNT => L_MSG_COUNT,
1057: X_MSG_DATA => L_MSG_DATA,
1050: -- apply on_account
1051: AR_RECEIPT_API_PUB.APPLY_ON_ACCOUNT(
1052: P_API_VERSION => 1.0,
1053: P_INIT_MSG_LIST => FND_API.G_FALSE,
1054: P_COMMIT => FND_API.G_FALSE,
1055: X_RETURN_STATUS => L_RETURN_STATUS,
1056: X_MSG_COUNT => L_MSG_COUNT,
1057: X_MSG_DATA => L_MSG_DATA,
1058: P_RECEIPT_NUMBER => l_cr_number1);
1061: iex_debug_pub.LogMessage(l_api_name || ': Status = ' || L_RETURN_STATUS);
1062: END IF;
1063:
1064: -- check for errors
1065: IF l_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1066: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1067: iex_debug_pub.LogMessage(l_api_name || ': AR_RECEIPT_API_PUB.APPLY_ON_ACCOUNT failed');
1068: END IF;
1069:
1068: END IF;
1069:
1070: FND_MESSAGE.SET_NAME('IEX', 'IEX_FAILED_APPLY_ACC');
1071: FND_MSG_PUB.Add;
1072: RAISE FND_API.G_EXC_ERROR;
1073: END IF;
1074: */
1075:
1076: -- generate new pay_receipt id
1182: -- create cash receipt
1183: /*
1184: AR_RECEIPT_API_PUB.CREATE_CASH(
1185: P_API_VERSION => 1.0,
1186: P_INIT_MSG_LIST => FND_API.G_FALSE,
1187: P_COMMIT => FND_API.G_FALSE,
1188: P_CURRENCY_CODE => P_PMT_REC.CURRENCY_CODE,
1189: P_AMOUNT => P_PMT_REC.TOTAL_AMOUNT,
1190: P_RECEIPT_METHOD_ID => l_ar_pay_method,
1183: /*
1184: AR_RECEIPT_API_PUB.CREATE_CASH(
1185: P_API_VERSION => 1.0,
1186: P_INIT_MSG_LIST => FND_API.G_FALSE,
1187: P_COMMIT => FND_API.G_FALSE,
1188: P_CURRENCY_CODE => P_PMT_REC.CURRENCY_CODE,
1189: P_AMOUNT => P_PMT_REC.TOTAL_AMOUNT,
1190: P_RECEIPT_METHOD_ID => l_ar_pay_method,
1191: P_RECEIPT_NUMBER => l_cr_number1,
1201:
1202:
1203: AR_RECEIPT_API_PUB.CREATE_AND_APPLY(
1204: P_API_VERSION => 1.0,
1205: P_INIT_MSG_LIST => FND_API.G_FALSE,
1206: P_COMMIT => FND_API.G_FALSE,
1207: P_CURRENCY_CODE => P_PMT_REC.CURRENCY_CODE,
1208: P_AMOUNT => P_PMT_REC.TOTAL_AMOUNT, --P_PMTDTLS_TBL(i).AMOUNT, -- P_PMT_REC.TOTAL_AMOUNT,
1209: P_RECEIPT_METHOD_ID =>P_PMT_METHOD, -- l_ar_pay_method, for profile bug#4558547
1202:
1203: AR_RECEIPT_API_PUB.CREATE_AND_APPLY(
1204: P_API_VERSION => 1.0,
1205: P_INIT_MSG_LIST => FND_API.G_FALSE,
1206: P_COMMIT => FND_API.G_FALSE,
1207: P_CURRENCY_CODE => P_PMT_REC.CURRENCY_CODE,
1208: P_AMOUNT => P_PMT_REC.TOTAL_AMOUNT, --P_PMTDTLS_TBL(i).AMOUNT, -- P_PMT_REC.TOTAL_AMOUNT,
1209: P_RECEIPT_METHOD_ID =>P_PMT_METHOD, -- l_ar_pay_method, for profile bug#4558547
1210: P_RECEIPT_NUMBER => l_cr_number1,
1225: else
1226:
1227: AR_RECEIPT_API_PUB.CREATE_AND_APPLY(
1228: P_API_VERSION => 1.0,
1229: P_INIT_MSG_LIST => FND_API.G_FALSE,
1230: P_COMMIT => FND_API.G_FALSE,
1231: P_CURRENCY_CODE => P_PMT_REC.CURRENCY_CODE,
1232: P_AMOUNT => P_PMT_REC.TOTAL_AMOUNT, --P_PMTDTLS_TBL(i).AMOUNT, -- P_PMT_REC.TOTAL_AMOUNT,
1233: P_RECEIPT_METHOD_ID =>P_PMT_METHOD, -- l_ar_pay_method, for profile bug#4558547
1226:
1227: AR_RECEIPT_API_PUB.CREATE_AND_APPLY(
1228: P_API_VERSION => 1.0,
1229: P_INIT_MSG_LIST => FND_API.G_FALSE,
1230: P_COMMIT => FND_API.G_FALSE,
1231: P_CURRENCY_CODE => P_PMT_REC.CURRENCY_CODE,
1232: P_AMOUNT => P_PMT_REC.TOTAL_AMOUNT, --P_PMTDTLS_TBL(i).AMOUNT, -- P_PMT_REC.TOTAL_AMOUNT,
1233: P_RECEIPT_METHOD_ID =>P_PMT_METHOD, -- l_ar_pay_method, for profile bug#4558547
1234: P_RECEIPT_NUMBER => l_cr_number1,
1255: -- create cash receipt
1256: /*
1257: AR_RECEIPT_API_PUB.CREATE_CASH(
1258: P_API_VERSION => 1.0,
1259: P_INIT_MSG_LIST => FND_API.G_FALSE,
1260: P_COMMIT => FND_API.G_FALSE,
1261: P_CURRENCY_CODE => P_PMT_REC.CURRENCY_CODE,
1262: P_EXCHANGE_RATE_TYPE => P_PMT_REC.EXCHANGE_RATE_TYPE,
1263: P_EXCHANGE_RATE_DATE => P_PMT_REC.EXCHANGE_DATE,
1256: /*
1257: AR_RECEIPT_API_PUB.CREATE_CASH(
1258: P_API_VERSION => 1.0,
1259: P_INIT_MSG_LIST => FND_API.G_FALSE,
1260: P_COMMIT => FND_API.G_FALSE,
1261: P_CURRENCY_CODE => P_PMT_REC.CURRENCY_CODE,
1262: P_EXCHANGE_RATE_TYPE => P_PMT_REC.EXCHANGE_RATE_TYPE,
1263: P_EXCHANGE_RATE_DATE => P_PMT_REC.EXCHANGE_DATE,
1264: P_AMOUNT => P_PMT_REC.TOTAL_AMOUNT,
1275:
1276: if P_PMTDTLS_TBL(1).TRX_TO_CR_RATE = 1 then
1277: AR_RECEIPT_API_PUB.CREATE_AND_APPLY(
1278: P_API_VERSION => 1.0,
1279: P_INIT_MSG_LIST => FND_API.G_FALSE,
1280: P_COMMIT => FND_API.G_FALSE,
1281: P_CURRENCY_CODE => P_PMT_REC.CURRENCY_CODE,
1282: P_EXCHANGE_RATE_TYPE => P_PMT_REC.EXCHANGE_RATE_TYPE,
1283: P_EXCHANGE_RATE_DATE => P_PMT_REC.EXCHANGE_DATE,
1276: if P_PMTDTLS_TBL(1).TRX_TO_CR_RATE = 1 then
1277: AR_RECEIPT_API_PUB.CREATE_AND_APPLY(
1278: P_API_VERSION => 1.0,
1279: P_INIT_MSG_LIST => FND_API.G_FALSE,
1280: P_COMMIT => FND_API.G_FALSE,
1281: P_CURRENCY_CODE => P_PMT_REC.CURRENCY_CODE,
1282: P_EXCHANGE_RATE_TYPE => P_PMT_REC.EXCHANGE_RATE_TYPE,
1283: P_EXCHANGE_RATE_DATE => P_PMT_REC.EXCHANGE_DATE,
1284: P_AMOUNT => P_PMT_REC.TOTAL_AMOUNT, --P_PMTDTLS_TBL(i).AMOUNT, -- P_PMT_REC.TOTAL_AMOUNT,
1300: );
1301: else
1302: AR_RECEIPT_API_PUB.CREATE_AND_APPLY(
1303: P_API_VERSION => 1.0,
1304: P_INIT_MSG_LIST => FND_API.G_FALSE,
1305: P_COMMIT => FND_API.G_FALSE,
1306: P_CURRENCY_CODE => P_PMT_REC.CURRENCY_CODE,
1307: P_EXCHANGE_RATE_TYPE => P_PMT_REC.EXCHANGE_RATE_TYPE,
1308: P_EXCHANGE_RATE_DATE => P_PMT_REC.EXCHANGE_DATE,
1301: else
1302: AR_RECEIPT_API_PUB.CREATE_AND_APPLY(
1303: P_API_VERSION => 1.0,
1304: P_INIT_MSG_LIST => FND_API.G_FALSE,
1305: P_COMMIT => FND_API.G_FALSE,
1306: P_CURRENCY_CODE => P_PMT_REC.CURRENCY_CODE,
1307: P_EXCHANGE_RATE_TYPE => P_PMT_REC.EXCHANGE_RATE_TYPE,
1308: P_EXCHANGE_RATE_DATE => P_PMT_REC.EXCHANGE_DATE,
1309: P_AMOUNT => P_PMT_REC.TOTAL_AMOUNT, --P_PMTDTLS_TBL(i).AMOUNT, -- P_PMT_REC.TOTAL_AMOUNT,
1440: if P_PMTDTLS_TBL(i).TRX_TO_CR_RATE = 1 then
1441:
1442: AR_RECEIPT_API_PUB.APPLY(
1443: P_API_VERSION => 1.0,
1444: P_INIT_MSG_LIST => FND_API.G_FALSE,
1445: P_COMMIT => FND_API.G_FALSE,
1446: X_RETURN_STATUS => L_RETURN_STATUS,
1447: X_MSG_COUNT => L_MSG_COUNT,
1448: X_MSG_DATA => L_MSG_DATA,
1441:
1442: AR_RECEIPT_API_PUB.APPLY(
1443: P_API_VERSION => 1.0,
1444: P_INIT_MSG_LIST => FND_API.G_FALSE,
1445: P_COMMIT => FND_API.G_FALSE,
1446: X_RETURN_STATUS => L_RETURN_STATUS,
1447: X_MSG_COUNT => L_MSG_COUNT,
1448: X_MSG_DATA => L_MSG_DATA,
1449: P_RECEIPT_NUMBER => l_cr_number1,
1454:
1455: if P_PMTDTLS_TBL(i).TRX_TO_CR_RATE <> 0 then
1456: AR_RECEIPT_API_PUB.APPLY(
1457: P_API_VERSION => 1.0,
1458: P_INIT_MSG_LIST => FND_API.G_FALSE,
1459: P_COMMIT => FND_API.G_FALSE,
1460: X_RETURN_STATUS => L_RETURN_STATUS,
1461: X_MSG_COUNT => L_MSG_COUNT,
1462: X_MSG_DATA => L_MSG_DATA,
1455: if P_PMTDTLS_TBL(i).TRX_TO_CR_RATE <> 0 then
1456: AR_RECEIPT_API_PUB.APPLY(
1457: P_API_VERSION => 1.0,
1458: P_INIT_MSG_LIST => FND_API.G_FALSE,
1459: P_COMMIT => FND_API.G_FALSE,
1460: X_RETURN_STATUS => L_RETURN_STATUS,
1461: X_MSG_COUNT => L_MSG_COUNT,
1462: X_MSG_DATA => L_MSG_DATA,
1463: P_RECEIPT_NUMBER => l_cr_number1,
1475: X_MSG_DATA:= L_MSG_DATA;
1476:
1477: FND_MESSAGE.SET_NAME('IEX', 'IEX_FAILED_APPLY_APP');
1478: FND_MSG_PUB.Add;
1479: return; -- RAISE FND_API.G_EXC_ERROR;
1480: end if;
1481: end if;
1482:
1483: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1485: iex_debug_pub.LogMessage(l_api_name || ': Status = ' || L_RETURN_STATUS);
1486: END IF;
1487:
1488: -- check for errors
1489: IF l_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1490: X_RETURN_STATUS:=l_return_status;
1491: X_MSG_DATA:= L_MSG_DATA;
1492:
1493: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1495: END IF;
1496:
1497: FND_MESSAGE.SET_NAME('IEX', 'IEX_FAILED_APPLY_APP');
1498: FND_MSG_PUB.Add;
1499: RAISE FND_API.G_EXC_ERROR;
1500: END IF;
1501: --*/
1502:
1503: OPEN get_delid_crs(P_PMTDTLS_TBL(i).PAYMENT_SCHEDULE_ID);
1584:
1585: FND_MESSAGE.SET_NAME('IEX', 'IEX_AR_SUCCESS');
1586: FND_MSG_PUB.Add;
1587:
1588: x_return_status := FND_API.G_RET_STS_SUCCESS;
1589: commit;
1590:
1591: EXCEPTION
1592: WHEN FND_API.G_EXC_ERROR THEN
1588: x_return_status := FND_API.G_RET_STS_SUCCESS;
1589: commit;
1590:
1591: EXCEPTION
1592: WHEN FND_API.G_EXC_ERROR THEN
1593: ROLLBACK TO CREATE_AR_PAYMENT_PVT1;
1594: If X_RETURN_STATUS is Null Then
1595: x_return_status := FND_API.G_RET_STS_ERROR;
1596: End If;
1591: EXCEPTION
1592: WHEN FND_API.G_EXC_ERROR THEN
1593: ROLLBACK TO CREATE_AR_PAYMENT_PVT1;
1594: If X_RETURN_STATUS is Null Then
1595: x_return_status := FND_API.G_RET_STS_ERROR;
1596: End If;
1597: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1598: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1599: ROLLBACK TO CREATE_AR_PAYMENT_PVT1;
1594: If X_RETURN_STATUS is Null Then
1595: x_return_status := FND_API.G_RET_STS_ERROR;
1596: End If;
1597: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1598: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1599: ROLLBACK TO CREATE_AR_PAYMENT_PVT1;
1600: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1601: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1602: WHEN OTHERS THEN
1596: End If;
1597: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1598: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1599: ROLLBACK TO CREATE_AR_PAYMENT_PVT1;
1600: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1601: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1602: WHEN OTHERS THEN
1603: ROLLBACK TO CREATE_AR_PAYMENT_PVT1;
1604: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1600: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1601: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1602: WHEN OTHERS THEN
1603: ROLLBACK TO CREATE_AR_PAYMENT_PVT1;
1604: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1605: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1606: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1607: END IF;
1608: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1607: END IF;
1608: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1609: END;
1610:
1611: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
1612: return;
1613: end if;
1614:
1615: /* creating note */
1693: END IF;
1694:
1695: IEX_NOTES_PVT.Create_Note(
1696: P_API_VERSION => l_api_version,
1697: P_INIT_MSG_LIST => FND_API.G_FALSE,
1698: P_COMMIT => FND_API.G_FALSE,
1699: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
1700: X_RETURN_STATUS => l_return_status,
1701: X_MSG_COUNT => l_msg_count,
1694:
1695: IEX_NOTES_PVT.Create_Note(
1696: P_API_VERSION => l_api_version,
1697: P_INIT_MSG_LIST => FND_API.G_FALSE,
1698: P_COMMIT => FND_API.G_FALSE,
1699: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
1700: X_RETURN_STATUS => l_return_status,
1701: X_MSG_COUNT => l_msg_count,
1702: X_MSG_DATA => l_msg_data,
1695: IEX_NOTES_PVT.Create_Note(
1696: P_API_VERSION => l_api_version,
1697: P_INIT_MSG_LIST => FND_API.G_FALSE,
1698: P_COMMIT => FND_API.G_FALSE,
1699: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
1700: X_RETURN_STATUS => l_return_status,
1701: X_MSG_COUNT => l_msg_count,
1702: X_MSG_DATA => l_msg_data,
1703: p_source_object_id => l_source_object_id,
1712: iex_debug_pub.LogMessage(l_api_name || ': Status = ' || L_RETURN_STATUS);
1713: END IF;
1714:
1715: -- check for errors
1716: IF l_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1717: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1718: iex_debug_pub.LogMessage(l_api_name || ': IEX_NOTES_PVT.Create_Note failed');
1719: END IF;
1720: RAISE FND_API.G_EXC_ERROR;
1716: IF l_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1717: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1718: iex_debug_pub.LogMessage(l_api_name || ': IEX_NOTES_PVT.Create_Note failed');
1719: END IF;
1720: RAISE FND_API.G_EXC_ERROR;
1721: END IF;
1722: END IF;
1723: End if;
1724:
1723: End if;
1724:
1725: /* commit note creation */
1726: COMMIT WORK;
1727: x_return_status := FND_API.G_RET_STS_SUCCESS;
1728: -- Standard call to get message count and if count is 1, get message info
1729: FND_MSG_PUB.Count_And_Get(
1730: p_encoded => FND_API.G_FALSE,
1731: p_count => x_msg_count,
1726: COMMIT WORK;
1727: x_return_status := FND_API.G_RET_STS_SUCCESS;
1728: -- Standard call to get message count and if count is 1, get message info
1729: FND_MSG_PUB.Count_And_Get(
1730: p_encoded => FND_API.G_FALSE,
1731: p_count => x_msg_count,
1732: p_data => x_msg_data);
1733:
1734: EXCEPTION
1731: p_count => x_msg_count,
1732: p_data => x_msg_data);
1733:
1734: EXCEPTION
1735: WHEN FND_API.G_EXC_ERROR THEN
1736: ROLLBACK TO CREATE_PAYMENT_PVT2;
1737: x_return_status := FND_API.G_RET_STS_ERROR;
1738: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1739: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1733:
1734: EXCEPTION
1735: WHEN FND_API.G_EXC_ERROR THEN
1736: ROLLBACK TO CREATE_PAYMENT_PVT2;
1737: x_return_status := FND_API.G_RET_STS_ERROR;
1738: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1739: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1740: ROLLBACK TO CREATE_PAYMENT_PVT2;
1741: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1735: WHEN FND_API.G_EXC_ERROR THEN
1736: ROLLBACK TO CREATE_PAYMENT_PVT2;
1737: x_return_status := FND_API.G_RET_STS_ERROR;
1738: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1739: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1740: ROLLBACK TO CREATE_PAYMENT_PVT2;
1741: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1742: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1743: WHEN OTHERS THEN
1737: x_return_status := FND_API.G_RET_STS_ERROR;
1738: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1739: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1740: ROLLBACK TO CREATE_PAYMENT_PVT2;
1741: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1742: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1743: WHEN OTHERS THEN
1744: ROLLBACK TO CREATE_PAYMENT_PVT2;
1745: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1741: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1742: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1743: WHEN OTHERS THEN
1744: ROLLBACK TO CREATE_PAYMENT_PVT2;
1745: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1746: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1747: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1748: END IF;
1749: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1859: -- First part of API savepoint
1860: SAVEPOINT CREATE_OKL_PAYMENT_PVT1;
1861:
1862: -- Standard call to check for call compatibility
1863: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1864: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1865: END IF;
1866:
1867: -- Initialize message list if p_init_msg_list is set to TRUE
1860: SAVEPOINT CREATE_OKL_PAYMENT_PVT1;
1861:
1862: -- Standard call to check for call compatibility
1863: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1864: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1865: END IF;
1866:
1867: -- Initialize message list if p_init_msg_list is set to TRUE
1868: IF FND_API.To_Boolean(p_init_msg_list) THEN
1864: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1865: END IF;
1866:
1867: -- Initialize message list if p_init_msg_list is set to TRUE
1868: IF FND_API.To_Boolean(p_init_msg_list) THEN
1869: FND_MSG_PUB.initialize;
1870: END IF;
1871:
1872: -- Initialize API return status to success
1869: FND_MSG_PUB.initialize;
1870: END IF;
1871:
1872: -- Initialize API return status to success
1873: l_return_status := FND_API.G_RET_STS_SUCCESS;
1874:
1875: -- START OF BODY OF API
1876: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1877: iex_debug_pub.LogMessage(l_api_name || ': Start of CREATE_PAYMENT');
1937: iex_debug_pub.LogMessage(l_api_name || ': failed to get CC remittance');
1938: END IF;
1939: FND_MESSAGE.SET_NAME('IEX', 'IEX_NO_CC_REMITTANCE');
1940: FND_MSG_PUB.Add;
1941: RAISE FND_API.G_EXC_ERROR;
1942: end if;
1943: l_ar_pay_method := to_number(l_ar_pay_method1);
1944:
1945: -- first check for existance of instrument. if does not exist add instrument
1969: --Begin-fix bug #4479607-07072005-jypark-comment invalid api call to fix compile error
1970: -- IBY_INSTRREG_PUB.ORAINSTRADD
1971: -- (
1972: -- p_api_version => 1.0,
1973: -- p_init_msg_list => FND_API.G_FALSE,
1974: -- p_commit => FND_API.G_FALSE,
1975: -- x_return_status => l_return_status,
1976: -- x_msg_count => l_msg_count,
1977: -- x_msg_data => l_msg_data,
1970: -- IBY_INSTRREG_PUB.ORAINSTRADD
1971: -- (
1972: -- p_api_version => 1.0,
1973: -- p_init_msg_list => FND_API.G_FALSE,
1974: -- p_commit => FND_API.G_FALSE,
1975: -- x_return_status => l_return_status,
1976: -- x_msg_count => l_msg_count,
1977: -- x_msg_data => l_msg_data,
1978: -- p_payer_id => l_payer_id,
1985: iex_debug_pub.LogMessage(l_api_name || ': l_return_status = ' || l_return_status);
1986: END IF;
1987:
1988: -- check for errors
1989: IF l_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1990: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1991: iex_debug_pub.LogMessage(l_api_name || ': IBY_INSTRREG_PUB.ORAINSTRADD failed');
1992: END IF;
1993: FND_MESSAGE.SET_NAME('IEX', 'IEX_FAILED_INSERT_INSTR');
1991: iex_debug_pub.LogMessage(l_api_name || ': IBY_INSTRREG_PUB.ORAINSTRADD failed');
1992: END IF;
1993: FND_MESSAGE.SET_NAME('IEX', 'IEX_FAILED_INSERT_INSTR');
1994: FND_MSG_PUB.Add;
1995: RAISE FND_API.G_EXC_ERROR;
1996: END IF;
1997: else
1998: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1999: iex_debug_pub.LogMessage(l_api_name || ': CC is found; id = ' || l_instr_id);
2012: END IF;
2013: IBY_INSTRREG_PUB.ORAINSTRMOD
2014: (
2015: p_api_version => 1.0,
2016: p_init_msg_list => FND_API.G_FALSE,
2017: p_commit => FND_API.G_FALSE,
2018: x_return_status => l_return_status,
2019: x_msg_count => l_msg_count,
2020: x_msg_data => l_msg_data,
2013: IBY_INSTRREG_PUB.ORAINSTRMOD
2014: (
2015: p_api_version => 1.0,
2016: p_init_msg_list => FND_API.G_FALSE,
2017: p_commit => FND_API.G_FALSE,
2018: x_return_status => l_return_status,
2019: x_msg_count => l_msg_count,
2020: x_msg_data => l_msg_data,
2021: p_payer_id => l_payer_id,
2020: x_msg_data => l_msg_data,
2021: p_payer_id => l_payer_id,
2022: p_pmtInstrRec => l_pmtInstrRec,
2023: -- Begin -- varangan --Bug4528444 -- payments uptake
2024: p_validation_level => FND_API.G_VALID_LEVEL_FULL
2025: --, x_result => l_result_rec -- temporarily commenting, since IBY code is in progress
2026: -- End -- varangan --Bug4528444 -- payments uptake
2027: );
2028: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2030: iex_debug_pub.LogMessage('l_return_status = ' || l_return_status);
2031: END IF;
2032:
2033: -- check for errors
2034: IF l_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2035: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2036: iex_debug_pub.LogMessage(l_api_name || ': IBY_INSTRREG_PUB.ORAINSTRMOD failed');
2037: END IF;
2038: FND_MESSAGE.SET_NAME('IEX', 'IEX_FAILED_UPDATE_INSTR');
2036: iex_debug_pub.LogMessage(l_api_name || ': IBY_INSTRREG_PUB.ORAINSTRMOD failed');
2037: END IF;
2038: FND_MESSAGE.SET_NAME('IEX', 'IEX_FAILED_UPDATE_INSTR');
2039: FND_MSG_PUB.Add;
2040: RAISE FND_API.G_EXC_ERROR;
2041: END IF;
2042: end if;
2043:
2044: l_pmtreqtrxn_rec.PmtMode := 'ONLINE';
2068: iex_debug_pub.LogMessage(l_api_name || ': failed to get BA remittance');
2069: END IF;
2070: FND_MESSAGE.SET_NAME('IEX', 'IEX_NO_EFT_REMITTANCE');
2071: FND_MSG_PUB.Add;
2072: RAISE FND_API.G_EXC_ERROR;
2073: end if;
2074: l_ar_pay_method := to_number(l_ar_pay_method1);
2075:
2076: -- first check for existance of instrument. if does not exist add instrument
2102: END IF;
2103: --Begin-fix bug #4479607-07072005-jypark-comment invalid api call to fix compile error
2104: -- IBY_INSTRREG_PUB.ORAINSTRADD(
2105: -- p_api_version => 1.0,
2106: -- p_init_msg_list => FND_API.G_FALSE,
2107: -- p_commit => FND_API.G_FALSE,
2108: -- x_return_status => l_return_status,
2109: -- x_msg_count => l_msg_count,
2110: -- x_msg_data => l_msg_data,
2103: --Begin-fix bug #4479607-07072005-jypark-comment invalid api call to fix compile error
2104: -- IBY_INSTRREG_PUB.ORAINSTRADD(
2105: -- p_api_version => 1.0,
2106: -- p_init_msg_list => FND_API.G_FALSE,
2107: -- p_commit => FND_API.G_FALSE,
2108: -- x_return_status => l_return_status,
2109: -- x_msg_count => l_msg_count,
2110: -- x_msg_data => l_msg_data,
2111: -- p_payer_id => l_payer_id,
2118: iex_debug_pub.LogMessage('l_return_status = ' || l_return_status);
2119: END IF;
2120:
2121: -- check for errors
2122: IF l_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2123: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2124: iex_debug_pub.LogMessage(l_api_name || ': IBY_INSTRREG_PUB.ORAINSTRADD failed');
2125: END IF;
2126: FND_MESSAGE.SET_NAME('IEX', 'IEX_FAILED_INSERT_INSTR');
2124: iex_debug_pub.LogMessage(l_api_name || ': IBY_INSTRREG_PUB.ORAINSTRADD failed');
2125: END IF;
2126: FND_MESSAGE.SET_NAME('IEX', 'IEX_FAILED_INSERT_INSTR');
2127: FND_MSG_PUB.Add;
2128: RAISE FND_API.G_EXC_ERROR;
2129: END IF;
2130: else
2131: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2132: iex_debug_pub.LogMessage(l_api_name || ': BA is found; id = ' || l_instr_id);
2182:
2183: -- call iPayment API to authorize payment
2184: IBY_Payment_Adapter_Pub.OraPmtReq(
2185: p_api_version => p_Api_Version,
2186: p_init_msg_list => FND_API.G_FALSE,
2187: p_commit => FND_API.G_FALSE,
2188: p_ecapp_id => 695,
2189: p_payee_rec => l_payee_rec,
2190: p_payer_rec => l_Payer_rec,
2183: -- call iPayment API to authorize payment
2184: IBY_Payment_Adapter_Pub.OraPmtReq(
2185: p_api_version => p_Api_Version,
2186: p_init_msg_list => FND_API.G_FALSE,
2187: p_commit => FND_API.G_FALSE,
2188: p_ecapp_id => 695,
2189: p_payee_rec => l_payee_rec,
2190: p_payer_rec => l_Payer_rec,
2191: p_pmtinstr_rec => l_pmtinstr_rec,
2228: FND_MESSAGE.SET_TOKEN('BEP_ERR_CODE', l_reqresp_rec.BEPErrCode);
2229: FND_MESSAGE.SET_TOKEN('BEP_ERR_MSG', l_capresp_rec.BEPErrMessage);
2230: FND_MSG_PUB.initialize;
2231: FND_MSG_PUB.Add;
2232: RAISE FND_API.G_EXC_ERROR;
2233: END IF;
2234:
2235: l_capturetrxn_rec.Trxn_ID := l_reqresp_rec.trxn_id;
2236: l_capturetrxn_rec.PmtMode := 'ONLINE';
2241: iex_debug_pub.LogMessage(l_api_name || ': Going to capture CC payment...');
2242: END IF;
2243: IBY_Payment_Adapter_Pub.OraPmtCapture (
2244: p_api_version => 1.0,
2245: p_init_msg_list => FND_API.G_FALSE,
2246: p_commit => FND_API.G_FALSE,
2247: p_ecapp_id => 695,
2248: p_capturetrxn_rec => l_capturetrxn_rec,
2249: x_return_status => l_return_status,
2242: END IF;
2243: IBY_Payment_Adapter_Pub.OraPmtCapture (
2244: p_api_version => 1.0,
2245: p_init_msg_list => FND_API.G_FALSE,
2246: p_commit => FND_API.G_FALSE,
2247: p_ecapp_id => 695,
2248: p_capturetrxn_rec => l_capturetrxn_rec,
2249: x_return_status => l_return_status,
2250: x_msg_count => l_msg_count,
2280: FND_MESSAGE.SET_TOKEN('BEP_ERR_CODE', l_reqresp_rec.BEPErrCode);
2281: FND_MESSAGE.SET_TOKEN('BEP_ERR_MSG', l_capresp_rec.BEPErrMessage);
2282: FND_MSG_PUB.initialize;
2283: FND_MSG_PUB.Add;
2284: RAISE FND_API.G_EXC_ERROR;
2285: END IF;
2286: elsif P_PMTINSTR_REC.USE_INSTRUMENT = 'BA' then
2287: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2288: iex_debug_pub.LogMessage(l_api_name || ': Going to process BA payment...');
2290:
2291: -- call iPayment API to process BA payment
2292: IBY_Payment_Adapter_Pub.OraPmtReq(
2293: p_api_version => p_Api_Version,
2294: p_init_msg_list => FND_API.G_FALSE,
2295: p_commit => FND_API.G_FALSE,
2296: p_ecapp_id => 695,
2297: p_payee_rec => l_payee_rec,
2298: p_payer_rec => l_Payer_rec,
2291: -- call iPayment API to process BA payment
2292: IBY_Payment_Adapter_Pub.OraPmtReq(
2293: p_api_version => p_Api_Version,
2294: p_init_msg_list => FND_API.G_FALSE,
2295: p_commit => FND_API.G_FALSE,
2296: p_ecapp_id => 695,
2297: p_payee_rec => l_payee_rec,
2298: p_payer_rec => l_Payer_rec,
2299: p_pmtinstr_rec => l_pmtinstr_rec,
2335: FND_MESSAGE.SET_TOKEN('BEP_ERR_CODE', l_reqresp_rec.BEPErrCode);
2336: FND_MESSAGE.SET_TOKEN('BEP_ERR_MSG', l_capresp_rec.BEPErrMessage);
2337: FND_MSG_PUB.initialize;
2338: FND_MSG_PUB.Add;
2339: RAISE FND_API.G_EXC_ERROR;
2340: END IF;
2341: end if;
2342:
2343:
2382: iex_debug_pub.LogMessage(l_api_name || ': TANGIBLE_ID = ' || X_PMTRESP_REC.TANGIBLE_ID);
2383: END IF;
2384:
2385: COMMIT WORK;
2386: x_return_status := FND_API.G_RET_STS_SUCCESS;
2387:
2388: EXCEPTION
2389: WHEN FND_API.G_EXC_ERROR THEN
2390: x_return_status := FND_API.G_RET_STS_ERROR;
2385: COMMIT WORK;
2386: x_return_status := FND_API.G_RET_STS_SUCCESS;
2387:
2388: EXCEPTION
2389: WHEN FND_API.G_EXC_ERROR THEN
2390: x_return_status := FND_API.G_RET_STS_ERROR;
2391: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2392: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2393: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2386: x_return_status := FND_API.G_RET_STS_SUCCESS;
2387:
2388: EXCEPTION
2389: WHEN FND_API.G_EXC_ERROR THEN
2390: x_return_status := FND_API.G_RET_STS_ERROR;
2391: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2392: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2393: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2394: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2388: EXCEPTION
2389: WHEN FND_API.G_EXC_ERROR THEN
2390: x_return_status := FND_API.G_RET_STS_ERROR;
2391: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2392: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2393: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2394: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2395: WHEN OTHERS THEN
2396: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2389: WHEN FND_API.G_EXC_ERROR THEN
2390: x_return_status := FND_API.G_RET_STS_ERROR;
2391: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2392: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2393: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2394: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2395: WHEN OTHERS THEN
2396: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2397: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2392: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2393: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2394: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2395: WHEN OTHERS THEN
2396: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2397: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2398: THEN
2399: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2400: END IF;
2400: END IF;
2401: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2402: END;
2403:
2404: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
2405: return;
2406: end if;
2407:
2408: -- Continue: creating IEX payment record
2465: -- commit first part of API: made iPayment money transfer and created IEX payment record with iPayment info
2466: COMMIT WORK;
2467: FND_MESSAGE.SET_NAME('IEX', 'IEX_IPAY_SUCCESS');
2468: FND_MSG_PUB.Add;
2469: x_return_status := FND_API.G_RET_STS_SUCCESS;
2470:
2471: EXCEPTION
2472: WHEN FND_API.G_EXC_ERROR THEN
2473: ROLLBACK TO CREATE_OKL_PAYMENT_PVT1;
2468: FND_MSG_PUB.Add;
2469: x_return_status := FND_API.G_RET_STS_SUCCESS;
2470:
2471: EXCEPTION
2472: WHEN FND_API.G_EXC_ERROR THEN
2473: ROLLBACK TO CREATE_OKL_PAYMENT_PVT1;
2474: x_return_status := FND_API.G_RET_STS_ERROR;
2475: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2476: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2470:
2471: EXCEPTION
2472: WHEN FND_API.G_EXC_ERROR THEN
2473: ROLLBACK TO CREATE_OKL_PAYMENT_PVT1;
2474: x_return_status := FND_API.G_RET_STS_ERROR;
2475: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2476: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2477: ROLLBACK TO CREATE_OKL_PAYMENT_PVT1;
2478: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2472: WHEN FND_API.G_EXC_ERROR THEN
2473: ROLLBACK TO CREATE_OKL_PAYMENT_PVT1;
2474: x_return_status := FND_API.G_RET_STS_ERROR;
2475: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2476: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2477: ROLLBACK TO CREATE_OKL_PAYMENT_PVT1;
2478: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2479: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2480: WHEN OTHERS THEN
2474: x_return_status := FND_API.G_RET_STS_ERROR;
2475: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2476: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2477: ROLLBACK TO CREATE_OKL_PAYMENT_PVT1;
2478: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2479: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2480: WHEN OTHERS THEN
2481: ROLLBACK TO CREATE_OKL_PAYMENT_PVT1;
2482: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2478: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2479: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2480: WHEN OTHERS THEN
2481: ROLLBACK TO CREATE_OKL_PAYMENT_PVT1;
2482: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2483: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2484: THEN
2485: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2486: END IF;
2486: END IF;
2487: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2488: END;
2489:
2490: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
2491: return;
2492: end if;
2493:
2494: -- Second part of API: OKL processing
2519: iex_debug_pub.LogMessage(l_api_name || ': Before OKL_PAYMENT_PUB.CREATE_INTERNAL_TRANS');
2520: END IF;
2521: OKL_PAYMENT_PUB.CREATE_INTERNAL_TRANS(
2522: p_api_version => 1.0,
2523: p_init_msg_list => FND_API.G_FALSE,
2524: p_customer_id => P_PMTDTLS_TBL(i).CUST_ACCOUNT_ID,
2525: p_invoice_id => P_PMTDTLS_TBL(i).CNSLD_INVOICE_ID,
2526: p_payment_method_id => l_ar_pay_method,
2527: p_payment_ref_number => 'IEX_OKL_' || l_payment_id,
2538: iex_debug_pub.LogMessage(l_api_name || ': Status = ' || L_RETURN_STATUS);
2539: END IF;
2540:
2541: -- check for errors
2542: IF l_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2543: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2544: iex_debug_pub.LogMessage(l_api_name || ': OKL_PAYMENT_PUB.CREATE_INTERNAL_TRANS failed');
2545: END IF;
2546: FND_MESSAGE.SET_NAME('IEX', 'IEX_FAILED_PAY_OKL_CNSLD');
2544: iex_debug_pub.LogMessage(l_api_name || ': OKL_PAYMENT_PUB.CREATE_INTERNAL_TRANS failed');
2545: END IF;
2546: FND_MESSAGE.SET_NAME('IEX', 'IEX_FAILED_PAY_OKL_CNSLD');
2547: FND_MSG_PUB.Add;
2548: RAISE FND_API.G_EXC_ERROR;
2549: END IF;
2550:
2551: -- generate new pay_okl_ref id
2552: OPEN pox_genid_crs;
2593: iex_debug_pub.LogMessage(l_api_name || ': Before OKL_PAYMENT_PUB.CREATE_INTERNAL_TRANS');
2594: END IF;
2595: OKL_PAYMENT_PUB.CREATE_INTERNAL_TRANS(
2596: p_api_version => 1.0,
2597: p_init_msg_list => FND_API.G_FALSE,
2598: p_customer_id => P_PMTDTLS_TBL(i).CUST_ACCOUNT_ID,
2599: p_contract_id => P_PMTDTLS_TBL(i).CONTRACT_ID,
2600: p_payment_method_id => l_ar_pay_method,
2601: p_payment_ref_number => 'IEX_OKL_' || l_payment_id,
2612: iex_debug_pub.LogMessage(l_api_name || ': Status = ' || L_RETURN_STATUS);
2613: END IF;
2614:
2615: -- check for errors
2616: IF l_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2617: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2618: iex_debug_pub.LogMessage(l_api_name || ': OKL_PAYMENT_PUB.CREATE_INTERNAL_TRANS failed');
2619: END IF;
2620: FND_MESSAGE.SET_NAME('IEX', 'IEX_FAILED_PAY_OKL_CONTRACT');
2618: iex_debug_pub.LogMessage(l_api_name || ': OKL_PAYMENT_PUB.CREATE_INTERNAL_TRANS failed');
2619: END IF;
2620: FND_MESSAGE.SET_NAME('IEX', 'IEX_FAILED_PAY_OKL_CONTRACT');
2621: FND_MSG_PUB.Add;
2622: RAISE FND_API.G_EXC_ERROR;
2623: END IF;
2624:
2625: -- generate new pay_okl_ref id
2626: OPEN pox_genid_crs;
2660:
2661: FND_MESSAGE.SET_NAME('IEX', 'IEX_OKL_SUCCESS');
2662: FND_MSG_PUB.Add;
2663:
2664: x_return_status := FND_API.G_RET_STS_SUCCESS;
2665:
2666: EXCEPTION
2667: WHEN FND_API.G_EXC_ERROR THEN
2668: ROLLBACK TO CREATE_OKL_PAYMENT_PVT2;
2663:
2664: x_return_status := FND_API.G_RET_STS_SUCCESS;
2665:
2666: EXCEPTION
2667: WHEN FND_API.G_EXC_ERROR THEN
2668: ROLLBACK TO CREATE_OKL_PAYMENT_PVT2;
2669: x_return_status := FND_API.G_RET_STS_ERROR;
2670: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2671: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2665:
2666: EXCEPTION
2667: WHEN FND_API.G_EXC_ERROR THEN
2668: ROLLBACK TO CREATE_OKL_PAYMENT_PVT2;
2669: x_return_status := FND_API.G_RET_STS_ERROR;
2670: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2671: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2672: ROLLBACK TO CREATE_OKL_PAYMENT_PVT2;
2673: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2667: WHEN FND_API.G_EXC_ERROR THEN
2668: ROLLBACK TO CREATE_OKL_PAYMENT_PVT2;
2669: x_return_status := FND_API.G_RET_STS_ERROR;
2670: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2671: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2672: ROLLBACK TO CREATE_OKL_PAYMENT_PVT2;
2673: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2674: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2675: WHEN OTHERS THEN
2669: x_return_status := FND_API.G_RET_STS_ERROR;
2670: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2671: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2672: ROLLBACK TO CREATE_OKL_PAYMENT_PVT2;
2673: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2674: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2675: WHEN OTHERS THEN
2676: ROLLBACK TO CREATE_OKL_PAYMENT_PVT2;
2677: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2673: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2674: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2675: WHEN OTHERS THEN
2676: ROLLBACK TO CREATE_OKL_PAYMENT_PVT2;
2677: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2678: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2679: THEN
2680: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2681: END IF;
2681: END IF;
2682: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2683: END;
2684:
2685: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
2686: return;
2687: end if;
2688:
2689: -- Third part of API: creating note
2768: iex_debug_pub.LogMessage(l_api_name || ': Before call to IEX_NOTES_PVT.Create_Note');
2769: END IF;
2770: IEX_NOTES_PVT.Create_Note(
2771: P_API_VERSION => l_api_version,
2772: P_INIT_MSG_LIST => FND_API.G_FALSE,
2773: P_COMMIT => FND_API.G_FALSE,
2774: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
2775: X_RETURN_STATUS => l_return_status,
2776: X_MSG_COUNT => l_msg_count,
2769: END IF;
2770: IEX_NOTES_PVT.Create_Note(
2771: P_API_VERSION => l_api_version,
2772: P_INIT_MSG_LIST => FND_API.G_FALSE,
2773: P_COMMIT => FND_API.G_FALSE,
2774: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
2775: X_RETURN_STATUS => l_return_status,
2776: X_MSG_COUNT => l_msg_count,
2777: X_MSG_DATA => l_msg_data,
2770: IEX_NOTES_PVT.Create_Note(
2771: P_API_VERSION => l_api_version,
2772: P_INIT_MSG_LIST => FND_API.G_FALSE,
2773: P_COMMIT => FND_API.G_FALSE,
2774: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
2775: X_RETURN_STATUS => l_return_status,
2776: X_MSG_COUNT => l_msg_count,
2777: X_MSG_DATA => l_msg_data,
2778: p_source_object_id => l_source_object_id,
2786: iex_debug_pub.LogMessage(l_api_name || ': Status = ' || L_RETURN_STATUS);
2787: END IF;
2788:
2789: -- check for errors
2790: IF l_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2791: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2792: iex_debug_pub.LogMessage(l_api_name || ': IEX_NOTES_PVT.Create_Note failed');
2793: END IF;
2794: RAISE FND_API.G_EXC_ERROR;
2790: IF l_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2791: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2792: iex_debug_pub.LogMessage(l_api_name || ': IEX_NOTES_PVT.Create_Note failed');
2793: END IF;
2794: RAISE FND_API.G_EXC_ERROR;
2795: END IF;
2796:
2797: END IF;
2798: end if;
2798: end if;
2799:
2800: -- commit third part of API: note creation
2801: COMMIT WORK;
2802: x_return_status := FND_API.G_RET_STS_SUCCESS;
2803: -- Standard call to get message count and if count is 1, get message info
2804: FND_MSG_PUB.Count_And_Get(
2805: p_encoded => FND_API.G_FALSE,
2806: p_count => x_msg_count,
2801: COMMIT WORK;
2802: x_return_status := FND_API.G_RET_STS_SUCCESS;
2803: -- Standard call to get message count and if count is 1, get message info
2804: FND_MSG_PUB.Count_And_Get(
2805: p_encoded => FND_API.G_FALSE,
2806: p_count => x_msg_count,
2807: p_data => x_msg_data);
2808:
2809: EXCEPTION
2806: p_count => x_msg_count,
2807: p_data => x_msg_data);
2808:
2809: EXCEPTION
2810: WHEN FND_API.G_EXC_ERROR THEN
2811: ROLLBACK TO CREATE_OKL_PAYMENT_PVT3;
2812: x_return_status := FND_API.G_RET_STS_ERROR;
2813: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2814: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2808:
2809: EXCEPTION
2810: WHEN FND_API.G_EXC_ERROR THEN
2811: ROLLBACK TO CREATE_OKL_PAYMENT_PVT3;
2812: x_return_status := FND_API.G_RET_STS_ERROR;
2813: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2814: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2815: ROLLBACK TO CREATE_OKL_PAYMENT_PVT3;
2816: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2810: WHEN FND_API.G_EXC_ERROR THEN
2811: ROLLBACK TO CREATE_OKL_PAYMENT_PVT3;
2812: x_return_status := FND_API.G_RET_STS_ERROR;
2813: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2814: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2815: ROLLBACK TO CREATE_OKL_PAYMENT_PVT3;
2816: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2817: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2818: WHEN OTHERS THEN
2812: x_return_status := FND_API.G_RET_STS_ERROR;
2813: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2814: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2815: ROLLBACK TO CREATE_OKL_PAYMENT_PVT3;
2816: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2817: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2818: WHEN OTHERS THEN
2819: ROLLBACK TO CREATE_OKL_PAYMENT_PVT3;
2820: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2816: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2817: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2818: WHEN OTHERS THEN
2819: ROLLBACK TO CREATE_OKL_PAYMENT_PVT3;
2820: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2821: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2822: THEN
2823: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2824: END IF;
2862: P_PMTINSTR_REC => P_PMTINSTR_REC,
2863: P_PMT_METHOD => P_PMT_METHOD, -- Included by varangan for profile bug#4558547
2864: X_PMTRESP_REC => X_PMTRESP_REC);
2865: ELSE
2866: x_return_status := FND_API.G_RET_STS_SUCCESS;
2867:
2868: /* -- Begin -- Commenting out for Payments Uptake
2869: -- Varangan- 4528444
2870: -- since OKL not yet designed payments uptake in R12