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