11: BEGIN
12:
13: x_return_status := l_return_status;
14: If( p_srfvv_rec.pay_site_id IS NULL) Then
15: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Pay Site');
16: x_return_status := OKL_API.G_RET_STS_ERROR;
17: RAISE G_EXCEPTION_HALT_VALIDATION;
18: End If;
19: /*
12:
13: x_return_status := l_return_status;
14: If( p_srfvv_rec.pay_site_id IS NULL) Then
15: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Pay Site');
16: x_return_status := OKL_API.G_RET_STS_ERROR;
17: RAISE G_EXCEPTION_HALT_VALIDATION;
18: End If;
19: /*
20: If( p_srfvv_rec.payment_term_id IS NULL) Then
17: RAISE G_EXCEPTION_HALT_VALIDATION;
18: End If;
19: /*
20: If( p_srfvv_rec.payment_term_id IS NULL) Then
21: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Payment Term');
22: x_return_status := OKL_API.G_RET_STS_ERROR;
23: RAISE G_EXCEPTION_HALT_VALIDATION;
24: End If;
25: If (p_srfvv_rec.payment_method_code IS NULL) Then
18: End If;
19: /*
20: If( p_srfvv_rec.payment_term_id IS NULL) Then
21: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Payment Term');
22: x_return_status := OKL_API.G_RET_STS_ERROR;
23: RAISE G_EXCEPTION_HALT_VALIDATION;
24: End If;
25: If (p_srfvv_rec.payment_method_code IS NULL) Then
26: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Payment Method');
22: x_return_status := OKL_API.G_RET_STS_ERROR;
23: RAISE G_EXCEPTION_HALT_VALIDATION;
24: End If;
25: If (p_srfvv_rec.payment_method_code IS NULL) Then
26: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Payment Method');
27: x_return_status := OKL_API.G_RET_STS_ERROR;
28: RAISE G_EXCEPTION_HALT_VALIDATION;
29: End If;
30: */
23: RAISE G_EXCEPTION_HALT_VALIDATION;
24: End If;
25: If (p_srfvv_rec.payment_method_code IS NULL) Then
26: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Payment Method');
27: x_return_status := OKL_API.G_RET_STS_ERROR;
28: RAISE G_EXCEPTION_HALT_VALIDATION;
29: End If;
30: */
31:
32: EXCEPTION
33: WHEN G_EXCEPTION_HALT_VALIDATION THEN
34: null;
35: WHEN OTHERS THEN
36: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
37: ,p_msg_name => G_UNEXPECTED_ERROR
38: ,p_token1 => G_SQLCODE_TOKEN
39: ,p_token1_value => SQLCODE
40: ,p_token2 => G_SQLERRM_TOKEN
38: ,p_token1 => G_SQLCODE_TOKEN
39: ,p_token1_value => SQLCODE
40: ,p_token2 => G_SQLERRM_TOKEN
41: ,p_token2_value => SQLERRM);
42: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
43: END validate_party_pymnt_record;
44:
45: PROCEDURE create_party_pymnt_dtls(
46: p_api_version IN NUMBER,
83: x_msg_data,
84: p_srfvv_rec,
85: x_srfvv_rec);
86:
87: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
88: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
89: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
90: raise OKL_API.G_EXCEPTION_ERROR;
91: End If;
84: p_srfvv_rec,
85: x_srfvv_rec);
86:
87: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
88: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
89: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
90: raise OKL_API.G_EXCEPTION_ERROR;
91: End If;
92:
85: x_srfvv_rec);
86:
87: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
88: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
89: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
90: raise OKL_API.G_EXCEPTION_ERROR;
91: End If;
92:
93: validate_party_pymnt_record(x_return_status, x_srfvv_rec);
86:
87: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
88: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
89: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
90: raise OKL_API.G_EXCEPTION_ERROR;
91: End If;
92:
93: validate_party_pymnt_record(x_return_status, x_srfvv_rec);
94: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
90: raise OKL_API.G_EXCEPTION_ERROR;
91: End If;
92:
93: validate_party_pymnt_record(x_return_status, x_srfvv_rec);
94: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
95: l_return_status := x_return_status;
96: RAISE OKC_API.G_EXCEPTION_ERROR;
97: END IF;
98:
98:
99: -- sjalasut, added passed_to_incomplete. START
100: -- whenever party payment details are created or updated, if the context agreement is PASSED, then
101: -- we need to flip back the status to incomplete
102: IF(p_srfvv_rec.cpl_id IS NOT NULL AND p_srfvv_rec.cpl_id <> OKL_API.G_MISS_NUM)THEN
103: OPEN c_get_chr_csr(cp_cpl_id => p_srfvv_rec.cpl_id); FETCH c_get_chr_csr INTO lv_dnz_chr_id;
104: CLOSE c_get_chr_csr;
105: IF(lv_dnz_chr_id IS NOT NULL AND lv_dnz_Chr_id <> OKL_API.G_MISS_NUM)THEN -- how can a fetched value be g_miss
106: okl_vendor_program_pvt.passed_to_incomplete(p_api_version => p_api_version
101: -- we need to flip back the status to incomplete
102: IF(p_srfvv_rec.cpl_id IS NOT NULL AND p_srfvv_rec.cpl_id <> OKL_API.G_MISS_NUM)THEN
103: OPEN c_get_chr_csr(cp_cpl_id => p_srfvv_rec.cpl_id); FETCH c_get_chr_csr INTO lv_dnz_chr_id;
104: CLOSE c_get_chr_csr;
105: IF(lv_dnz_chr_id IS NOT NULL AND lv_dnz_Chr_id <> OKL_API.G_MISS_NUM)THEN -- how can a fetched value be g_miss
106: okl_vendor_program_pvt.passed_to_incomplete(p_api_version => p_api_version
107: ,p_init_msg_list => p_init_msg_list
108: ,x_return_status => x_return_status
109: ,x_msg_count => x_msg_count
109: ,x_msg_count => x_msg_count
110: ,x_msg_data => x_msg_data
111: ,p_program_id => lv_dnz_chr_id
112: );
113: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
114: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
115: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
116: RAISE OKL_API.G_EXCEPTION_ERROR;
117: END IF;
110: ,x_msg_data => x_msg_data
111: ,p_program_id => lv_dnz_chr_id
112: );
113: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
114: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
115: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
116: RAISE OKL_API.G_EXCEPTION_ERROR;
117: END IF;
118: END IF;
111: ,p_program_id => lv_dnz_chr_id
112: );
113: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
114: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
115: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
116: RAISE OKL_API.G_EXCEPTION_ERROR;
117: END IF;
118: END IF;
119: END IF;
112: );
113: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
114: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
115: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
116: RAISE OKL_API.G_EXCEPTION_ERROR;
117: END IF;
118: END IF;
119: END IF;
120: -- sjalasut, added passed_to_incomplete. END
160: x_srfvv_tbl OUT NOCOPY srfvv_tbl_type
161: ) IS
162: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_PARTY_PYMNT_DTLS';
163: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
164: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
165: i NUMBER;
166: BEGIN
167:
168: If p_srfvv_tbl.COUNT > 0 Then
175: x_msg_count,
176: x_msg_data,
177: p_srfvv_tbl(i),
178: x_srfvv_tbl(i));
179: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
180: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
181: l_overall_status := x_return_status;
182: End If;
183: End If;
176: x_msg_data,
177: p_srfvv_tbl(i),
178: x_srfvv_tbl(i));
179: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
180: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
181: l_overall_status := x_return_status;
182: End If;
183: End If;
184:
189: -- return overall status
190: x_return_status := l_overall_status;
191: End If;
192:
193: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
194: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
195: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
196: raise OKL_API.G_EXCEPTION_ERROR;
197: End If;
190: x_return_status := l_overall_status;
191: End If;
192:
193: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
194: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
195: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
196: raise OKL_API.G_EXCEPTION_ERROR;
197: End If;
198:
191: End If;
192:
193: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
194: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
195: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
196: raise OKL_API.G_EXCEPTION_ERROR;
197: End If;
198:
199: EXCEPTION
192:
193: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
194: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
195: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
196: raise OKL_API.G_EXCEPTION_ERROR;
197: End If;
198:
199: EXCEPTION
200: WHEN OKC_API.G_EXCEPTION_ERROR THEN
254: x_msg_count,
255: x_msg_data,
256: p_srfvv_rec);
257:
258: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
259: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
260: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
261: raise OKL_API.G_EXCEPTION_ERROR;
262: End If;
255: x_msg_data,
256: p_srfvv_rec);
257:
258: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
259: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
260: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
261: raise OKL_API.G_EXCEPTION_ERROR;
262: End If;
263:
256: p_srfvv_rec);
257:
258: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
259: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
260: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
261: raise OKL_API.G_EXCEPTION_ERROR;
262: End If;
263:
264: OKC_API.END_ACTIVITY (x_msg_count
257:
258: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
259: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
260: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
261: raise OKL_API.G_EXCEPTION_ERROR;
262: End If;
263:
264: OKC_API.END_ACTIVITY (x_msg_count
265: ,x_msg_data );
300: p_srfvv_tbl IN srfvv_tbl_type
301: ) IS
302: l_api_name CONSTANT VARCHAR2(30) := 'LOCK_PARTY_PYMNT_DTLS';
303: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
304: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
305: i NUMBER;
306: BEGIN
307:
308: If p_srfvv_tbl.COUNT > 0 Then
314: x_return_status,
315: x_msg_count,
316: x_msg_data,
317: p_srfvv_tbl(i));
318: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
319: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
320: l_overall_status := x_return_status;
321: End If;
322: End If;
315: x_msg_count,
316: x_msg_data,
317: p_srfvv_tbl(i));
318: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
319: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
320: l_overall_status := x_return_status;
321: End If;
322: End If;
323:
328: -- return overall status
329: x_return_status := l_overall_status;
330: End If;
331:
332: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
333: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
334: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
335: raise OKL_API.G_EXCEPTION_ERROR;
336: End If;
329: x_return_status := l_overall_status;
330: End If;
331:
332: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
333: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
334: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
335: raise OKL_API.G_EXCEPTION_ERROR;
336: End If;
337:
330: End If;
331:
332: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
333: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
334: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
335: raise OKL_API.G_EXCEPTION_ERROR;
336: End If;
337:
338: EXCEPTION
331:
332: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
333: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
334: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
335: raise OKL_API.G_EXCEPTION_ERROR;
336: End If;
337:
338: EXCEPTION
339: WHEN OKC_API.G_EXCEPTION_ERROR THEN
393: x_msg_count,
394: x_msg_data,
395: p_srfvv_rec);
396:
397: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
398: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
399: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
400: raise OKL_API.G_EXCEPTION_ERROR;
401: End If;
394: x_msg_data,
395: p_srfvv_rec);
396:
397: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
398: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
399: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
400: raise OKL_API.G_EXCEPTION_ERROR;
401: End If;
402:
395: p_srfvv_rec);
396:
397: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
398: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
399: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
400: raise OKL_API.G_EXCEPTION_ERROR;
401: End If;
402:
403: OKC_API.END_ACTIVITY (x_msg_count
396:
397: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
398: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
399: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
400: raise OKL_API.G_EXCEPTION_ERROR;
401: End If;
402:
403: OKC_API.END_ACTIVITY (x_msg_count
404: ,x_msg_data );
439: p_srfvv_tbl IN srfvv_tbl_type
440: ) IS
441: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_PARTY_PYMNT_DTLS';
442: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
443: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
444: i NUMBER;
445: BEGIN
446:
447: If p_srfvv_tbl.COUNT > 0 Then
453: x_return_status,
454: x_msg_count,
455: x_msg_data,
456: p_srfvv_tbl(i));
457: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
458: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
459: l_overall_status := x_return_status;
460: End If;
461: End If;
454: x_msg_count,
455: x_msg_data,
456: p_srfvv_tbl(i));
457: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
458: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
459: l_overall_status := x_return_status;
460: End If;
461: End If;
462:
467: -- return overall status
468: x_return_status := l_overall_status;
469: End If;
470:
471: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
472: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
473: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
474: raise OKL_API.G_EXCEPTION_ERROR;
475: End If;
468: x_return_status := l_overall_status;
469: End If;
470:
471: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
472: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
473: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
474: raise OKL_API.G_EXCEPTION_ERROR;
475: End If;
476:
469: End If;
470:
471: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
472: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
473: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
474: raise OKL_API.G_EXCEPTION_ERROR;
475: End If;
476:
477: EXCEPTION
470:
471: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
472: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
473: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
474: raise OKL_API.G_EXCEPTION_ERROR;
475: End If;
476:
477: EXCEPTION
478: WHEN OKC_API.G_EXCEPTION_ERROR THEN
542: x_msg_data,
543: p_srfvv_rec,
544: x_srfvv_rec);
545:
546: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
547: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
548: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
549: raise OKL_API.G_EXCEPTION_ERROR;
550: End If;
543: p_srfvv_rec,
544: x_srfvv_rec);
545:
546: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
547: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
548: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
549: raise OKL_API.G_EXCEPTION_ERROR;
550: End If;
551:
544: x_srfvv_rec);
545:
546: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
547: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
548: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
549: raise OKL_API.G_EXCEPTION_ERROR;
550: End If;
551:
552: validate_party_pymnt_record(x_return_status, x_srfvv_rec);
545:
546: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
547: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
548: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
549: raise OKL_API.G_EXCEPTION_ERROR;
550: End If;
551:
552: validate_party_pymnt_record(x_return_status, x_srfvv_rec);
553: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
549: raise OKL_API.G_EXCEPTION_ERROR;
550: End If;
551:
552: validate_party_pymnt_record(x_return_status, x_srfvv_rec);
553: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
554: l_return_status := x_return_status;
555: RAISE OKC_API.G_EXCEPTION_ERROR;
556: END IF;
557:
557:
558: -- sjalasut, added passed_to_incomplete. START
559: -- whenever party payment details are created or updated, if the context agreement is PASSED, then
560: -- we need to flip back the status to incomplete
561: IF(p_srfvv_rec.cpl_id IS NOT NULL AND p_srfvv_rec.cpl_id <> OKL_API.G_MISS_NUM)THEN
562: OPEN c_get_chr_csr(cp_cpl_id => p_srfvv_rec.cpl_id); FETCH c_get_chr_csr INTO lv_dnz_chr_id;
563: CLOSE c_get_chr_csr;
564: IF(lv_dnz_chr_id IS NOT NULL AND lv_dnz_Chr_id <> OKL_API.G_MISS_NUM)THEN -- how can a fetched value be g_miss
565: okl_vendor_program_pvt.passed_to_incomplete(p_api_version => p_api_version
560: -- we need to flip back the status to incomplete
561: IF(p_srfvv_rec.cpl_id IS NOT NULL AND p_srfvv_rec.cpl_id <> OKL_API.G_MISS_NUM)THEN
562: OPEN c_get_chr_csr(cp_cpl_id => p_srfvv_rec.cpl_id); FETCH c_get_chr_csr INTO lv_dnz_chr_id;
563: CLOSE c_get_chr_csr;
564: IF(lv_dnz_chr_id IS NOT NULL AND lv_dnz_Chr_id <> OKL_API.G_MISS_NUM)THEN -- how can a fetched value be g_miss
565: okl_vendor_program_pvt.passed_to_incomplete(p_api_version => p_api_version
566: ,p_init_msg_list => p_init_msg_list
567: ,x_return_status => x_return_status
568: ,x_msg_count => x_msg_count
568: ,x_msg_count => x_msg_count
569: ,x_msg_data => x_msg_data
570: ,p_program_id => lv_dnz_chr_id
571: );
572: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
573: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
574: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
575: RAISE OKL_API.G_EXCEPTION_ERROR;
576: END IF;
569: ,x_msg_data => x_msg_data
570: ,p_program_id => lv_dnz_chr_id
571: );
572: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
573: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
574: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
575: RAISE OKL_API.G_EXCEPTION_ERROR;
576: END IF;
577: END IF;
570: ,p_program_id => lv_dnz_chr_id
571: );
572: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
573: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
574: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
575: RAISE OKL_API.G_EXCEPTION_ERROR;
576: END IF;
577: END IF;
578: END IF;
571: );
572: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
573: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
574: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
575: RAISE OKL_API.G_EXCEPTION_ERROR;
576: END IF;
577: END IF;
578: END IF;
579: -- sjalasut, added passed_to_incomplete. END
618: x_srfvv_tbl OUT NOCOPY srfvv_tbl_type
619: ) IS
620: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_PARTY_PYMNT_DTLS';
621: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
622: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
623: i NUMBER;
624:
625: BEGIN
626:
634: x_msg_count,
635: x_msg_data,
636: p_srfvv_tbl(i),
637: x_srfvv_tbl(i));
638: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
639: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
640: l_overall_status := x_return_status;
641: End If;
642: End If;
635: x_msg_data,
636: p_srfvv_tbl(i),
637: x_srfvv_tbl(i));
638: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
639: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
640: l_overall_status := x_return_status;
641: End If;
642: End If;
643:
648: -- return overall status
649: x_return_status := l_overall_status;
650: End If;
651:
652: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
653: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
654: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
655: raise OKL_API.G_EXCEPTION_ERROR;
656: End If;
649: x_return_status := l_overall_status;
650: End If;
651:
652: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
653: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
654: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
655: raise OKL_API.G_EXCEPTION_ERROR;
656: End If;
657:
650: End If;
651:
652: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
653: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
654: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
655: raise OKL_API.G_EXCEPTION_ERROR;
656: End If;
657:
658: EXCEPTION
651:
652: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
653: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
654: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
655: raise OKL_API.G_EXCEPTION_ERROR;
656: End If;
657:
658: EXCEPTION
659: WHEN OKC_API.G_EXCEPTION_ERROR THEN
713: x_msg_count,
714: x_msg_data,
715: p_srfvv_rec);
716:
717: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
718: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
719: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
720: raise OKL_API.G_EXCEPTION_ERROR;
721: End If;
714: x_msg_data,
715: p_srfvv_rec);
716:
717: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
718: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
719: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
720: raise OKL_API.G_EXCEPTION_ERROR;
721: End If;
722:
715: p_srfvv_rec);
716:
717: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
718: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
719: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
720: raise OKL_API.G_EXCEPTION_ERROR;
721: End If;
722:
723: OKC_API.END_ACTIVITY (x_msg_count
716:
717: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
718: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
719: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
720: raise OKL_API.G_EXCEPTION_ERROR;
721: End If;
722:
723: OKC_API.END_ACTIVITY (x_msg_count
724: ,x_msg_data );
759: p_srfvv_tbl IN srfvv_tbl_type
760: ) IS
761: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_PARTY_PYMNT_DTLS';
762: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
763: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
764: i NUMBER;
765: BEGIN
766:
767: If p_srfvv_tbl.COUNT > 0 Then
773: x_return_status,
774: x_msg_count,
775: x_msg_data,
776: p_srfvv_tbl(i));
777: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
778: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
779: l_overall_status := x_return_status;
780: End If;
781: End If;
774: x_msg_count,
775: x_msg_data,
776: p_srfvv_tbl(i));
777: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
778: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
779: l_overall_status := x_return_status;
780: End If;
781: End If;
782:
787: -- return overall status
788: x_return_status := l_overall_status;
789: End If;
790:
791: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
792: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
793: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
794: raise OKL_API.G_EXCEPTION_ERROR;
795: End If;
788: x_return_status := l_overall_status;
789: End If;
790:
791: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
792: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
793: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
794: raise OKL_API.G_EXCEPTION_ERROR;
795: End If;
796:
789: End If;
790:
791: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
792: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
793: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
794: raise OKL_API.G_EXCEPTION_ERROR;
795: End If;
796:
797: EXCEPTION
790:
791: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
792: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
793: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
794: raise OKL_API.G_EXCEPTION_ERROR;
795: End If;
796:
797: EXCEPTION
798: WHEN OKC_API.G_EXCEPTION_ERROR THEN