PACKAGE BODY: APPS.OKL_AM_LOAD_CAT_BK_PUB

Source

1 PACKAGE BODY OKL_AM_LOAD_CAT_BK_PUB AS
2 /* $Header: OKLPLCBB.pls 120.3 2005/10/30 04:25:33 appldev noship $ */
3 
4    PROCEDURE create_hold_setup_trx( p_api_version           IN   NUMBER,
5                                   p_init_msg_list         IN   VARCHAR2 DEFAULT OKL_API.G_FALSE,
6                                   p_book_type_code        IN   fa_book_controls.book_type_code%TYPE,
7                                   x_return_status         OUT  NOCOPY VARCHAR2,
8                                   x_msg_count             OUT  NOCOPY NUMBER,
9                                   x_msg_data              OUT  NOCOPY VARCHAR2,
10                                   x_amhv_tbl              OUT  NOCOPY amhv_tbl_type
11                                   ) IS
12 
13     l_api_version NUMBER ;
14     l_init_msg_list VARCHAR2(1) ;
15     l_return_status VARCHAR2(1);
16     l_msg_count NUMBER ;
17     l_msg_data VARCHAR2(2000);
18     lx_amhv_tbl    amhv_tbl_type;
19     l_book_type_code fa_book_controls.book_type_code%TYPE;
20 
21 BEGIN
22 SAVEPOINT trx_create_hold_setup_trx;
23 
24 l_api_version := p_api_version ;
25 l_init_msg_list := p_init_msg_list ;
26 l_book_type_code := p_book_type_code;
27 l_return_status := x_return_status ;
28 l_msg_count := x_msg_count ;
29 l_msg_data := x_msg_data ;
30 lx_amhv_tbl :=  x_amhv_tbl;
31 
32 
33 
34 -- call the insert of pvt
35 
36 	OKL_AM_LOAD_CAT_BK_PVT.create_hold_setup_trx(   p_api_version          => l_api_version,
37                                                         p_init_msg_list        => l_init_msg_list,
38                                                         p_book_type_code       => l_book_type_code,
39                                                         x_return_status        => l_return_status ,
40                                                         x_msg_count            => l_msg_count,
41                                                         x_msg_data             => l_msg_data,
42                                                         x_amhv_tbl             => lx_amhv_tbl
43                                                         );
44 
45 
46 
47 IF ( l_return_status = FND_API.G_RET_STS_ERROR )  THEN
48   	 RAISE FND_API.G_EXC_ERROR;
49 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
50 	RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
51 END IF;
52 
53 
54 
55 
56 
57 --Assign value to OUT variables
58 
59 x_return_status := l_return_status ;
60 x_msg_count := l_msg_count ;
61 x_msg_data := l_msg_data ;
62 x_amhv_tbl := lx_amhv_tbl;
63 
64 EXCEPTION
65 
66     WHEN FND_API.G_EXC_ERROR THEN
67       ROLLBACK TO trx_create_hold_setup_trx;
68       x_return_status := FND_API.G_RET_STS_ERROR;
69       x_msg_count := l_msg_count ;
70       x_msg_data := l_msg_data ;
71       FND_MSG_PUB.count_and_get(
72              p_count   => x_msg_count
73             ,p_data    => x_msg_data);
74     WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
75       ROLLBACK TO trx_create_hold_setup_trx;
76       x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
77       x_msg_count := l_msg_count ;
78       x_msg_data := l_msg_data ;
79       FND_MSG_PUB.count_and_get(
80              p_count   => x_msg_count
81             ,p_data    => x_msg_data);
82     WHEN OTHERS THEN
83       ROLLBACK TO trx_create_hold_setup_trx;
84       x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
85       x_msg_count := l_msg_count ;
86       x_msg_data := l_msg_data ;
87       FND_MSG_PUB.ADD_EXC_MSG('OKL_AM_LOAD_CAT_BK_PUB','create_hold_setup_trx');
88       FND_MSG_PUB.count_and_get(
89              p_count   => x_msg_count
90             ,p_data    => x_msg_data);
91 END create_hold_setup_trx;
92 
93 
94 
95 
96 END OKL_AM_LOAD_CAT_BK_PUB;