[Home] [Help]
PACKAGE BODY: APPS.OKL_AM_RESTRUCTURE_QUOTE_PUB
Source
1 PACKAGE BODY OKL_AM_RESTRUCTURE_QUOTE_PUB AS
2 /* $Header: OKLPRTQB.pls 115.4 2004/04/13 11:03:39 rnaik noship $ */
3
4 PROCEDURE create_restructure_quote(
5 p_api_version IN NUMBER
6 ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
7 ,x_return_status OUT NOCOPY VARCHAR2
8 ,x_msg_count OUT NOCOPY NUMBER
9 ,x_msg_data OUT NOCOPY VARCHAR2
10 ,p_quot_rec IN quot_rec_type
11 ,x_quot_rec OUT NOCOPY quot_rec_type) IS
12
13
14 l_api_version NUMBER ;
15 l_init_msg_list VARCHAR2(1) ;
16 l_return_status VARCHAR2(1);
17 l_msg_count NUMBER ;
18 l_msg_data VARCHAR2(2000);
19 lp_quot_rec quot_rec_type;
20 lx_quot_rec quot_rec_type;
21
22 BEGIN
23
24 SAVEPOINT restructure_quote_create;
25
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 lp_quot_rec := p_quot_rec;
33 lx_quot_rec := x_quot_rec;
34
35
36
37
38
39
40 okl_am_restructure_quote_pvt.create_restructure_quote(
41 l_api_version
42 ,l_init_msg_list
43 ,l_return_status
44 ,l_msg_count
45 ,l_msg_data
46 ,lp_quot_rec
47 ,lx_quot_rec);
48
49 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
50 RAISE FND_API.G_EXC_ERROR;
51 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
52 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
53 END IF;
54
55 --Copy value of OUT variable in the IN record type
56 lp_quot_rec := lx_quot_rec;
57
58
59
60
61
62 --Assign value to OUT variables
63 x_quot_rec := lx_quot_rec;
64 x_return_status := l_return_status ;
65 x_msg_count := l_msg_count ;
66 x_msg_data := l_msg_data ;
67
68 EXCEPTION
69
70 WHEN FND_API.G_EXC_ERROR THEN
71 ROLLBACK TO restructure_quote_create;
72 x_return_status := FND_API.G_RET_STS_ERROR;
73 x_msg_count := l_msg_count ;
74 x_msg_data := l_msg_data ;
75 FND_MSG_PUB.count_and_get(
76 p_count => x_msg_count
77 ,p_data => x_msg_data);
78 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
79 ROLLBACK TO restructure_quote_create;
80 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
81 x_msg_count := l_msg_count ;
82 x_msg_data := l_msg_data ;
83 FND_MSG_PUB.count_and_get(
84 p_count => x_msg_count
85 ,p_data => x_msg_data);
86 WHEN OTHERS THEN
87 ROLLBACK TO restructure_quote_create;
88 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
89 x_msg_count := l_msg_count ;
90 x_msg_data := l_msg_data ;
91 FND_MSG_PUB.ADD_EXC_MSG('OKL_AM_RESTRUCTURE_QUOTE_PUB','create_restructure_quote');
92 FND_MSG_PUB.count_and_get(
93 p_count => x_msg_count
94 ,p_data => x_msg_data);
95 END create_restructure_quote;
96
97 PROCEDURE create_restructure_quote(
98 p_api_version IN NUMBER
99 ,p_init_msg_list IN VARCHAR2 DEFAULT FND_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_quot_tbl IN quot_tbl_type
104 ,x_quot_tbl OUT NOCOPY quot_tbl_type) IS
105
106 l_api_version NUMBER;
107 l_init_msg_list VARCHAR2(1) ;
108 l_msg_data VARCHAR2(2000);
109 l_msg_count NUMBER ;
110 l_return_status VARCHAR2(1);
111 lp_quot_tbl quot_tbl_type;
112 lx_quot_tbl quot_tbl_type;
113
114 BEGIN
115
116 SAVEPOINT restructure_quote_create;
117
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 lp_quot_tbl := p_quot_tbl;
125 lx_quot_tbl := x_quot_tbl;
126
127
128
129 okl_am_restructure_quote_pvt.create_restructure_quote(
130 l_api_version
131 ,l_init_msg_list
132 ,l_return_status
133 ,l_msg_count
134 ,l_msg_data
135 ,lp_quot_tbl
136 ,lx_quot_tbl);
137
138 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
139 RAISE FND_API.G_EXC_ERROR;
140 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
141 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
142 END IF;
143
144 --Copy value of OUT variable in the IN record type
145 lp_quot_tbl := lx_quot_tbl;
146
147
148
149 --Assign value to OUT variables
150 x_quot_tbl := lx_quot_tbl;
151 x_return_status := l_return_status ;
152 x_msg_count := l_msg_count ;
153 x_msg_data := l_msg_data ;
154
155
156 EXCEPTION
157
158 WHEN FND_API.G_EXC_ERROR THEN
159 ROLLBACK TO restructure_quote_create;
160 x_return_status := FND_API.G_RET_STS_ERROR;
161 x_msg_count := l_msg_count ;
162 x_msg_data := l_msg_data ;
163 FND_MSG_PUB.count_and_get(
164 p_count => x_msg_count
165 ,p_data => x_msg_data);
166 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
167 ROLLBACK TO restructure_quote_create;
168 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
169 x_msg_count := l_msg_count ;
170 x_msg_data := l_msg_data ;
171 FND_MSG_PUB.count_and_get(
172 p_count => x_msg_count
173 ,p_data => x_msg_data);
174 WHEN OTHERS THEN
175 ROLLBACK TO restructure_quote_create;
176 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
177 x_msg_count := l_msg_count ;
178 x_msg_data := l_msg_data ;
179 FND_MSG_PUB.ADD_EXC_MSG('OKL_AM_RESTRUCTURE_QUOTE_PUB','create_restructure_quote');
180 FND_MSG_PUB.count_and_get(
181 p_count => x_msg_count
182 ,p_data => x_msg_data);
183 END create_restructure_quote;
184
185 PROCEDURE update_restructure_quote(
186 p_api_version IN NUMBER
187 ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
188 ,x_return_status OUT NOCOPY VARCHAR2
189 ,x_msg_count OUT NOCOPY NUMBER
190 ,x_msg_data OUT NOCOPY VARCHAR2
191 ,p_quot_rec IN quot_rec_type
192 ,x_quot_rec OUT NOCOPY quot_rec_type) IS
193
194 l_api_version NUMBER ;
195 l_init_msg_list VARCHAR2(1) ;
196 l_return_status VARCHAR2(1);
197 l_msg_count NUMBER ;
198 l_msg_data VARCHAR2(2000);
199 lp_quot_rec quot_rec_type;
200 lx_quot_rec quot_rec_type;
201
202 BEGIN
203
204 SAVEPOINT restructure_quote_update;
205
206
207 l_api_version := p_api_version ;
208 l_init_msg_list := p_init_msg_list ;
209 l_return_status := x_return_status ;
210 l_msg_count := x_msg_count ;
211 l_msg_data := x_msg_data ;
212 lp_quot_rec := p_quot_rec;
213 lx_quot_rec := x_quot_rec;
214
215
216
217
218
219 okl_am_restructure_quote_pvt.update_restructure_quote(
220 l_api_version
221 ,l_init_msg_list
222 ,l_return_status
223 ,l_msg_count
224 ,l_msg_data
225 ,lp_quot_rec
226 ,lx_quot_rec);
227
228 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
229 RAISE FND_API.G_EXC_ERROR;
230 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
231 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
232 END IF;
233
234 --Copy value of OUT variable in the IN record type
235 lp_quot_rec := lx_quot_rec;
236
237
238
239
240 --Assign value to OUT variables
241 x_quot_rec := lx_quot_rec;
242 x_return_status := l_return_status ;
243 x_msg_count := l_msg_count ;
244 x_msg_data := l_msg_data ;
245
246
247 EXCEPTION
248
249 WHEN FND_API.G_EXC_ERROR THEN
250 ROLLBACK TO restructure_quote_update;
251 x_return_status := FND_API.G_RET_STS_ERROR;
252 x_msg_count := l_msg_count ;
253 x_msg_data := l_msg_data ;
254 FND_MSG_PUB.count_and_get(
255 p_count => x_msg_count
256 ,p_data => x_msg_data);
257 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
258 ROLLBACK TO restructure_quote_update;
259 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
260 x_msg_count := l_msg_count ;
261 x_msg_data := l_msg_data ;
262 FND_MSG_PUB.count_and_get(
263 p_count => x_msg_count
264 ,p_data => x_msg_data);
265 WHEN OTHERS THEN
266 ROLLBACK TO restructure_quote_update;
267 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
268 x_msg_count := l_msg_count ;
269 x_msg_data := l_msg_data ;
270 FND_MSG_PUB.ADD_EXC_MSG('OKL_AM_RESTRUCTURE_QUOTE_PUB','update_restructure_quote');
271 FND_MSG_PUB.count_and_get(
272 p_count => x_msg_count
273 ,p_data => x_msg_data);
274 END update_restructure_quote;
275
276 PROCEDURE update_restructure_quote(
277 p_api_version IN NUMBER
278 ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
279 ,x_return_status OUT NOCOPY VARCHAR2
280 ,x_msg_count OUT NOCOPY NUMBER
281 ,x_msg_data OUT NOCOPY VARCHAR2
282 ,p_quot_tbl IN quot_tbl_type
283 ,x_quot_tbl OUT NOCOPY quot_tbl_type) IS
284
285 l_api_version NUMBER;
286 l_init_msg_list VARCHAR2(200);
287 l_msg_data VARCHAR2(100);
288 l_msg_count NUMBER ;
289 l_return_status VARCHAR2(1);
290 lp_quot_tbl quot_tbl_type;
291 lx_quot_tbl quot_tbl_type;
292
293 BEGIN
294
295 SAVEPOINT restructure_quote_update;
296
297
298 lp_quot_tbl := p_quot_tbl;
299 lx_quot_tbl := x_quot_tbl;
300 l_api_version := p_api_version ;
301 l_init_msg_list := p_init_msg_list ;
302 l_msg_data := x_msg_data ;
303 l_msg_count := x_msg_count ;
304
305
306
307
308
309 okl_am_restructure_quote_pvt.update_restructure_quote(
310 l_api_version
311 ,l_init_msg_list
312 ,l_return_status
313 ,l_msg_count
314 ,l_msg_data
315 ,lp_quot_tbl
316 ,lx_quot_tbl);
317
318 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
319 RAISE FND_API.G_EXC_ERROR;
320 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
321 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
322 END IF;
323
324 --Copy value of OUT variable in the IN record type
325 lp_quot_tbl := lx_quot_tbl;
326
327
328
329 --Assign value to OUT variables
330 x_quot_tbl := lx_quot_tbl;
331 x_return_status := l_return_status ;
332 x_msg_count := l_msg_count ;
333 x_msg_data := l_msg_data ;
334
335
336 EXCEPTION
337
338 WHEN FND_API.G_EXC_ERROR THEN
339 ROLLBACK TO restructure_quote_update;
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 restructure_quote_update;
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 restructure_quote_update;
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_RESTRUCTURE_QUOTE_PUB','update_restructure_quote');
360 FND_MSG_PUB.count_and_get(
361 p_count => x_msg_count
362 ,p_data => x_msg_data);
363 END update_restructure_quote;
364
365 END OKL_AM_RESTRUCTURE_QUOTE_PUB;