39: END IF;
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 */
56: END IF;
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 */
73: END IF;
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 */
95: END IF;
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
111: END IF;
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:
130: END IF;
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:
147: END IF;
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
167: END IF;
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:
183: END IF;
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
199: END IF;
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
214: END IF;
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');
228: END IF;
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
243: END IF;
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
258: END IF;
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;
275: END IF;
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 */
294: END IF;
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
316: END IF;
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
338: END IF;
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:
431: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
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:
454: iex_debug_pub.LogMessage('No party');
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:
485: 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:
498: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) 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:
601: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
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:
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
748: l_return_status := FND_API.G_RET_STS_SUCCESS;
1036: X_MSG_DATA:= L_MSG_DATA;
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:
1067: iex_debug_pub.LogMessage(l_api_name || ': AR_RECEIPT_API_PUB.APPLY_ON_ACCOUNT failed');
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:
1347: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1348: iex_debug_pub.LogMessage(l_api_name || ': AR_RECEIPT_API_PUB.CREATE_CASH failed');
1349: END IF;
1350: FND_MESSAGE.SET_NAME('IEX', 'IEX_FAILED_CREATE_CR');
1351: FND_MSG_PUB.Add;
1352: return;
1353: END IF;
1354:
1355: OPEN get_delid_crs(P_PMTDTLS_TBL(1).PAYMENT_SCHEDULE_ID);
1474: x_return_status :=l_return_status;
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:
1494: iex_debug_pub.LogMessage(l_api_name || ': AR_RECEIPT_API_PUB.APPLY failed');
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:
1582:
1583:
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:
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;
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);
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;
1605: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
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);
1609: END;
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);
1609: END;
1610:
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);
1609: END;
1610:
1611: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
1612: return;
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,
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
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);
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;
1746: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
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);
1750: END;
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);
1750: END;
1751: END ;
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);
1750: END;
1751: END ;
1752:
1753: PROCEDURE CREATE_OKL_PAYMENT(
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
1873: l_return_status := FND_API.G_RET_STS_SUCCESS;
1936: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
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:
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');
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
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');
2039: FND_MSG_PUB.Add;
2040: RAISE FND_API.G_EXC_ERROR;
2041: END IF;
2042: end if;
2043:
2067: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
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:
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');
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
2226: FND_MESSAGE.SET_TOKEN('ERR_CODE', l_capresp_rec.response.ErrCode);
2227: FND_MESSAGE.SET_TOKEN('ERR_MSG', l_reqresp_rec.response.ErrMessage);
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:
2227: FND_MESSAGE.SET_TOKEN('ERR_MSG', l_reqresp_rec.response.ErrMessage);
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;
2278: FND_MESSAGE.SET_TOKEN('ERR_CODE', l_capresp_rec.response.ErrCode);
2279: FND_MESSAGE.SET_TOKEN('ERR_MSG', l_reqresp_rec.response.ErrMessage);
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
2279: FND_MESSAGE.SET_TOKEN('ERR_MSG', l_reqresp_rec.response.ErrMessage);
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
2333: FND_MESSAGE.SET_TOKEN('ERR_CODE', l_capresp_rec.response.ErrCode);
2334: FND_MESSAGE.SET_TOKEN('ERR_MSG', l_reqresp_rec.response.ErrMessage);
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;
2334: FND_MESSAGE.SET_TOKEN('ERR_MSG', l_reqresp_rec.response.ErrMessage);
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:
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);
2395: WHEN OTHERS 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)
2398: 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;
2401: 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;
2401: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2402: END;
2403:
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;
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;
2464:
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
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;
2479: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
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;
2483: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_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;
2487: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
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;
2487: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2488: END;
2489:
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;
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;
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');
2547: FND_MSG_PUB.Add;
2548: RAISE FND_API.G_EXC_ERROR;
2549: END IF;
2550:
2551: -- generate new pay_okl_ref id
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');
2621: FND_MSG_PUB.Add;
2622: RAISE FND_API.G_EXC_ERROR;
2623: END IF;
2624:
2625: -- generate new pay_okl_ref id
2658: -- commit second part of API: AR/OKL processing
2659: COMMIT WORK;
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
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;
2674: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
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;
2678: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_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;
2682: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
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;
2682: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2683: END;
2684:
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;
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;
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,
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
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);
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;
2821: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_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;
2825: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
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;
2825: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2826: END;
2827:
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;
2825: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2826: END;
2827:
2828:
2829: -- End - Bug428444 -- varangan -- remove this comment while implementing OKL payment in R12 codeline */