[Home] [Help]
PACKAGE BODY: APPS.OKL_AM_SHIPPING_INSTR_PUB
Source
1 PACKAGE BODY OKL_AM_SHIPPING_INSTR_PUB AS
2 /* $Header: OKLPSHIB.pls 115.5 2004/04/13 11:07:16 rnaik noship $ */
3
4 PROCEDURE create_shipping_instr(
5 p_api_version IN NUMBER,
6 p_init_msg_list IN VARCHAR2 DEFAULT OKC_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_rasv_rec IN rasv_rec_type,
11 x_rasv_rec OUT NOCOPY rasv_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_rasv_rec rasv_rec_type;
20 lx_rasv_rec rasv_rec_type;
21
22 BEGIN
23
24 SAVEPOINT shipping_instr_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_rasv_rec := p_rasv_rec;
33 lx_rasv_rec := x_rasv_rec;
34
35
36
37
38
39
40 okl_am_shipping_instr_pvt.create_shipping_instr(
41 l_api_version
42 ,l_init_msg_list
43 ,l_return_status
44 ,l_msg_count
45 ,l_msg_data
46 ,lp_rasv_rec
47 ,lx_rasv_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_rasv_rec := lx_rasv_rec;
57
58
59
60
61
62 --Assign value to OUT variables
63 x_rasv_rec := lx_rasv_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 shipping_instr_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 shipping_instr_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 shipping_instr_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_SHIPPING_INSTR_PUB','create_shipping_instr');
92 FND_MSG_PUB.count_and_get(
93 p_count => x_msg_count
94 ,p_data => x_msg_data);
95 END create_shipping_instr;
96
97 PROCEDURE create_shipping_instr(
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_rasv_tbl IN rasv_tbl_type,
104 x_rasv_tbl OUT NOCOPY rasv_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_rasv_tbl rasv_tbl_type;
112 lx_rasv_tbl rasv_tbl_type;
113
114 BEGIN
115
116 SAVEPOINT shipping_instr_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_rasv_tbl := p_rasv_tbl;
125 lx_rasv_tbl := x_rasv_tbl;
126
127
128
129 okl_am_shipping_instr_pvt.create_shipping_instr(
130 l_api_version
131 ,l_init_msg_list
132 ,l_return_status
133 ,l_msg_count
134 ,l_msg_data
135 ,lp_rasv_tbl
136 ,lx_rasv_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_rasv_tbl := lx_rasv_tbl;
146
147
148
149 --Assign value to OUT variables
150 x_rasv_tbl := lx_rasv_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 shipping_instr_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 shipping_instr_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 shipping_instr_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_SHIPPING_INSTR_PUB','create_shipping_instr');
180 FND_MSG_PUB.count_and_get(
181 p_count => x_msg_count
182 ,p_data => x_msg_data);
183 END create_shipping_instr;
184
185 PROCEDURE update_shipping_instr(
186 p_api_version IN NUMBER,
187 p_init_msg_list IN VARCHAR2 DEFAULT OKC_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_rasv_rec IN rasv_rec_type,
192 x_rasv_rec OUT NOCOPY rasv_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_rasv_rec rasv_rec_type;
200 lx_rasv_rec rasv_rec_type;
201
202 BEGIN
203
204 SAVEPOINT shipping_instr_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_rasv_rec := p_rasv_rec;
213 lx_rasv_rec := x_rasv_rec;
214
215
216
217
218
219 okl_am_shipping_instr_pvt.update_shipping_instr(
220 l_api_version
221 ,l_init_msg_list
222 ,l_return_status
223 ,l_msg_count
224 ,l_msg_data
225 ,lp_rasv_rec
226 ,lx_rasv_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_rasv_rec := lx_rasv_rec;
236
237
238
239
240 --Assign value to OUT variables
241 x_rasv_rec := lx_rasv_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 shipping_instr_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 shipping_instr_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 shipping_instr_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_SHIPPING_INSTR_PUB','update_shipping_instr');
271 FND_MSG_PUB.count_and_get(
272 p_count => x_msg_count
273 ,p_data => x_msg_data);
274 END update_shipping_instr;
275
276 PROCEDURE update_shipping_instr(
277 p_api_version IN NUMBER,
278 p_init_msg_list IN VARCHAR2 DEFAULT OKC_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_rasv_tbl IN rasv_tbl_type,
283 x_rasv_tbl OUT NOCOPY rasv_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_rasv_tbl rasv_tbl_type;
291 lx_rasv_tbl rasv_tbl_type;
292
293 BEGIN
294
295 SAVEPOINT shipping_instr_update;
296
297
298 lp_rasv_tbl := p_rasv_tbl;
299 lx_rasv_tbl := x_rasv_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_shipping_instr_pvt.update_shipping_instr(
310 l_api_version
311 ,l_init_msg_list
312 ,l_return_status
313 ,l_msg_count
314 ,l_msg_data
315 ,lp_rasv_tbl
316 ,lx_rasv_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_rasv_tbl := lx_rasv_tbl;
326
327
328
329 --Assign value to OUT variables
330 x_rasv_tbl := lx_rasv_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 shipping_instr_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 shipping_instr_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 shipping_instr_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_SHIPPING_INSTR_PUB','update_shipping_instr');
360 FND_MSG_PUB.count_and_get(
361 p_count => x_msg_count
362 ,p_data => x_msg_data);
363 END update_shipping_instr;
364
365
366 PROCEDURE send_shipping_instr(
367 p_api_version IN NUMBER,
368 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
369 x_return_status OUT NOCOPY VARCHAR2,
370 x_msg_count OUT NOCOPY NUMBER,
371 x_msg_data OUT NOCOPY VARCHAR2,
372 p_rasv_rec IN rasv_rec_type,
373 x_rasv_rec OUT NOCOPY rasv_rec_type) AS
374
375 l_api_version NUMBER;
376 l_init_msg_list VARCHAR2(200);
377 l_msg_data VARCHAR2(100);
378 l_msg_count NUMBER ;
379 l_return_status VARCHAR2(1);
380 lp_rasv_rec rasv_rec_type;
381 lx_rasv_rec rasv_rec_type;
382
383 BEGIN
384
385 SAVEPOINT shipping_instr_send;
386
387
388 lp_rasv_rec := p_rasv_rec;
389 lx_rasv_rec := x_rasv_rec;
390 l_api_version := p_api_version ;
391 l_init_msg_list := p_init_msg_list ;
392 l_msg_data := x_msg_data ;
393 l_msg_count := x_msg_count ;
394
395
396
397
398
399 okl_am_shipping_instr_pvt.send_shipping_instr(
400 l_api_version
401 ,l_init_msg_list
402 ,l_return_status
403 ,l_msg_count
404 ,l_msg_data
405 ,lp_rasv_rec
406 ,lx_rasv_rec);
407
408 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
409 RAISE FND_API.G_EXC_ERROR;
410 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
411 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
412 END IF;
413
414 --Copy value of OUT variable in the IN record type
415 lp_rasv_rec := lx_rasv_rec;
416
417
418
419 --Assign value to OUT variables
420 x_rasv_rec := lx_rasv_rec;
421 x_return_status := l_return_status ;
422 x_msg_count := l_msg_count ;
423 x_msg_data := l_msg_data ;
424
425
426 EXCEPTION
427
428 WHEN FND_API.G_EXC_ERROR THEN
429 ROLLBACK TO shipping_instr_send;
430 x_return_status := FND_API.G_RET_STS_ERROR;
431 x_msg_count := l_msg_count ;
432 x_msg_data := l_msg_data ;
433 FND_MSG_PUB.count_and_get(
434 p_count => x_msg_count
435 ,p_data => x_msg_data);
436 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
437 ROLLBACK TO shipping_instr_send;
438 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
439 x_msg_count := l_msg_count ;
440 x_msg_data := l_msg_data ;
441 FND_MSG_PUB.count_and_get(
442 p_count => x_msg_count
443 ,p_data => x_msg_data);
444 WHEN OTHERS THEN
445 ROLLBACK TO shipping_instr_send;
446 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
447 x_msg_count := l_msg_count ;
448 x_msg_data := l_msg_data ;
449 FND_MSG_PUB.ADD_EXC_MSG('OKL_AM_SHIPPING_INSTR_PUB','send_shipping_instr');
450 FND_MSG_PUB.count_and_get(
451 p_count => x_msg_count
452 ,p_data => x_msg_data);
453 END send_shipping_instr;
454
455 PROCEDURE send_shipping_instr(
456 p_api_version IN NUMBER,
457 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
458 x_return_status OUT NOCOPY VARCHAR2,
459 x_msg_count OUT NOCOPY NUMBER,
460 x_msg_data OUT NOCOPY VARCHAR2,
461 p_rasv_tbl IN rasv_tbl_type,
462 x_rasv_tbl OUT NOCOPY rasv_tbl_type) AS
463
464 l_api_version NUMBER;
465 l_init_msg_list VARCHAR2(200);
466 l_msg_data VARCHAR2(100);
467 l_msg_count NUMBER ;
468 l_return_status VARCHAR2(1);
469 lp_rasv_tbl rasv_tbl_type;
470 lx_rasv_tbl rasv_tbl_type;
471
472 BEGIN
473
474 SAVEPOINT shipping_instr_send;
475
476
477 lp_rasv_tbl := p_rasv_tbl;
478 lx_rasv_tbl := x_rasv_tbl;
479 l_api_version := p_api_version ;
480 l_init_msg_list := p_init_msg_list ;
481 l_msg_data := x_msg_data ;
482 l_msg_count := x_msg_count ;
483
484
485
486
487
488 okl_am_shipping_instr_pvt.send_shipping_instr(
489 l_api_version
490 ,l_init_msg_list
491 ,l_return_status
492 ,l_msg_count
493 ,l_msg_data
494 ,lp_rasv_tbl
495 ,lx_rasv_tbl);
496
497 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
498 RAISE FND_API.G_EXC_ERROR;
499 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
500 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
501 END IF;
502
503 --Copy value of OUT variable in the IN record type
504 lp_rasv_tbl := lx_rasv_tbl;
505
506
507
508 --Assign value to OUT variables
509 x_rasv_tbl := lx_rasv_tbl;
510 x_return_status := l_return_status ;
511 x_msg_count := l_msg_count ;
512 x_msg_data := l_msg_data ;
513
514
515 EXCEPTION
516
517 WHEN FND_API.G_EXC_ERROR THEN
518 ROLLBACK TO shipping_instr_send;
519 x_return_status := FND_API.G_RET_STS_ERROR;
520 x_msg_count := l_msg_count ;
521 x_msg_data := l_msg_data ;
522 FND_MSG_PUB.count_and_get(
523 p_count => x_msg_count
524 ,p_data => x_msg_data);
525 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
526 ROLLBACK TO shipping_instr_send;
527 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
528 x_msg_count := l_msg_count ;
529 x_msg_data := l_msg_data ;
530 FND_MSG_PUB.count_and_get(
531 p_count => x_msg_count
532 ,p_data => x_msg_data);
533 WHEN OTHERS THEN
534 ROLLBACK TO shipping_instr_send;
535 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
536 x_msg_count := l_msg_count ;
537 x_msg_data := l_msg_data ;
538 FND_MSG_PUB.ADD_EXC_MSG('OKL_AM_SHIPPING_INSTR_PUB','send_shipping_instr');
539 FND_MSG_PUB.count_and_get(
540 p_count => x_msg_count
541 ,p_data => x_msg_data);
542 END send_shipping_instr;
543
544
545 END OKL_AM_SHIPPING_INSTR_PUB;