[Home] [Help]
PACKAGE BODY: APPS.OKL_SETUP_PRCPARAMS_PUB
Source
1 PACKAGE BODY OKL_SETUP_PRCPARAMS_PUB AS
2 /* $Header: OKLPPPRB.pls 115.1 2004/07/02 02:36:49 sgorantl noship $ */
3
4 ---------------------------------------------------------------------------
5 -- PROCEDURE create_price_parm for: OKL_SIF_PRICE_PARMS_V
6 -- Public Wrapper for create_price_parm Process API
7 ---------------------------------------------------------------------------
8 PROCEDURE create_price_parm( p_api_version IN NUMBER,
9 p_init_msg_list IN VARCHAR2 DEFAULT G_FALSE,
10 p_sppv_rec IN sppv_rec_type,
11 x_sppv_rec OUT NOCOPY sppv_rec_type,
12 x_return_status OUT NOCOPY VARCHAR2,
13 x_msg_count OUT NOCOPY NUMBER,
14 x_msg_data OUT NOCOPY VARCHAR2
15 ) IS
16 l_api_name CONSTANT VARCHAR2(30) := 'create_price_parm';
17 l_api_version CONSTANT NUMBER := 1;
18 l_return_status VARCHAR2(1) := G_RET_STS_SUCCESS;
19 l_sppv_rec sppv_rec_type;
20 l_data VARCHAR2(100);
21 l_count NUMBER ;
22
23 BEGIN
24 x_return_status := G_RET_STS_SUCCESS;
25 l_sppv_rec := p_sppv_rec;
26
27 l_return_status := OKL_API.START_ACTIVITY(p_api_name => l_api_name,
28 p_pkg_name => G_PKG_NAME,
29 p_init_msg_list => p_init_msg_list,
30 l_api_version => l_api_version,
31 p_api_version => p_api_version,
32 p_api_type => G_API_TYPE,
33 x_return_status => l_return_status);
34 IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
35 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
36 ELSIF (l_return_status = G_RET_STS_ERROR) THEN
37 RAISE G_EXCEPTION_ERROR;
38 END IF;
39
40
41
42 -- call process api to create_price_parm
43 OKL_SETUP_PRCPARAMS_pvt.create_price_parm(p_api_version => p_api_version,
44 p_init_msg_list => p_init_msg_list,
45 x_return_status => l_return_status,
46 x_msg_count => x_msg_count,
47 x_msg_data => x_msg_data,
48 p_sppv_rec => l_sppv_rec,
49 x_sppv_rec => x_sppv_rec);
50
51 IF l_return_status = G_RET_STS_ERROR THEN
52 RAISE G_EXC_ERROR;
53 ELSIF l_return_status = G_RET_STS_UNEXP_ERROR THEN
54 RAISE G_EXC_UNEXPECTED_ERROR;
55 END IF;
56
57 /* re-assign local record structure using output record from pvt api */
58 l_sppv_rec := x_sppv_rec;
59
60
61
62 OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
63 x_msg_data => x_msg_data);
64 x_return_status := l_return_status;
65
66 EXCEPTION
67 WHEN G_EXC_ERROR THEN
68 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
69 p_pkg_name => G_PKG_NAME,
70 p_exc_name => G_EXC_NAME_RET_STS_ERR,
71 x_msg_count => x_msg_count,
72 x_msg_data => x_msg_data,
73 p_api_type => G_API_TYPE);
74
75 WHEN G_EXC_UNEXPECTED_ERROR THEN
76 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
77 p_pkg_name => G_PKG_NAME,
78 p_exc_name => G_EXC_NAME_RET_STS_UNEXP_ERR,
79 x_msg_count => x_msg_count,
80 x_msg_data => x_msg_data,
81 p_api_type => G_API_TYPE);
82 WHEN OTHERS THEN
83 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
84 p_pkg_name => G_PKG_NAME,
85 p_exc_name => G_EXC_NAME_OTHERS,
86 x_msg_count => x_msg_count,
87 x_msg_data => x_msg_data,
88 p_api_type => G_API_TYPE);
89
90 END create_price_parm;
91
92 ---------------------------------------------------------------------------
93 -- PROCEDURE update_price_parm for: OKL_SIF_PRICE_PARMS_V
94 -- Public Wrapper for Process API
95 ---------------------------------------------------------------------------
96 PROCEDURE update_price_parm(p_api_version IN NUMBER,
97 p_init_msg_list IN VARCHAR2 DEFAULT G_FALSE,
98 p_sppv_rec IN sppv_rec_type,
99 x_sppv_rec OUT NOCOPY sppv_rec_type,
100 x_return_status OUT NOCOPY VARCHAR2,
101 x_msg_count OUT NOCOPY NUMBER,
102 x_msg_data OUT NOCOPY VARCHAR2
103 ) IS
104
105 l_api_name CONSTANT VARCHAR2(30) := 'update_price_parm';
106 l_api_version CONSTANT NUMBER := 1;
107 l_sppv_rec sppv_rec_type;
108 l_return_status VARCHAR2(1) := G_RET_STS_SUCCESS;
109 l_data VARCHAR2(100);
110 l_count NUMBER ;
111 BEGIN
112 x_return_status := G_RET_STS_SUCCESS;
113 l_sppv_rec := p_sppv_rec;
114
115 l_return_status := OKL_API.START_ACTIVITY(p_api_name => l_api_name,
116 p_pkg_name => G_PKG_NAME,
117 p_init_msg_list => p_init_msg_list,
118 l_api_version => l_api_version,
119 p_api_version => p_api_version,
120 p_api_type => G_API_TYPE,
121 x_return_status => l_return_status);
122 IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
123 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
124 ELSIF (l_return_status = G_RET_STS_ERROR) THEN
125 RAISE G_EXCEPTION_ERROR;
126 END IF;
127
128
129
130 -- call process api to update formulae
131 OKL_SETUP_PRCPARAMS_pvt.update_price_parm(p_api_version => p_api_version,
132 p_init_msg_list => p_init_msg_list,
133 x_return_status => l_return_status,
134 x_msg_count => x_msg_count,
135 x_msg_data => x_msg_data,
136 p_sppv_rec => l_sppv_rec,
137 x_sppv_rec => x_sppv_rec);
138
139 IF l_return_status = G_RET_STS_ERROR THEN
140 RAISE G_EXC_ERROR;
141 ELSIF l_return_status = G_RET_STS_UNEXP_ERROR THEN
142 RAISE G_EXC_UNEXPECTED_ERROR;
143 END IF;
144
145 /* re-assign local record structure using output record from pvt api */
146 l_sppv_rec := x_sppv_rec;
147
148
149
150 OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
151 x_msg_data => x_msg_data);
152 x_return_status := l_return_status;
153
154 EXCEPTION
155 WHEN G_EXC_ERROR THEN
156 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
157 p_pkg_name => G_PKG_NAME,
158 p_exc_name => G_EXC_NAME_RET_STS_ERR,
159 x_msg_count => x_msg_count,
160 x_msg_data => x_msg_data,
161 p_api_type => G_API_TYPE);
162
163 WHEN G_EXC_UNEXPECTED_ERROR THEN
164 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
165 p_pkg_name => G_PKG_NAME,
166 p_exc_name => G_EXC_NAME_RET_STS_UNEXP_ERR,
167 x_msg_count => x_msg_count,
168 x_msg_data => x_msg_data,
169 p_api_type => G_API_TYPE);
170 WHEN OTHERS THEN
171 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
172 p_pkg_name => G_PKG_NAME,
173 p_exc_name => G_EXC_NAME_OTHERS,
174 x_msg_count => x_msg_count,
175 x_msg_data => x_msg_data,
176 p_api_type => G_API_TYPE);
177 END update_price_parm;
178
179 PROCEDURE create_price_parm(
180 p_api_version IN NUMBER,
181 p_init_msg_list IN VARCHAR2 DEFAULT G_FALSE,
182 p_sppv_tbl IN sppv_tbl_type,
183 x_sppv_tbl OUT NOCOPY sppv_tbl_type,
184 x_return_status OUT NOCOPY VARCHAR2,
185 x_msg_count OUT NOCOPY NUMBER,
186 x_msg_data OUT NOCOPY VARCHAR2)
187 IS
188 l_api_name CONSTANT VARCHAR2(30) := 'create_price_parm';
189 rec_num INTEGER := 0;
190 BEGIN
191 rec_num := p_sppv_tbl.FIRST;
192 LOOP
193 create_price_parm(
194 p_api_version => p_api_version,
195 p_init_msg_list => p_init_msg_list,
196 x_return_status => x_return_status,
197 x_msg_count => x_msg_count,
198 x_msg_data => x_msg_data,
199 p_sppv_rec => p_sppv_tbl(rec_num),
200 x_sppv_rec => x_sppv_tbl(rec_num) );
201 EXIT WHEN (rec_num = p_sppv_tbl.LAST);
202 rec_num := p_sppv_tbl.NEXT(rec_num);
203 END LOOP;
204 EXCEPTION
205 WHEN G_EXCEPTION_ERROR THEN
206 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
207 p_pkg_name => G_PKG_NAME,
208 p_exc_name => G_EXC_NAME_RET_STS_ERR,
209 x_msg_count => x_msg_count,
210 x_msg_data => x_msg_data,
211 p_api_type => G_API_TYPE);
212 WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
213 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
214 p_pkg_name => G_PKG_NAME,
215 p_exc_name => G_EXC_NAME_RET_STS_UNEXP_ERR,
216 x_msg_count => x_msg_count,
217 x_msg_data => x_msg_data,
218 p_api_type => G_API_TYPE);
219 WHEN OTHERS THEN
220 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
221 p_pkg_name => G_PKG_NAME,
222 p_exc_name => G_EXC_NAME_OTHERS,
223 x_msg_count => x_msg_count,
224 x_msg_data => x_msg_data,
225 p_api_type => G_API_TYPE);
226
227 END create_price_parm;
228
229
230 PROCEDURE update_price_parm(
231 p_api_version IN NUMBER,
232 p_init_msg_list IN VARCHAR2 DEFAULT G_FALSE,
233 p_sppv_tbl IN sppv_tbl_type,
234 x_sppv_tbl OUT NOCOPY sppv_tbl_type,
235 x_return_status OUT NOCOPY VARCHAR2,
236 x_msg_count OUT NOCOPY NUMBER,
237 x_msg_data OUT NOCOPY VARCHAR2)
238 IS
239 l_api_name CONSTANT VARCHAR2(30) := 'update_price_parm';
240 rec_num INTEGER := 0;
241 BEGIN
242 rec_num := p_sppv_tbl.FIRST;
243 LOOP
244 update_price_parm(
245 p_api_version => p_api_version,
246 p_init_msg_list => p_init_msg_list,
247 x_return_status => x_return_status,
248 x_msg_count => x_msg_count,
249 x_msg_data => x_msg_data,
250 p_sppv_rec => p_sppv_tbl(rec_num),
251 x_sppv_rec => x_sppv_tbl(rec_num) );
252 EXIT WHEN (rec_num = p_sppv_tbl.LAST);
253 rec_num := p_sppv_tbl.NEXT(rec_num);
254 END LOOP;
255 EXCEPTION
256 WHEN G_EXCEPTION_ERROR THEN
257 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
258 p_pkg_name => G_PKG_NAME,
259 p_exc_name => G_EXC_NAME_RET_STS_ERR,
260 x_msg_count => x_msg_count,
261 x_msg_data => x_msg_data,
262 p_api_type => G_API_TYPE);
263 WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
264 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
265 p_pkg_name => G_PKG_NAME,
266 p_exc_name => G_EXC_NAME_RET_STS_UNEXP_ERR,
267 x_msg_count => x_msg_count,
268 x_msg_data => x_msg_data,
269 p_api_type => G_API_TYPE);
270 WHEN OTHERS THEN
271 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
272 p_pkg_name => G_PKG_NAME,
273 p_exc_name => G_EXC_NAME_OTHERS,
274 x_msg_count => x_msg_count,
275 x_msg_data => x_msg_data,
276 p_api_type => G_API_TYPE);
277
278 END update_price_parm;
279
280 END OKL_SETUP_PRCPARAMS_PUB;