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