[Home] [Help]
PACKAGE BODY: APPS.OKL_SETUPOPTIONS_PUB
Source
1 PACKAGE BODY OKL_SETUPOPTIONS_PUB AS
2 /* $Header: OKLPSOTB.pls 115.4 2004/04/13 11:18:58 rnaik noship $ */
3
4 ---------------------------------------------------------------------------
5 -- PROCEDURE get_rec for: OKL_OPTIONS_V
6 ---------------------------------------------------------------------------
7 PROCEDURE get_rec(p_optv_rec IN optv_rec_type,
8 x_return_status OUT NOCOPY VARCHAR2,
9 x_msg_data OUT NOCOPY VARCHAR2,
10 x_no_data_found OUT NOCOPY BOOLEAN,
11 x_optv_rec OUT NOCOPY optv_rec_type) IS
12 l_optv_rec optv_rec_type;
13 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
14 l_no_data_found BOOLEAN;
15 BEGIN
16
17 l_optv_rec := p_optv_rec;
18 x_return_status := FND_API.G_RET_STS_SUCCESS;
19 x_no_data_found := TRUE;
20
21 okl_setupoptions_pvt.get_rec(p_optv_rec => l_optv_rec,
22 x_return_status => l_return_status,
23 x_no_data_found => l_no_data_found,
24 x_optv_rec => x_optv_rec);
25
26 IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
27 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
28 END IF;
29
30 EXCEPTION
31 WHEN OTHERS THEN
32 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
33 x_no_data_found := FALSE;
34 FND_MESSAGE.set_name(application => G_APP_NAME,
35 name => G_UNEXPECTED_ERROR);
36 x_msg_data := FND_MESSAGE.get;
37 END get_rec;
38
39 ---------------------------------------------------------------------------
40 -- PROCEDURE insert_options
41 -- Public wrapper for insert_options process api
42 ---------------------------------------------------------------------------
43 PROCEDURE insert_options(p_api_version IN NUMBER,
44 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
45 x_return_status OUT NOCOPY VARCHAR2,
46 x_msg_count OUT NOCOPY NUMBER,
47 x_msg_data OUT NOCOPY VARCHAR2,
48 p_optv_rec IN optv_rec_type,
49 x_optv_rec OUT NOCOPY optv_rec_type) IS
50 l_optv_rec optv_rec_type;
51 l_data VARCHAR2(100);
52 l_api_name CONSTANT VARCHAR2(30) := 'insert_options';
53 l_count NUMBER ;
54 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
55 BEGIN
56 x_return_status := FND_API.G_RET_STS_SUCCESS;
57 SAVEPOINT sp_insert_options;
58 l_optv_rec := p_optv_rec;
59
60
61
62 -- call process api to insert options
63 okl_setupoptions_pvt.insert_options(p_api_version => p_api_version,
64 p_init_msg_list => p_init_msg_list,
65 x_return_status => l_return_status,
66 x_msg_count => x_msg_count,
67 x_msg_data => x_msg_data,
68 p_optv_rec => l_optv_rec,
69 x_optv_rec => x_optv_rec);
70
71 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
72 RAISE FND_API.G_EXC_ERROR;
73 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
74 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
75 END IF;
76
77 /* re-assign local record structure using output record from pvt api */
78 l_optv_rec := x_optv_rec;
79
80
81
82 EXCEPTION
83 WHEN FND_API.G_EXC_ERROR THEN
84 ROLLBACK TO sp_insert_options;
85 -- notify caller of an UNEXPECTED error
86 x_return_status := FND_API.G_RET_STS_ERROR;
87
88 -- store SQL error message on message stack for caller
89 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
90 p_count => x_msg_count,
91 p_data => x_msg_data);
92
93 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
94 ROLLBACK TO sp_insert_options;
95 -- notify caller of an UNEXPECTED error
96 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
97
98 -- store SQL error message on message stack for caller
99 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
100 p_count => x_msg_count,
101 p_data => x_msg_data);
102
103 WHEN OTHERS THEN
104 -- notify caller of an UNEXPECTED error
105 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
106 FND_MSG_PUB.ADD_EXC_MSG('OKL_SETUPOPTIONS_PUB','insert_options');
107
108 -- store SQL error message on message stack for caller
109 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
110 p_count => x_msg_count,
111 p_data => x_msg_data);
112 END insert_options;
113
114 ---------------------------------------------------------------------------
115 -- PROCEDURE update_options
116 -- Public wrapper for update_options process api
117 ---------------------------------------------------------------------------
118 PROCEDURE update_options(p_api_version IN NUMBER,
119 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
120 x_return_status OUT NOCOPY VARCHAR2,
121 x_msg_count OUT NOCOPY NUMBER,
122 x_msg_data OUT NOCOPY VARCHAR2,
123 p_optv_rec IN optv_rec_type,
124 x_optv_rec OUT NOCOPY optv_rec_type) IS
125 l_optv_rec optv_rec_type;
126 l_data VARCHAR2(100);
127 l_count NUMBER ;
128 l_api_name CONSTANT VARCHAR2(30) := 'update_options';
129 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
130 BEGIN
131 x_return_status := FND_API.G_RET_STS_SUCCESS;
132 SAVEPOINT sp_update_options;
133 l_optv_rec := p_optv_rec;
134
135
136
137 -- call process api to update options
138 okl_setupoptions_pvt.update_options(p_api_version => p_api_version,
139 p_init_msg_list => p_init_msg_list,
140 x_return_status => l_return_status,
141 x_msg_count => x_msg_count,
142 x_msg_data => x_msg_data,
143 p_optv_rec => l_optv_rec,
144 x_optv_rec => x_optv_rec);
145
146 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
147 RAISE FND_API.G_EXC_ERROR;
148 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
149 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
150 END IF;
151
152 /* re-assign local record structure using output record from pvt api */
153 l_optv_rec := x_optv_rec;
154
155
156
157 EXCEPTION
158 WHEN FND_API.G_EXC_ERROR THEN
159 ROLLBACK TO sp_update_options;
160 -- notify caller of an UNEXPECTED error
161 x_return_status := FND_API.G_RET_STS_ERROR;
162
163 -- store SQL error message on message stack for caller
164 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
165 p_count => x_msg_count,
166 p_data => x_msg_data);
167
168 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
169 ROLLBACK TO sp_update_options;
170 -- notify caller of an UNEXPECTED error
171 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
172
173 -- store SQL error message on message stack for caller
174 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
175 p_count => x_msg_count,
176 p_data => x_msg_data);
177
178 WHEN OTHERS THEN
179 -- notify caller of an UNEXPECTED error
180 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
181 FND_MSG_PUB.ADD_EXC_MSG('OKL_SETUPOPTIONS_PUB','update_options');
182
183 -- store SQL error message on message stack for caller
184 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
185 p_count => x_msg_count,
186 p_data => x_msg_data);
187 END update_options;
188
189 END OKL_SETUPOPTIONS_PUB;