[Home] [Help]
PACKAGE BODY: APPS.OKL_AM_REPURCHASE_ASSET_PUB
Source
1 PACKAGE BODY OKL_AM_REPURCHASE_ASSET_PUB AS
2 /* $Header: OKLPRQUB.pls 115.4 2004/04/13 11:02:58 rnaik noship $ */
3 ---------------------------------------------------------------------------
4 -- PROCEDURE Relocate_Installed_Asset
5 ---------------------------------------------------------------------------
6
7 PROCEDURE create_repurchase_quote(
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_qtev_rec IN qtev_rec_type,
14 p_tqlv_tbl IN tqlv_tbl_type,
15 x_qtev_rec OUT NOCOPY qtev_rec_type,
16 x_tqlv_tbl OUT NOCOPY tqlv_tbl_type) IS
17
18 l_api_version NUMBER ;
19 l_init_msg_list VARCHAR2(1) ;
20 l_return_status VARCHAR2(1);
21 l_msg_count NUMBER ;
22 l_msg_data VARCHAR2(2000);
23
24 BEGIN
25 SAVEPOINT create_repurchase_quote;
26
27 l_api_version := p_api_version ;
28 l_init_msg_list := p_init_msg_list ;
29 l_return_status := x_return_status ;
30 l_msg_count := x_msg_count ;
31 l_msg_data := x_msg_data ;
32
33
34
35
36 -- call the insert of pvt
37
38 OKL_AM_REPURCHASE_ASSET_PVT.create_repurchase_quote(
39 p_api_version => l_api_version,
40 p_init_msg_list => l_init_msg_list ,
41 x_return_status => l_return_status,
42 x_msg_count => l_msg_count,
43 x_msg_data => l_msg_data,
44 p_qtev_rec => p_qtev_rec,
45 p_tqlv_tbl => p_tqlv_tbl,
46 x_qtev_rec => x_qtev_rec,
47 x_tqlv_tbl => x_tqlv_tbl);
48
49
50 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
51 RAISE FND_API.G_EXC_ERROR;
52 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
53 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
54 END IF;
55
56
57
58
59
60 --Assign value to OUT variables
61
62 x_return_status := l_return_status ;
63 x_msg_count := l_msg_count ;
64 x_msg_data := l_msg_data ;
65
66 EXCEPTION
67
68 WHEN FND_API.G_EXC_ERROR THEN
69 ROLLBACK TO create_repurchase_quote;
70 x_return_status := FND_API.G_RET_STS_ERROR;
71 x_msg_count := l_msg_count ;
72 x_msg_data := l_msg_data ;
73 FND_MSG_PUB.count_and_get(
74 p_count => x_msg_count
75 ,p_data => x_msg_data);
76 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
77 ROLLBACK TO create_repurchase_quote;
78 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
79 x_msg_count := l_msg_count ;
80 x_msg_data := l_msg_data ;
81 FND_MSG_PUB.count_and_get(
82 p_count => x_msg_count
83 ,p_data => x_msg_data);
84 WHEN OTHERS THEN
85 ROLLBACK TO create_repurchase_quote;
86 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
87 x_msg_count := l_msg_count ;
88 x_msg_data := l_msg_data ;
89 FND_MSG_PUB.ADD_EXC_MSG('OKL_AM_REPURCHASE_ASSET_PUB','create_repurchase_quote');
90 FND_MSG_PUB.count_and_get(
91 p_count => x_msg_count
92 ,p_data => x_msg_data);
93
94 END create_repurchase_quote;
95
96
97 PROCEDURE update_repurchase_quote(
98 p_api_version IN NUMBER,
99 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
100 x_return_status OUT NOCOPY VARCHAR2,
101 x_msg_count OUT NOCOPY NUMBER,
102 x_msg_data OUT NOCOPY VARCHAR2,
103 p_qtev_rec IN qtev_rec_type,
104 p_tqlv_tbl IN tqlv_tbl_type,
105 x_qtev_rec OUT NOCOPY qtev_rec_type,
106 x_tqlv_tbl OUT NOCOPY tqlv_tbl_type) IS
107
108
109 l_api_version NUMBER ;
110 l_init_msg_list VARCHAR2(1) ;
111 l_return_status VARCHAR2(1);
112 l_msg_count NUMBER ;
113 l_msg_data VARCHAR2(2000);
114
115
116 BEGIN
117 SAVEPOINT update_repurchase_quote;
118
119 l_api_version := p_api_version ;
120 l_init_msg_list := p_init_msg_list ;
121 l_return_status := x_return_status ;
122 l_msg_count := x_msg_count ;
123 l_msg_data := x_msg_data ;
124
125
126
127
128 -- call the insert of pvt
129
130 OKL_AM_REPURCHASE_ASSET_PVT.update_repurchase_quote(
131 p_api_version => l_api_version,
132 p_init_msg_list => l_init_msg_list ,
133 x_return_status => l_return_status,
134 x_msg_count => l_msg_count,
135 x_msg_data => l_msg_data,
136 p_qtev_rec => p_qtev_rec,
137 p_tqlv_tbl => p_tqlv_tbl,
138 x_qtev_rec => x_qtev_rec,
139 x_tqlv_tbl => x_tqlv_tbl);
140
141
142 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
143 RAISE FND_API.G_EXC_ERROR;
144 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
145 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
146 END IF;
147
148
149
150
151
152 --Assign value to OUT variables
153
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 update_repurchase_quote;
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 update_repurchase_quote;
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 update_repurchase_quote;
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_REPURCHASE_ASSET_PUB','update_repurchase_quote');
182 FND_MSG_PUB.count_and_get(
183 p_count => x_msg_count
184 ,p_data => x_msg_data);
185
186 END update_repurchase_quote;
187
188 END OKL_AM_REPURCHASE_ASSET_PUB;