52: ,p_artv_rec => lp_artv_rec
53: ,x_artv_rec => lx_artv_rec
54: ,p_quote_id => lp_quote_id) ;
55:
56: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
57: RAISE FND_API.G_EXC_ERROR;
58: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
59: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
60: END IF;
53: ,x_artv_rec => lx_artv_rec
54: ,p_quote_id => lp_quote_id) ;
55:
56: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
57: RAISE FND_API.G_EXC_ERROR;
58: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
59: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
60: END IF;
61:
54: ,p_quote_id => lp_quote_id) ;
55:
56: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
57: RAISE FND_API.G_EXC_ERROR;
58: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
59: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
60: END IF;
61:
62: --Copy value of OUT variable in the IN record type
55:
56: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
57: RAISE FND_API.G_EXC_ERROR;
58: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
59: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
60: END IF;
61:
62: --Copy value of OUT variable in the IN record type
63: lp_artv_rec := lx_artv_rec;
71: x_msg_data := l_msg_data ;
72:
73: EXCEPTION
74:
75: WHEN FND_API.G_EXC_ERROR THEN
76: ROLLBACK TO trx_create_asset_return;
77: x_return_status := FND_API.G_RET_STS_ERROR;
78: x_msg_count := l_msg_count ;
79: x_msg_data := l_msg_data ;
73: EXCEPTION
74:
75: WHEN FND_API.G_EXC_ERROR THEN
76: ROLLBACK TO trx_create_asset_return;
77: x_return_status := FND_API.G_RET_STS_ERROR;
78: x_msg_count := l_msg_count ;
79: x_msg_data := l_msg_data ;
80: FND_MSG_PUB.count_and_get(
81: p_count => x_msg_count
79: x_msg_data := l_msg_data ;
80: FND_MSG_PUB.count_and_get(
81: p_count => x_msg_count
82: ,p_data => x_msg_data);
83: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
84: ROLLBACK TO trx_create_asset_return;
85: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
86: x_msg_count := l_msg_count ;
87: x_msg_data := l_msg_data ;
81: p_count => x_msg_count
82: ,p_data => x_msg_data);
83: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
84: ROLLBACK TO trx_create_asset_return;
85: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
86: x_msg_count := l_msg_count ;
87: x_msg_data := l_msg_data ;
88: FND_MSG_PUB.count_and_get(
89: p_count => x_msg_count
89: p_count => x_msg_count
90: ,p_data => x_msg_data);
91: WHEN OTHERS THEN
92: ROLLBACK TO trx_create_asset_return;
93: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
94: x_msg_count := l_msg_count ;
95: x_msg_data := l_msg_data ;
96: FND_MSG_PUB.ADD_EXC_MSG('OKL_AM_ASSET_RETURN_PUB','create_asset_return');
97: FND_MSG_PUB.count_and_get(
137: ,x_return_status => l_return_status
138: ,p_artv_rec => lp_artv_rec
139: ,x_artv_rec => lx_artv_rec) ;
140:
141: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
142: RAISE FND_API.G_EXC_ERROR;
143: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
144: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
145: END IF;
138: ,p_artv_rec => lp_artv_rec
139: ,x_artv_rec => lx_artv_rec) ;
140:
141: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
142: RAISE FND_API.G_EXC_ERROR;
143: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
144: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
145: END IF;
146:
139: ,x_artv_rec => lx_artv_rec) ;
140:
141: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
142: RAISE FND_API.G_EXC_ERROR;
143: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
144: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
145: END IF;
146:
147: --Copy value of OUT variable in the IN record type
140:
141: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
142: RAISE FND_API.G_EXC_ERROR;
143: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
144: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
145: END IF;
146:
147: --Copy value of OUT variable in the IN record type
148: lp_artv_rec := lx_artv_rec;
156: x_msg_data := l_msg_data ;
157:
158: EXCEPTION
159:
160: WHEN FND_API.G_EXC_ERROR THEN
161: ROLLBACK TO trx_update_asset_return;
162: x_return_status := FND_API.G_RET_STS_ERROR;
163: x_msg_count := l_msg_count ;
164: x_msg_data := l_msg_data ;
158: EXCEPTION
159:
160: WHEN FND_API.G_EXC_ERROR THEN
161: ROLLBACK TO trx_update_asset_return;
162: x_return_status := FND_API.G_RET_STS_ERROR;
163: x_msg_count := l_msg_count ;
164: x_msg_data := l_msg_data ;
165: FND_MSG_PUB.count_and_get(
166: p_count => x_msg_count
164: x_msg_data := l_msg_data ;
165: FND_MSG_PUB.count_and_get(
166: p_count => x_msg_count
167: ,p_data => x_msg_data);
168: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
169: ROLLBACK TO trx_update_asset_return;
170: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
171: x_msg_count := l_msg_count ;
172: x_msg_data := l_msg_data ;
166: p_count => x_msg_count
167: ,p_data => x_msg_data);
168: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
169: ROLLBACK TO trx_update_asset_return;
170: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
171: x_msg_count := l_msg_count ;
172: x_msg_data := l_msg_data ;
173: FND_MSG_PUB.count_and_get(
174: p_count => x_msg_count
174: p_count => x_msg_count
175: ,p_data => x_msg_data);
176: WHEN OTHERS THEN
177: ROLLBACK TO trx_update_asset_return;
178: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
179: x_msg_count := l_msg_count ;
180: x_msg_data := l_msg_data ;
181: FND_MSG_PUB.ADD_EXC_MSG('OKL_AM_ASSET_RETURN_PUB','update_asset_return');
182: FND_MSG_PUB.count_and_get(
236: ,p_artv_tbl => lp_artv_tbl
237: ,x_artv_tbl => lx_artv_tbl
238: ,p_quote_id => lp_quote_id) ;
239:
240: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
241: RAISE FND_API.G_EXC_ERROR;
242: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
243: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
244: END IF;
237: ,x_artv_tbl => lx_artv_tbl
238: ,p_quote_id => lp_quote_id) ;
239:
240: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
241: RAISE FND_API.G_EXC_ERROR;
242: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
243: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
244: END IF;
245:
238: ,p_quote_id => lp_quote_id) ;
239:
240: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
241: RAISE FND_API.G_EXC_ERROR;
242: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
243: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
244: END IF;
245:
246: --Copy value of OUT variable in the IN record type
239:
240: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
241: RAISE FND_API.G_EXC_ERROR;
242: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
243: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
244: END IF;
245:
246: --Copy value of OUT variable in the IN record type
247: lp_artv_tbl := lx_artv_tbl;
255: x_msg_data := l_msg_data ;
256:
257: EXCEPTION
258:
259: WHEN FND_API.G_EXC_ERROR THEN
260: ROLLBACK TO trx_update_asset_return;
261: x_return_status := FND_API.G_RET_STS_ERROR;
262: x_msg_count := l_msg_count ;
263: x_msg_data := l_msg_data ;
257: EXCEPTION
258:
259: WHEN FND_API.G_EXC_ERROR THEN
260: ROLLBACK TO trx_update_asset_return;
261: x_return_status := FND_API.G_RET_STS_ERROR;
262: x_msg_count := l_msg_count ;
263: x_msg_data := l_msg_data ;
264: FND_MSG_PUB.count_and_get(
265: p_count => x_msg_count
263: x_msg_data := l_msg_data ;
264: FND_MSG_PUB.count_and_get(
265: p_count => x_msg_count
266: ,p_data => x_msg_data);
267: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
268: ROLLBACK TO trx_update_asset_return;
269: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
270: x_msg_count := l_msg_count ;
271: x_msg_data := l_msg_data ;
265: p_count => x_msg_count
266: ,p_data => x_msg_data);
267: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
268: ROLLBACK TO trx_update_asset_return;
269: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
270: x_msg_count := l_msg_count ;
271: x_msg_data := l_msg_data ;
272: FND_MSG_PUB.count_and_get(
273: p_count => x_msg_count
273: p_count => x_msg_count
274: ,p_data => x_msg_data);
275: WHEN OTHERS THEN
276: ROLLBACK TO trx_update_asset_return;
277: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
278: x_msg_count := l_msg_count ;
279: x_msg_data := l_msg_data ;
280: FND_MSG_PUB.ADD_EXC_MSG('OKL_AM_ASSET_RETURN_PUB','create_asset_return');
281: FND_MSG_PUB.count_and_get(
324: ,x_return_status => l_return_status
325: ,p_artv_tbl => lp_artv_tbl
326: ,x_artv_tbl => lx_artv_tbl) ;
327:
328: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
329: RAISE FND_API.G_EXC_ERROR;
330: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
331: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
332: END IF;
325: ,p_artv_tbl => lp_artv_tbl
326: ,x_artv_tbl => lx_artv_tbl) ;
327:
328: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
329: RAISE FND_API.G_EXC_ERROR;
330: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
331: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
332: END IF;
333:
326: ,x_artv_tbl => lx_artv_tbl) ;
327:
328: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
329: RAISE FND_API.G_EXC_ERROR;
330: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
331: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
332: END IF;
333:
334: --Copy value of OUT variable in the IN record type
327:
328: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
329: RAISE FND_API.G_EXC_ERROR;
330: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
331: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
332: END IF;
333:
334: --Copy value of OUT variable in the IN record type
335: lp_artv_tbl := lx_artv_tbl;
343: x_msg_data := l_msg_data ;
344:
345: EXCEPTION
346:
347: WHEN FND_API.G_EXC_ERROR THEN
348: ROLLBACK TO trx_update_asset_return;
349: x_return_status := FND_API.G_RET_STS_ERROR;
350: x_msg_count := l_msg_count ;
351: x_msg_data := l_msg_data ;
345: EXCEPTION
346:
347: WHEN FND_API.G_EXC_ERROR THEN
348: ROLLBACK TO trx_update_asset_return;
349: x_return_status := FND_API.G_RET_STS_ERROR;
350: x_msg_count := l_msg_count ;
351: x_msg_data := l_msg_data ;
352: FND_MSG_PUB.count_and_get(
353: p_count => x_msg_count
351: x_msg_data := l_msg_data ;
352: FND_MSG_PUB.count_and_get(
353: p_count => x_msg_count
354: ,p_data => x_msg_data);
355: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
356: ROLLBACK TO trx_update_asset_return;
357: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
358: x_msg_count := l_msg_count ;
359: x_msg_data := l_msg_data ;
353: p_count => x_msg_count
354: ,p_data => x_msg_data);
355: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
356: ROLLBACK TO trx_update_asset_return;
357: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
358: x_msg_count := l_msg_count ;
359: x_msg_data := l_msg_data ;
360: FND_MSG_PUB.count_and_get(
361: p_count => x_msg_count
361: p_count => x_msg_count
362: ,p_data => x_msg_data);
363: WHEN OTHERS THEN
364: ROLLBACK TO trx_update_asset_return;
365: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
366: x_msg_count := l_msg_count ;
367: x_msg_data := l_msg_data ;
368: FND_MSG_PUB.ADD_EXC_MSG('OKL_AM_ASSET_RETURN_PUB','update_asset_return');
369: FND_MSG_PUB.count_and_get(