PACKAGE BODY: APPS.OKL_AM_SV_WRITEDOWN_PUB

Source

1 PACKAGE BODY OKL_AM_SV_WRITEDOWN_PUB AS
2 /* $Header: OKLPSVWB.pls 115.7 2004/04/13 11:22:53 rnaik noship $ */
3 
4    PROCEDURE create_salvage_value_trx( 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_assets_tbl            IN     assets_tbl_type,
10                                   x_salvage_value_status  OUT    NOCOPY VARCHAR2) IS -- this flag is redundant,
11                                                                                   -- we are keeping it for the time
12                                                                                   -- being to avoid
13                                                                                   -- rosetta regeneration
14 
15 
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     lp_assets_tbl  assets_tbl_type;
23 
24 
25 BEGIN
26 SAVEPOINT trx_create_salvage_value_trx;
27 
28 l_api_version := p_api_version ;
29 l_init_msg_list := p_init_msg_list ;
30 l_return_status := x_return_status ;
31 
32 lp_assets_tbl := p_assets_tbl;
33 
34 l_msg_count := x_msg_count ;
35 l_msg_data := x_msg_data ;
36 
37 
38 
39 
40 
41 -- call the insert of pvt
42 
43 	OKL_AM_SV_WRITEDOWN_PVT.create_salvage_value_trx(   p_api_version          => l_api_version,
44                                                         p_init_msg_list        => l_init_msg_list,
45                                                         x_return_status        => l_return_status ,
46                                                         x_msg_count            => l_msg_count,
47                                                         x_msg_data             => l_msg_data,
48                                                         p_assets_tbl           => lp_assets_tbl,
49                                                         x_salvage_value_status => x_salvage_value_status);
50 
51 
52 
53 IF ( l_return_status = FND_API.G_RET_STS_ERROR )  THEN
54   	 RAISE FND_API.G_EXC_ERROR;
55 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
56 	RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
57 END IF;
58 
59 
60 
61 
62 
63 --Assign value to OUT variables
64 
65 x_return_status := l_return_status ;
66 x_msg_count := l_msg_count ;
67 x_msg_data := l_msg_data ;
68 
69 
70 EXCEPTION
71 
72     WHEN FND_API.G_EXC_ERROR THEN
73       ROLLBACK TO trx_create_salvage_value_trx;
74       x_return_status := FND_API.G_RET_STS_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 FND_API.G_EXC_UNEXPECTED_ERROR THEN
81       ROLLBACK TO trx_create_salvage_value_trx;
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.count_and_get(
86              p_count   => x_msg_count
87             ,p_data    => x_msg_data);
88     WHEN OTHERS THEN
89       ROLLBACK TO trx_create_salvage_value_trx;
90       x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
91       x_msg_count := l_msg_count ;
92       x_msg_data := l_msg_data ;
93       FND_MSG_PUB.ADD_EXC_MSG('OKL_AM_SV_WRITEDOWN_PUB','create_salvage_value_trx');
94       FND_MSG_PUB.count_and_get(
95              p_count   => x_msg_count
96             ,p_data    => x_msg_data);
97 END create_salvage_value_trx;
98 
99 
100 
101 
102 END OKL_AM_SV_WRITEDOWN_PUB;