9:
10: --Object type procedure for insert
11: PROCEDURE create_internal_trans(
12: p_api_version IN NUMBER
13: ,p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE
14: ,x_return_status OUT NOCOPY VARCHAR2
15: ,x_msg_count OUT NOCOPY NUMBER
16: ,x_msg_data OUT NOCOPY VARCHAR2
17: ,p_rctv_rec IN rctv_rec_type
18: ,p_rcav_tbl IN rcav_tbl_type
19: ,x_rctv_rec OUT NOCOPY rctv_rec_type
20: ,x_rcav_tbl OUT NOCOPY rcav_tbl_type
21: ) IS
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:
61: ,x_rctv_rec
62: ,x_rcav_tbl
63: );
64:
65: IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
66: RAISE G_EXCEPTION_HALT_VALIDATION;
67: ELSE
68: IF x_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
69: l_return_status := x_return_status;
64:
65: IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
66: RAISE G_EXCEPTION_HALT_VALIDATION;
67: ELSE
68: IF x_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
69: l_return_status := x_return_status;
70: END IF;
71: END IF;
72:
120:
121: --Object type procedure for update
122: PROCEDURE update_internal_trans(
123: p_api_version IN NUMBER
124: ,p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE
125: ,x_return_status OUT NOCOPY VARCHAR2
126: ,x_msg_count OUT NOCOPY NUMBER
127: ,x_msg_data OUT NOCOPY VARCHAR2
128: ,p_rctv_rec IN rctv_rec_type
129: ,p_rcav_tbl IN rcav_tbl_type
130: ,x_rctv_rec OUT NOCOPY rctv_rec_type
131: ,x_rcav_tbl OUT NOCOPY rcav_tbl_type
132: ) IS
133: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
134:
135: l_api_version NUMBER ;
136: l_init_msg_list VARCHAR2(1) ;
137: l_msg_count NUMBER ;
168: ,lp_rcav_tbl
169: ,lx_rctv_rec
170: ,lx_rcav_tbl
171: );
172: IF l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
173: RAISE G_EXCEPTION_HALT_VALIDATION;
174: ELSE
175: IF l_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
176: RAISE G_EXCEPTION_HALT_VALIDATION;
171: );
172: IF l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
173: RAISE G_EXCEPTION_HALT_VALIDATION;
174: ELSE
175: IF l_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
176: RAISE G_EXCEPTION_HALT_VALIDATION;
177: END IF;
178: END IF;
179:
223:
224: --Object type procedure for validate
225: PROCEDURE validate_internal_trans(
226: p_api_version IN NUMBER
227: ,p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE
228: ,x_return_status OUT NOCOPY VARCHAR2
229: ,x_msg_count OUT NOCOPY NUMBER
230: ,x_msg_data OUT NOCOPY VARCHAR2
231: ,p_rctv_rec IN rctv_rec_type
230: ,x_msg_data OUT NOCOPY VARCHAR2
231: ,p_rctv_rec IN rctv_rec_type
232: ,p_rcav_tbl IN rcav_tbl_type
233: ) IS
234: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
235:
236: l_api_version NUMBER ;
237: l_init_msg_list VARCHAR2(1) ;
238: l_msg_count NUMBER ;
267: ,p_rctv_rec
268: ,p_rcav_tbl
269: );
270:
271: IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
272: RAISE G_EXCEPTION_HALT_VALIDATION;
273: ELSE
274: IF x_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
275: l_return_status := x_return_status;
270:
271: IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
272: RAISE G_EXCEPTION_HALT_VALIDATION;
273: ELSE
274: IF x_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
275: l_return_status := x_return_status;
276: END IF;
277: END IF;
278:
318:
319: --Object type procedure for lock
320: PROCEDURE lock_internal_trans(
321: p_api_version IN NUMBER
322: ,p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE
323: ,x_return_status OUT NOCOPY VARCHAR2
324: ,x_msg_count OUT NOCOPY NUMBER
325: ,x_msg_data OUT NOCOPY VARCHAR2
326: ,p_rctv_rec IN rctv_rec_type
324: ,x_msg_count OUT NOCOPY NUMBER
325: ,x_msg_data OUT NOCOPY VARCHAR2
326: ,p_rctv_rec IN rctv_rec_type
327: ) IS
328: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
329: BEGIN
330:
331: Okl_Incsh_Pvt.LOCK_INTERNAL_TRANS (
332: p_api_version
336: ,x_msg_data
337: ,p_rctv_rec
338: );
339:
340: IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
341: RAISE G_EXCEPTION_HALT_VALIDATION;
342: ELSE
343: IF x_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
344: l_return_status := x_return_status;
339:
340: IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
341: RAISE G_EXCEPTION_HALT_VALIDATION;
342: ELSE
343: IF x_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
344: l_return_status := x_return_status;
345: END IF;
346: END IF;
347:
346: END IF;
347:
348: EXCEPTION
349: WHEN G_EXCEPTION_HALT_VALIDATION THEN
350: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
351:
352: WHEN OTHERS THEN
353: Okl_Api.set_message(p_app_name => g_app_name,
354: p_msg_name => g_unexpected_error,
349: WHEN G_EXCEPTION_HALT_VALIDATION THEN
350: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
351:
352: WHEN OTHERS THEN
353: Okl_Api.set_message(p_app_name => g_app_name,
354: p_msg_name => g_unexpected_error,
355: p_token1 => g_sqlcode_token,
356: p_token1_value => SQLCODE,
357: p_token2 => g_sqlerrm_token,
355: p_token1 => g_sqlcode_token,
356: p_token1_value => SQLCODE,
357: p_token2 => g_sqlerrm_token,
358: p_token2_value => SQLERRM);
359: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
360: END lock_internal_trans;
361:
362: --Object type procedure for lock
363: PROCEDURE lock_internal_trans(
361:
362: --Object type procedure for lock
363: PROCEDURE lock_internal_trans(
364: p_api_version IN NUMBER
365: ,p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE
366: ,x_return_status OUT NOCOPY VARCHAR2
367: ,x_msg_count OUT NOCOPY NUMBER
368: ,x_msg_data OUT NOCOPY VARCHAR2
369: ,p_rctv_tbl IN rctv_tbl_type
367: ,x_msg_count OUT NOCOPY NUMBER
368: ,x_msg_data OUT NOCOPY VARCHAR2
369: ,p_rctv_tbl IN rctv_tbl_type
370: ) IS
371: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
372: BEGIN
373:
374: Okl_Incsh_Pvt.LOCK_INTERNAL_TRANS (
375: p_api_version
379: ,x_msg_data
380: ,p_rctv_tbl
381: );
382:
383: IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
384: RAISE G_EXCEPTION_HALT_VALIDATION;
385: ELSE
386: IF x_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
387: l_return_status := x_return_status;
382:
383: IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
384: RAISE G_EXCEPTION_HALT_VALIDATION;
385: ELSE
386: IF x_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
387: l_return_status := x_return_status;
388: END IF;
389: END IF;
390:
389: END IF;
390:
391: EXCEPTION
392: WHEN G_EXCEPTION_HALT_VALIDATION THEN
393: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
394:
395: WHEN OTHERS THEN
396: Okl_Api.set_message(p_app_name => g_app_name,
397: p_msg_name => g_unexpected_error,
392: WHEN G_EXCEPTION_HALT_VALIDATION THEN
393: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
394:
395: WHEN OTHERS THEN
396: Okl_Api.set_message(p_app_name => g_app_name,
397: p_msg_name => g_unexpected_error,
398: p_token1 => g_sqlcode_token,
399: p_token1_value => SQLCODE,
400: p_token2 => g_sqlerrm_token,
398: p_token1 => g_sqlcode_token,
399: p_token1_value => SQLCODE,
400: p_token2 => g_sqlerrm_token,
401: p_token2_value => SQLERRM);
402: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
403: END lock_internal_trans;
404:
405: --Object type procedure for lock
406: PROCEDURE lock_internal_trans(
404:
405: --Object type procedure for lock
406: PROCEDURE lock_internal_trans(
407: p_api_version IN NUMBER
408: ,p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE
409: ,x_return_status OUT NOCOPY VARCHAR2
410: ,x_msg_count OUT NOCOPY NUMBER
411: ,x_msg_data OUT NOCOPY VARCHAR2
412: ,p_rcav_rec IN rcav_rec_type
410: ,x_msg_count OUT NOCOPY NUMBER
411: ,x_msg_data OUT NOCOPY VARCHAR2
412: ,p_rcav_rec IN rcav_rec_type
413: ) IS
414: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
415: BEGIN
416:
417: Okl_Incsh_Pvt.LOCK_INTERNAL_TRANS (
418: p_api_version
422: ,x_msg_data
423: ,p_rcav_rec
424: );
425:
426: IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
427: RAISE G_EXCEPTION_HALT_VALIDATION;
428: ELSE
429: IF x_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
430: l_return_status := x_return_status;
425:
426: IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
427: RAISE G_EXCEPTION_HALT_VALIDATION;
428: ELSE
429: IF x_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
430: l_return_status := x_return_status;
431: END IF;
432: END IF;
433:
432: END IF;
433:
434: EXCEPTION
435: WHEN G_EXCEPTION_HALT_VALIDATION THEN
436: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
437:
438: WHEN OTHERS THEN
439: Okl_Api.set_message(p_app_name => g_app_name,
440: p_msg_name => g_unexpected_error,
435: WHEN G_EXCEPTION_HALT_VALIDATION THEN
436: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
437:
438: WHEN OTHERS THEN
439: Okl_Api.set_message(p_app_name => g_app_name,
440: p_msg_name => g_unexpected_error,
441: p_token1 => g_sqlcode_token,
442: p_token1_value => SQLCODE,
443: p_token2 => g_sqlerrm_token,
441: p_token1 => g_sqlcode_token,
442: p_token1_value => SQLCODE,
443: p_token2 => g_sqlerrm_token,
444: p_token2_value => SQLERRM);
445: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
446: END lock_internal_trans;
447:
448: --Object type procedure for lock
449: PROCEDURE lock_internal_trans(
447:
448: --Object type procedure for lock
449: PROCEDURE lock_internal_trans(
450: p_api_version IN NUMBER
451: ,p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE
452: ,x_return_status OUT NOCOPY VARCHAR2
453: ,x_msg_count OUT NOCOPY NUMBER
454: ,x_msg_data OUT NOCOPY VARCHAR2
455: ,p_rcav_tbl IN rcav_tbl_type
453: ,x_msg_count OUT NOCOPY NUMBER
454: ,x_msg_data OUT NOCOPY VARCHAR2
455: ,p_rcav_tbl IN rcav_tbl_type
456: ) IS
457: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
458: BEGIN
459:
460: Okl_Incsh_Pvt.LOCK_INTERNAL_TRANS (
461: p_api_version
465: ,x_msg_data
466: ,p_rcav_tbl
467: );
468:
469: IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
470: RAISE G_EXCEPTION_HALT_VALIDATION;
471: ELSE
472: IF x_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
473: l_return_status := x_return_status;
468:
469: IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
470: RAISE G_EXCEPTION_HALT_VALIDATION;
471: ELSE
472: IF x_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
473: l_return_status := x_return_status;
474: END IF;
475: END IF;
476:
475: END IF;
476:
477: EXCEPTION
478: WHEN G_EXCEPTION_HALT_VALIDATION THEN
479: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
480:
481: WHEN OTHERS THEN
482: Okl_Api.set_message(p_app_name => g_app_name,
483: p_msg_name => g_unexpected_error,
478: WHEN G_EXCEPTION_HALT_VALIDATION THEN
479: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
480:
481: WHEN OTHERS THEN
482: Okl_Api.set_message(p_app_name => g_app_name,
483: p_msg_name => g_unexpected_error,
484: p_token1 => g_sqlcode_token,
485: p_token1_value => SQLCODE,
486: p_token2 => g_sqlerrm_token,
484: p_token1 => g_sqlcode_token,
485: p_token1_value => SQLCODE,
486: p_token2 => g_sqlerrm_token,
487: p_token2_value => SQLERRM);
488: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
489: END lock_internal_trans;
490:
491: --Object type procedure for update
492: PROCEDURE delete_internal_trans(
490:
491: --Object type procedure for update
492: PROCEDURE delete_internal_trans(
493: p_api_version IN NUMBER
494: ,p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE
495: ,x_return_status OUT NOCOPY VARCHAR2
496: ,x_msg_count OUT NOCOPY NUMBER
497: ,x_msg_data OUT NOCOPY VARCHAR2
498: ,p_rctv_rec IN rctv_rec_type
499: ,p_rcav_tbl IN rcav_tbl_type
500: ,x_rctv_rec OUT NOCOPY rctv_rec_type
501: ,x_rcav_tbl OUT NOCOPY rcav_tbl_type
502: ) IS
503: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
504:
505: l_api_version NUMBER ;
506: l_init_msg_list VARCHAR2(1) ;
507: l_msg_count NUMBER ;
536: ,p_rcav_tbl
537: ,x_rctv_rec
538: ,x_rcav_tbl
539: );
540: IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
541: RAISE G_EXCEPTION_HALT_VALIDATION;
542: ELSE
543: IF x_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
544: l_return_status := x_return_status;
539: );
540: IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
541: RAISE G_EXCEPTION_HALT_VALIDATION;
542: ELSE
543: IF x_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
544: l_return_status := x_return_status;
545: END IF;
546: END IF;
547: