[Home] [Help]
PACKAGE BODY: APPS.OKL_TXD_ASSETS_PUB
Source
1 package body OKL_TXD_ASSETS_PUB as
2 /* $Header: OKLPASDB.pls 115.7 2004/04/13 10:31:43 rnaik noship $ */
3 -- Start of comments
4 --
5 -- Procedure Name : create_txd_asset_Def
6 -- Description : creates Transaction Asset Line details
7 -- Business Rules :
8 -- Parameters :
9 -- Version : 1.0
10 -- End of comments
11 PROCEDURE create_txd_asset_def(
12 p_api_version IN NUMBER,
13 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
14 x_return_status OUT NOCOPY VARCHAR2,
15 x_msg_count OUT NOCOPY NUMBER,
16 x_msg_data OUT NOCOPY VARCHAR2,
17 p_adpv_rec IN adpv_rec_type,
18 x_adpv_rec OUT NOCOPY adpv_rec_type) IS
19
20 l_adpv_rec adpv_rec_type;
21 l_return_status VARCHAR2(3) := FND_API.G_RET_STS_SUCCESS;
22 l_api_name CONSTANT VARCHAR2(30) := 'CREATE_TXD_ASSET_DEF';
23 l_api_version CONSTANT NUMBER := 1;
24 BEGIN
25 savepoint create_txd_asset_Def_pub;
26 -- Standard call to check for call compatibility.
27 IF NOT (FND_API.Compatible_API_Call (l_api_version,
28 p_api_version,
29 l_api_name,
30 G_PKG_NAME)) THEN
31 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32 END IF;
33 -- Initialize message list if p_init_msg_list is set to TRUE.
34 IF (FND_API.to_Boolean( p_init_msg_list )) THEN
35 FND_MSG_PUB.initialize;
36 END IF;
37 l_adpv_rec := p_adpv_rec;
38 g_adpv_rec := l_adpv_rec;
39 -- Customer pre processing section
40 -- Verticle industry pre- processing section
41 -- Business API call section
42 l_adpv_rec.id := p_adpv_rec.id;
43 l_adpv_rec.object_version_number := p_adpv_rec.object_version_number;
44 OKL_TXD_ASSETS_PVT.create_txd_asset_Def(p_api_version => p_api_version,
45 p_init_msg_list => p_init_msg_list,
46 x_return_status => l_return_status,
47 x_msg_count => x_msg_count,
48 x_msg_data => x_msg_data,
49 p_asdv_rec => l_adpv_rec,
50 x_asdv_rec => x_adpv_rec);
51 IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
52 RAISE FND_API.G_EXC_ERROR;
53 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
54 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
55 END IF;
56 l_adpv_rec := x_adpv_rec;
57 g_adpv_rec := l_adpv_rec;
58 -- Verticle industry post- processing section
59 -- Customer post processing section
60 x_return_status := FND_API.G_RET_STS_SUCCESS;
61 EXCEPTION
62 When FND_API.G_EXC_ERROR then
63 ROLLBACK TO create_txd_asset_Def_pub;
64 x_return_status := FND_API.G_RET_STS_ERROR;
65 FND_MSG_PUB.count_and_get (p_count => x_msg_count,
66 p_data => x_msg_data);
67 When FND_API.G_EXC_UNEXPECTED_ERROR then
68 ROLLBACK TO create_txd_asset_Def_pub;
69 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
70 FND_MSG_PUB.count_and_get (p_count => x_msg_count,
71 p_data => x_msg_data);
72 When OTHERS then
73 ROLLBACK TO create_txd_asset_Def_pub;
74 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
75 FND_MSG_PUB.ADD_EXC_MSG( G_PKG_NAME, 'create_txd_asset_Def_pub');
76 FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
77 p_count => x_msg_count,
78 p_data => x_msg_data);
79 END create_txd_asset_Def;
80
81 -- Start of comments
82 --
83 -- Procedure Name : create_txd_asset_Def
84 -- Description : creates Transaction Asset Line details
85 -- Business Rules :
86 -- Parameters :
87 -- Version : 1.0
88 -- End of comments
89
90 PROCEDURE create_txd_asset_def(
91 p_api_version IN NUMBER,
92 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
93 x_return_status OUT NOCOPY VARCHAR2,
94 x_msg_count OUT NOCOPY NUMBER,
95 x_msg_data OUT NOCOPY VARCHAR2,
96 p_adpv_tbl IN adpv_tbl_type,
97 x_adpv_tbl OUT NOCOPY adpv_tbl_type) IS
98 i NUMBER := 0;
99 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
100 BEGIN
101 x_return_status := FND_API.G_RET_STS_SUCCESS;
102 IF p_adpv_tbl.COUNT > 0 THEN
103 i := p_adpv_tbl.FIRST;
104 LOOP
105 create_txd_asset_Def(p_api_version => p_api_version,
106 p_init_msg_list => p_init_msg_list,
107 x_return_status => l_return_status,
108 x_msg_count => x_msg_count,
109 x_msg_data => x_msg_data,
110 p_adpv_rec => p_adpv_tbl(i),
111 x_adpv_rec => x_adpv_tbl(i));
112 IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
113 IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
114 x_return_status := l_return_status;
115 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
116 ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
117 x_return_status := l_return_status;
118 RAISE FND_API.G_EXC_ERROR;
119 ELSE
120 x_return_status := l_return_status;
121 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
122 END IF;
123 END IF;
124 EXIT WHEN (i = p_adpv_tbl.LAST);
125 i := p_adpv_tbl.NEXT(i);
126 END LOOP;
127 END IF;
128 EXCEPTION
129 WHEN FND_API.G_EXC_ERROR THEN
130 ROLLBACK TO create_txd_asset_Def_pub;
131 x_return_status := FND_API.G_RET_STS_ERROR;
132 FND_MSG_PUB.count_and_get (p_count => x_msg_count,
133 p_data => x_msg_data);
134 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
135 ROLLBACK TO create_txd_asset_Def_pub;
136 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
137 FND_MSG_PUB.count_and_get (p_count => x_msg_count,
138 p_data => x_msg_data);
139 WHEN OTHERS then
140 ROLLBACK TO create_txd_asset_Def_pub;
141 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
142 FND_MSG_PUB.ADD_EXC_MSG(G_PKG_NAME, 'create_txd_asset_Def_pub');
143 FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
144 p_count => x_msg_count,
145 p_data => x_msg_data);
146 END create_txd_asset_Def;
147 -- Start of comments
148 --
149 -- Procedure Name : update_txd_asset_Def
150 -- Description : Update Transaction Asset Lines
151 -- Business Rules :
152 -- Parameters :
153 -- Version : 1.0
154 -- End of comments
155 PROCEDURE update_txd_asset_Def(
156 p_api_version IN NUMBER,
157 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
158 x_return_status OUT NOCOPY VARCHAR2,
159 x_msg_count OUT NOCOPY NUMBER,
160 x_msg_data OUT NOCOPY VARCHAR2,
161 p_adpv_rec IN adpv_rec_type,
162 x_adpv_rec OUT NOCOPY adpv_rec_type) IS
163 l_adpv_rec adpv_rec_type;
164 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
165 l_api_name CONSTANT VARCHAR2(30) := 'update_txd_asset_Def';
166 l_api_version CONSTANT NUMBER := 1;
167 BEGIN
168 savepoint update_txd_asset_Def_pub;
169 -- Standard call to check for call compatibility.
170 IF NOT (FND_API.Compatible_API_Call (l_api_version,
171 p_api_version,
172 l_api_name,
173 G_PKG_NAME)) THEN
174 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
175 END IF;
176 -- Initialize message list if p_init_msg_list is set to TRUE.
177 IF (FND_API.to_Boolean( p_init_msg_list )) THEN
178 FND_MSG_PUB.initialize;
179 END IF;
180 l_adpv_rec := p_adpv_rec;
181 g_adpv_rec := l_adpv_rec;
182 -- Customer pre processing section
183 -- Verticle industry pre- processing section
184 -- Business API call section
185 l_adpv_rec.id := p_adpv_rec.id;
186 l_adpv_rec.object_version_number := p_adpv_rec.object_version_number;
187 OKL_TXD_ASSETS_PVT.update_txd_asset_Def(p_api_version => p_api_version,
188 p_init_msg_list => p_init_msg_list,
189 x_return_status => l_return_status,
190 x_msg_count => x_msg_count,
191 x_msg_data => x_msg_data,
192 p_asdv_rec => l_adpv_rec,
193 x_asdv_rec => x_adpv_rec);
194 IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
195 RAISE FND_API.G_EXC_ERROR;
196 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
197 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
198 END IF;
199 l_adpv_rec := x_adpv_rec;
200 g_adpv_rec := l_adpv_rec;
201 -- Verticle industry post- processing section
202 -- Customer post processing section
203 x_return_status := FND_API.G_RET_STS_SUCCESS;
204 EXCEPTION
205 When FND_API.G_EXC_ERROR then
206 ROLLBACK TO update_txd_asset_Def_pub;
207 x_return_status := FND_API.G_RET_STS_ERROR;
208 FND_MSG_PUB.count_and_get (p_count => x_msg_count,
209 p_data => x_msg_data);
210 When FND_API.G_EXC_UNEXPECTED_ERROR then
211 ROLLBACK TO update_txd_asset_Def_pub;
212 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
213 FND_MSG_PUB.count_and_get (p_count => x_msg_count,
214 p_data => x_msg_data);
215 When OTHERS then
216 ROLLBACK TO update_txd_asset_Def_pub;
217 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
218 FND_MSG_PUB.ADD_EXC_MSG( G_PKG_NAME, 'update_txd_asset_Def_pub');
219 FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
220 p_count => x_msg_count,
221 p_data => x_msg_data);
222
223 END update_txd_asset_Def;
224
225 -- Start of comments
226 --
227 -- Procedure Name : update_txd_asset_Def
228 -- Description : Update Transaction Asset Line details
229 -- Business Rules :
230 -- Parameters :
231 -- Version : 1.0
232 -- End of comments
233 PROCEDURE update_txd_asset_Def(
234 p_api_version IN NUMBER,
235 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
236 x_return_status OUT NOCOPY VARCHAR2,
237 x_msg_count OUT NOCOPY NUMBER,
238 x_msg_data OUT NOCOPY VARCHAR2,
239 p_adpv_tbl IN adpv_tbl_type,
240 x_adpv_tbl OUT NOCOPY adpv_tbl_type) IS
241 i NUMBER := 0;
242 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
243 BEGIN
244 x_return_status := OKC_API.G_RET_STS_SUCCESS;
245 IF p_adpv_tbl.COUNT > 0 THEN
246 i := p_adpv_tbl.FIRST;
247 LOOP
248 update_txd_asset_Def(
249 p_api_version => p_api_version,
250 p_init_msg_list => p_init_msg_list,
251 x_return_status => l_return_status,
252 x_msg_count => x_msg_count,
253 x_msg_data => x_msg_data,
254 p_adpv_rec => p_adpv_tbl(i),
255 x_adpv_rec => x_adpv_tbl(i));
256 IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
257 IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
258 x_return_status := l_return_status;
259 raise G_EXCEPTION_HALT_VALIDATION;
260 ELSE
261 x_return_status := l_return_status;
262 END IF;
263 END IF;
264 EXIT WHEN (i = p_adpv_tbl.LAST);
265 i := p_adpv_tbl.NEXT(i);
266 END LOOP;
267 END IF;
268 EXCEPTION
269 When FND_API.G_EXC_ERROR then
270 ROLLBACK TO update_txd_asset_Def_pub;
271 x_return_status := FND_API.G_RET_STS_ERROR;
272 FND_MSG_PUB.count_and_get (p_count => x_msg_count,
273 p_data => x_msg_data);
274 When FND_API.G_EXC_UNEXPECTED_ERROR then
275 ROLLBACK TO update_txd_asset_Def_pub;
276 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
277 FND_MSG_PUB.count_and_get (p_count => x_msg_count,
278 p_data => x_msg_data);
279 When OTHERS then
280 ROLLBACK TO update_txd_asset_Def_pub;
281 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
282 FND_MSG_PUB.ADD_EXC_MSG( G_PKG_NAME, 'update_txd_asset_Def_pub');
283 FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
284 p_count => x_msg_count,
285 p_data => x_msg_data);
286 END update_txd_asset_Def;
287
288 -- Start of comments
289 --
290 -- Procedure Name : delete_txd_asset_Def
291 -- Description : Delete Transaction Asset Line details
292 -- Business Rules :
293 -- Parameters :
294 -- Version : 1.0
295 -- End of comments
296 PROCEDURE delete_txd_asset_Def(
297 p_api_version IN NUMBER,
298 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
299 x_return_status OUT NOCOPY VARCHAR2,
300 x_msg_count OUT NOCOPY NUMBER,
301 x_msg_data OUT NOCOPY VARCHAR2,
302 p_adpv_rec IN adpv_rec_type) IS
303
304 l_adpv_rec adpv_rec_type;
305 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
306 l_api_name CONSTANT VARCHAR2(30) := 'delete_txd_asset_Def';
307 l_api_version CONSTANT NUMBER := 1;
308 BEGIN
309 savepoint delete_txd_asset_Def_pub;
310 -- Standard call to check for call compatibility.
311 IF NOT (FND_API.Compatible_API_Call (l_api_version,
312 p_api_version,
313 l_api_name,
314 G_PKG_NAME)) THEN
315 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
316 END IF;
317 -- Initialize message list if p_init_msg_list is set to TRUE.
318 IF (FND_API.to_Boolean( p_init_msg_list )) THEN
319 FND_MSG_PUB.initialize;
320 END IF;
321 l_adpv_rec := p_adpv_rec;
322 g_adpv_rec := l_adpv_rec;
323 -- Customer pre processing section
324 -- Verticle industry pre- processing section
325 -- Business API call section
326 l_adpv_rec.id := p_adpv_rec.id;
327 l_adpv_rec.object_version_number := p_adpv_rec.object_version_number;
328 OKL_TXD_ASSETS_PVT.delete_txd_asset_Def(p_api_version => p_api_version,
329 p_init_msg_list => p_init_msg_list,
330 x_return_status => l_return_status,
331 x_msg_count => x_msg_count,
332 x_msg_data => x_msg_data,
333 p_asdv_rec => l_adpv_rec);
334 IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
335 RAISE FND_API.G_EXC_ERROR;
336 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
337 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
338 END IF;
339 g_adpv_rec := l_adpv_rec;
340 -- Verticle industry post- processing section
341 -- Customer post processing section
342 x_return_status := FND_API.G_RET_STS_SUCCESS;
343 EXCEPTION
344 When FND_API.G_EXC_ERROR then
345 ROLLBACK TO delete_txd_asset_Def_pub;
346 x_return_status := FND_API.G_RET_STS_ERROR;
347 FND_MSG_PUB.count_and_get (p_count => x_msg_count,
348 p_data => x_msg_data);
349 When FND_API.G_EXC_UNEXPECTED_ERROR then
350 ROLLBACK TO delete_txd_asset_Def_pub;
351 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
352 FND_MSG_PUB.count_and_get (p_count => x_msg_count,
353 p_data => x_msg_data);
354 When OTHERS then
355 ROLLBACK TO delete_txd_asset_Def_pub;
356 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
357 FND_MSG_PUB.ADD_EXC_MSG( G_PKG_NAME, 'delete_txd_asset_Def_pub');
358 FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
359 p_count => x_msg_count,
360 p_data => x_msg_data);
361 END delete_txd_asset_Def;
362
363 -- Start of comments
364 --
365 -- Procedure Name : delete_txd_asset_Def
366 -- Description : Delete Transaction Asset Line details
367 -- Business Rules :
368 -- Parameters :
369 -- Version : 1.0
370 -- End of comments
371 PROCEDURE delete_txd_asset_Def(
372 p_api_version IN NUMBER,
373 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
374 x_return_status OUT NOCOPY VARCHAR2,
375 x_msg_count OUT NOCOPY NUMBER,
376 x_msg_data OUT NOCOPY VARCHAR2,
377 p_adpv_tbl IN adpv_tbl_type) IS
378 i NUMBER := 0;
379 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
380 BEGIN
381 x_return_status := OKC_API.G_RET_STS_SUCCESS;
382 IF p_adpv_tbl.COUNT > 0 THEN
383 i := p_adpv_tbl.FIRST;
384 LOOP
385 delete_txd_asset_Def(
386 p_api_version => p_api_version,
387 p_init_msg_list => p_init_msg_list,
388 x_return_status => l_return_status,
389 x_msg_count => x_msg_count,
390 x_msg_data => x_msg_data,
391 p_adpv_rec => p_adpv_tbl(i));
392 IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
393 IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
394 x_return_status := l_return_status;
395 raise G_EXCEPTION_HALT_VALIDATION;
396 ELSE
397 x_return_status := l_return_status;
398 END IF;
399 END IF;
400 EXIT WHEN (i = p_adpv_tbl.LAST);
401 i := p_adpv_tbl.NEXT(i);
402 END LOOP;
403 END IF;
404 EXCEPTION
405 When FND_API.G_EXC_ERROR then
406 ROLLBACK TO delete_txd_asset_Def_pub;
407 x_return_status := FND_API.G_RET_STS_ERROR;
408 FND_MSG_PUB.count_and_get (p_count => x_msg_count,
409 p_data => x_msg_data);
410 When FND_API.G_EXC_UNEXPECTED_ERROR then
411 ROLLBACK TO delete_txd_asset_Def_pub;
412 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
413 FND_MSG_PUB.count_and_get (p_count => x_msg_count,
414 p_data => x_msg_data);
415 When OTHERS then
416 ROLLBACK TO delete_txd_asset_Def_pub;
417 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
418 FND_MSG_PUB.ADD_EXC_MSG( G_PKG_NAME, 'delete_txd_asset_Def_pub');
419 FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
420 p_count => x_msg_count,
421 p_data => x_msg_data);
422 END delete_txd_asset_Def;
423
424 -- Start of comments
425 --
426 -- Procedure Name : lock_txd_asset_Def
427 -- Description :
428 -- Business Rules :
429 -- Parameters :
430 -- Version : 1.0
431 -- End of comments
432 procedure lock_txd_asset_Def(
433 p_api_version IN NUMBER,
434 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
435 x_return_status OUT NOCOPY VARCHAR2,
436 x_msg_count OUT NOCOPY NUMBER,
437 x_msg_data OUT NOCOPY VARCHAR2,
438 p_adpv_rec IN adpv_rec_type) IS
439 l_adpv_rec adpv_rec_type;
440 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
441 l_api_name CONSTANT VARCHAR2(30) := 'lock_txd_asset_Def';
442 l_api_version CONSTANT NUMBER := 1;
443 BEGIN
444 savepoint lock_txd_asset_Def_pub;
445 -- Standard call to check for call compatibility.
446 IF NOT (FND_API.Compatible_API_Call (l_api_version,
447 p_api_version,
448 l_api_name,
449 G_PKG_NAME)) THEN
450 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
451 END IF;
452 -- Initialize message list if p_init_msg_list is set to TRUE.
453 IF (FND_API.to_Boolean( p_init_msg_list )) THEN
454 FND_MSG_PUB.initialize;
455 END IF;
456 l_adpv_rec := p_adpv_rec;
457 -- Business API call section
458 l_adpv_rec.id := p_adpv_rec.id;
459 l_adpv_rec.object_version_number := p_adpv_rec.object_version_number;
460 OKL_TXD_ASSETS_PVT.lock_txd_asset_Def(p_api_version => p_api_version,
461 p_init_msg_list => p_init_msg_list,
462 x_return_status => l_return_status,
463 x_msg_count => x_msg_count,
464 x_msg_data => x_msg_data,
465 p_asdv_rec => l_adpv_rec);
466 IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
467 RAISE FND_API.G_EXC_ERROR;
468 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
469 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
470 END IF;
471 g_adpv_rec := l_adpv_rec;
472 x_return_status := FND_API.G_RET_STS_SUCCESS;
473 EXCEPTION
474 When FND_API.G_EXC_ERROR then
475 ROLLBACK TO lock_txd_asset_Def_pub;
476 x_return_status := FND_API.G_RET_STS_ERROR;
477 FND_MSG_PUB.count_and_get (p_count => x_msg_count,
478 p_data => x_msg_data);
479 When FND_API.G_EXC_UNEXPECTED_ERROR then
480 ROLLBACK TO lock_txd_asset_Def_pub;
481 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
482 FND_MSG_PUB.count_and_get (p_count => x_msg_count,
483 p_data => x_msg_data);
484 When OTHERS then
485 ROLLBACK TO lock_txd_asset_Def_pub;
486 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
487 FND_MSG_PUB.ADD_EXC_MSG( G_PKG_NAME, 'lock_txd_asset_Def_pub');
488 FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
489 p_count => x_msg_count,
490 p_data => x_msg_data);
491 end lock_txd_asset_Def;
492
493
494 -- Start of comments
495 --
496 -- Procedure Name : lock_txd_asset_Def
497 -- Description :
498 -- Business Rules :
499 -- Parameters :
500 -- Version : 1.0
501 -- End of comments
502 procedure lock_txd_asset_Def(
503 p_api_version IN NUMBER,
504 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
505 x_return_status OUT NOCOPY VARCHAR2,
506 x_msg_count OUT NOCOPY NUMBER,
507 x_msg_data OUT NOCOPY VARCHAR2,
508 p_adpv_tbl IN adpv_tbl_type) IS
509 i NUMBER := 0;
510 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
511 BEGIN
512 x_return_status := OKC_API.G_RET_STS_SUCCESS;
513 IF p_adpv_tbl.COUNT > 0 THEN
514 i := p_adpv_tbl.FIRST;
515 LOOP
516 lock_txd_asset_Def(
517 p_api_version => p_api_version,
518 p_init_msg_list => p_init_msg_list,
519 x_return_status => l_return_status,
520 x_msg_count => x_msg_count,
521 x_msg_data => x_msg_data,
522 p_adpv_rec => p_adpv_tbl(i));
523 IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
524 IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
525 x_return_status := l_return_status;
526 raise G_EXCEPTION_HALT_VALIDATION;
527 ELSE
528 x_return_status := l_return_status;
529 END IF;
530 END IF;
531 EXIT WHEN (i = p_adpv_tbl.LAST);
532 i := p_adpv_tbl.NEXT(i);
533 END LOOP;
534 END IF;
535 EXCEPTION
536 When FND_API.G_EXC_ERROR then
537 ROLLBACK TO lock_txd_asset_Def_pub;
538 x_return_status := FND_API.G_RET_STS_ERROR;
539 FND_MSG_PUB.count_and_get (p_count => x_msg_count,
540 p_data => x_msg_data);
541 When FND_API.G_EXC_UNEXPECTED_ERROR then
542 ROLLBACK TO lock_txd_asset_Def_pub;
543 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
544 FND_MSG_PUB.count_and_get (p_count => x_msg_count,
545 p_data => x_msg_data);
546 When OTHERS then
547 ROLLBACK TO lock_txd_asset_Def_pub;
548 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
549 FND_MSG_PUB.ADD_EXC_MSG( G_PKG_NAME, 'lock_txd_asset_Def_pub');
550 FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
551 p_count => x_msg_count,
552 p_data => x_msg_data);
553 end lock_txd_asset_Def;
554
555
556 -- Start of comments
557 --
558 -- Procedure Name : validate_txd_asset_Def
559 -- Description : Validate Transaction Asset Line details
560 -- Business Rules :
561 -- Parameters :
562 -- Version : 1.0
563 -- End of comments
564 procedure validate_txd_asset_Def(
565 p_api_version IN NUMBER,
566 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
567 x_return_status OUT NOCOPY VARCHAR2,
568 x_msg_count OUT NOCOPY NUMBER,
569 x_msg_data OUT NOCOPY VARCHAR2,
570 p_adpv_rec IN adpv_rec_type) IS
571 l_adpv_rec adpv_rec_type;
572 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
573 l_api_name CONSTANT VARCHAR2(30) := 'validate_txd_asset_Def';
574 l_api_version CONSTANT NUMBER := 1;
575 BEGIN
576 savepoint validate_txd_asset_Def_pub;
577 -- Standard call to check for call compatibility.
578 IF NOT (FND_API.Compatible_API_Call (l_api_version,
579 p_api_version,
580 l_api_name,
581 G_PKG_NAME)) THEN
582 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
583 END IF;
584 -- Initialize message list if p_init_msg_list is set to TRUE.
585 IF (FND_API.to_Boolean( p_init_msg_list )) THEN
586 FND_MSG_PUB.initialize;
587 END IF;
588 l_adpv_rec := p_adpv_rec;
589 g_adpv_rec := l_adpv_rec;
590 -- Customer pre processing section
591 -- Verticle industry pre- processing section
592 -- Business API call section
593 l_adpv_rec.id := p_adpv_rec.id;
594 l_adpv_rec.object_version_number := p_adpv_rec.object_version_number;
595 OKL_TXD_ASSETS_PVT.validate_txd_asset_Def(p_api_version => p_api_version,
596 p_init_msg_list => p_init_msg_list,
597 x_return_status => l_return_status,
598 x_msg_count => x_msg_count,
599 x_msg_data => x_msg_data,
600 p_asdv_rec => l_adpv_rec);
601 IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
602 RAISE FND_API.G_EXC_ERROR;
603 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
604 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
605 END IF;
606 g_adpv_rec := l_adpv_rec;
607 -- Verticle industry post- processing section
608 -- Customer post processing section
609 x_return_status := FND_API.G_RET_STS_SUCCESS;
610 EXCEPTION
611 When FND_API.G_EXC_ERROR then
612 ROLLBACK TO validate_txd_asset_Def_pub;
613 x_return_status := FND_API.G_RET_STS_ERROR;
614 FND_MSG_PUB.count_and_get (p_count => x_msg_count,
615 p_data => x_msg_data);
616 When FND_API.G_EXC_UNEXPECTED_ERROR then
617 ROLLBACK TO validate_txd_asset_Def_pub;
618 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
619 FND_MSG_PUB.count_and_get (p_count => x_msg_count,
620 p_data => x_msg_data);
621 When OTHERS then
622 ROLLBACK TO validate_txd_asset_Def_pub;
623 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
624 FND_MSG_PUB.ADD_EXC_MSG( G_PKG_NAME, 'validate_txd_asset_Def_pub');
625 FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
626 p_count => x_msg_count,
627 p_data => x_msg_data);
628 end validate_txd_asset_Def;
629
630
631 -- Start of comments
632 --
633 -- Procedure Name : validate_txd_asset_Def
634 -- Description : Validate Transaction Asset Line details
635 -- Business Rules :
636 -- Parameters :
637 -- Version : 1.0
638 -- End of comments
639 procedure validate_txd_asset_Def(
640 p_api_version IN NUMBER,
641 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
642 x_return_status OUT NOCOPY VARCHAR2,
643 x_msg_count OUT NOCOPY NUMBER,
644 x_msg_data OUT NOCOPY VARCHAR2,
645 p_adpv_tbl IN adpv_tbl_type) IS
646 i NUMBER := 0;
647 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
648 BEGIN
649 x_return_status := OKC_API.G_RET_STS_SUCCESS;
650 IF p_adpv_tbl.COUNT > 0 THEN
651 i := p_adpv_tbl.FIRST;
652 LOOP
653 validate_txd_asset_Def(
654 p_api_version => p_api_version,
655 p_init_msg_list => p_init_msg_list,
656 x_return_status => l_return_status,
657 x_msg_count => x_msg_count,
658 x_msg_data => x_msg_data,
659 p_adpv_rec => p_adpv_tbl(i));
660 IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
661 IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
662 x_return_status := l_return_status;
663 raise G_EXCEPTION_HALT_VALIDATION;
664 ELSE
665 x_return_status := l_return_status;
666 END IF;
667 END IF;
668 EXIT WHEN (i = p_adpv_tbl.LAST);
669 i := p_adpv_tbl.NEXT(i);
670 END LOOP;
671 END IF;
672 EXCEPTION
673 When FND_API.G_EXC_ERROR then
674 ROLLBACK TO validate_txd_asset_Def_pub;
675 x_return_status := FND_API.G_RET_STS_ERROR;
676 FND_MSG_PUB.count_and_get (p_count => x_msg_count,
677 p_data => x_msg_data);
678 When FND_API.G_EXC_UNEXPECTED_ERROR then
679 ROLLBACK TO validate_txd_asset_Def_pub;
680 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
681 FND_MSG_PUB.count_and_get (p_count => x_msg_count,
682 p_data => x_msg_data);
683 When OTHERS then
684 ROLLBACK TO validate_txd_asset_Def_pub;
685 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
686 FND_MSG_PUB.ADD_EXC_MSG( G_PKG_NAME, 'validate_txd_asset_Def_pub');
687 FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
688 p_count => x_msg_count,
689 p_data => x_msg_data);
690 end validate_txd_asset_Def;
691
692
693 END OKL_TXD_ASSETS_PUB;
694