[Home] [Help]
PACKAGE BODY: APPS.OKL_XCR_PUB
Source
1 PACKAGE BODY okl_xcr_pub AS
2 /* $Header: OKLPXCRB.pls 115.9 2002/12/18 12:44:31 kjinger noship $ */
3
4 PROCEDURE ADD_LANGUAGE IS
5 BEGIN
6 Okl_Extrn_Pvt.ADD_LANGUAGE;
7 END ADD_LANGUAGE;
8
9 --Object type procedure for insert
10 PROCEDURE create_ext_ar_txns(
11 p_api_version IN NUMBER
12 ,p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE
13 ,x_return_status OUT NOCOPY VARCHAR2
14 ,x_msg_count OUT NOCOPY NUMBER
15 ,x_msg_data OUT NOCOPY VARCHAR2
16 ,p_xcrv_rec IN xcrv_rec_type
17 ,p_xcav_tbl IN xcav_tbl_type
18 ,x_xcrv_rec OUT NOCOPY xcrv_rec_type
19 ,x_xcav_tbl OUT NOCOPY xcav_tbl_type
20 ) IS
21
22 l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
23
24 l_api_version NUMBER;
25 l_init_msg_list VARCHAR2(1);
26
27 l_msg_count NUMBER;
28 l_msg_data VARCHAR(2000);
29
30 lp_xcrv_rec xcrv_rec_type;
31 lx_xcrv_rec xcrv_rec_type;
32
33 lp_xcav_tbl xcav_tbl_type;
34 lx_xcav_tbl xcav_tbl_type;
35 BEGIN
36
37 SAVEPOINT save_Insert_row;
38
39 l_api_version := p_api_version;
40 l_init_msg_list := l_init_msg_list;
41
42 lp_xcrv_rec := p_xcrv_rec;
43 lp_xcav_tbl := p_xcav_tbl;
44
45 -- customer pre-processing
46
47
48 -- vertical industry-preprocessing
49
50
51
52 Okl_Extrn_Pvt.CREATE_EXT_CSH_TXNS (
53 p_api_version
54 ,p_init_msg_list
55 ,x_return_status
56 ,x_msg_count
57 ,x_msg_data
58 ,p_xcrv_rec
59 ,p_xcav_tbl
60 ,x_xcrv_rec
61 ,x_xcav_tbl
62 );
63
64
65 IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
66 RAISE G_EXCEPTION_HALT_VALIDATION;
67 END IF;
68
69 -- customer post-processing
70
71
72 -- vertical industry-post-processing
73
74
75 --Assign value to OUT variables
76 x_xcrv_rec := lx_xcrv_rec;
77 x_xcav_tbl := lx_xcav_tbl;
78 x_return_status := l_return_status ;
79 x_msg_count := l_msg_count ;
80 x_msg_data := l_msg_data ;
81
82
83 EXCEPTION
84 WHEN Fnd_Api.G_EXC_ERROR THEN
85 ROLLBACK TO save_Insert_row;
86 x_return_status := Fnd_Api.G_RET_STS_ERROR;
87 x_msg_count := l_msg_count ;
88 x_msg_data := l_msg_data ;
89 Fnd_Msg_Pub.count_and_get(
90 p_count => x_msg_count
91 ,p_data => x_msg_data);
92 WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
93 ROLLBACK TO save_Insert_row;
94 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
95 x_msg_count := l_msg_count ;
96 x_msg_data := l_msg_data ;
97 Fnd_Msg_Pub.count_and_get(
98 p_count => x_msg_count
99 ,p_data => x_msg_data);
100 WHEN OTHERS THEN
101 ROLLBACK TO save_Insert_row;
102 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
103 x_msg_count := l_msg_count ;
104 x_msg_data := l_msg_data ;
105 Fnd_Msg_Pub.ADD_EXC_MSG('OKL_XCB_PUB','insert_row');
106 Fnd_Msg_Pub.count_and_get(
107 p_count => x_msg_count
108 ,p_data => x_msg_data);
109
110
111 END create_ext_ar_txns;
112
113 --Object type procedure for update
114 PROCEDURE update_ext_ar_txns(
115 p_api_version IN NUMBER
116 ,p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE
117 ,x_return_status OUT NOCOPY VARCHAR2
118 ,x_msg_count OUT NOCOPY NUMBER
119 ,x_msg_data OUT NOCOPY VARCHAR2
120 ,p_xcrv_rec IN xcrv_rec_type
121 ,p_xcav_tbl IN xcav_tbl_type
122 ,x_xcrv_rec OUT NOCOPY xcrv_rec_type
123 ,x_xcav_tbl OUT NOCOPY xcav_tbl_type
124 ) IS
125
126 l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
127
128 l_api_version NUMBER;
129 l_init_msg_list VARCHAR2(1);
130
131 l_msg_count NUMBER;
132 l_msg_data VARCHAR(2000);
133
134 lp_xcrv_rec xcrv_rec_type;
135 lx_xcrv_rec xcrv_rec_type;
136
137 lp_xcav_tbl xcav_tbl_type;
138 lx_xcav_tbl xcav_tbl_type;
139
140 BEGIN
141
142 SAVEPOINT save_update_row;
143
144 l_api_version := p_api_version;
145 l_init_msg_list := l_init_msg_list;
146
147 lp_xcrv_rec := p_xcrv_rec;
148 lp_xcav_tbl := p_xcav_tbl;
149
150 -- customer pre-processing
151
152
153 -- vertical industry-preprocessing
154
155
156 Okl_Extrn_Pvt.UPDATE_EXT_CSH_TXNS(
157 p_api_version
158 ,p_init_msg_list
159 ,x_return_status
160 ,x_msg_count
161 ,x_msg_data
162 ,p_xcrv_rec
163 ,p_xcav_tbl
164 ,x_xcrv_rec
165 ,x_xcav_tbl
166 );
167 IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
168 RAISE G_EXCEPTION_HALT_VALIDATION;
169 END IF;
170
171 -- customer post-processing
172
173
174 -- vertical industry-post-processing
175
176
177 --Assign value to OUT variables
178 x_xcrv_rec := lx_xcrv_rec;
179 x_xcav_tbl := lx_xcav_tbl;
180 x_return_status := l_return_status ;
181 x_msg_count := l_msg_count ;
182 x_msg_data := l_msg_data ;
183
184 EXCEPTION
185 WHEN Fnd_Api.G_EXC_ERROR THEN
186 ROLLBACK TO save_update_row;
187 x_return_status := Fnd_Api.G_RET_STS_ERROR;
188 x_msg_count := l_msg_count ;
189 x_msg_data := l_msg_data ;
190 Fnd_Msg_Pub.count_and_get(
191 p_count => x_msg_count
192 ,p_data => x_msg_data);
193 WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
194 ROLLBACK TO save_update_row;
195 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
196 x_msg_count := l_msg_count ;
197 x_msg_data := l_msg_data ;
198 Fnd_Msg_Pub.count_and_get(
199 p_count => x_msg_count
200 ,p_data => x_msg_data);
201 WHEN OTHERS THEN
202 ROLLBACK TO save_update_row;
203 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
204 x_msg_count := l_msg_count ;
205 x_msg_data := l_msg_data ;
206 Fnd_Msg_Pub.ADD_EXC_MSG('OKL_XCB_PUB','update_row');
207 Fnd_Msg_Pub.count_and_get(
208 p_count => x_msg_count
209 ,p_data => x_msg_data);
210
211
212 END update_ext_ar_txns;
213
214 PROCEDURE update_ext_csh_txns(
215 p_api_version IN NUMBER
216 ,p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE
217 ,x_return_status OUT NOCOPY VARCHAR2
218 ,x_msg_count OUT NOCOPY NUMBER
219 ,x_msg_data OUT NOCOPY VARCHAR2
220 ,p_xcrv_rec IN xcrv_rec_type
221 ,x_xcrv_rec OUT NOCOPY xcrv_rec_type
222 ) IS
223
224 l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
225
226 l_api_version NUMBER;
227 l_init_msg_list VARCHAR2(1);
228
229 l_msg_count NUMBER;
230 l_msg_data VARCHAR(2000);
231
232 lp_xcrv_rec xcrv_rec_type;
233 lx_xcrv_rec xcrv_rec_type;
234
235 BEGIN
236
237 SAVEPOINT save_update_row;
238
239 l_api_version := p_api_version;
240 l_init_msg_list := l_init_msg_list;
241
242 lp_xcrv_rec := p_xcrv_rec;
243
244 -- customer pre-processing
245
246
247 -- vertical industry-preprocessing
248
249
250 Okl_Extrn_Pvt.update_ext_csh_txns(
251 p_api_version
252 ,p_init_msg_list
253 ,x_return_status
254 ,x_msg_count
255 ,x_msg_data
256 ,p_xcrv_rec
257 ,x_xcrv_rec
258 );
259
260 IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
261 RAISE G_EXCEPTION_HALT_VALIDATION;
262 END IF;
263
264 -- customer post-processing
265
266
267 -- vertical industry-post-processing
268
269
270 --Assign value to OUT variables
271 x_xcrv_rec := lx_xcrv_rec;
272 x_return_status := l_return_status ;
273 x_msg_count := l_msg_count ;
274 x_msg_data := l_msg_data ;
275
276 EXCEPTION
277 WHEN Fnd_Api.G_EXC_ERROR THEN
278 ROLLBACK TO save_update_row;
279 x_return_status := Fnd_Api.G_RET_STS_ERROR;
280 x_msg_count := l_msg_count ;
281 x_msg_data := l_msg_data ;
282 Fnd_Msg_Pub.count_and_get(
283 p_count => x_msg_count
284 ,p_data => x_msg_data);
285 WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
286 ROLLBACK TO save_update_row;
287 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
288 x_msg_count := l_msg_count ;
289 x_msg_data := l_msg_data ;
290 Fnd_Msg_Pub.count_and_get(
291 p_count => x_msg_count
292 ,p_data => x_msg_data);
293 WHEN OTHERS THEN
294 ROLLBACK TO save_update_row;
295 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
296 x_msg_count := l_msg_count ;
297 x_msg_data := l_msg_data ;
298 Fnd_Msg_Pub.ADD_EXC_MSG('OKL_XCB_PUB','update_row');
299 Fnd_Msg_Pub.count_and_get(
300 p_count => x_msg_count
301 ,p_data => x_msg_data);
302
303
304 END update_ext_csh_txns;
305
306 --Object type procedure for update
307 PROCEDURE delete_ext_ar_txns(
308 p_api_version IN NUMBER
309 ,p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE
310 ,x_return_status OUT NOCOPY VARCHAR2
311 ,x_msg_count OUT NOCOPY NUMBER
312 ,x_msg_data OUT NOCOPY VARCHAR2
313 ,p_xcrv_rec IN xcrv_rec_type
314 ,p_xcav_tbl IN xcav_tbl_type
315 ,x_xcrv_rec OUT NOCOPY xcrv_rec_type
316 ,x_xcav_tbl OUT NOCOPY xcav_tbl_type
317 ) IS
318
319 l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
320
321 l_api_version NUMBER;
322 l_init_msg_list VARCHAR2(1);
323
324 l_msg_count NUMBER;
325 l_msg_data VARCHAR(2000);
326
327 lp_xcrv_rec xcrv_rec_type;
328 lx_xcrv_rec xcrv_rec_type;
329
330 lp_xcav_tbl xcav_tbl_type;
331 lx_xcav_tbl xcav_tbl_type;
332
333 BEGIN
334
335 SAVEPOINT save_update_row;
336
337 l_api_version := p_api_version;
338 l_init_msg_list := l_init_msg_list;
339
340 lp_xcrv_rec := p_xcrv_rec;
341 lp_xcav_tbl := p_xcav_tbl;
342
343 -- customer pre-processing
344
345
346 -- vertical industry-preprocessing
347
348
349 Okl_Extrn_Pvt.DELETE_EXT_CSH_TXNS(
350 p_api_version
351 ,p_init_msg_list
352 ,x_return_status
353 ,x_msg_count
354 ,x_msg_data
355 ,p_xcrv_rec
356 ,p_xcav_tbl
357 ,x_xcrv_rec
358 ,x_xcav_tbl
359 );
360 IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
361 RAISE G_EXCEPTION_HALT_VALIDATION;
362 END IF;
363
364 -- customer post-processing
365
366
367 -- vertical industry-post-processing
368
369
370 --Assign value to OUT variables
371 x_xcrv_rec := lx_xcrv_rec;
372 x_xcav_tbl := lx_xcav_tbl;
373 x_return_status := l_return_status ;
374 x_msg_count := l_msg_count ;
375 x_msg_data := l_msg_data ;
376
377 EXCEPTION
378 WHEN Fnd_Api.G_EXC_ERROR THEN
379 ROLLBACK TO save_update_row;
380 x_return_status := Fnd_Api.G_RET_STS_ERROR;
381 x_msg_count := l_msg_count ;
382 x_msg_data := l_msg_data ;
383 Fnd_Msg_Pub.count_and_get(
384 p_count => x_msg_count
385 ,p_data => x_msg_data);
386 WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
387 ROLLBACK TO save_update_row;
388 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
389 x_msg_count := l_msg_count ;
390 x_msg_data := l_msg_data ;
391 Fnd_Msg_Pub.count_and_get(
392 p_count => x_msg_count
393 ,p_data => x_msg_data);
394 WHEN OTHERS THEN
395 ROLLBACK TO save_update_row;
396 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
397 x_msg_count := l_msg_count ;
398 x_msg_data := l_msg_data ;
399 Fnd_Msg_Pub.ADD_EXC_MSG('OKL_XCR_PUB','delete_row');
400 Fnd_Msg_Pub.count_and_get(
401 p_count => x_msg_count
402 ,p_data => x_msg_data);
403
404
405 END delete_ext_ar_txns;
406
407 --Object type procedure for validate
408 PROCEDURE validate_ext_ar_txns(
409 p_api_version IN NUMBER
410 ,p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE
411 ,x_return_status OUT NOCOPY VARCHAR2
412 ,x_msg_count OUT NOCOPY NUMBER
413 ,x_msg_data OUT NOCOPY VARCHAR2
414 ,p_xcrv_rec IN xcrv_rec_type
415 ,p_xcav_tbl IN xcav_tbl_type
416 ) IS
417
418 l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
419
420 l_api_version NUMBER;
421 l_init_msg_list VARCHAR2(1);
422
423 l_msg_count NUMBER;
424 l_msg_data VARCHAR(2000);
425
426 lp_xcrv_rec xcrv_rec_type;
427 lx_xcrv_rec xcrv_rec_type;
428
429 lp_xcav_tbl xcav_tbl_type;
430 lx_xcav_tbl xcav_tbl_type;
431
432 BEGIN
433 SAVEPOINT save_validate_row;
434
435 l_api_version := p_api_version;
436 l_init_msg_list := l_init_msg_list;
437
438 lp_xcrv_rec := p_xcrv_rec;
439 lp_xcav_tbl := p_xcav_tbl;
440
441 -- customer pre-processing
442
443
444 -- vertical industry-preprocessing
445
446
447
448 Okl_Extrn_Pvt.VALIDATE_EXT_CSH_TXNS(
449 p_api_version
450 ,p_init_msg_list
451 ,x_return_status
452 ,x_msg_count
453 ,x_msg_data
454 ,p_xcrv_rec
455 ,p_xcav_tbl
456 );
457
458 IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
459 RAISE G_EXCEPTION_HALT_VALIDATION;
460 END IF;
461
462 -- customer post-processing
463
464
465 -- vertical industry-post-processing
466
467
468 --Assign value to OUT variables
469 x_return_status := l_return_status ;
470 x_msg_count := l_msg_count ;
471 x_msg_data := l_msg_data ;
472
473 EXCEPTION
474 WHEN Fnd_Api.G_EXC_ERROR THEN
475 ROLLBACK TO save_validate_row;
476 x_return_status := Fnd_Api.G_RET_STS_ERROR;
477 x_msg_count := l_msg_count ;
478 x_msg_data := l_msg_data ;
479 Fnd_Msg_Pub.count_and_get(
480 p_count => x_msg_count
481 ,p_data => x_msg_data);
482 WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
483 ROLLBACK TO save_validate_row;
484 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
485 x_msg_count := l_msg_count ;
486 x_msg_data := l_msg_data ;
487 Fnd_Msg_Pub.count_and_get(
488 p_count => x_msg_count
489 ,p_data => x_msg_data);
490 WHEN OTHERS THEN
491 ROLLBACK TO save_validate_row;
492 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
493 x_msg_count := l_msg_count ;
494 x_msg_data := l_msg_data ;
495 Fnd_Msg_Pub.ADD_EXC_MSG('OKL_XCB_PUB','validate_row');
496 Fnd_Msg_Pub.count_and_get(
497 p_count => x_msg_count
498 ,p_data => x_msg_data);
499
500
501 END validate_ext_ar_txns;
502
503 --Object type procedure for lock
504 PROCEDURE lock_ext_ar_txns(
505 p_api_version IN NUMBER
506 ,p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE
507 ,x_return_status OUT NOCOPY VARCHAR2
508 ,x_msg_count OUT NOCOPY NUMBER
509 ,x_msg_data OUT NOCOPY VARCHAR2
510 ,p_xcrv_rec IN xcrv_rec_type
511 ) IS
512 BEGIN
513 Okl_Extrn_Pvt.LOCK_EXT_CSH_TXNS(
514 p_api_version
515 ,p_init_msg_list
516 ,x_return_status
517 ,x_msg_count
518 ,x_msg_data
519 ,p_xcrv_rec
520 );
521
522 IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
523 RAISE G_EXCEPTION_HALT_VALIDATION;
524 END IF;
525
526 EXCEPTION
527 WHEN G_EXCEPTION_HALT_VALIDATION THEN
528 x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
529
530 WHEN OTHERS THEN
531 Okl_Api.set_message(p_app_name => g_app_name,
532 p_msg_name => g_unexpected_error,
533 p_token1 => g_sqlcode_token,
534 p_token1_value => SQLCODE,
535 p_token2 => g_sqlerrm_token,
536 p_token2_value => SQLERRM);
537 x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
538 END lock_ext_ar_txns;
539
540 --Object type procedure for lock
541 PROCEDURE lock_ext_ar_txns(
542 p_api_version IN NUMBER
543 ,p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE
544 ,x_return_status OUT NOCOPY VARCHAR2
545 ,x_msg_count OUT NOCOPY NUMBER
546 ,x_msg_data OUT NOCOPY VARCHAR2
547 ,p_xcrv_tbl IN xcrv_tbl_type
548 ) IS
549 BEGIN
550 Okl_Extrn_Pvt.LOCK_EXT_CSH_TXNS(
551 p_api_version
552 ,p_init_msg_list
553 ,x_return_status
554 ,x_msg_count
555 ,x_msg_data
556 ,p_xcrv_tbl
557 );
558
559 IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
560 RAISE G_EXCEPTION_HALT_VALIDATION;
561 END IF;
562
563 EXCEPTION
564 WHEN G_EXCEPTION_HALT_VALIDATION THEN
565 x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
566
567 WHEN OTHERS THEN
568 Okl_Api.set_message(p_app_name => g_app_name,
569 p_msg_name => g_unexpected_error,
570 p_token1 => g_sqlcode_token,
571 p_token1_value => SQLCODE,
572 p_token2 => g_sqlerrm_token,
573 p_token2_value => SQLERRM);
574 x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
575 END lock_ext_ar_txns;
576
577 --Object type procedure for lock
578 PROCEDURE lock_ext_ar_txns(
579 p_api_version IN NUMBER
580 ,p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE
581 ,x_return_status OUT NOCOPY VARCHAR2
582 ,x_msg_count OUT NOCOPY NUMBER
583 ,x_msg_data OUT NOCOPY VARCHAR2
584 ,p_xcav_rec IN xcav_rec_type
585 ) IS
586 BEGIN
587 Okl_Extrn_Pvt.LOCK_EXT_CSH_TXNS(
588 p_api_version
589 ,p_init_msg_list
590 ,x_return_status
591 ,x_msg_count
592 ,x_msg_data
593 ,p_xcav_rec
594 );
595
596 IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
597 RAISE G_EXCEPTION_HALT_VALIDATION;
598 END IF;
599
600 EXCEPTION
601 WHEN G_EXCEPTION_HALT_VALIDATION THEN
602 x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
603
604 WHEN OTHERS THEN
605 Okl_Api.set_message(p_app_name => g_app_name,
606 p_msg_name => g_unexpected_error,
607 p_token1 => g_sqlcode_token,
608 p_token1_value => SQLCODE,
609 p_token2 => g_sqlerrm_token,
610 p_token2_value => SQLERRM);
611 x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
612 END lock_ext_ar_txns;
613
614 --Object type procedure for lock
615 PROCEDURE lock_ext_ar_txns(
616 p_api_version IN NUMBER
617 ,p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE
618 ,x_return_status OUT NOCOPY VARCHAR2
619 ,x_msg_count OUT NOCOPY NUMBER
620 ,x_msg_data OUT NOCOPY VARCHAR2
621 ,p_xcav_tbl IN xcav_tbl_type
622 ) IS
623 BEGIN
624 Okl_Extrn_Pvt.LOCK_EXT_CSH_TXNS(
625 p_api_version
626 ,p_init_msg_list
627 ,x_return_status
628 ,x_msg_count
629 ,x_msg_data
630 ,p_xcav_tbl
631 );
632
633 IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
634 RAISE G_EXCEPTION_HALT_VALIDATION;
635 END IF;
636
637 EXCEPTION
638 WHEN G_EXCEPTION_HALT_VALIDATION THEN
639 x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
640
641 WHEN OTHERS THEN
642 Okl_Api.set_message(p_app_name => g_app_name,
643 p_msg_name => g_unexpected_error,
644 p_token1 => g_sqlcode_token,
645 p_token1_value => SQLCODE,
646 p_token2 => g_sqlerrm_token,
647 p_token2_value => SQLERRM);
648 x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
649 END lock_ext_ar_txns;
650
651 END Okl_Xcr_Pub;