224: IF( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
225: iby_debug_pub.add('Enter',G_LEVEL_PROCEDURE,l_dbg_mod);
226: END IF;
227:
228: FND_MSG_PUB.initialize();
229:
230: IF (P_PAYMENT_REF_NUMBER IS NULL)
231: THEN
232: x_return_status := FND_API.G_RET_STS_ERROR;
230: IF (P_PAYMENT_REF_NUMBER IS NULL)
231: THEN
232: x_return_status := FND_API.G_RET_STS_ERROR;
233: fnd_message.set_name('IBY', 'IBY_PMT_REF_NUMBER_MISSING');
234: fnd_msg_pub.ADD;
235: RAISE FND_API.G_EXC_ERROR;
236: END IF;
237:
238: IF (get_app_name%ISOPEN) THEN CLOSE get_app_name; END IF;
250:
251: IF ( l_appl_name IS NULL)
252: THEN
253: fnd_message.set_name('IBY', 'IBY_NO_PMT_ACCESS');
254: fnd_msg_pub.ADD;
255: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
256: RAISE fnd_api.g_exc_error;
257: END IF;
258: MO_GLOBAL.init(l_appl_name);
279: END;
280:
281: IF NOT (l_access = 1) THEN
282: fnd_message.set_name('IBY', 'IBY_NO_PMT_ACCESS');
283: fnd_msg_pub.add;
284: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
285: RAISE fnd_api.g_exc_error;
286: END IF;
287:
295:
296: IF (NOT Bank_Status_Exists(P_BANK_STATUS_CODE))THEN
297: x_return_status := FND_API.G_RET_STS_ERROR;
298: fnd_message.set_name('IBY', 'IBY_PMT_ACK_STATUS_NOT_EXISTS');
299: fnd_msg_pub.ADD;
300: RAISE FND_API.G_EXC_ERROR;
301: END IF;
302:
303: l_calculated_amt := P_PAYMENT_AMOUNT * P_EXCHANGE_RATE;
387:
388: ELSE
389: x_return_status := FND_API.G_RET_STS_ERROR;
390: fnd_message.set_name('IBY', 'IBY_PMT_ACK_STATUS_NOT_EXISTS');
391: fnd_msg_pub.ADD;
392: RAISE FND_API.G_EXC_ERROR;
393: END IF;
394: COMMIT;
395:
399: EXCEPTION
400: WHEN FND_API.G_EXC_ERROR THEN
401: ROLLBACK;
402: x_return_status := FND_API.G_RET_STS_ERROR;
403: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
404: p_count => x_msg_count,
405: p_data => x_return_message);
406: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
407: iby_debug_pub.add('Exception : ' || x_return_message);
408: END IF;
409: WHEN OTHERS THEN
410: ROLLBACK;
411: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
412: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
413: p_count => x_msg_count,
414: p_data => x_return_message);
415: x_return_message := 'SQLCODE: ' || SQLCODE || ' SQLERRM: ' || SQLERRM ;
416: