[Home] [Help]
PACKAGE BODY: APPS.OKL_SETUP_TRXPARAMS_PUB
Source
1 PACKAGE BODY OKL_SETUP_TRXPARAMS_PUB AS
2 /* $Header: OKLPTXRB.pls 115.0 2004/07/02 02:37:12 sgorantl noship $ */
3
4 ---------------------------------------------------------------------------
5 -- PROCEDURE create_trx_parm for: OKL_SIF_TRX_PARMS_V
6 -- Public Wrapper for create_trx_parm Process API
7 ---------------------------------------------------------------------------
8 PROCEDURE create_trx_parm( p_api_version IN NUMBER,
9 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
10 x_return_status OUT NOCOPY VARCHAR2,
11 x_msg_count OUT NOCOPY NUMBER,
12 x_msg_data OUT NOCOPY VARCHAR2,
13 p_sxpv_rec IN sxpv_rec_type,
14 x_sxpv_rec OUT NOCOPY sxpv_rec_type
15 ) IS
16 l_api_name CONSTANT VARCHAR2(30) := 'create_trx_parm';
17 l_api_version CONSTANT NUMBER := 1;
18 l_return_status VARCHAR2(1) := G_RET_STS_SUCCESS;
19 l_sxpv_rec sxpv_rec_type;
20 l_data VARCHAR2(100);
21 l_count NUMBER ;
22
23 BEGIN
24 l_return_status := G_RET_STS_SUCCESS;
25 l_sxpv_rec := p_sxpv_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
43
44 -- call process api to create_trx_parm
45 OKL_SETUP_TRXPARAMS_PVT.create_trx_parm(p_api_version => p_api_version,
46 p_init_msg_list => p_init_msg_list,
47 x_return_status => l_return_status,
48 x_msg_count => x_msg_count,
49 x_msg_data => x_msg_data,
50 p_sxpv_rec => l_sxpv_rec,
51 x_sxpv_rec => x_sxpv_rec);
52
53 IF l_return_status = G_RET_STS_ERROR THEN
54 RAISE G_EXCEPTION_ERROR;
55 ELSIF l_return_status = G_RET_STS_UNEXP_ERROR THEN
56 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
57 END IF;
58
59 /* re-assign local record structure using output record from pvt api */
60 l_sxpv_rec := x_sxpv_rec;
61
62
63 OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
64 x_msg_data => x_msg_data);
65 x_return_status := l_return_status;
66 EXCEPTION
67 WHEN G_EXCEPTION_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_ERROR,
71 x_msg_count => x_msg_count,
72 x_msg_data => x_msg_data,
73 p_api_type => G_API_TYPE);
74 WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
75 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
76 p_pkg_name => G_PKG_NAME,
77 p_exc_name => G_EXC_NAME_UNEXP_ERROR,
78 x_msg_count => x_msg_count,
79 x_msg_data => x_msg_data,
80 p_api_type => G_API_TYPE);
81 WHEN OTHERS THEN
82 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
83 p_pkg_name => G_PKG_NAME,
84 p_exc_name => G_EXC_NAME_OTHERS,
85 x_msg_count => x_msg_count,
86 x_msg_data => x_msg_data,
87 p_api_type => G_API_TYPE);
88 END create_trx_parm;
89
90 ---------------------------------------------------------------------------
91 -- PROCEDURE update_trx_parm for: OKL_SIF_TRX_PARMS_V
92 -- Public Wrapper for Process API
93 ---------------------------------------------------------------------------
94 PROCEDURE update_trx_parm(p_api_version IN NUMBER,
95 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
96 x_return_status OUT NOCOPY VARCHAR2,
97 x_msg_count OUT NOCOPY NUMBER,
98 x_msg_data OUT NOCOPY VARCHAR2,
99 p_sxpv_rec IN sxpv_rec_type,
100 x_sxpv_rec OUT NOCOPY sxpv_rec_type
101 ) IS
102
103 l_api_name CONSTANT VARCHAR2(30) := 'update_trx_parm';
104 l_api_version CONSTANT NUMBER := 1;
105 l_return_status VARCHAR2(1) := G_RET_STS_SUCCESS;
106 l_sxpv_rec sxpv_rec_type;
107
108 l_data VARCHAR2(100);
109 l_count NUMBER ;
110 BEGIN
111 x_return_status := G_RET_STS_SUCCESS;
112 l_sxpv_rec := p_sxpv_rec;
113
114 l_return_status := OKL_API.START_ACTIVITY(p_api_name => l_api_name,
115 p_pkg_name => G_PKG_NAME,
116 p_init_msg_list => p_init_msg_list,
117 l_api_version => l_api_version,
118 p_api_version => p_api_version,
119 p_api_type => G_API_TYPE,
120 x_return_status => l_return_status);
121 IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
122 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
123 ELSIF (l_return_status = G_RET_STS_ERROR) THEN
124 RAISE G_EXCEPTION_ERROR;
125 END IF;
126
127
128 -- call process api to update formulae
129 OKL_SETUP_TRXPARAMS_PVT.update_trx_parm(p_api_version => p_api_version,
130 p_init_msg_list => p_init_msg_list,
131 x_return_status => l_return_status,
132 x_msg_count => x_msg_count,
133 x_msg_data => x_msg_data,
134 p_sxpv_rec => l_sxpv_rec,
135 x_sxpv_rec => x_sxpv_rec);
136
137 IF l_return_status = G_RET_STS_ERROR THEN
138 RAISE G_EXCEPTION_ERROR;
139 ELSIF l_return_status = G_RET_STS_UNEXP_ERROR THEN
140 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
141 END IF;
142
143 /* re-assign local record structure using output record from pvt api */
144 l_sxpv_rec := x_sxpv_rec;
145
146
147 OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
148 x_msg_data => x_msg_data);
149 x_return_status := l_return_status;
150 EXCEPTION
151 WHEN G_EXCEPTION_ERROR THEN
152 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
153 p_pkg_name => G_PKG_NAME,
154 p_exc_name => G_EXC_NAME_ERROR,
155 x_msg_count => x_msg_count,
156 x_msg_data => x_msg_data,
157 p_api_type => G_API_TYPE);
158 WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
159 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
160 p_pkg_name => G_PKG_NAME,
161 p_exc_name => G_EXC_NAME_UNEXP_ERROR,
162 x_msg_count => x_msg_count,
163 x_msg_data => x_msg_data,
164 p_api_type => G_API_TYPE);
165 WHEN OTHERS THEN
166 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
167 p_pkg_name => G_PKG_NAME,
168 p_exc_name => G_EXC_NAME_OTHERS,
169 x_msg_count => x_msg_count,
170 x_msg_data => x_msg_data,
171 p_api_type => G_API_TYPE);
172 END update_trx_parm;
173
174 PROCEDURE create_trx_parm(
175 p_api_version IN NUMBER,
176 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
177 x_return_status OUT NOCOPY VARCHAR2,
178 x_msg_count OUT NOCOPY NUMBER,
179 x_msg_data OUT NOCOPY VARCHAR2,
180 p_sxpv_tbl IN sxpv_tbl_type,
181 x_sxpv_tbl OUT NOCOPY sxpv_tbl_type)
182 IS
183 l_api_name CONSTANT VARCHAR2(30) := 'create_trx_parm_tbl';
184 l_api_version CONSTANT NUMBER := 1;
185 l_return_status VARCHAR2(1) := G_RET_STS_SUCCESS;
186 rec_num INTEGER := 0;
187 BEGIN
188 l_return_status := OKL_API.START_ACTIVITY(p_api_name => l_api_name,
189 p_pkg_name => G_PKG_NAME,
190 p_init_msg_list => p_init_msg_list,
191 l_api_version => l_api_version,
192 p_api_version => p_api_version,
193 p_api_type => G_API_TYPE,
194 x_return_status => l_return_status);
195 IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
196 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
197 ELSIF (l_return_status = G_RET_STS_ERROR) THEN
198 RAISE G_EXCEPTION_ERROR;
199 END IF;
200
201 FOR rec_num IN 1..p_sxpv_tbl.COUNT
202 LOOP
203 create_trx_parm(
204 p_api_version => p_api_version,
205 p_init_msg_list => p_init_msg_list,
206 x_return_status => l_return_status,
207 x_msg_count => x_msg_count,
208 x_msg_data => x_msg_data,
209 p_sxpv_rec => p_sxpv_tbl(rec_num),
210 x_sxpv_rec => x_sxpv_tbl(rec_num) );
211 IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
212 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
213 ELSIF (l_return_status = G_RET_STS_ERROR) THEN
214 RAISE G_EXCEPTION_ERROR;
215 END IF;
216
217 END LOOP;
218 OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
219 x_msg_data => x_msg_data);
220 x_return_status := l_return_status;
221 EXCEPTION
222 WHEN G_EXCEPTION_ERROR THEN
223 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
224 p_pkg_name => G_PKG_NAME,
225 p_exc_name => G_EXC_NAME_ERROR,
226 x_msg_count => x_msg_count,
227 x_msg_data => x_msg_data,
228 p_api_type => G_API_TYPE);
229 WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
230 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
231 p_pkg_name => G_PKG_NAME,
232 p_exc_name => G_EXC_NAME_UNEXP_ERROR,
233 x_msg_count => x_msg_count,
234 x_msg_data => x_msg_data,
235 p_api_type => G_API_TYPE);
236 WHEN OTHERS THEN
237 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
238 p_pkg_name => G_PKG_NAME,
239 p_exc_name => G_EXC_NAME_OTHERS,
240 x_msg_count => x_msg_count,
241 x_msg_data => x_msg_data,
242 p_api_type => G_API_TYPE);
243 END create_trx_parm;
244
245
246 PROCEDURE update_trx_parm(
247 p_api_version IN NUMBER,
248 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
249 x_return_status OUT NOCOPY VARCHAR2,
250 x_msg_count OUT NOCOPY NUMBER,
251 x_msg_data OUT NOCOPY VARCHAR2,
252 p_sxpv_tbl IN sxpv_tbl_type,
253 x_sxpv_tbl OUT NOCOPY sxpv_tbl_type)
254 IS
255 l_api_name CONSTANT VARCHAR2(30) := 'update_trx_parm_tbl';
256 l_api_version CONSTANT NUMBER := 1;
257 l_return_status VARCHAR2(1) := G_RET_STS_SUCCESS;
258 rec_num INTEGER := 0;
259 BEGIN
260
261 l_return_status := OKL_API.START_ACTIVITY(p_api_name => l_api_name,
262 p_pkg_name => G_PKG_NAME,
263 p_init_msg_list => p_init_msg_list,
264 l_api_version => l_api_version,
265 p_api_version => p_api_version,
266 p_api_type => G_API_TYPE,
267 x_return_status => l_return_status);
268 IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
269 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
270 ELSIF (l_return_status = G_RET_STS_ERROR) THEN
271 RAISE G_EXCEPTION_ERROR;
272 END IF;
273
274 FOR rec_num IN 1..p_sxpv_tbl.COUNT
275 LOOP
276 update_trx_parm(
277 p_api_version => p_api_version,
278 p_init_msg_list => p_init_msg_list,
279 x_return_status => l_return_status,
280 x_msg_count => x_msg_count,
281 x_msg_data => x_msg_data,
282 p_sxpv_rec => p_sxpv_tbl(rec_num),
283 x_sxpv_rec => x_sxpv_tbl(rec_num) );
284 IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
285 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
286 ELSIF (l_return_status = G_RET_STS_ERROR) THEN
287 RAISE G_EXCEPTION_ERROR;
288 END IF;
289
290 END LOOP;
291 OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
292 x_msg_data => x_msg_data);
293 x_return_status := l_return_status;
294 EXCEPTION
295 WHEN G_EXCEPTION_ERROR THEN
296 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
297 p_pkg_name => G_PKG_NAME,
298 p_exc_name => G_EXC_NAME_ERROR,
299 x_msg_count => x_msg_count,
300 x_msg_data => x_msg_data,
301 p_api_type => G_API_TYPE);
302 WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
303 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
304 p_pkg_name => G_PKG_NAME,
305 p_exc_name => G_EXC_NAME_UNEXP_ERROR,
306 x_msg_count => x_msg_count,
307 x_msg_data => x_msg_data,
308 p_api_type => G_API_TYPE);
309 WHEN OTHERS THEN
310 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
311 p_pkg_name => G_PKG_NAME,
312 p_exc_name => G_EXC_NAME_OTHERS,
313 x_msg_count => x_msg_count,
314 x_msg_data => x_msg_data,
315 p_api_type => G_API_TYPE);
316 END update_trx_parm;
317
318 ---------------------------------------------------------------------------
319 -- PROCEDURE delete_trx_parm for: OKL_SIF_TRX_PARMS_V
320 -- Public Wrapper for Process API
321 ---------------------------------------------------------------------------
322 PROCEDURE delete_trx_parm(p_api_version IN NUMBER,
323 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
324 x_return_status OUT NOCOPY VARCHAR2,
325 x_msg_count OUT NOCOPY NUMBER,
326 x_msg_data OUT NOCOPY VARCHAR2,
327 p_sxpv_rec IN sxpv_rec_type,
328 x_sxpv_rec OUT NOCOPY sxpv_rec_type
329 ) IS
330
331 l_api_name CONSTANT VARCHAR2(30) := 'delete_trx_parm';
332 l_api_version CONSTANT NUMBER := 1;
333 l_sxpv_rec sxpv_rec_type;
334 l_return_status VARCHAR2(1) := G_RET_STS_SUCCESS;
335 l_data VARCHAR2(100);
336 l_count NUMBER ;
337 BEGIN
338 x_return_status := G_RET_STS_SUCCESS;
339 l_sxpv_rec := p_sxpv_rec;
340
341 l_return_status := OKL_API.START_ACTIVITY(p_api_name => l_api_name,
342 p_pkg_name => G_PKG_NAME,
343 p_init_msg_list => p_init_msg_list,
344 l_api_version => l_api_version,
345 p_api_version => p_api_version,
346 p_api_type => G_API_TYPE,
347 x_return_status => l_return_status);
348 IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
349 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
350 ELSIF (l_return_status = G_RET_STS_ERROR) THEN
351 RAISE G_EXCEPTION_ERROR;
352 END IF;
353
354
355
356 -- call process api to delete formulae
357 OKL_SETUP_TRXPARAMS_PVT.delete_trx_parm(p_api_version => p_api_version,
358 p_init_msg_list => p_init_msg_list,
359 x_return_status => l_return_status,
360 x_msg_count => x_msg_count,
361 x_msg_data => x_msg_data,
362 p_sxpv_rec => l_sxpv_rec,
363 x_sxpv_rec => x_sxpv_rec);
364
365 IF l_return_status = G_RET_STS_ERROR THEN
366 RAISE G_EXCEPTION_ERROR;
367 ELSIF l_return_status = G_RET_STS_UNEXP_ERROR THEN
368 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
369 END IF;
370
371 /* re-assign local record structure using output record from pvt api */
372 l_sxpv_rec := x_sxpv_rec;
373
374
375
376 OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
377 x_msg_data => x_msg_data);
378 x_return_status := l_return_status;
379
380 EXCEPTION
381 WHEN G_EXCEPTION_ERROR THEN
382 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
383 p_pkg_name => G_PKG_NAME,
384 p_exc_name => G_EXC_NAME_ERROR,
385 x_msg_count => x_msg_count,
386 x_msg_data => x_msg_data,
387 p_api_type => G_API_TYPE);
388 WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
389 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
390 p_pkg_name => G_PKG_NAME,
391 p_exc_name => G_EXC_NAME_UNEXP_ERROR,
392 x_msg_count => x_msg_count,
393 x_msg_data => x_msg_data,
394 p_api_type => G_API_TYPE);
395 WHEN OTHERS THEN
396 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
397 p_pkg_name => G_PKG_NAME,
398 p_exc_name => G_EXC_NAME_OTHERS,
399 x_msg_count => x_msg_count,
400 x_msg_data => x_msg_data,
401 p_api_type => G_API_TYPE);
402 END delete_trx_parm;
403
404 PROCEDURE delete_trx_parm(
405 p_api_version IN NUMBER,
406 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
407 x_return_status OUT NOCOPY VARCHAR2,
408 x_msg_count OUT NOCOPY NUMBER,
409 x_msg_data OUT NOCOPY VARCHAR2,
410 p_sxpv_tbl IN sxpv_tbl_type,
411 x_sxpv_tbl OUT NOCOPY sxpv_tbl_type)
412 IS
413 l_api_name CONSTANT VARCHAR2(30) := 'delete_trx_parm_tbl';
414 l_api_version CONSTANT NUMBER := 1;
415 l_return_status VARCHAR2(1) := G_RET_STS_SUCCESS;
416 rec_num INTEGER := 0;
417 BEGIN
418
419 l_return_status := OKL_API.START_ACTIVITY(p_api_name => l_api_name,
420 p_pkg_name => G_PKG_NAME,
421 p_init_msg_list => p_init_msg_list,
422 l_api_version => l_api_version,
423 p_api_version => p_api_version,
424 p_api_type => G_API_TYPE,
425 x_return_status => l_return_status);
426 IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
427 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
428 ELSIF (l_return_status = G_RET_STS_ERROR) THEN
429 RAISE G_EXCEPTION_ERROR;
430 END IF;
431
432 FOR rec_num IN 1..p_sxpv_tbl.COUNT
433 LOOP
434 delete_trx_parm(
435 p_api_version => p_api_version,
436 p_init_msg_list => p_init_msg_list,
437 x_return_status => l_return_status,
438 x_msg_count => x_msg_count,
439 x_msg_data => x_msg_data,
440 p_sxpv_rec => p_sxpv_tbl(rec_num),
441 x_sxpv_rec => x_sxpv_tbl(rec_num) );
442
443 IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
444 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
445 ELSIF (l_return_status = G_RET_STS_ERROR) THEN
446 RAISE G_EXCEPTION_ERROR;
447 END IF;
448 END LOOP;
449 OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
450 x_msg_data => x_msg_data);
451 x_return_status := l_return_status;
452
453 EXCEPTION
454 WHEN G_EXCEPTION_ERROR THEN
455 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
456 p_pkg_name => G_PKG_NAME,
457 p_exc_name => G_EXC_NAME_ERROR,
458 x_msg_count => x_msg_count,
459 x_msg_data => x_msg_data,
460 p_api_type => G_API_TYPE);
461 WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
462 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
463 p_pkg_name => G_PKG_NAME,
464 p_exc_name => G_EXC_NAME_UNEXP_ERROR,
465 x_msg_count => x_msg_count,
466 x_msg_data => x_msg_data,
467 p_api_type => G_API_TYPE);
468 WHEN OTHERS THEN
469 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
470 p_pkg_name => G_PKG_NAME,
471 p_exc_name => G_EXC_NAME_OTHERS,
472 x_msg_count => x_msg_count,
473 x_msg_data => x_msg_data,
474 p_api_type => G_API_TYPE);
475 END delete_trx_parm;
476
477 ---------------------------------------------------------------------------
478 -- PROCEDURE create_trx_asset_parm for: OKL_SIF_TRX_PARMS_V
479 -- Public Wrapper for create_trx_asset_parm Process API
480 ---------------------------------------------------------------------------
481 PROCEDURE create_trx_asset_parm( p_api_version IN NUMBER,
482 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
483 x_return_status OUT NOCOPY VARCHAR2,
484 x_msg_count OUT NOCOPY NUMBER,
485 x_msg_data OUT NOCOPY VARCHAR2,
486 p_sxpv_rec IN sxpv_rec_type,
487 x_sxpv_rec OUT NOCOPY sxpv_rec_type
488 ) IS
489 l_api_name CONSTANT VARCHAR2(30) := 'create_trx_asset_parm';
490 l_api_version CONSTANT NUMBER := 1;
491 l_return_status VARCHAR2(1) := G_RET_STS_SUCCESS;
495
492 l_sxpv_rec sxpv_rec_type;
493 l_data VARCHAR2(100);
494 l_count NUMBER ;
496 BEGIN
497 l_return_status := G_RET_STS_SUCCESS;
498 l_sxpv_rec := p_sxpv_rec;
499
500 l_return_status := OKL_API.START_ACTIVITY(p_api_name => l_api_name,
501 p_pkg_name => G_PKG_NAME,
502 p_init_msg_list => p_init_msg_list,
503 l_api_version => l_api_version,
504 p_api_version => p_api_version,
505 p_api_type => G_API_TYPE,
506 x_return_status => l_return_status);
507 IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
508 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
509 ELSIF (l_return_status = G_RET_STS_ERROR) THEN
510 RAISE G_EXCEPTION_ERROR;
511 END IF;
512
513
514
515
516
517 -- call process api to create_trx_asset_parm
518 OKL_SETUP_TRXPARAMS_PVT.create_trx_asset_parm(p_api_version => p_api_version,
519 p_init_msg_list => p_init_msg_list,
520 x_return_status => l_return_status,
521 x_msg_count => x_msg_count,
522 x_msg_data => x_msg_data,
523 p_sxpv_rec => l_sxpv_rec,
524 x_sxpv_rec => x_sxpv_rec);
525
526 IF l_return_status = G_RET_STS_ERROR THEN
527 RAISE G_EXCEPTION_ERROR;
528 ELSIF l_return_status = G_RET_STS_UNEXP_ERROR THEN
529 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
530 END IF;
531
532 /* re-assign local record structure using output record from pvt api */
533 l_sxpv_rec := x_sxpv_rec;
534
535
536 OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
537 x_msg_data => x_msg_data);
538 x_return_status := l_return_status;
539 EXCEPTION
540 WHEN G_EXCEPTION_ERROR THEN
541 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
542 p_pkg_name => G_PKG_NAME,
543 p_exc_name => G_EXC_NAME_ERROR,
544 x_msg_count => x_msg_count,
545 x_msg_data => x_msg_data,
546 p_api_type => G_API_TYPE);
547 WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
548 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
549 p_pkg_name => G_PKG_NAME,
550 p_exc_name => G_EXC_NAME_UNEXP_ERROR,
551 x_msg_count => x_msg_count,
552 x_msg_data => x_msg_data,
553 p_api_type => G_API_TYPE);
554 WHEN OTHERS THEN
555 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
556 p_pkg_name => G_PKG_NAME,
557 p_exc_name => G_EXC_NAME_OTHERS,
558 x_msg_count => x_msg_count,
559 x_msg_data => x_msg_data,
560 p_api_type => G_API_TYPE);
561 END create_trx_asset_parm;
562
563 ---------------------------------------------------------------------------
564 -- PROCEDURE update_trx_asset_parm for: OKL_SIF_TRX_PARMS_V
565 -- Public Wrapper for Process API
566 ---------------------------------------------------------------------------
567 PROCEDURE update_trx_asset_parm(p_api_version IN NUMBER,
568 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
569 x_return_status OUT NOCOPY VARCHAR2,
570 x_msg_count OUT NOCOPY NUMBER,
571 x_msg_data OUT NOCOPY VARCHAR2,
572 p_sxpv_rec IN sxpv_rec_type,
573 x_sxpv_rec OUT NOCOPY sxpv_rec_type
574 ) IS
575
576 l_api_name CONSTANT VARCHAR2(30) := 'update_trx_asset_parm';
577 l_api_version CONSTANT NUMBER := 1;
578 l_return_status VARCHAR2(1) := G_RET_STS_SUCCESS;
579 l_sxpv_rec sxpv_rec_type;
580
581 l_data VARCHAR2(100);
582 l_count NUMBER ;
583 BEGIN
584 x_return_status := G_RET_STS_SUCCESS;
585 l_sxpv_rec := p_sxpv_rec;
586
587 l_return_status := OKL_API.START_ACTIVITY(p_api_name => l_api_name,
588 p_pkg_name => G_PKG_NAME,
589 p_init_msg_list => p_init_msg_list,
590 l_api_version => l_api_version,
591 p_api_version => p_api_version,
592 p_api_type => G_API_TYPE,
593 x_return_status => l_return_status);
594 IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
595 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
596 ELSIF (l_return_status = G_RET_STS_ERROR) THEN
597 RAISE G_EXCEPTION_ERROR;
598 END IF;
599
600
601 -- call process api to update formulae
602 OKL_SETUP_TRXPARAMS_PVT.update_trx_asset_parm(p_api_version => p_api_version,
603 p_init_msg_list => p_init_msg_list,
604 x_return_status => l_return_status,
605 x_msg_count => x_msg_count,
606 x_msg_data => x_msg_data,
607 p_sxpv_rec => l_sxpv_rec,
608 x_sxpv_rec => x_sxpv_rec);
609
610 IF l_return_status = G_RET_STS_ERROR THEN
614 END IF;
611 RAISE G_EXCEPTION_ERROR;
612 ELSIF l_return_status = G_RET_STS_UNEXP_ERROR THEN
613 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
615
616 /* re-assign local record structure using output record from pvt api */
617 l_sxpv_rec := x_sxpv_rec;
618
619
620 OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
621 x_msg_data => x_msg_data);
622 x_return_status := l_return_status;
623 EXCEPTION
624 WHEN G_EXCEPTION_ERROR THEN
625 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
626 p_pkg_name => G_PKG_NAME,
627 p_exc_name => G_EXC_NAME_ERROR,
628 x_msg_count => x_msg_count,
629 x_msg_data => x_msg_data,
630 p_api_type => G_API_TYPE);
631 WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
632 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
633 p_pkg_name => G_PKG_NAME,
634 p_exc_name => G_EXC_NAME_UNEXP_ERROR,
635 x_msg_count => x_msg_count,
636 x_msg_data => x_msg_data,
637 p_api_type => G_API_TYPE);
638 WHEN OTHERS THEN
639 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
640 p_pkg_name => G_PKG_NAME,
641 p_exc_name => G_EXC_NAME_OTHERS,
642 x_msg_count => x_msg_count,
643 x_msg_data => x_msg_data,
644 p_api_type => G_API_TYPE);
645 END update_trx_asset_parm;
646
647 PROCEDURE create_trx_asset_parm(
648 p_api_version IN NUMBER,
649 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
650 x_return_status OUT NOCOPY VARCHAR2,
651 x_msg_count OUT NOCOPY NUMBER,
652 x_msg_data OUT NOCOPY VARCHAR2,
653 p_sxpv_tbl IN sxpv_tbl_type,
654 x_sxpv_tbl OUT NOCOPY sxpv_tbl_type)
655 IS
656 l_api_name CONSTANT VARCHAR2(30) := 'create_trx_asset_parm_tbl';
657 l_api_version CONSTANT NUMBER := 1;
658 l_return_status VARCHAR2(1) := G_RET_STS_SUCCESS;
659 rec_num INTEGER := 0;
660 BEGIN
661 l_return_status := OKL_API.START_ACTIVITY(p_api_name => l_api_name,
662 p_pkg_name => G_PKG_NAME,
663 p_init_msg_list => p_init_msg_list,
664 l_api_version => l_api_version,
665 p_api_version => p_api_version,
666 p_api_type => G_API_TYPE,
667 x_return_status => l_return_status);
668 IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
669 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
670 ELSIF (l_return_status = G_RET_STS_ERROR) THEN
671 RAISE G_EXCEPTION_ERROR;
672 END IF;
673
674 FOR rec_num IN 1..p_sxpv_tbl.COUNT
675 LOOP
676 create_trx_asset_parm(
677 p_api_version => p_api_version,
678 p_init_msg_list => p_init_msg_list,
679 x_return_status => l_return_status,
680 x_msg_count => x_msg_count,
681 x_msg_data => x_msg_data,
682 p_sxpv_rec => p_sxpv_tbl(rec_num),
683 x_sxpv_rec => x_sxpv_tbl(rec_num) );
684 IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
685 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
686 ELSIF (l_return_status = G_RET_STS_ERROR) THEN
687 RAISE G_EXCEPTION_ERROR;
688 END IF;
689
690 END LOOP;
691 OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
692 x_msg_data => x_msg_data);
693 x_return_status := l_return_status;
694 EXCEPTION
695 WHEN G_EXCEPTION_ERROR THEN
696 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
697 p_pkg_name => G_PKG_NAME,
698 p_exc_name => G_EXC_NAME_ERROR,
699 x_msg_count => x_msg_count,
700 x_msg_data => x_msg_data,
701 p_api_type => G_API_TYPE);
702 WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
703 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
704 p_pkg_name => G_PKG_NAME,
705 p_exc_name => G_EXC_NAME_UNEXP_ERROR,
706 x_msg_count => x_msg_count,
707 x_msg_data => x_msg_data,
708 p_api_type => G_API_TYPE);
709 WHEN OTHERS THEN
710 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
711 p_pkg_name => G_PKG_NAME,
712 p_exc_name => G_EXC_NAME_OTHERS,
713 x_msg_count => x_msg_count,
714 x_msg_data => x_msg_data,
715 p_api_type => G_API_TYPE);
716 END create_trx_asset_parm;
717
718
719 PROCEDURE update_trx_asset_parm(
720 p_api_version IN NUMBER,
721 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
722 x_return_status OUT NOCOPY VARCHAR2,
723 x_msg_count OUT NOCOPY NUMBER,
724 x_msg_data OUT NOCOPY VARCHAR2,
725 p_sxpv_tbl IN sxpv_tbl_type,
726 x_sxpv_tbl OUT NOCOPY sxpv_tbl_type)
727 IS
728 l_api_name CONSTANT VARCHAR2(30) := 'update_trx_asset_parm_tbl';
729 l_api_version CONSTANT NUMBER := 1;
730 l_return_status VARCHAR2(1) := G_RET_STS_SUCCESS;
731 rec_num INTEGER := 0;
732 BEGIN
733
734 l_return_status := OKL_API.START_ACTIVITY(p_api_name => l_api_name,
735 p_pkg_name => G_PKG_NAME,
736 p_init_msg_list => p_init_msg_list,
737 l_api_version => l_api_version,
738 p_api_version => p_api_version,
739 p_api_type => G_API_TYPE,
740 x_return_status => l_return_status);
741 IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
742 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
743 ELSIF (l_return_status = G_RET_STS_ERROR) THEN
744 RAISE G_EXCEPTION_ERROR;
745 END IF;
746
747 FOR rec_num IN 1..p_sxpv_tbl.COUNT
748 LOOP
749 update_trx_asset_parm(
750 p_api_version => p_api_version,
751 p_init_msg_list => p_init_msg_list,
752 x_return_status => l_return_status,
753 x_msg_count => x_msg_count,
754 x_msg_data => x_msg_data,
755 p_sxpv_rec => p_sxpv_tbl(rec_num),
756 x_sxpv_rec => x_sxpv_tbl(rec_num) );
757 IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
758 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
759 ELSIF (l_return_status = G_RET_STS_ERROR) THEN
760 RAISE G_EXCEPTION_ERROR;
761 END IF;
762
763 END LOOP;
764 OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
765 x_msg_data => x_msg_data);
766 x_return_status := l_return_status;
767 EXCEPTION
768 WHEN G_EXCEPTION_ERROR THEN
769 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
770 p_pkg_name => G_PKG_NAME,
771 p_exc_name => G_EXC_NAME_ERROR,
772 x_msg_count => x_msg_count,
773 x_msg_data => x_msg_data,
774 p_api_type => G_API_TYPE);
775 WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
776 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
777 p_pkg_name => G_PKG_NAME,
778 p_exc_name => G_EXC_NAME_UNEXP_ERROR,
779 x_msg_count => x_msg_count,
780 x_msg_data => x_msg_data,
781 p_api_type => G_API_TYPE);
782 WHEN OTHERS THEN
783 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
784 p_pkg_name => G_PKG_NAME,
785 p_exc_name => G_EXC_NAME_OTHERS,
786 x_msg_count => x_msg_count,
787 x_msg_data => x_msg_data,
788 p_api_type => G_API_TYPE);
789 END update_trx_asset_parm;
790
791
792 END OKL_SETUP_TRXPARAMS_PUB;