3: G_CHK_ASSET_RETURN_FEE CONSTANT VARCHAR2(200) := 'OKL_CHK_ASSET_RETURN_FEE';
4:
5: PROCEDURE insert_remarketing_costs(
6: p_api_version IN NUMBER
7: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
8: ,x_return_status OUT NOCOPY VARCHAR2
9: ,x_msg_count OUT NOCOPY NUMBER
10: ,x_msg_data OUT NOCOPY VARCHAR2
11: ,p_rfcv_rec IN rfcv_rec_type
45: IF nvl(lp_rfcv_rec.AMOUNT,0.00) <= 0.00 THEN
46:
47: Okl_Api.SET_MESSAGE(p_app_name => G_APP_NAME,
48: p_msg_name => G_CHK_ASSET_RETURN_FEE);
49: l_return_status := FND_API.G_RET_STS_ERROR;
50: RAISE FND_API.G_EXC_ERROR;
51: END IF;
52: --suresh gorantla Bug #3477112
53:
46:
47: Okl_Api.SET_MESSAGE(p_app_name => G_APP_NAME,
48: p_msg_name => G_CHK_ASSET_RETURN_FEE);
49: l_return_status := FND_API.G_RET_STS_ERROR;
50: RAISE FND_API.G_EXC_ERROR;
51: END IF;
52: --suresh gorantla Bug #3477112
53:
54:
60: ,l_msg_data
61: ,lp_rfcv_rec
62: ,lx_rfcv_rec);
63:
64: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
65: RAISE FND_API.G_EXC_ERROR;
66: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
67: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
68: END IF;
61: ,lp_rfcv_rec
62: ,lx_rfcv_rec);
63:
64: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
65: RAISE FND_API.G_EXC_ERROR;
66: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
67: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
68: END IF;
69:
62: ,lx_rfcv_rec);
63:
64: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
65: RAISE FND_API.G_EXC_ERROR;
66: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
67: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
68: END IF;
69:
70: --Copy value of OUT variable in the IN record type
63:
64: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
65: RAISE FND_API.G_EXC_ERROR;
66: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
67: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
68: END IF;
69:
70: --Copy value of OUT variable in the IN record type
71: lp_rfcv_rec := lx_rfcv_rec;
77: x_msg_data := l_msg_data ;
78:
79: EXCEPTION
80:
81: WHEN FND_API.G_EXC_ERROR THEN
82: ROLLBACK TO remarketing_costs_insert;
83: x_return_status := FND_API.G_RET_STS_ERROR;
84: x_msg_count := l_msg_count ;
85: x_msg_data := l_msg_data ;
79: EXCEPTION
80:
81: WHEN FND_API.G_EXC_ERROR THEN
82: ROLLBACK TO remarketing_costs_insert;
83: x_return_status := FND_API.G_RET_STS_ERROR;
84: x_msg_count := l_msg_count ;
85: x_msg_data := l_msg_data ;
86: FND_MSG_PUB.count_and_get(
87: p_count => x_msg_count
85: x_msg_data := l_msg_data ;
86: FND_MSG_PUB.count_and_get(
87: p_count => x_msg_count
88: ,p_data => x_msg_data);
89: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
90: ROLLBACK TO remarketing_costs_insert;
91: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
92: x_msg_count := l_msg_count ;
93: x_msg_data := l_msg_data ;
87: p_count => x_msg_count
88: ,p_data => x_msg_data);
89: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
90: ROLLBACK TO remarketing_costs_insert;
91: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
92: x_msg_count := l_msg_count ;
93: x_msg_data := l_msg_data ;
94: FND_MSG_PUB.count_and_get(
95: p_count => x_msg_count
95: p_count => x_msg_count
96: ,p_data => x_msg_data);
97: WHEN OTHERS THEN
98: ROLLBACK TO remarketing_costs_insert;
99: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
100: x_msg_count := l_msg_count ;
101: x_msg_data := l_msg_data ;
102: FND_MSG_PUB.ADD_EXC_MSG('OKL_remarketing_COSTS_PUB','insert_remarketing_costs');
103: FND_MSG_PUB.count_and_get(
106: END insert_remarketing_costs;
107:
108: PROCEDURE insert_remarketing_costs(
109: p_api_version IN NUMBER
110: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
111: ,x_return_status OUT NOCOPY VARCHAR2
112: ,x_msg_count OUT NOCOPY NUMBER
113: ,x_msg_data OUT NOCOPY VARCHAR2
114: ,p_rfcv_tbl IN rfcv_tbl_type
142: IF NVL(lp_rfcv_tbl(i).amount,0.00) <= 0.00 THEN
143:
144: Okl_Api.SET_MESSAGE(p_app_name => G_APP_NAME,
145: p_msg_name => G_CHK_ASSET_RETURN_FEE);
146: l_return_status := FND_API.G_RET_STS_ERROR;
147: RAISE FND_API.G_EXC_ERROR;
148: END IF;
149: END LOOP;
150: --suresh gorantla Bug #3477112
143:
144: Okl_Api.SET_MESSAGE(p_app_name => G_APP_NAME,
145: p_msg_name => G_CHK_ASSET_RETURN_FEE);
146: l_return_status := FND_API.G_RET_STS_ERROR;
147: RAISE FND_API.G_EXC_ERROR;
148: END IF;
149: END LOOP;
150: --suresh gorantla Bug #3477112
151:
157: ,l_msg_data
158: ,lp_rfcv_tbl
159: ,lx_rfcv_tbl);
160:
161: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
162: RAISE FND_API.G_EXC_ERROR;
163: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
164: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
165: END IF;
158: ,lp_rfcv_tbl
159: ,lx_rfcv_tbl);
160:
161: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
162: RAISE FND_API.G_EXC_ERROR;
163: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
164: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
165: END IF;
166:
159: ,lx_rfcv_tbl);
160:
161: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
162: RAISE FND_API.G_EXC_ERROR;
163: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
164: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
165: END IF;
166:
167: --Copy value of OUT variable in the IN record type
160:
161: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
162: RAISE FND_API.G_EXC_ERROR;
163: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
164: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
165: END IF;
166:
167: --Copy value of OUT variable in the IN record type
168: lp_rfcv_tbl := lx_rfcv_tbl;
175: x_msg_data := l_msg_data ;
176:
177: EXCEPTION
178:
179: WHEN FND_API.G_EXC_ERROR THEN
180: ROLLBACK TO remarketing_costs_insert;
181: x_return_status := FND_API.G_RET_STS_ERROR;
182: x_msg_count := l_msg_count ;
183: x_msg_data := l_msg_data ;
177: EXCEPTION
178:
179: WHEN FND_API.G_EXC_ERROR THEN
180: ROLLBACK TO remarketing_costs_insert;
181: x_return_status := FND_API.G_RET_STS_ERROR;
182: x_msg_count := l_msg_count ;
183: x_msg_data := l_msg_data ;
184: FND_MSG_PUB.count_and_get(
185: p_count => x_msg_count
183: x_msg_data := l_msg_data ;
184: FND_MSG_PUB.count_and_get(
185: p_count => x_msg_count
186: ,p_data => x_msg_data);
187: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
188: ROLLBACK TO remarketing_costs_insert;
189: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
190: x_msg_count := l_msg_count ;
191: x_msg_data := l_msg_data ;
185: p_count => x_msg_count
186: ,p_data => x_msg_data);
187: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
188: ROLLBACK TO remarketing_costs_insert;
189: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
190: x_msg_count := l_msg_count ;
191: x_msg_data := l_msg_data ;
192: FND_MSG_PUB.count_and_get(
193: p_count => x_msg_count
193: p_count => x_msg_count
194: ,p_data => x_msg_data);
195: WHEN OTHERS THEN
196: ROLLBACK TO remarketing_costs_insert;
197: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
198: x_msg_count := l_msg_count ;
199: x_msg_data := l_msg_data ;
200: FND_MSG_PUB.ADD_EXC_MSG('OKL_remarketing_COSTS_PUB','insert_remarketing_costs');
201: FND_MSG_PUB.count_and_get(
204: END insert_remarketing_costs;
205:
206: PROCEDURE lock_remarketing_costs(
207: p_api_version IN NUMBER
208: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
209: ,x_return_status OUT NOCOPY VARCHAR2
210: ,x_msg_count OUT NOCOPY NUMBER
211: ,x_msg_data OUT NOCOPY VARCHAR2
212: ,p_rfcv_rec IN rfcv_rec_type) IS
219: x_msg_count,
220: x_msg_data,
221: p_rfcv_rec);
222:
223: IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
224: RAISE FND_API.G_EXC_ERROR;
225: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
226: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
227: END IF;
220: x_msg_data,
221: p_rfcv_rec);
222:
223: IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
224: RAISE FND_API.G_EXC_ERROR;
225: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
226: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
227: END IF;
228:
221: p_rfcv_rec);
222:
223: IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
224: RAISE FND_API.G_EXC_ERROR;
225: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
226: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
227: END IF;
228:
229:
222:
223: IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
224: RAISE FND_API.G_EXC_ERROR;
225: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
226: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
227: END IF;
228:
229:
230: EXCEPTION
228:
229:
230: EXCEPTION
231:
232: WHEN FND_API.G_EXC_ERROR THEN
233: FND_MSG_PUB.count_and_get(
234: p_count => x_msg_count
235: ,p_data => x_msg_data);
236: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
232: WHEN FND_API.G_EXC_ERROR THEN
233: FND_MSG_PUB.count_and_get(
234: p_count => x_msg_count
235: ,p_data => x_msg_data);
236: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
237: FND_MSG_PUB.count_and_get(
238: p_count => x_msg_count
239: ,p_data => x_msg_data);
240: WHEN OTHERS THEN
237: FND_MSG_PUB.count_and_get(
238: p_count => x_msg_count
239: ,p_data => x_msg_data);
240: WHEN OTHERS THEN
241: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
242: FND_MSG_PUB.ADD_EXC_MSG('OKL_remarketing_COSTS_PUB','lock_remarketing_costs');
243: FND_MSG_PUB.count_and_get(
244: p_count => x_msg_count
245: ,p_data => x_msg_data);
246: END lock_remarketing_costs;
247:
248: PROCEDURE lock_remarketing_costs(
249: p_api_version IN NUMBER
250: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
251: ,x_return_status OUT NOCOPY VARCHAR2
252: ,x_msg_count OUT NOCOPY NUMBER
253: ,x_msg_data OUT NOCOPY VARCHAR2
254: ,p_rfcv_tbl IN rfcv_tbl_type) IS
261: x_msg_count,
262: x_msg_data,
263: p_rfcv_tbl);
264:
265: IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
266: RAISE FND_API.G_EXC_ERROR;
267: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
268: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
269: END IF;
262: x_msg_data,
263: p_rfcv_tbl);
264:
265: IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
266: RAISE FND_API.G_EXC_ERROR;
267: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
268: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
269: END IF;
270:
263: p_rfcv_tbl);
264:
265: IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
266: RAISE FND_API.G_EXC_ERROR;
267: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
268: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
269: END IF;
270:
271:
264:
265: IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
266: RAISE FND_API.G_EXC_ERROR;
267: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
268: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
269: END IF;
270:
271:
272: EXCEPTION
270:
271:
272: EXCEPTION
273:
274: WHEN FND_API.G_EXC_ERROR THEN
275: FND_MSG_PUB.count_and_get(
276: p_count => x_msg_count
277: ,p_data => x_msg_data);
278: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
274: WHEN FND_API.G_EXC_ERROR THEN
275: FND_MSG_PUB.count_and_get(
276: p_count => x_msg_count
277: ,p_data => x_msg_data);
278: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
279: FND_MSG_PUB.count_and_get(
280: p_count => x_msg_count
281: ,p_data => x_msg_data);
282: WHEN OTHERS THEN
279: FND_MSG_PUB.count_and_get(
280: p_count => x_msg_count
281: ,p_data => x_msg_data);
282: WHEN OTHERS THEN
283: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
284: FND_MSG_PUB.ADD_EXC_MSG('OKL_remarketing_COSTS_PUB','lock_remarketing_costs');
285: FND_MSG_PUB.count_and_get(
286: p_count => x_msg_count
287: ,p_data => x_msg_data);
288: END lock_remarketing_costs;
289:
290: PROCEDURE update_remarketing_costs(
291: p_api_version IN NUMBER
292: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
293: ,x_return_status OUT NOCOPY VARCHAR2
294: ,x_msg_count OUT NOCOPY NUMBER
295: ,x_msg_data OUT NOCOPY VARCHAR2
296: ,p_rfcv_rec IN rfcv_rec_type
321: IF nvl(lp_rfcv_rec.AMOUNT,0.00) <= 0.00 THEN
322:
323: Okl_Api.SET_MESSAGE(p_app_name => G_APP_NAME,
324: p_msg_name => G_CHK_ASSET_RETURN_FEE);
325: l_return_status := FND_API.G_RET_STS_ERROR;
326: RAISE FND_API.G_EXC_ERROR;
327: END IF;
328: --suresh gorantla Bug #3477112
329:
322:
323: Okl_Api.SET_MESSAGE(p_app_name => G_APP_NAME,
324: p_msg_name => G_CHK_ASSET_RETURN_FEE);
325: l_return_status := FND_API.G_RET_STS_ERROR;
326: RAISE FND_API.G_EXC_ERROR;
327: END IF;
328: --suresh gorantla Bug #3477112
329:
330:
336: ,l_msg_data
337: ,lp_rfcv_rec
338: ,lx_rfcv_rec);
339:
340: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
341: RAISE FND_API.G_EXC_ERROR;
342: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
343: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
344: END IF;
337: ,lp_rfcv_rec
338: ,lx_rfcv_rec);
339:
340: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
341: RAISE FND_API.G_EXC_ERROR;
342: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
343: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
344: END IF;
345:
338: ,lx_rfcv_rec);
339:
340: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
341: RAISE FND_API.G_EXC_ERROR;
342: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
343: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
344: END IF;
345:
346: --Copy value of OUT variable in the IN record type
339:
340: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
341: RAISE FND_API.G_EXC_ERROR;
342: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
343: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
344: END IF;
345:
346: --Copy value of OUT variable in the IN record type
347: lp_rfcv_rec := lx_rfcv_rec;
357:
358:
359: EXCEPTION
360:
361: WHEN FND_API.G_EXC_ERROR THEN
362: ROLLBACK TO remarketing_costs_update;
363: x_return_status := FND_API.G_RET_STS_ERROR;
364: x_msg_count := l_msg_count ;
365: x_msg_data := l_msg_data ;
359: EXCEPTION
360:
361: WHEN FND_API.G_EXC_ERROR THEN
362: ROLLBACK TO remarketing_costs_update;
363: x_return_status := FND_API.G_RET_STS_ERROR;
364: x_msg_count := l_msg_count ;
365: x_msg_data := l_msg_data ;
366: FND_MSG_PUB.count_and_get(
367: p_count => x_msg_count
365: x_msg_data := l_msg_data ;
366: FND_MSG_PUB.count_and_get(
367: p_count => x_msg_count
368: ,p_data => x_msg_data);
369: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
370: ROLLBACK TO remarketing_costs_update;
371: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
372: x_msg_count := l_msg_count ;
373: x_msg_data := l_msg_data ;
367: p_count => x_msg_count
368: ,p_data => x_msg_data);
369: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
370: ROLLBACK TO remarketing_costs_update;
371: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
372: x_msg_count := l_msg_count ;
373: x_msg_data := l_msg_data ;
374: FND_MSG_PUB.count_and_get(
375: p_count => x_msg_count
375: p_count => x_msg_count
376: ,p_data => x_msg_data);
377: WHEN OTHERS THEN
378: ROLLBACK TO remarketing_costs_update;
379: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
380: x_msg_count := l_msg_count ;
381: x_msg_data := l_msg_data ;
382: FND_MSG_PUB.ADD_EXC_MSG('OKL_remarketing_COSTS_PUB','update_remarketing_costs');
383: FND_MSG_PUB.count_and_get(
386: END update_remarketing_costs;
387:
388: PROCEDURE update_remarketing_costs(
389: p_api_version IN NUMBER
390: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
391: ,x_return_status OUT NOCOPY VARCHAR2
392: ,x_msg_count OUT NOCOPY NUMBER
393: ,x_msg_data OUT NOCOPY VARCHAR2
394: ,p_rfcv_tbl IN rfcv_tbl_type
420: IF NVL(lp_rfcv_tbl(i).amount,0.00) <= 0.00 THEN
421:
422: Okl_Api.SET_MESSAGE(p_app_name => G_APP_NAME,
423: p_msg_name => G_CHK_ASSET_RETURN_FEE);
424: l_return_status := FND_API.G_RET_STS_ERROR;
425: RAISE FND_API.G_EXC_ERROR;
426: END IF;
427: END LOOP;
428: --suresh gorantla Bug #3477112
421:
422: Okl_Api.SET_MESSAGE(p_app_name => G_APP_NAME,
423: p_msg_name => G_CHK_ASSET_RETURN_FEE);
424: l_return_status := FND_API.G_RET_STS_ERROR;
425: RAISE FND_API.G_EXC_ERROR;
426: END IF;
427: END LOOP;
428: --suresh gorantla Bug #3477112
429:
435: ,l_msg_data
436: ,lp_rfcv_tbl
437: ,lx_rfcv_tbl);
438:
439: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
440: RAISE FND_API.G_EXC_ERROR;
441: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
442: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
443: END IF;
436: ,lp_rfcv_tbl
437: ,lx_rfcv_tbl);
438:
439: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
440: RAISE FND_API.G_EXC_ERROR;
441: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
442: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
443: END IF;
444:
437: ,lx_rfcv_tbl);
438:
439: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
440: RAISE FND_API.G_EXC_ERROR;
441: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
442: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
443: END IF;
444:
445: --Copy value of OUT variable in the IN record type
438:
439: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
440: RAISE FND_API.G_EXC_ERROR;
441: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
442: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
443: END IF;
444:
445: --Copy value of OUT variable in the IN record type
446: lp_rfcv_tbl := lx_rfcv_tbl;
455:
456:
457: EXCEPTION
458:
459: WHEN FND_API.G_EXC_ERROR THEN
460: ROLLBACK TO remarketing_costs_update;
461: x_return_status := FND_API.G_RET_STS_ERROR;
462: x_msg_count := l_msg_count ;
463: x_msg_data := l_msg_data ;
457: EXCEPTION
458:
459: WHEN FND_API.G_EXC_ERROR THEN
460: ROLLBACK TO remarketing_costs_update;
461: x_return_status := FND_API.G_RET_STS_ERROR;
462: x_msg_count := l_msg_count ;
463: x_msg_data := l_msg_data ;
464: FND_MSG_PUB.count_and_get(
465: p_count => x_msg_count
463: x_msg_data := l_msg_data ;
464: FND_MSG_PUB.count_and_get(
465: p_count => x_msg_count
466: ,p_data => x_msg_data);
467: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
468: ROLLBACK TO remarketing_costs_update;
469: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
470: x_msg_count := l_msg_count ;
471: x_msg_data := l_msg_data ;
465: p_count => x_msg_count
466: ,p_data => x_msg_data);
467: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
468: ROLLBACK TO remarketing_costs_update;
469: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
470: x_msg_count := l_msg_count ;
471: x_msg_data := l_msg_data ;
472: FND_MSG_PUB.count_and_get(
473: p_count => x_msg_count
473: p_count => x_msg_count
474: ,p_data => x_msg_data);
475: WHEN OTHERS THEN
476: ROLLBACK TO remarketing_costs_update;
477: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
478: x_msg_count := l_msg_count ;
479: x_msg_data := l_msg_data ;
480: FND_MSG_PUB.ADD_EXC_MSG('OKL_remarketing_COSTS_PUB','update_remarketing_costs');
481: FND_MSG_PUB.count_and_get(
485:
486: --Put custom code for cascade delete by developer
487: PROCEDURE delete_remarketing_costs(
488: p_api_version IN NUMBER
489: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
490: ,x_return_status OUT NOCOPY VARCHAR2
491: ,x_msg_count OUT NOCOPY NUMBER
492: ,x_msg_data OUT NOCOPY VARCHAR2
493: ,p_rfcv_rec IN rfcv_rec_type) IS
524: ,l_msg_count
525: ,l_msg_data
526: ,lp_rfcv_rec);
527:
528: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
529: RAISE FND_API.G_EXC_ERROR;
530: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
531: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
532: END IF;
525: ,l_msg_data
526: ,lp_rfcv_rec);
527:
528: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
529: RAISE FND_API.G_EXC_ERROR;
530: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
531: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
532: END IF;
533:
526: ,lp_rfcv_rec);
527:
528: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
529: RAISE FND_API.G_EXC_ERROR;
530: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
531: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
532: END IF;
533:
534:
527:
528: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
529: RAISE FND_API.G_EXC_ERROR;
530: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
531: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
532: END IF;
533:
534:
535:
541: x_return_status := l_return_status ;
542:
543: EXCEPTION
544:
545: WHEN FND_API.G_EXC_ERROR THEN
546: ROLLBACK TO remarketing_costs_delete_rec;
547: x_return_status := FND_API.G_RET_STS_ERROR;
548: x_msg_count := l_msg_count ;
549: x_msg_data := l_msg_data ;
543: EXCEPTION
544:
545: WHEN FND_API.G_EXC_ERROR THEN
546: ROLLBACK TO remarketing_costs_delete_rec;
547: x_return_status := FND_API.G_RET_STS_ERROR;
548: x_msg_count := l_msg_count ;
549: x_msg_data := l_msg_data ;
550: FND_MSG_PUB.count_and_get(
551: p_count => x_msg_count
549: x_msg_data := l_msg_data ;
550: FND_MSG_PUB.count_and_get(
551: p_count => x_msg_count
552: ,p_data => x_msg_data);
553: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
554: ROLLBACK TO remarketing_costs_delete_rec;
555: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
556: x_msg_count := l_msg_count ;
557: x_msg_data := l_msg_data ;
551: p_count => x_msg_count
552: ,p_data => x_msg_data);
553: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
554: ROLLBACK TO remarketing_costs_delete_rec;
555: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
556: x_msg_count := l_msg_count ;
557: x_msg_data := l_msg_data ;
558: FND_MSG_PUB.count_and_get(
559: p_count => x_msg_count
559: p_count => x_msg_count
560: ,p_data => x_msg_data);
561: WHEN OTHERS THEN
562: ROLLBACK TO remarketing_costs_delete_rec;
563: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
564: x_msg_count := l_msg_count ;
565: x_msg_data := l_msg_data ;
566: FND_MSG_PUB.ADD_EXC_MSG('OKL_remarketing_COSTS_PUB','delete_remarketing_costs');
567: FND_MSG_PUB.count_and_get(
570: END delete_remarketing_costs;
571:
572: PROCEDURE delete_remarketing_costs(
573: p_api_version IN NUMBER
574: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
575: ,x_return_status OUT NOCOPY VARCHAR2
576: ,x_msg_count OUT NOCOPY NUMBER
577: ,x_msg_data OUT NOCOPY VARCHAR2
578: ,p_rfcv_tbl IN rfcv_tbl_type) IS
618: EXIT WHEN (i = lp_rfcv_tbl.LAST);
619: i := p_rfcv_tbl.NEXT(i);
620: END LOOP;
621: END IF;
622: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
623: RAISE FND_API.G_EXC_ERROR;
624: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
625: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
626: END IF;
619: i := p_rfcv_tbl.NEXT(i);
620: END LOOP;
621: END IF;
622: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
623: RAISE FND_API.G_EXC_ERROR;
624: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
625: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
626: END IF;
627:
620: END LOOP;
621: END IF;
622: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
623: RAISE FND_API.G_EXC_ERROR;
624: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
625: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
626: END IF;
627:
628: END;
621: END IF;
622: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
623: RAISE FND_API.G_EXC_ERROR;
624: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
625: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
626: END IF;
627:
628: END;
629:
638: x_return_status := l_return_status ;
639:
640: EXCEPTION
641:
642: WHEN FND_API.G_EXC_ERROR THEN
643: ROLLBACK TO remarketing_costs_delete_tbl;
644: x_return_status := FND_API.G_RET_STS_ERROR;
645: x_msg_count := l_msg_count ;
646: x_msg_data := l_msg_data ;
640: EXCEPTION
641:
642: WHEN FND_API.G_EXC_ERROR THEN
643: ROLLBACK TO remarketing_costs_delete_tbl;
644: x_return_status := FND_API.G_RET_STS_ERROR;
645: x_msg_count := l_msg_count ;
646: x_msg_data := l_msg_data ;
647: FND_MSG_PUB.count_and_get(
648: p_count => x_msg_count
646: x_msg_data := l_msg_data ;
647: FND_MSG_PUB.count_and_get(
648: p_count => x_msg_count
649: ,p_data => x_msg_data);
650: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
651: ROLLBACK TO remarketing_costs_delete_tbl;
652: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
653: x_msg_count := l_msg_count ;
654: x_msg_data := l_msg_data ;
648: p_count => x_msg_count
649: ,p_data => x_msg_data);
650: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
651: ROLLBACK TO remarketing_costs_delete_tbl;
652: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
653: x_msg_count := l_msg_count ;
654: x_msg_data := l_msg_data ;
655: FND_MSG_PUB.count_and_get(
656: p_count => x_msg_count
656: p_count => x_msg_count
657: ,p_data => x_msg_data);
658: WHEN OTHERS THEN
659: ROLLBACK TO remarketing_costs_delete_tbl;
660: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
661: x_msg_count := l_msg_count ;
662: x_msg_data := l_msg_data ;
663: FND_MSG_PUB.ADD_EXC_MSG('OKL_remarketing_COSTS_PUB','delete_remarketing_costs');
664: FND_MSG_PUB.count_and_get(
667: END delete_remarketing_costs;
668:
669: PROCEDURE validate_rmrkting_costs(
670: p_api_version IN NUMBER
671: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
672: ,x_return_status OUT NOCOPY VARCHAR2
673: ,x_msg_count OUT NOCOPY NUMBER
674: ,x_msg_data OUT NOCOPY VARCHAR2
675: ,p_rfcv_rec IN rfcv_rec_type) IS
704: ,l_msg_count
705: ,l_msg_data
706: ,lp_rfcv_rec);
707:
708: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
709: RAISE FND_API.G_EXC_ERROR;
710: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
711: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
712: END IF;
705: ,l_msg_data
706: ,lp_rfcv_rec);
707:
708: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
709: RAISE FND_API.G_EXC_ERROR;
710: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
711: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
712: END IF;
713:
706: ,lp_rfcv_rec);
707:
708: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
709: RAISE FND_API.G_EXC_ERROR;
710: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
711: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
712: END IF;
713:
714: --Copy value of OUT variable in the IN record type
707:
708: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
709: RAISE FND_API.G_EXC_ERROR;
710: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
711: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
712: END IF;
713:
714: --Copy value of OUT variable in the IN record type
715: lp_rfcv_rec := lx_rfcv_rec;
728: x_return_status := l_return_status ;
729:
730: EXCEPTION
731:
732: WHEN FND_API.G_EXC_ERROR THEN
733: ROLLBACK TO remarketing_costs_validate;
734: x_return_status := FND_API.G_RET_STS_ERROR;
735: x_msg_count := l_msg_count ;
736: x_msg_data := l_msg_data ;
730: EXCEPTION
731:
732: WHEN FND_API.G_EXC_ERROR THEN
733: ROLLBACK TO remarketing_costs_validate;
734: x_return_status := FND_API.G_RET_STS_ERROR;
735: x_msg_count := l_msg_count ;
736: x_msg_data := l_msg_data ;
737: FND_MSG_PUB.count_and_get(
738: p_count => x_msg_count
736: x_msg_data := l_msg_data ;
737: FND_MSG_PUB.count_and_get(
738: p_count => x_msg_count
739: ,p_data => x_msg_data);
740: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
741: ROLLBACK TO remarketing_costs_validate;
742: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
743: x_msg_count := l_msg_count ;
744: x_msg_data := l_msg_data ;
738: p_count => x_msg_count
739: ,p_data => x_msg_data);
740: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
741: ROLLBACK TO remarketing_costs_validate;
742: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
743: x_msg_count := l_msg_count ;
744: x_msg_data := l_msg_data ;
745: FND_MSG_PUB.count_and_get(
746: p_count => x_msg_count
746: p_count => x_msg_count
747: ,p_data => x_msg_data);
748: WHEN OTHERS THEN
749: ROLLBACK TO remarketing_costs_validate;
750: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
751: x_msg_count := l_msg_count ;
752: x_msg_data := l_msg_data ;
753: FND_MSG_PUB.ADD_EXC_MSG('OKL_remarketing_COSTS_PUB','validate_rmrkting_costs');
754: FND_MSG_PUB.count_and_get(
757: END validate_rmrkting_costs;
758:
759: PROCEDURE validate_rmrkting_costs(
760: p_api_version IN NUMBER
761: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
762: ,x_return_status OUT NOCOPY VARCHAR2
763: ,x_msg_count OUT NOCOPY NUMBER
764: ,x_msg_data OUT NOCOPY VARCHAR2
765: ,p_rfcv_tbl IN rfcv_tbl_type) IS
792: ,x_msg_count
793: ,x_msg_data
794: ,lp_rfcv_tbl);
795:
796: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
797: RAISE FND_API.G_EXC_ERROR;
798: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
799: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
800: END IF;
793: ,x_msg_data
794: ,lp_rfcv_tbl);
795:
796: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
797: RAISE FND_API.G_EXC_ERROR;
798: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
799: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
800: END IF;
801:
794: ,lp_rfcv_tbl);
795:
796: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
797: RAISE FND_API.G_EXC_ERROR;
798: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
799: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
800: END IF;
801:
802: --Copy value of OUT variable in the IN record type
795:
796: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
797: RAISE FND_API.G_EXC_ERROR;
798: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
799: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
800: END IF;
801:
802: --Copy value of OUT variable in the IN record type
803: lp_rfcv_tbl := lx_rfcv_tbl;
813: x_return_status := l_return_status ;
814:
815: EXCEPTION
816:
817: WHEN FND_API.G_EXC_ERROR THEN
818: ROLLBACK TO remarketing_costs_validate;
819: x_return_status := FND_API.G_RET_STS_ERROR;
820: x_msg_count := l_msg_count ;
821: x_msg_data := l_msg_data ;
815: EXCEPTION
816:
817: WHEN FND_API.G_EXC_ERROR THEN
818: ROLLBACK TO remarketing_costs_validate;
819: x_return_status := FND_API.G_RET_STS_ERROR;
820: x_msg_count := l_msg_count ;
821: x_msg_data := l_msg_data ;
822: FND_MSG_PUB.count_and_get(
823: p_count => x_msg_count
821: x_msg_data := l_msg_data ;
822: FND_MSG_PUB.count_and_get(
823: p_count => x_msg_count
824: ,p_data => x_msg_data);
825: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
826: ROLLBACK TO remarketing_costs_validate;
827: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
828: x_msg_count := l_msg_count ;
829: x_msg_data := l_msg_data ;
823: p_count => x_msg_count
824: ,p_data => x_msg_data);
825: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
826: ROLLBACK TO remarketing_costs_validate;
827: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
828: x_msg_count := l_msg_count ;
829: x_msg_data := l_msg_data ;
830: FND_MSG_PUB.count_and_get(
831: p_count => x_msg_count
831: p_count => x_msg_count
832: ,p_data => x_msg_data);
833: WHEN OTHERS THEN
834: ROLLBACK TO remarketing_costs_validate;
835: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
836: x_msg_count := l_msg_count ;
837: x_msg_data := l_msg_data ;
838: FND_MSG_PUB.ADD_EXC_MSG('OKL_remarketing_COSTS_PUB','validate_rmrkting_costs');
839: FND_MSG_PUB.count_and_get(