[Home] [Help]
PACKAGE BODY: APPS.OKL_AM_ASSET_RETURN_PUB
Source
1 Package Body OKL_AM_ASSET_RETURN_PUB AS
2 /* $Header: OKLPARRB.pls 120.3 2005/10/30 04:21:33 appldev noship $ */
3
4 -- Start of comments
5 -- Procedure Name : create_asset_return
6 -- Description : This procedure calculates the pvt procedure to create
7 -- : asset return.
8 -- Business Rules :
9 -- Parameters : p_artv_rec - Asset Return record,
10 -- : p_quote_id - Terminatin quote id
11 -- Version : 1.0
12 -- History : 29 Oct 2004 PAGARG Bug# 3925453
13 -- : Additional Input parameter quote id
14 -- End of comments
15 PROCEDURE create_asset_return(
16 p_api_version IN NUMBER,
17 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
18 x_return_status OUT NOCOPY VARCHAR2,
19 x_msg_count OUT NOCOPY NUMBER,
20 x_msg_data OUT NOCOPY VARCHAR2,
21 p_artv_rec IN artv_rec_type,
22 x_artv_rec OUT NOCOPY artv_rec_type,
23 p_quote_id IN NUMBER DEFAULT NULL) AS
24
25 l_api_version NUMBER ;
26 l_init_msg_list VARCHAR2(1) ;
27 l_return_status VARCHAR2(1);
28 l_msg_count NUMBER ;
29 l_msg_data VARCHAR2(2000);
30 lp_artv_rec artv_rec_type;
31 lx_artv_rec artv_rec_type;
32 lp_quote_id NUMBER;
33 BEGIN
34 SAVEPOINT trx_create_asset_return;
35
36 l_api_version := p_api_version ;
37 l_init_msg_list := p_init_msg_list ;
38 l_return_status := x_return_status ;
39 l_msg_count := x_msg_count ;
40 l_msg_data := x_msg_data ;
41 lp_artv_rec := p_artv_rec;
42 lx_artv_rec := x_artv_rec;
43 lp_quote_id := p_quote_id;
44
45 -- call the insert of pvt
46
47 OKL_AM_ASSET_RETURN_PVT.create_asset_return( p_api_version => l_api_version
48 ,p_init_msg_list => l_init_msg_list
49 ,x_msg_data => l_msg_data
50 ,x_msg_count => l_msg_count
51 ,x_return_status => l_return_status
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;
61
62 --Copy value of OUT variable in the IN record type
63 lp_artv_rec := lx_artv_rec;
64
65
66
67 --Assign value to OUT variables
68 x_artv_rec := lx_artv_rec;
69 x_return_status := l_return_status ;
70 x_msg_count := l_msg_count ;
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 ;
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 ;
88 FND_MSG_PUB.count_and_get(
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(
98 p_count => x_msg_count
99 ,p_data => x_msg_data);
100 END create_asset_return;
101
102
103 PROCEDURE update_asset_return(
104 p_api_version IN NUMBER,
105 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
106 x_return_status OUT NOCOPY VARCHAR2,
107 x_msg_count OUT NOCOPY NUMBER,
108 x_msg_data OUT NOCOPY VARCHAR2,
109 p_artv_rec IN artv_rec_type,
110 x_artv_rec OUT NOCOPY artv_rec_type) AS
111
112 l_api_version NUMBER ;
113 l_init_msg_list VARCHAR2(1) ;
114 l_return_status VARCHAR2(1);
115 l_msg_count NUMBER ;
116 l_msg_data VARCHAR2(2000);
117 lp_artv_rec artv_rec_type;
118 lx_artv_rec artv_rec_type;
119
120 BEGIN
121 SAVEPOINT trx_update_asset_return;
122
123 l_api_version := p_api_version ;
124 l_init_msg_list := p_init_msg_list ;
125 l_return_status := x_return_status ;
126 l_msg_count := x_msg_count ;
127 l_msg_data := x_msg_data ;
128 lp_artv_rec := p_artv_rec;
129 lx_artv_rec := x_artv_rec;
130
131 -- call the update of pvt
132
133 OKL_AM_ASSET_RETURN_PVT.update_asset_return( p_api_version => l_api_version
134 ,p_init_msg_list => l_init_msg_list
135 ,x_msg_data => l_msg_data
136 ,x_msg_count => l_msg_count
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;
146
147 --Copy value of OUT variable in the IN record type
148 lp_artv_rec := lx_artv_rec;
149
150
151
152 --Assign value to OUT variables
153 x_artv_rec := lx_artv_rec;
154 x_return_status := l_return_status ;
155 x_msg_count := l_msg_count ;
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 ;
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 ;
173 FND_MSG_PUB.count_and_get(
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(
183 p_count => x_msg_count
184 ,p_data => x_msg_data);
185
186 END update_asset_return;
187
188 -- Start of comments
189 -- Procedure Name : create_asset_return
190 -- Description : This procedure calculates the pvt procedure to create
191 -- : asset return.
192 -- Business Rules :
193 -- Parameters : p_artv_tbl - Asset Return table of records,
194 -- : p_quote_id - Terminatin quote id
195 -- Version : 1.0
196 -- History : 29 Oct 2004 PAGARG Bug# 3925453
197 -- : Additional Input parameter quote id
198 -- End of comments
199 PROCEDURE create_asset_return(
200 p_api_version IN NUMBER,
201 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
202 x_return_status OUT NOCOPY VARCHAR2,
203 x_msg_count OUT NOCOPY NUMBER,
204 x_msg_data OUT NOCOPY VARCHAR2,
205 p_artv_tbl IN artv_tbl_type,
206 x_artv_tbl OUT NOCOPY artv_tbl_type,
207 p_quote_id IN NUMBER DEFAULT NULL) IS
208
209 l_api_version NUMBER ;
210 l_init_msg_list VARCHAR2(1) ;
211 l_return_status VARCHAR2(1);
212 l_msg_count NUMBER ;
213 l_msg_data VARCHAR2(2000);
214 lp_artv_tbl artv_tbl_type;
215 lx_artv_tbl artv_tbl_type;
216 lp_quote_id NUMBER;
217 BEGIN
218 SAVEPOINT trx_update_asset_return;
219
220 l_api_version := p_api_version ;
221 l_init_msg_list := p_init_msg_list ;
222 l_return_status := x_return_status ;
223 l_msg_count := x_msg_count ;
224 l_msg_data := x_msg_data ;
225 lp_artv_tbl := p_artv_tbl;
226 lx_artv_tbl := x_artv_tbl;
227 lp_quote_id := p_quote_id;
228
229 -- call the update of pvt
230
231 OKL_AM_ASSET_RETURN_PVT.create_asset_return( p_api_version => l_api_version
232 ,p_init_msg_list => l_init_msg_list
233 ,x_msg_data => l_msg_data
234 ,x_msg_count => l_msg_count
235 ,x_return_status => l_return_status
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;
245
246 --Copy value of OUT variable in the IN record type
247 lp_artv_tbl := lx_artv_tbl;
248
249
250
251 --Assign value to OUT variables
252 x_artv_tbl := lx_artv_tbl;
253 x_return_status := l_return_status ;
254 x_msg_count := l_msg_count ;
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 ;
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 ;
272 FND_MSG_PUB.count_and_get(
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(
282 p_count => x_msg_count
283 ,p_data => x_msg_data);
284
285 END create_asset_return;
286
287 PROCEDURE update_asset_return(
288 p_api_version IN NUMBER,
289 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
290 x_return_status OUT NOCOPY VARCHAR2,
291 x_msg_count OUT NOCOPY NUMBER,
292 x_msg_data OUT NOCOPY VARCHAR2,
293 p_artv_tbl IN artv_tbl_type,
294 x_artv_tbl OUT NOCOPY artv_tbl_type) IS
295
296 l_api_version NUMBER ;
297 l_init_msg_list VARCHAR2(1) ;
298 l_return_status VARCHAR2(1);
299 l_msg_count NUMBER ;
300 l_msg_data VARCHAR2(2000);
301 lp_artv_tbl artv_tbl_type;
302 lx_artv_tbl artv_tbl_type;
303
304 BEGIN
305 SAVEPOINT trx_update_asset_return;
306
307 l_api_version := p_api_version ;
308 l_init_msg_list := p_init_msg_list ;
309 l_return_status := x_return_status ;
310 l_msg_count := x_msg_count ;
311 l_msg_data := x_msg_data ;
312 lp_artv_tbl := p_artv_tbl;
313 lx_artv_tbl := x_artv_tbl;
314
315
316
317
318 -- call the update of pvt
319
320 OKL_AM_ASSET_RETURN_PVT.update_asset_return( p_api_version => l_api_version
321 ,p_init_msg_list => l_init_msg_list
322 ,x_msg_data => l_msg_data
323 ,x_msg_count => l_msg_count
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;
333
334 --Copy value of OUT variable in the IN record type
335 lp_artv_tbl := lx_artv_tbl;
336
337
338
339 --Assign value to OUT variables
340 x_artv_tbl := lx_artv_tbl;
341 x_return_status := l_return_status ;
342 x_msg_count := l_msg_count ;
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 ;
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 ;
360 FND_MSG_PUB.count_and_get(
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(
370 p_count => x_msg_count
371 ,p_data => x_msg_data);
372
373 END update_asset_return;
374
375
376
377 END OKL_AM_ASSET_RETURN_PUB;