63: DBMS_SQL.COLUMN_VALUE(l_cursor, 4, x_credit_total);
64: DBMS_SQL.COLUMN_VALUE(l_cursor, 5, x_adjust_total);
65: END IF;
66:
67: x_return_status := OKL_API.G_RET_STS_SUCCESS;
68:
69: ELSIF l_rows = 0 THEN
70:
71: x_return_status := OKL_API.G_RET_STS_ERROR;
67: x_return_status := OKL_API.G_RET_STS_SUCCESS;
68:
69: ELSIF l_rows = 0 THEN
70:
71: x_return_status := OKL_API.G_RET_STS_ERROR;
72:
73: END IF;
74:
75: x_row_count := l_rows;
81: EXCEPTION
82:
83: WHEN OTHERS THEN
84:
85: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
86: p_msg_name => G_UNEXPECTED_ERROR,
87: p_token1 => G_SQLCODE_TOKEN,
88: p_token1_value => SQLCODE,
89: p_token2 => G_SQLERRM_TOKEN,
88: p_token1_value => SQLCODE,
89: p_token2 => G_SQLERRM_TOKEN,
90: p_token2_value => SQLERRM);
91:
92: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
93: --Bug 9733446 - RGOOTY
94: if dbms_sql.is_open(l_cursor) then
95: DBMS_SQL.CLOSE_CURSOR(l_cursor);
96: end if;
147:
148: IF (l_svf_applicable = '?') OR (l_svf_applicable = 'N') THEN
149: RETURN;
150: ELSIF (l_svf_applicable = 'Y') THEN
151: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
152: END IF;
153:
154: OPEN c_svf_info;
155: FETCH c_svf_info INTO x_svf_info_rec;
154: OPEN c_svf_info;
155: FETCH c_svf_info INTO x_svf_info_rec;
156: CLOSE c_svf_info;
157: IF x_svf_info_rec.SVF_ID IS NOT NULL THEN
158: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
159: END IF;
160:
161: x_return_status := OKL_API.G_RET_STS_SUCCESS;
162:
157: IF x_svf_info_rec.SVF_ID IS NOT NULL THEN
158: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
159: END IF;
160:
161: x_return_status := OKL_API.G_RET_STS_SUCCESS;
162:
163: EXCEPTION
164:
165: WHEN OTHERS THEN
163: EXCEPTION
164:
165: WHEN OTHERS THEN
166:
167: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
168: p_msg_name => G_UNEXPECTED_ERROR,
169: p_token1 => G_SQLCODE_TOKEN,
170: p_token1_value => SQLCODE,
171: p_token2 => G_SQLERRM_TOKEN,
170: p_token1_value => SQLCODE,
171: p_token2 => G_SQLERRM_TOKEN,
172: p_token2_value => SQLERRM);
173:
174: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
175:
176: END get_svf_info;
177:
178:
389: --END IF;
390:
391:
392:
393: x_return_status := OKL_API.G_RET_STS_SUCCESS;
394:
395: EXCEPTION
396:
397: WHEN OTHERS THEN
395: EXCEPTION
396:
397: WHEN OTHERS THEN
398:
399: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
400: p_msg_name => G_UNEXPECTED_ERROR,
401: p_token1 => G_SQLCODE_TOKEN,
402: p_token1_value => SQLCODE,
403: p_token2 => G_SQLERRM_TOKEN,
402: p_token1_value => SQLCODE,
403: p_token2 => G_SQLERRM_TOKEN,
404: p_token2_value => SQLERRM);
405:
406: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
407:
408: END get_credit_memo_info;
409:
410:
438:
439: OPEN c_ptm;
440: FETCH c_ptm INTO l_dummy;
441: IF c_ptm%FOUND THEN
442: x_return_status := OKL_API.G_RET_STS_SUCCESS;
443: ELSE
444: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
445: END IF;
446:
440: FETCH c_ptm INTO l_dummy;
441: IF c_ptm%FOUND THEN
442: x_return_status := OKL_API.G_RET_STS_SUCCESS;
443: ELSE
444: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
445: END IF;
446:
447: CLOSE c_ptm;
448:
449: EXCEPTION
450:
451: WHEN OTHERS THEN
452:
453: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
454: p_msg_name => G_UNEXPECTED_ERROR,
455: p_token1 => G_SQLCODE_TOKEN,
456: p_token1_value => SQLCODE,
457: p_token2 => G_SQLERRM_TOKEN,
456: p_token1_value => SQLCODE,
457: p_token2 => G_SQLERRM_TOKEN,
458: p_token2_value => SQLERRM);
459:
460: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
461:
462: END check_process_template;
463:
464:
495: x_email := -1;
496: END IF;
497: CLOSE c_email;
498:
499: x_return_status := OKL_API.G_RET_STS_SUCCESS;
500:
501: EXCEPTION
502:
503: WHEN OTHERS THEN
501: EXCEPTION
502:
503: WHEN OTHERS THEN
504:
505: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
506: p_msg_name => G_UNEXPECTED_ERROR,
507: p_token1 => G_SQLCODE_TOKEN,
508: p_token1_value => SQLCODE,
509: p_token2 => G_SQLERRM_TOKEN,
508: p_token1_value => SQLCODE,
509: p_token2 => G_SQLERRM_TOKEN,
510: p_token2_value => SQLERRM);
511:
512: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
513:
514: END get_pvt_label_email;
515:
516:
547: EXCEPTION
548:
549: WHEN OTHERS THEN
550:
551: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
552: p_msg_name => G_UNEXPECTED_ERROR,
553: p_token1 => G_SQLCODE_TOKEN,
554: p_token1_value => SQLCODE,
555: p_token2 => G_SQLERRM_TOKEN,
599:
600: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
601: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
602: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
603: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
604: p_msg_name => 'OKL_NO_STREAM_TYPE',
605: p_token1 => OKL_API.G_COL_NAME_TOKEN,
606: p_token1_value => p_sty_purpose);
607:
601: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
602: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
603: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
604: p_msg_name => 'OKL_NO_STREAM_TYPE',
605: p_token1 => OKL_API.G_COL_NAME_TOKEN,
606: p_token1_value => p_sty_purpose);
607:
608: RAISE OKC_API.G_EXCEPTION_ERROR;
609: END IF;
613: EXCEPTION
614:
615: WHEN OTHERS THEN
616:
617: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
618: p_msg_name => G_UNEXPECTED_ERROR,
619: p_token1 => G_SQLCODE_TOKEN,
620: p_token1_value => SQLCODE,
621: p_token2 => G_SQLERRM_TOKEN,
658: EXCEPTION
659:
660: WHEN OTHERS THEN
661:
662: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
663: p_msg_name => G_UNEXPECTED_ERROR,
664: p_token1 => G_SQLCODE_TOKEN,
665: p_token1_value => SQLCODE,
666: p_token2 => G_SQLERRM_TOKEN,
701: EXCEPTION
702:
703: WHEN OTHERS THEN
704:
705: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
706: p_msg_name => G_UNEXPECTED_ERROR,
707: p_token1 => G_SQLCODE_TOKEN,
708: p_token1_value => SQLCODE,
709: p_token2 => G_SQLERRM_TOKEN,
765: EXCEPTION
766:
767: WHEN OTHERS THEN
768:
769: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
770: p_msg_name => G_UNEXPECTED_ERROR,
771: p_token1 => G_SQLCODE_TOKEN,
772: p_token1_value => SQLCODE,
773: p_token2 => G_SQLERRM_TOKEN,
820: l_factoring_code VARCHAR2(30);
821:
822: l_api_version CONSTANT NUMBER := 1;
823: l_init_msg_list CONSTANT CHAR := 'F';
824: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
825: l_line_number CONSTANT NUMBER := 1;
826:
827: -- Invoice Header
828: i_taiv_rec okl_trx_ar_invoices_pub.taiv_rec_type;
848: l_syndication_code := p_syndication_code;
849: l_factoring_code := p_factoring_code;
850:
851: IF (l_syndication_code IS NOT NULL) AND (l_factoring_code IS NOT NULL) THEN
852: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
853: p_msg_name => 'OKL_SYND_FACTOR_EXCLUSIVE');
854: RAISE OKL_API.G_EXCEPTION_ERROR;
855: END IF;
856:
850:
851: IF (l_syndication_code IS NOT NULL) AND (l_factoring_code IS NOT NULL) THEN
852: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
853: p_msg_name => 'OKL_SYND_FACTOR_EXCLUSIVE');
854: RAISE OKL_API.G_EXCEPTION_ERROR;
855: END IF;
856:
857: l_sysdate := TRUNC(SYSDATE);
858: l_khr_id := p_khr_id;
866: l_svf_id := get_svf_id (l_svf_code);
867: l_pdt_id := get_pdt_id (l_khr_id);
868:
869: IF l_pdt_id IS NULL THEN
870: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
871: p_msg_name => 'OKL_NO_PRODUCT_FOUND');
872: RAISE OKL_API.G_EXCEPTION_ERROR;
873: END IF;
874:
868:
869: IF l_pdt_id IS NULL THEN
870: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
871: p_msg_name => 'OKL_NO_PRODUCT_FOUND');
872: RAISE OKL_API.G_EXCEPTION_ERROR;
873: END IF;
874:
875: --l_factoring_synd := get_factor_synd(l_khr_id);
876: l_factoring_synd := NULL; -- BUG 2451833
906: x_msg_data => x_msg_data,
907: p_taiv_rec => i_taiv_rec,
908: x_taiv_rec => r_taiv_rec);
909:
910: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
911: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
912: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
913: RAISE OKL_API.G_EXCEPTION_ERROR;
914: END IF;
907: p_taiv_rec => i_taiv_rec,
908: x_taiv_rec => r_taiv_rec);
909:
910: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
911: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
912: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
913: RAISE OKL_API.G_EXCEPTION_ERROR;
914: END IF;
915:
908: x_taiv_rec => r_taiv_rec);
909:
910: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
911: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
912: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
913: RAISE OKL_API.G_EXCEPTION_ERROR;
914: END IF;
915:
916: ----------------------------------------------------------------------------------
909:
910: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
911: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
912: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
913: RAISE OKL_API.G_EXCEPTION_ERROR;
914: END IF;
915:
916: ----------------------------------------------------------------------------------
917: -- Prepare Invoice Line
940: x_msg_data => x_msg_data,
941: p_tilv_rec => i_tilv_rec,
942: x_tilv_rec => r_tilv_rec);
943:
944: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
945: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
946: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
947: RAISE OKL_API.G_EXCEPTION_ERROR;
948: END IF;
941: p_tilv_rec => i_tilv_rec,
942: x_tilv_rec => r_tilv_rec);
943:
944: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
945: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
946: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
947: RAISE OKL_API.G_EXCEPTION_ERROR;
948: END IF;
949:
942: x_tilv_rec => r_tilv_rec);
943:
944: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
945: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
946: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
947: RAISE OKL_API.G_EXCEPTION_ERROR;
948: END IF;
949:
950: --Commented the following lines to call the Accounting Wrapper API.
943:
944: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
945: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
946: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
947: RAISE OKL_API.G_EXCEPTION_ERROR;
948: END IF;
949:
950: --Commented the following lines to call the Accounting Wrapper API.
951: --The commented call does not take into account the dynamically
998: p_acc_gen_primary_key_tbl => l_acc_gen_primary_key_tbl,
999: x_template_tbl => lx_template_tbl,
1000: x_amount_tbl => lx_amount_tbl);
1001:
1002: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1003: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1004: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1005: RAISE OKL_API.G_EXCEPTION_ERROR;
1006: END IF;
999: x_template_tbl => lx_template_tbl,
1000: x_amount_tbl => lx_amount_tbl);
1001:
1002: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1003: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1004: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1005: RAISE OKL_API.G_EXCEPTION_ERROR;
1006: END IF;
1007:
1000: x_amount_tbl => lx_amount_tbl);
1001:
1002: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1003: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1004: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1005: RAISE OKL_API.G_EXCEPTION_ERROR;
1006: END IF;
1007:
1008: */
1001:
1002: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1003: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1004: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1005: RAISE OKL_API.G_EXCEPTION_ERROR;
1006: END IF;
1007:
1008: */
1009:
1024: ,x_msg_data => x_msg_data
1025: ,p_bpd_acc_rec => l_bpd_acc_rec);
1026:
1027:
1028: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1029: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1030: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1031: RAISE OKL_API.G_EXCEPTION_ERROR;
1032: END IF;
1025: ,p_bpd_acc_rec => l_bpd_acc_rec);
1026:
1027:
1028: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1029: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1030: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1031: RAISE OKL_API.G_EXCEPTION_ERROR;
1032: END IF;
1033:
1026:
1027:
1028: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1029: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1030: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1031: RAISE OKL_API.G_EXCEPTION_ERROR;
1032: END IF;
1033:
1034:
1027:
1028: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1029: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1030: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1031: RAISE OKL_API.G_EXCEPTION_ERROR;
1032: END IF;
1033:
1034:
1035: x_tai_id := r_taiv_rec.id;
1037:
1038:
1039: EXCEPTION
1040:
1041: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1042:
1043: x_return_status := OKL_API.G_RET_STS_ERROR;
1044:
1045: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1039: EXCEPTION
1040:
1041: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1042:
1043: x_return_status := OKL_API.G_RET_STS_ERROR;
1044:
1045: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1046:
1047: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1041: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1042:
1043: x_return_status := OKL_API.G_RET_STS_ERROR;
1044:
1045: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1046:
1047: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1048:
1049: WHEN OTHERS THEN
1043: x_return_status := OKL_API.G_RET_STS_ERROR;
1044:
1045: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1046:
1047: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1048:
1049: WHEN OTHERS THEN
1050:
1051: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1047: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1048:
1049: WHEN OTHERS THEN
1050:
1051: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1052: p_msg_name => G_UNEXPECTED_ERROR,
1053: p_token1 => G_SQLCODE_TOKEN,
1054: p_token1_value => SQLCODE,
1055: p_token2 => G_SQLERRM_TOKEN,
1054: p_token1_value => SQLCODE,
1055: p_token2 => G_SQLERRM_TOKEN,
1056: p_token2_value => SQLERRM);
1057:
1058: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1059:
1060: END create_svf_invoice;
1061:
1062: END okl_cs_transactions_pvt;