[Home] [Help]
PACKAGE BODY: APPS.OKL_EQUIPMENT_EXCHANGE_PUB
Source
1 package body okl_equipment_exchange_pub AS
2 /* $Header: OKLPEQXB.pls 115.3 2004/04/13 10:44:23 rnaik noship $ */
3
4 FUNCTION GET_TAS_HDR_REC
5 (p_thpv_tbl IN thpv_tbl_type
6 ,p_no_data_found OUT NOCOPY BOOLEAN
7 ) RETURN thpv_tbl_type
8 AS
9 l_thpv_tbl thpv_tbl_type;
10 BEGIN
11
12 l_thpv_tbl := okl_equipment_exchange_pvt.get_tas_hdr_rec(p_thpv_tbl,p_no_data_found);
13
14 RETURN l_thpv_tbl;
15
16 END GET_TAS_HDR_REC;
17
18 FUNCTION get_status
19 (p_status_code IN VARCHAR2)
20 RETURN VARCHAR2
21 AS
22 l_status VARCHAR2(80);
23
24 BEGIN
25
26 l_status := okl_equipment_exchange_pvt.get_status(p_status_code);
27
28 RETURN l_status;
29 END get_status;
30
31
32 FUNCTION get_tal_rec
33 (p_talv_tbl IN talv_tbl_type,
34 x_no_data_found OUT NOCOPY BOOLEAN)
35 RETURN talv_tbl_type
36 AS
37 l_talv_tbl talv_tbl_type;
38 BEGIN
39
40 l_talv_tbl := okl_equipment_exchange_pvt.get_tal_rec(p_talv_tbl,x_no_data_found);
41
42 RETURN l_talv_tbl;
43 END get_tal_rec;
44
45 FUNCTION get_vendor_name
46 (p_vendor_id IN VARCHAR2)
47 RETURN VARCHAR2
48 AS
49 l_vdr_name VARCHAR2(80);
50 BEGIN
51 l_vdr_name := okl_equipment_exchange_pvt.get_vendor_name(p_vendor_id);
52
53 RETURN l_vdr_name;
54 END get_vendor_name;
55
56
57 FUNCTION get_item_rec (
58 p_itiv_tbl IN itiv_tbl_type,
59 x_no_data_found OUT NOCOPY BOOLEAN) RETURN itiv_tbl_type
60 AS
61 l_itiv_tbl itiv_tbl_type;
62
63 BEGIN
64 l_itiv_tbl := okl_equipment_exchange_pvt.get_item_rec(p_itiv_tbl,x_no_data_found);
65
66 RETURN l_itiv_tbl;
67 END get_item_rec;
68
69
70 FUNCTION get_exchange_type
71 (p_tas_id IN NUMBER)
72 RETURN VARCHAR2
73 AS
74 l_exchange_type VARCHAR2(60);
75
76 BEGIN
77 l_exchange_type := okl_equipment_exchange_pvt.get_exchange_type(p_tas_id);
78
79 RETURN l_exchange_type;
80
81 END get_exchange_type;
82
83
84
85 PROCEDURE update_serial_number(
86 p_api_version IN NUMBER,
87 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
88 p_instance_id IN NUMBER,
89 p_instance_name IN VARCHAR2,
90 p_serial_number IN VARCHAR2,
91 p_inventory_item_id IN NUMBER,
92 x_return_status OUT NOCOPY VARCHAR2,
93 x_msg_count OUT NOCOPY NUMBER,
94 x_msg_data OUT NOCOPY VARCHAR2)
95 AS
96
97 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
98 l_msg_count NUMBER;
99 l_msg_data VARCHAR2(2000);
100
101
102 BEGIN
103
104 --SAVEPOINT update_serial_number;
105
106
107
108
109
110
111 ------------ Call to Private Process API--------------
112
113 okl_equipment_exchange_pvt.update_serial_number (p_api_version => p_api_version,
114 p_init_msg_list => p_init_msg_list,
115 p_instance_id => p_instance_id,
116 p_instance_name => p_instance_name,
117 p_serial_number => p_serial_number,
118 p_inventory_item_id => p_inventory_item_id,
119 x_return_status => l_return_status,
120 x_msg_count => l_msg_count,
121 x_msg_data => l_msg_data);
122
123 IF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
124 RAISE OKL_API.G_EXCEPTION_ERROR;
125 ELSIF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
126 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
127 END IF;
128
129 ------------ End Call to Private Process API--------------
130
131
132
133
134
135
136
137 x_return_status := l_return_status;
138
139 EXCEPTION
140
141 WHEN OKL_API.G_EXCEPTION_ERROR THEN
142 --ROLLBACK TO update_serial_number;
143 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
144 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
145 p_data => x_msg_data);
146
147 WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
148 --ROLLBACK TO update_serial_number;
149 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
150 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
151 p_data => x_msg_data);
152
153 WHEN OTHERS THEN
154 --ROLLBACK TO update_serial_number;
155 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
156 FND_MSG_PUB.ADD_EXC_MSG('OKL_EQUIPMENT_EXCHANGE_PUB','update_serial_number');
157 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
158 p_data => x_msg_data);
159
160 END update_serial_number;
161
162 PROCEDURE store_exchange_details (
163 p_api_version IN NUMBER,
164 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
165 p_thpv_tbl IN thpv_tbl_type,
166 p_old_tlpv_tbl IN tlpv_tbl_type,
167 p_new_tlpv_tbl IN tlpv_tbl_type,
168 p_old_iipv_tbl IN iipv_tbl_type,
169 p_new_iipv_tbl IN iipv_tbl_type,
170 x_thpv_tbl OUT NOCOPY thpv_tbl_type,
171 x_old_tlpv_tbl OUT NOCOPY tlpv_tbl_type,
172 x_new_tlpv_tbl OUT NOCOPY tlpv_tbl_type,
173 x_old_iipv_tbl OUT NOCOPY iipv_tbl_type,
174 x_new_iipv_tbl OUT NOCOPY iipv_tbl_type,
175 x_return_status OUT NOCOPY VARCHAR2,
176 x_msg_count OUT NOCOPY NUMBER,
177 x_msg_data OUT NOCOPY VARCHAR2)
178 AS
179
180 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
181 l_msg_count NUMBER;
182 l_msg_data VARCHAR2(2000);
183
184 l_thpv_tbl thpv_tbl_type;
185 l_old_tlpv_tbl tlpv_tbl_type;
186 l_new_tlpv_tbl tlpv_tbl_type;
187 l_old_iipv_tbl iipv_tbl_type;
188 l_new_iipv_tbl iipv_tbl_type;
189
190 BEGIN
191
192 --SAVEPOINT store_exchange_details;
193
194
195
196
197
198
199 ------------ Call to Private Process API--------------
200
201 okl_equipment_exchange_pvt.store_exchange_details (p_api_version => p_api_version,
202 p_init_msg_list => p_init_msg_list,
203 p_thpv_tbl => p_thpv_tbl,
204 p_old_tlpv_tbl => p_old_tlpv_tbl,
205 p_new_tlpv_tbl => p_new_tlpv_tbl,
206 p_old_iipv_tbl => p_old_iipv_tbl,
207 p_new_iipv_tbl => p_new_iipv_tbl,
208 x_thpv_tbl => x_thpv_tbl,
209 x_old_tlpv_tbl => x_old_tlpv_tbl,
210 x_new_tlpv_tbl => x_new_tlpv_tbl,
211 x_old_iipv_tbl => x_old_iipv_tbl,
212 x_new_iipv_tbl => x_new_iipv_tbl,
213 x_return_status => l_return_status,
214 x_msg_count => l_msg_count,
215 x_msg_data => l_msg_data);
216
217 IF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
218 RAISE OKL_API.G_EXCEPTION_ERROR;
219 ELSIF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
220 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
221 END IF;
222
223 ------------ End Call to Private Process API--------------
224
225
226
227
228
229
230
231 x_return_status := l_return_status;
232
233 EXCEPTION
234
235 WHEN OKL_API.G_EXCEPTION_ERROR THEN
236 --ROLLBACK TO store_exchange_details;
237 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
238 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
239 p_data => x_msg_data);
240
241 WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
242 --ROLLBACK TO store_exchange_details;
243 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
244 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
245 p_data => x_msg_data);
246
247 WHEN OTHERS THEN
248 --ROLLBACK TO store_exchange_details;
249 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
250 FND_MSG_PUB.ADD_EXC_MSG('OKL_EQUIPMENT_EXCHANGE_PUB','store_exchange_details');
251 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
252 p_data => x_msg_data);
253
254 END store_exchange_details;
255
256
257 PROCEDURE exchange(
258 p_api_version IN NUMBER,
259 p_init_msg_list IN VARCHAR2 := OKL_API.G_FALSE,
260 p_tas_id IN NUMBER,
261 x_return_status OUT NOCOPY VARCHAR2,
262 x_msg_count OUT NOCOPY NUMBER,
263 x_msg_data OUT NOCOPY VARCHAR2)
264 AS
265
266 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
267 l_msg_count NUMBER;
268 l_msg_data VARCHAR2(2000);
269
270 BEGIN
271
272 --SAVEPOINT exchange;
273
274
275
276
277
278
279 ------------ Call to Private Process API--------------
280
281 okl_equipment_exchange_pvt.exchange (p_api_version => p_api_version,
282 p_init_msg_list => p_init_msg_list,
283 p_tas_id => p_tas_id,
284 x_return_status => l_return_status,
285 x_msg_count => l_msg_count,
286 x_msg_data => l_msg_data);
287
288 IF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
289 RAISE OKL_API.G_EXCEPTION_ERROR;
290 ELSIF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
291 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
292 END IF;
293
294 ------------ End Call to Private Process API--------------
295
296
297
298
299
300
301
302 x_return_status := l_return_status;
303
304 EXCEPTION
305
306 WHEN OKL_API.G_EXCEPTION_ERROR THEN
307 --ROLLBACK TO exchange;
308 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
309 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
310 p_data => x_msg_data);
311
312 WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
313 --ROLLBACK TO exchange;
314 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
315 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
316 p_data => x_msg_data);
317
318 WHEN OTHERS THEN
319 --ROLLBACK TO exchange;
320 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
321 FND_MSG_PUB.ADD_EXC_MSG('OKL_EQUIPMENT_EXCHANGE_PUB','exchange');
322 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
323 p_data => x_msg_data);
324
325 END exchange;
326
327
328 END okl_equipment_exchange_pub;