99: x_msg_count => l_msg_count,
100: x_msg_data => l_msg_data
101: );
102:
103: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
104: RAISE FND_API.G_EXC_ERROR;
105: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
106: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
107: END IF;
100: x_msg_data => l_msg_data
101: );
102:
103: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
104: RAISE FND_API.G_EXC_ERROR;
105: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
106: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
107: END IF;
108: -- Public API Call end
101: );
102:
103: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
104: RAISE FND_API.G_EXC_ERROR;
105: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
106: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
107: END IF;
108: -- Public API Call end
109:
102:
103: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
104: RAISE FND_API.G_EXC_ERROR;
105: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
106: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
107: END IF;
108: -- Public API Call end
109:
110:
116: x_msg_data := l_msg_data ;
117:
118: EXCEPTION
119:
120: WHEN FND_API.G_EXC_ERROR THEN
121: SAVEPOINT CREATE_INTERNAL_TRANS;
122: x_return_status := FND_API.G_RET_STS_ERROR;
123: x_msg_count := l_msg_count ;
124: x_msg_data := l_msg_data ;
118: EXCEPTION
119:
120: WHEN FND_API.G_EXC_ERROR THEN
121: SAVEPOINT CREATE_INTERNAL_TRANS;
122: x_return_status := FND_API.G_RET_STS_ERROR;
123: x_msg_count := l_msg_count ;
124: x_msg_data := l_msg_data ;
125: FND_MSG_PUB.ADD_EXC_MSG('OKL_PAYMENT_PUB','CREATE_INTERNAL_TRANS');
126: FND_MSG_PUB.count_and_get( p_count => x_msg_count
125: FND_MSG_PUB.ADD_EXC_MSG('OKL_PAYMENT_PUB','CREATE_INTERNAL_TRANS');
126: FND_MSG_PUB.count_and_get( p_count => x_msg_count
127: ,p_data => x_msg_data);
128:
129: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
130: SAVEPOINT CREATE_INTERNAL_TRANS;
131: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
132: x_msg_count := l_msg_count ;
133: x_msg_data := l_msg_data ;
127: ,p_data => x_msg_data);
128:
129: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
130: SAVEPOINT CREATE_INTERNAL_TRANS;
131: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
132: x_msg_count := l_msg_count ;
133: x_msg_data := l_msg_data ;
134: FND_MSG_PUB.ADD_EXC_MSG('OKL_PAYMENT_PUB','CREATE_INTERNAL_TRANS');
135: FND_MSG_PUB.count_and_get( p_count => x_msg_count
136: ,p_data => x_msg_data);
137:
138: WHEN OTHERS THEN
139: SAVEPOINT CREATE_INTERNAL_TRANS;
140: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
141: x_msg_count := l_msg_count ;
142: x_msg_data := l_msg_data ;
143: FND_MSG_PUB.ADD_EXC_MSG('OKL_PAYMENT_PUB','CREATE_INTERNAL_TRANS');
144: FND_MSG_PUB.count_and_get( p_count => x_msg_count
217: x_msg_count => l_msg_count,
218: x_msg_data => l_msg_data
219: );
220:
221: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
222: RAISE FND_API.G_EXC_ERROR;
223: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
224: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
225: END IF;
218: x_msg_data => l_msg_data
219: );
220:
221: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
222: RAISE FND_API.G_EXC_ERROR;
223: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
224: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
225: END IF;
226: -- Public API Call end
219: );
220:
221: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
222: RAISE FND_API.G_EXC_ERROR;
223: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
224: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
225: END IF;
226: -- Public API Call end
227:
220:
221: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
222: RAISE FND_API.G_EXC_ERROR;
223: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
224: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
225: END IF;
226: -- Public API Call end
227:
228:
236:
237:
238: EXCEPTION
239:
240: WHEN FND_API.G_EXC_ERROR THEN
241: SAVEPOINT CREATE_INTERNAL_TRANS;
242: x_return_status := FND_API.G_RET_STS_ERROR;
243: x_msg_count := l_msg_count ;
244: x_msg_data := l_msg_data ;
238: EXCEPTION
239:
240: WHEN FND_API.G_EXC_ERROR THEN
241: SAVEPOINT CREATE_INTERNAL_TRANS;
242: x_return_status := FND_API.G_RET_STS_ERROR;
243: x_msg_count := l_msg_count ;
244: x_msg_data := l_msg_data ;
245: FND_MSG_PUB.ADD_EXC_MSG('OKL_PAYMENT_PUB','CREATE_INTERNAL_TRANS');
246: FND_MSG_PUB.count_and_get( p_count => x_msg_count
245: FND_MSG_PUB.ADD_EXC_MSG('OKL_PAYMENT_PUB','CREATE_INTERNAL_TRANS');
246: FND_MSG_PUB.count_and_get( p_count => x_msg_count
247: ,p_data => x_msg_data);
248:
249: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
250: SAVEPOINT CREATE_INTERNAL_TRANS;
251: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
252: x_msg_count := l_msg_count ;
253: x_msg_data := l_msg_data ;
247: ,p_data => x_msg_data);
248:
249: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
250: SAVEPOINT CREATE_INTERNAL_TRANS;
251: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
252: x_msg_count := l_msg_count ;
253: x_msg_data := l_msg_data ;
254: FND_MSG_PUB.ADD_EXC_MSG('OKL_PAYMENT_PUB','CREATE_INTERNAL_TRANS');
255: FND_MSG_PUB.count_and_get( p_count => x_msg_count
256: ,p_data => x_msg_data);
257:
258: WHEN OTHERS THEN
259: SAVEPOINT CREATE_INTERNAL_TRANS;
260: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
261: x_msg_count := l_msg_count ;
262: x_msg_data := l_msg_data ;
263: FND_MSG_PUB.ADD_EXC_MSG('OKL_PAYMENT_PUB','CREATE_INTERNAL_TRANS');
264: FND_MSG_PUB.count_and_get( p_count => x_msg_count
271: ----------------------------------------------------------------------
272: PROCEDURE CREATE_PAYMENTS(
273: p_api_version IN NUMBER,
274: p_init_msg_list IN VARCHAR2 DEFAULT okl_api.G_FALSE,
275: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
276: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
277: x_return_status OUT NOCOPY VARCHAR2,
278: x_msg_count OUT NOCOPY NUMBER,
279: x_msg_data OUT NOCOPY VARCHAR2,
272: PROCEDURE CREATE_PAYMENTS(
273: p_api_version IN NUMBER,
274: p_init_msg_list IN VARCHAR2 DEFAULT okl_api.G_FALSE,
275: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
276: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
277: x_return_status OUT NOCOPY VARCHAR2,
278: x_msg_count OUT NOCOPY NUMBER,
279: x_msg_data OUT NOCOPY VARCHAR2,
280: p_receipt_rec IN receipt_rec_type,
322:
323: -- End - Make Payment Update - Varangan
324:
325:
326: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
327: RAISE FND_API.G_EXC_ERROR;
328: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
329: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
330: END IF;
323: -- End - Make Payment Update - Varangan
324:
325:
326: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
327: RAISE FND_API.G_EXC_ERROR;
328: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
329: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
330: END IF;
331: -- Public API Call end
324:
325:
326: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
327: RAISE FND_API.G_EXC_ERROR;
328: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
329: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
330: END IF;
331: -- Public API Call end
332:
325:
326: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
327: RAISE FND_API.G_EXC_ERROR;
328: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
329: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
330: END IF;
331: -- Public API Call end
332:
333: --Assign value to OUT variables
338: x_payment_ref_number := l_payment_ref_number;
339:
340: EXCEPTION
341:
342: WHEN FND_API.G_EXC_ERROR THEN
343: ROLLBACK TO CREATE_PAYMENTS;
344: x_return_status := FND_API.G_RET_STS_ERROR;
345: x_msg_count := l_msg_count ;
346: x_msg_data := l_msg_data ;
340: EXCEPTION
341:
342: WHEN FND_API.G_EXC_ERROR THEN
343: ROLLBACK TO CREATE_PAYMENTS;
344: x_return_status := FND_API.G_RET_STS_ERROR;
345: x_msg_count := l_msg_count ;
346: x_msg_data := l_msg_data ;
347: FND_MSG_PUB.count_and_get(
348: p_count => x_msg_count
347: FND_MSG_PUB.count_and_get(
348: p_count => x_msg_count
349: ,p_data => x_msg_data);
350:
351: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
352: ROLLBACK TO CREATE_PAYMENTS;
353: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
354: x_msg_count := l_msg_count ;
355: x_msg_data := l_msg_data ;
349: ,p_data => x_msg_data);
350:
351: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
352: ROLLBACK TO CREATE_PAYMENTS;
353: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
354: x_msg_count := l_msg_count ;
355: x_msg_data := l_msg_data ;
356: FND_MSG_PUB.count_and_get(
357: p_count => x_msg_count