[Home] [Help]
PACKAGE BODY: APPS.OKL_AM_ASSET_DISPOSE_PUB
Source
1 PACKAGE BODY OKL_AM_ASSET_DISPOSE_PUB AS
2 /* $Header: OKLPADPB.pls 120.5 2006/11/22 18:39:38 rravikir noship $ */
3
4 PROCEDURE dispose_asset ( p_api_version IN NUMBER,
5 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
6 x_return_status OUT NOCOPY VARCHAR2,
7 x_msg_count OUT NOCOPY NUMBER,
8 x_msg_data OUT NOCOPY VARCHAR2,
9 p_financial_asset_id IN NUMBER,
10 p_quantity IN NUMBER,
11 p_proceeds_of_sale IN NUMBER,
12 p_quote_eff_date IN DATE DEFAULT NULL, -- rmunjulu EDAT
13 p_quote_accpt_date IN DATE DEFAULT NULL, -- rmunjulu EDAT
14 p_legal_entity_id IN NUMBER) -- RRAVIKIR Legal Entity Changes
15 IS
16
17 l_api_version NUMBER ;
18 l_init_msg_list VARCHAR2(1) ;
19 l_return_status VARCHAR2(1);
20 l_msg_count NUMBER ;
21 l_msg_data VARCHAR2(2000);
22
23 lp_financial_asset_id NUMBER;
24 lp_quantity NUMBER;
25 lp_proceeds_of_sale NUMBER;
26
27 -- rmunjulu EDAT
28 lp_quote_eff_date DATE;
29 lp_quote_accpt_date DATE;
30
31 BEGIN
32 SAVEPOINT trx_dispose_asset;
33
34 l_api_version := p_api_version ;
35 l_init_msg_list := p_init_msg_list ;
36 l_return_status := x_return_status ;
37 l_msg_count := x_msg_count ;
38 l_msg_data := x_msg_data ;
39
40 lp_financial_asset_id := p_financial_asset_id;
41 lp_quantity := p_quantity;
42 lp_proceeds_of_sale := p_proceeds_of_sale;
43
44 -- rmunjulu EDAT
45 lp_quote_eff_date := p_quote_eff_date;
46 lp_quote_accpt_date := p_quote_accpt_date;
47
48
49 -- call the insert of pvt
50
51 OKL_AM_ASSET_DISPOSE_PVT.dispose_asset(
52 p_api_version => l_api_version,
53 p_init_msg_list => l_init_msg_list,
54 x_return_status => l_return_status,
55 x_msg_count => l_msg_count,
56 x_msg_data => l_msg_data,
57 p_financial_asset_id => lp_financial_asset_id,
58 p_quantity => lp_quantity,
59 p_proceeds_of_sale => lp_proceeds_of_sale,
60 p_quote_eff_date => lp_quote_eff_date, -- rmunjulu EDAT
61 p_quote_accpt_date => lp_quote_accpt_date, -- rmunjulu EDAT
62 p_legal_entity_id => p_legal_entity_id); -- RRAVIKIR Legal Entity Changes
63
64
65
66 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
67 RAISE FND_API.G_EXC_ERROR;
68 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
69 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
70 END IF;
71
72
73
74
75
76 --Assign value to OUT variables
77
78 x_return_status := l_return_status ;
79 x_msg_count := l_msg_count ;
80 x_msg_data := l_msg_data ;
81
82 EXCEPTION
83
84 WHEN FND_API.G_EXC_ERROR THEN
85 ROLLBACK TO trx_dispose_asset;
86 x_return_status := FND_API.G_RET_STS_ERROR;
87 x_msg_count := l_msg_count ;
88 x_msg_data := l_msg_data ;
89 FND_MSG_PUB.count_and_get(
90 p_count => x_msg_count
91 ,p_data => x_msg_data);
92 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
93 ROLLBACK TO trx_dispose_asset;
94 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
95 x_msg_count := l_msg_count ;
96 x_msg_data := l_msg_data ;
97 FND_MSG_PUB.count_and_get(
98 p_count => x_msg_count
99 ,p_data => x_msg_data);
100 WHEN OTHERS THEN
101 ROLLBACK TO trx_dispose_asset;
102 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
103 x_msg_count := l_msg_count ;
104 x_msg_data := l_msg_data ;
105 FND_MSG_PUB.ADD_EXC_MSG('OKL_AM_ASSET_DISPOSE_PUB','dispose_asset');
106 FND_MSG_PUB.count_and_get(
107 p_count => x_msg_count
108 ,p_data => x_msg_data);
109 END dispose_asset;
110
111
112 -- SECHAWLA 21-OCT-04 3924244 : changed p_order_header_id to p_order_line_id
113 PROCEDURE dispose_asset ( p_api_version IN NUMBER,
114 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
115 x_return_status OUT NOCOPY VARCHAR2,
116 x_msg_count OUT NOCOPY NUMBER,
117 x_msg_data OUT NOCOPY VARCHAR2,
118 p_order_line_id IN NUMBER) IS
119
120 l_api_version NUMBER ;
121 l_init_msg_list VARCHAR2(1) ;
122 l_return_status VARCHAR2(1);
123 l_msg_count NUMBER ;
124 l_msg_data VARCHAR2(2000);
125
126 lp_order_line_id NUMBER; -- SECHAWLA 21-OCT-04 3924244
127
128
129
130 BEGIN
131 SAVEPOINT trx_dispose_asset;
132
133 l_api_version := p_api_version ;
134 l_init_msg_list := p_init_msg_list ;
135 l_return_status := x_return_status ;
136 l_msg_count := x_msg_count ;
137 l_msg_data := x_msg_data ;
138
139 lp_order_line_id := p_order_line_id; -- SECHAWLA 21-OCT-04 3924244
140
141
142
143
144
145 -- call the insert of pvt
146
147 OKL_AM_ASSET_DISPOSE_PVT.dispose_asset(
148 p_api_version => l_api_version,
149 p_init_msg_list => l_init_msg_list,
150 x_return_status => l_return_status,
151 x_msg_count => l_msg_count,
152 x_msg_data => l_msg_data,
153 p_order_line_id => lp_order_line_id);
154
155
156
157 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
158 RAISE FND_API.G_EXC_ERROR;
159 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
160 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
161 END IF;
162
163
164
165
166
167 --Assign value to OUT variables
168
169 x_return_status := l_return_status ;
170 x_msg_count := l_msg_count ;
171 x_msg_data := l_msg_data ;
172
173 EXCEPTION
174
175 WHEN FND_API.G_EXC_ERROR THEN
176 ROLLBACK TO trx_dispose_asset;
177 x_return_status := FND_API.G_RET_STS_ERROR;
178 x_msg_count := l_msg_count ;
179 x_msg_data := l_msg_data ;
180 FND_MSG_PUB.count_and_get(
181 p_count => x_msg_count
182 ,p_data => x_msg_data);
183 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
184 ROLLBACK TO trx_dispose_asset;
185 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
186 x_msg_count := l_msg_count ;
187 x_msg_data := l_msg_data ;
188 FND_MSG_PUB.count_and_get(
189 p_count => x_msg_count
190 ,p_data => x_msg_data);
191 WHEN OTHERS THEN
192 ROLLBACK TO trx_dispose_asset;
193 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
194 x_msg_count := l_msg_count ;
195 x_msg_data := l_msg_data ;
196 FND_MSG_PUB.ADD_EXC_MSG('OKL_AM_ASSET_DISPOSE_PUB','dispose_asset');
197 FND_MSG_PUB.count_and_get(
198 p_count => x_msg_count
199 ,p_data => x_msg_data);
200 END dispose_asset;
201
202
203 PROCEDURE undo_retirement( p_api_version IN NUMBER,
204 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
205 x_return_status OUT NOCOPY VARCHAR2,
206 x_msg_count OUT NOCOPY NUMBER,
207 x_msg_data OUT NOCOPY VARCHAR2,
208 p_retirement_id IN NUMBER) IS
209
210
211 l_api_version NUMBER ;
212 l_init_msg_list VARCHAR2(1) ;
213 l_return_status VARCHAR2(1);
214 l_msg_count NUMBER ;
215 l_msg_data VARCHAR2(2000);
216 lp_retirement_id NUMBER;
217
218 BEGIN
219 SAVEPOINT trx_undo_retirement;
220
221 l_api_version := p_api_version ;
222 l_init_msg_list := p_init_msg_list ;
223 l_return_status := x_return_status ;
224 l_msg_count := x_msg_count ;
225 l_msg_data := x_msg_data ;
226 lp_retirement_id := p_retirement_id;
227
228
229
230
231 -- call the insert of pvt
232
233 OKL_AM_ASSET_DISPOSE_PVT.undo_retirement(
234 p_api_version => l_api_version,
235 p_init_msg_list => l_init_msg_list,
236 x_return_status => l_return_status,
237 x_msg_count => l_msg_count,
238 x_msg_data => l_msg_data,
239 p_retirement_id => lp_retirement_id
240 );
241
242
243 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
244 RAISE FND_API.G_EXC_ERROR;
245 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
246 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
247 END IF;
248
249
250
251
252
253 --Assign value to OUT variables
254
255 x_return_status := l_return_status ;
256 x_msg_count := l_msg_count ;
257 x_msg_data := l_msg_data ;
258
259 EXCEPTION
260
261 WHEN FND_API.G_EXC_ERROR THEN
262 ROLLBACK TO trx_undo_retirement;
263 x_return_status := FND_API.G_RET_STS_ERROR;
264 x_msg_count := l_msg_count ;
265 x_msg_data := l_msg_data ;
266 FND_MSG_PUB.count_and_get(
267 p_count => x_msg_count
268 ,p_data => x_msg_data);
269 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
270 ROLLBACK TO trx_undo_retirement;
271 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
272 x_msg_count := l_msg_count ;
273 x_msg_data := l_msg_data ;
274 FND_MSG_PUB.count_and_get(
275 p_count => x_msg_count
276 ,p_data => x_msg_data);
277 WHEN OTHERS THEN
278 ROLLBACK TO trx_undo_retirement;
279 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
280 x_msg_count := l_msg_count ;
281 x_msg_data := l_msg_data ;
282 FND_MSG_PUB.ADD_EXC_MSG('OKL_AM_ASSET_DISPOSE_PUB','undo_retirement');
283 FND_MSG_PUB.count_and_get(
284 p_count => x_msg_count
285 ,p_data => x_msg_data);
286 END undo_retirement;
287
288
289 PROCEDURE expire_item (
290 p_api_version IN NUMBER,
291 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
292 x_msg_count OUT NOCOPY NUMBER,
293 x_msg_data OUT NOCOPY VARCHAR2,
294 x_return_status OUT NOCOPY VARCHAR2,
295 p_instance_id IN NUMBER,
296 p_end_date IN DATE)
297 IS
298
299 l_api_version NUMBER ;
300 l_init_msg_list VARCHAR2(1) ;
301 l_return_status VARCHAR2(1);
302 l_msg_count NUMBER ;
303 l_msg_data VARCHAR2(2000);
304 lp_instance_id NUMBER;
305 lp_end_date DATE;
306 BEGIN
307 SAVEPOINT trx_expire_item;
308
309 l_api_version := p_api_version ;
310 l_init_msg_list := p_init_msg_list ;
311 l_return_status := x_return_status ;
312 l_msg_count := x_msg_count ;
313 l_msg_data := x_msg_data ;
314
315 lp_instance_id := p_instance_id;
316 lp_end_date := p_end_date;
317
318
319
320
321
322 -- call the insert of pvt
323
324 OKL_AM_ASSET_DISPOSE_PVT.expire_item(
325 p_api_version => l_api_version,
326 p_init_msg_list => l_init_msg_list,
327 x_msg_count => l_msg_count,
328 x_msg_data => l_msg_data,
329 x_return_status => l_return_status,
330 p_instance_id => lp_instance_id,
331 p_end_date => lp_end_date );
332
333 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
334 RAISE FND_API.G_EXC_ERROR;
335 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
336 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
337 END IF;
338
339
340
341
342
343 --Assign value to OUT variables
344
345 x_return_status := l_return_status ;
346 x_msg_count := l_msg_count ;
347 x_msg_data := l_msg_data ;
348
349 EXCEPTION
350
351 WHEN FND_API.G_EXC_ERROR THEN
352 ROLLBACK TO trx_expire_item;
353 x_return_status := FND_API.G_RET_STS_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
358 ,p_data => x_msg_data);
359 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
360 ROLLBACK TO trx_expire_item;
361 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
362 x_msg_count := l_msg_count ;
363 x_msg_data := l_msg_data ;
364 FND_MSG_PUB.count_and_get(
365 p_count => x_msg_count
366 ,p_data => x_msg_data);
367 WHEN OTHERS THEN
368 ROLLBACK TO trx_expire_item;
369 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
370 x_msg_count := l_msg_count ;
371 x_msg_data := l_msg_data ;
372 FND_MSG_PUB.ADD_EXC_MSG('OKL_AM_ASSET_DISPOSE_PUB','expire_item');
373 FND_MSG_PUB.count_and_get(
374 p_count => x_msg_count
375 ,p_data => x_msg_data);
376 END expire_item;
377
378
379 END OKL_AM_ASSET_DISPOSE_PUB;