1: PACKAGE BODY okl_credit_memo_pub AS
2: /* $Header: OKLPCRMB.pls 120.5 2007/04/20 19:08:18 apaul noship $ */
3:
4: PROCEDURE insert_request(p_api_version IN NUMBER,
5: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
6: --p_lsm_id IN NUMBER,
7: p_tld_id IN NUMBER, -- 5897792
8: p_credit_amount IN NUMBER,
9: p_credit_sty_id IN NUMBER DEFAULT NULL,
53: x_return_status => l_return_status,
54: x_msg_count => l_msg_count,
55: x_msg_data => l_msg_data);
56:
57: IF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
58: RAISE OKL_API.G_EXCEPTION_ERROR;
59: ELSIF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
60: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
61: END IF;
54: x_msg_count => l_msg_count,
55: x_msg_data => l_msg_data);
56:
57: IF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
58: RAISE OKL_API.G_EXCEPTION_ERROR;
59: ELSIF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
60: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
61: END IF;
62:
55: x_msg_data => l_msg_data);
56:
57: IF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
58: RAISE OKL_API.G_EXCEPTION_ERROR;
59: ELSIF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
60: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
61: END IF;
62:
63:
56:
57: IF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
58: RAISE OKL_API.G_EXCEPTION_ERROR;
59: ELSIF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
60: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
61: END IF;
62:
63:
64:
71:
72:
73: EXCEPTION
74:
75: WHEN OKL_API.G_EXCEPTION_ERROR THEN
76: ROLLBACK TO insert_request;
77: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
78: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
79: p_data => x_msg_data);
73: EXCEPTION
74:
75: WHEN OKL_API.G_EXCEPTION_ERROR THEN
76: ROLLBACK TO insert_request;
77: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
78: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
79: p_data => x_msg_data);
80:
81: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
77: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
78: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
79: p_data => x_msg_data);
80:
81: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
82: ROLLBACK TO insert_request;
83: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
84: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
85: p_data => x_msg_data);
79: p_data => x_msg_data);
80:
81: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
82: ROLLBACK TO insert_request;
83: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
84: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
85: p_data => x_msg_data);
86:
87: WHEN OTHERS THEN
85: p_data => x_msg_data);
86:
87: WHEN OTHERS THEN
88: ROLLBACK TO insert_request;
89: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
90: FND_MSG_PUB.ADD_EXC_MSG('OKL_CREDIT_MEMO_PUB','insert_request');
91: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
92: p_data => x_msg_data);
93:
138: x_return_status => l_return_status,
139: x_msg_count => x_msg_count,
140: x_msg_data => x_msg_data);
141:
142: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
143: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
144: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
145: RAISE OKL_API.G_EXCEPTION_ERROR;
146: END IF;
139: x_msg_count => x_msg_count,
140: x_msg_data => x_msg_data);
141:
142: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
143: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
144: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
145: RAISE OKL_API.G_EXCEPTION_ERROR;
146: END IF;
147:
140: x_msg_data => x_msg_data);
141:
142: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
143: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
144: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
145: RAISE OKL_API.G_EXCEPTION_ERROR;
146: END IF;
147:
148: x_return_status := l_return_status;
141:
142: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
143: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
144: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
145: RAISE OKL_API.G_EXCEPTION_ERROR;
146: END IF;
147:
148: x_return_status := l_return_status;
149:
148: x_return_status := l_return_status;
149:
150: EXCEPTION
151:
152: WHEN OKL_API.G_EXCEPTION_ERROR THEN
153:
154: x_return_status := OKL_API.G_RET_STS_ERROR;
155:
156: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
150: EXCEPTION
151:
152: WHEN OKL_API.G_EXCEPTION_ERROR THEN
153:
154: x_return_status := OKL_API.G_RET_STS_ERROR;
155:
156: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
157:
158: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
152: WHEN OKL_API.G_EXCEPTION_ERROR THEN
153:
154: x_return_status := OKL_API.G_RET_STS_ERROR;
155:
156: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
157:
158: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
159:
160: WHEN OTHERS THEN
154: x_return_status := OKL_API.G_RET_STS_ERROR;
155:
156: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
157:
158: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
159:
160: WHEN OTHERS THEN
161:
162: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
158: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
159:
160: WHEN OTHERS THEN
161:
162: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
163: p_msg_name => G_UNEXPECTED_ERROR,
164: p_token1 => G_SQLCODE_TOKEN,
165: p_token1_value => sqlcode,
166: p_token2 => G_SQLERRM_TOKEN,
165: p_token1_value => sqlcode,
166: p_token2 => G_SQLERRM_TOKEN,
167: p_token2_value => sqlerrm);
168:
169: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
170:
171:
172: END insert_request;
173:
206: x_return_status => l_return_status,
207: x_msg_count => l_msg_count,
208: x_msg_data => l_msg_data);
209:
210: IF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
211: RAISE OKL_API.G_EXCEPTION_ERROR;
212: ELSIF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
213: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
214: END IF;
207: x_msg_count => l_msg_count,
208: x_msg_data => l_msg_data);
209:
210: IF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
211: RAISE OKL_API.G_EXCEPTION_ERROR;
212: ELSIF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
213: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
214: END IF;
215:
208: x_msg_data => l_msg_data);
209:
210: IF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
211: RAISE OKL_API.G_EXCEPTION_ERROR;
212: ELSIF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
213: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
214: END IF;
215:
216:
209:
210: IF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
211: RAISE OKL_API.G_EXCEPTION_ERROR;
212: ELSIF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
213: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
214: END IF;
215:
216:
217:
222:
223:
224: EXCEPTION
225:
226: WHEN OKL_API.G_EXCEPTION_ERROR THEN
227:
228: ROLLBACK TO insert_request;
229: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
230: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
225:
226: WHEN OKL_API.G_EXCEPTION_ERROR THEN
227:
228: ROLLBACK TO insert_request;
229: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
230: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
231: p_data => x_msg_data);
232:
233:
230: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
231: p_data => x_msg_data);
232:
233:
234: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
235:
236: ROLLBACK TO insert_request;
237: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
238: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
233:
234: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
235:
236: ROLLBACK TO insert_request;
237: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
238: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
239: p_data => x_msg_data);
240:
241:
240:
241:
242: WHEN OTHERS THEN
243: ROLLBACK TO insert_request;
244: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
245: FND_MSG_PUB.ADD_EXC_MSG('OKL_CREDIT_MEMO_PUB','insert_request');
246: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
247: p_data => x_msg_data);
248:
249: END insert_request;
250:
251: --rkuttiya added for bug # 4341480
252: PROCEDURE insert_on_acc_cm_request(p_api_version IN NUMBER,
253: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
254: --p_lsm_id IN NUMBER,
255: p_tld_id IN NUMBER, -- 5897792
256: p_credit_amount IN NUMBER,
257: p_credit_sty_id IN NUMBER DEFAULT NULL,
294: x_return_status => l_return_status,
295: x_msg_count => l_msg_count,
296: x_msg_data => l_msg_data);
297:
298: IF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
299: RAISE OKL_API.G_EXCEPTION_ERROR;
300: ELSIF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
301: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
302: END IF;
295: x_msg_count => l_msg_count,
296: x_msg_data => l_msg_data);
297:
298: IF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
299: RAISE OKL_API.G_EXCEPTION_ERROR;
300: ELSIF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
301: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
302: END IF;
303:
296: x_msg_data => l_msg_data);
297:
298: IF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
299: RAISE OKL_API.G_EXCEPTION_ERROR;
300: ELSIF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
301: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
302: END IF;
303:
304: lx_tai_id := x_tai_id;
297:
298: IF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
299: RAISE OKL_API.G_EXCEPTION_ERROR;
300: ELSIF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
301: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
302: END IF;
303:
304: lx_tai_id := x_tai_id;
305:
306: x_return_status := l_return_status;
307:
308: EXCEPTION
309:
310: WHEN OKL_API.G_EXCEPTION_ERROR THEN
311: ROLLBACK TO insert_request;
312: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
313: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
314: p_data => x_msg_data);
308: EXCEPTION
309:
310: WHEN OKL_API.G_EXCEPTION_ERROR THEN
311: ROLLBACK TO insert_request;
312: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
313: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
314: p_data => x_msg_data);
315:
316: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
312: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
313: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
314: p_data => x_msg_data);
315:
316: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
317: ROLLBACK TO insert_request;
318: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
319: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
320: p_data => x_msg_data);
314: p_data => x_msg_data);
315:
316: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
317: ROLLBACK TO insert_request;
318: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
319: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
320: p_data => x_msg_data);
321:
322: WHEN OTHERS THEN
320: p_data => x_msg_data);
321:
322: WHEN OTHERS THEN
323: ROLLBACK TO insert_request;
324: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
325: FND_MSG_PUB.ADD_EXC_MSG('OKL_CREDIT_MEMO_PUB','insert_request');
326: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
327: p_data => x_msg_data);
328: