40: AND disb_vsites.disb_rule_vendor_site_id <> NVL (p_disb_rule_vendor_site_id , -1);
41:
42: BEGIN
43: -- Initialization
44: x_return_status := OKL_API.G_RET_STS_SUCCESS;
45:
46: x_return_status := OKL_API.START_ACTIVITY( l_api_name
47: , g_pkg_name
48: , p_init_msg_list
42: BEGIN
43: -- Initialization
44: x_return_status := OKL_API.G_RET_STS_SUCCESS;
45:
46: x_return_status := OKL_API.START_ACTIVITY( l_api_name
47: , g_pkg_name
48: , p_init_msg_list
49: , l_api_version
50: , p_api_version
49: , l_api_version
50: , p_api_version
51: , '_PVT'
52: , x_return_status);
53: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
54: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
55: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
56: RAISE OKL_API.G_EXCEPTION_ERROR;
57: END IF;
50: , p_api_version
51: , '_PVT'
52: , x_return_status);
53: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
54: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
55: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
56: RAISE OKL_API.G_EXCEPTION_ERROR;
57: END IF;
58:
51: , '_PVT'
52: , x_return_status);
53: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
54: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
55: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
56: RAISE OKL_API.G_EXCEPTION_ERROR;
57: END IF;
58:
59: -- Check whether disbursement rule end date is less than start date
52: , x_return_status);
53: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
54: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
55: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
56: RAISE OKL_API.G_EXCEPTION_ERROR;
57: END IF;
58:
59: -- Check whether disbursement rule end date is less than start date
60: l_disb_start_date := p_drav_rec.start_date;
65:
66: IF ((l_disb_start_date IS NOT NULL) AND (l_disb_start_date <> FND_API.G_MISS_DATE)
67: AND (l_disb_end_date IS NOT NULL) AND (l_disb_end_date <> FND_API.G_MISS_DATE)) THEN
68: IF (l_disb_end_date < l_disb_start_date) THEN
69: OKL_API.SET_MESSAGE( p_app_name => g_app_name
70: , p_msg_name => G_OKL_ST_DISB_EFF_DATE_ERR);
71: RAISE OKL_API.G_EXCEPTION_ERROR;
72: END IF;
73: END IF;
67: AND (l_disb_end_date IS NOT NULL) AND (l_disb_end_date <> FND_API.G_MISS_DATE)) THEN
68: IF (l_disb_end_date < l_disb_start_date) THEN
69: OKL_API.SET_MESSAGE( p_app_name => g_app_name
70: , p_msg_name => G_OKL_ST_DISB_EFF_DATE_ERR);
71: RAISE OKL_API.G_EXCEPTION_ERROR;
72: END IF;
73: END IF;
74:
75: -- Validate vendor sites effective dates
87:
88: IF ((l_vsite_start_date IS NOT NULL) AND (l_vsite_start_date <> FND_API.G_MISS_DATE)
89: AND (l_vsite_end_date IS NOT NULL) AND (l_vsite_end_date <> FND_API.G_MISS_DATE)) THEN
90: IF (l_vsite_end_date < l_vsite_start_date) THEN
91: OKL_API.SET_MESSAGE( p_app_name => g_app_name
92: , p_msg_name => G_OKL_ST_DISB_VSITE_DATE_ERR);
93: RAISE OKL_API.G_EXCEPTION_ERROR;
94: END IF;
95: END IF;
89: AND (l_vsite_end_date IS NOT NULL) AND (l_vsite_end_date <> FND_API.G_MISS_DATE)) THEN
90: IF (l_vsite_end_date < l_vsite_start_date) THEN
91: OKL_API.SET_MESSAGE( p_app_name => g_app_name
92: , p_msg_name => G_OKL_ST_DISB_VSITE_DATE_ERR);
93: RAISE OKL_API.G_EXCEPTION_ERROR;
94: END IF;
95: END IF;
96:
97: ----g_debug_proc('DRV Check');
102:
103: --DBMS_OUTPUT.PUT_LINE('DATE COUNTE ');
104: IF ((l_vsite_start_date IS NOT NULL) AND (l_vsite_start_date <> FND_API.G_MISS_DATE)
105: AND (l_vsite_start_date < l_disb_start_date)) THEN
106: OKL_API.SET_MESSAGE( p_app_name => g_app_name
107: , p_msg_name => G_OKL_ST_DISB_VSITE_DATE_ERR);
108: --g_debug_proc('1');
109: RAISE OKL_API.G_EXCEPTION_ERROR;
110: ELSIF ((l_disb_end_date IS NOT NULL) AND (l_disb_end_date <> FND_API.G_MISS_DATE)
105: AND (l_vsite_start_date < l_disb_start_date)) THEN
106: OKL_API.SET_MESSAGE( p_app_name => g_app_name
107: , p_msg_name => G_OKL_ST_DISB_VSITE_DATE_ERR);
108: --g_debug_proc('1');
109: RAISE OKL_API.G_EXCEPTION_ERROR;
110: ELSIF ((l_disb_end_date IS NOT NULL) AND (l_disb_end_date <> FND_API.G_MISS_DATE)
111: AND (l_vsite_start_date > l_disb_end_date)) THEN
112: OKL_API.SET_MESSAGE( p_app_name => g_app_name
113: , p_msg_name => G_OKL_ST_DISB_VSITE_DATE_ERR);
108: --g_debug_proc('1');
109: RAISE OKL_API.G_EXCEPTION_ERROR;
110: ELSIF ((l_disb_end_date IS NOT NULL) AND (l_disb_end_date <> FND_API.G_MISS_DATE)
111: AND (l_vsite_start_date > l_disb_end_date)) THEN
112: OKL_API.SET_MESSAGE( p_app_name => g_app_name
113: , p_msg_name => G_OKL_ST_DISB_VSITE_DATE_ERR);
114: --g_debug_proc('2');
115: RAISE OKL_API.G_EXCEPTION_ERROR;
116: ELSIF ((l_vsite_end_date IS NOT NULL) AND (l_vsite_end_date <> FND_API.G_MISS_DATE)
111: AND (l_vsite_start_date > l_disb_end_date)) THEN
112: OKL_API.SET_MESSAGE( p_app_name => g_app_name
113: , p_msg_name => G_OKL_ST_DISB_VSITE_DATE_ERR);
114: --g_debug_proc('2');
115: RAISE OKL_API.G_EXCEPTION_ERROR;
116: ELSIF ((l_vsite_end_date IS NOT NULL) AND (l_vsite_end_date <> FND_API.G_MISS_DATE)
117: AND (l_vsite_end_date > l_disb_end_date)) THEN
118: OKL_API.SET_MESSAGE( p_app_name => g_app_name
119: , p_msg_name => G_OKL_ST_DISB_VSITE_DATE_ERR);
114: --g_debug_proc('2');
115: RAISE OKL_API.G_EXCEPTION_ERROR;
116: ELSIF ((l_vsite_end_date IS NOT NULL) AND (l_vsite_end_date <> FND_API.G_MISS_DATE)
117: AND (l_vsite_end_date > l_disb_end_date)) THEN
118: OKL_API.SET_MESSAGE( p_app_name => g_app_name
119: , p_msg_name => G_OKL_ST_DISB_VSITE_DATE_ERR);
120: --g_debug_proc('3');
121: RAISE OKL_API.G_EXCEPTION_ERROR;
122: END IF;
117: AND (l_vsite_end_date > l_disb_end_date)) THEN
118: OKL_API.SET_MESSAGE( p_app_name => g_app_name
119: , p_msg_name => G_OKL_ST_DISB_VSITE_DATE_ERR);
120: --g_debug_proc('3');
121: RAISE OKL_API.G_EXCEPTION_ERROR;
122: END IF;
123: END LOOP;
124: END IF;
125:
150: AND (l_vsite_start_date BETWEEN l_exist_start_date AND l_exist_end_date))
151: OR
152: ((l_vsite_end_date IS NOT NULL) AND (l_vsite_end_date <> FND_API.G_MISS_DATE)
153: AND (l_vsite_end_date BETWEEN l_exist_start_date AND l_exist_end_date)) ) THEN
154: OKL_API.SET_MESSAGE( p_app_name => g_app_name
155: , p_msg_name => G_OKL_ST_DISB_VSITE_DATE_ERR);
156: RAISE OKL_API.G_EXCEPTION_ERROR;
157: END IF;
158: ELSIF ((l_vsite_end_date IS NULL) OR (l_vsite_end_date = FND_API.G_MISS_DATE)
152: ((l_vsite_end_date IS NOT NULL) AND (l_vsite_end_date <> FND_API.G_MISS_DATE)
153: AND (l_vsite_end_date BETWEEN l_exist_start_date AND l_exist_end_date)) ) THEN
154: OKL_API.SET_MESSAGE( p_app_name => g_app_name
155: , p_msg_name => G_OKL_ST_DISB_VSITE_DATE_ERR);
156: RAISE OKL_API.G_EXCEPTION_ERROR;
157: END IF;
158: ELSIF ((l_vsite_end_date IS NULL) OR (l_vsite_end_date = FND_API.G_MISS_DATE)
159: OR ( l_vsite_end_date > l_exist_start_date )) THEN
160: --DBMS_OUTPUT.PUT_LINE('D2 b');
157: END IF;
158: ELSIF ((l_vsite_end_date IS NULL) OR (l_vsite_end_date = FND_API.G_MISS_DATE)
159: OR ( l_vsite_end_date > l_exist_start_date )) THEN
160: --DBMS_OUTPUT.PUT_LINE('D2 b');
161: OKL_API.SET_MESSAGE( p_app_name => g_app_name
162: , p_msg_name => G_OKL_ST_DISB_VSITE_DATE_ERR);
163: RAISE OKL_API.G_EXCEPTION_ERROR;
164: END IF;
165: END IF;
159: OR ( l_vsite_end_date > l_exist_start_date )) THEN
160: --DBMS_OUTPUT.PUT_LINE('D2 b');
161: OKL_API.SET_MESSAGE( p_app_name => g_app_name
162: , p_msg_name => G_OKL_ST_DISB_VSITE_DATE_ERR);
163: RAISE OKL_API.G_EXCEPTION_ERROR;
164: END IF;
165: END IF;
166: END LOOP;
167: END LOOP;
168: END LOOP;
169: END IF;
170: --g_debug_proc('effective dates overlaps with the existing vendor site effective dates');
171: --DBMS_OUTPUT.PUT_LINE('D3');
172: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
173:
174: EXCEPTION
175: WHEN OKL_API.G_EXCEPTION_ERROR THEN
176: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
171: --DBMS_OUTPUT.PUT_LINE('D3');
172: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
173:
174: EXCEPTION
175: WHEN OKL_API.G_EXCEPTION_ERROR THEN
176: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
177: , g_pkg_name
178: , 'OKL_API.G_RET_STS_ERROR'
179: , x_msg_count
172: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
173:
174: EXCEPTION
175: WHEN OKL_API.G_EXCEPTION_ERROR THEN
176: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
177: , g_pkg_name
178: , 'OKL_API.G_RET_STS_ERROR'
179: , x_msg_count
180: , x_msg_data
174: EXCEPTION
175: WHEN OKL_API.G_EXCEPTION_ERROR THEN
176: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
177: , g_pkg_name
178: , 'OKL_API.G_RET_STS_ERROR'
179: , x_msg_count
180: , x_msg_data
181: , '_PVT' );
182: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
178: , 'OKL_API.G_RET_STS_ERROR'
179: , x_msg_count
180: , x_msg_data
181: , '_PVT' );
182: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
183: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
184: , g_pkg_name
185: , 'OKL_API.G_RET_STS_UNEXP_ERROR'
186: , x_msg_count
179: , x_msg_count
180: , x_msg_data
181: , '_PVT' );
182: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
183: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
184: , g_pkg_name
185: , 'OKL_API.G_RET_STS_UNEXP_ERROR'
186: , x_msg_count
187: , x_msg_data
181: , '_PVT' );
182: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
183: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
184: , g_pkg_name
185: , 'OKL_API.G_RET_STS_UNEXP_ERROR'
186: , x_msg_count
187: , x_msg_data
188: , '_PVT' );
189: WHEN OTHERS THEN
186: , x_msg_count
187: , x_msg_data
188: , '_PVT' );
189: WHEN OTHERS THEN
190: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
191: , g_pkg_name
192: , 'OTHERS'
193: , x_msg_count
194: , x_msg_data
238: AND disb_vsites.disb_rule_vendor_site_id <> NVL (p_disb_rule_vendor_site_id , -1) ;
239:
240: BEGIN
241: -- Initialization
242: x_return_status := OKL_API.G_RET_STS_SUCCESS;
243:
244: x_return_status := OKL_API.START_ACTIVITY( l_api_name
245: , g_pkg_name
246: , p_init_msg_list
240: BEGIN
241: -- Initialization
242: x_return_status := OKL_API.G_RET_STS_SUCCESS;
243:
244: x_return_status := OKL_API.START_ACTIVITY( l_api_name
245: , g_pkg_name
246: , p_init_msg_list
247: , l_api_version
248: , p_api_version
247: , l_api_version
248: , p_api_version
249: , '_PVT'
250: , x_return_status);
251: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
252: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
253: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
254: RAISE OKL_API.G_EXCEPTION_ERROR;
255: END IF;
248: , p_api_version
249: , '_PVT'
250: , x_return_status);
251: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
252: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
253: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
254: RAISE OKL_API.G_EXCEPTION_ERROR;
255: END IF;
256: --DBMS_OUTPUT.PUT_LINE('S1');
249: , '_PVT'
250: , x_return_status);
251: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
252: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
253: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
254: RAISE OKL_API.G_EXCEPTION_ERROR;
255: END IF;
256: --DBMS_OUTPUT.PUT_LINE('S1');
257: IF (p_drv_tbl.COUNT > 0) THEN
250: , x_return_status);
251: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
252: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
253: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
254: RAISE OKL_API.G_EXCEPTION_ERROR;
255: END IF;
256: --DBMS_OUTPUT.PUT_LINE('S1');
257: IF (p_drv_tbl.COUNT > 0) THEN
258: FOR vsite_count IN p_drv_tbl.FIRST .. p_drv_tbl.LAST
262: -- Check whether new seq end is greater than seq start
263: IF ((l_new_seq_start IS NOT NULL) AND (l_new_seq_start <> FND_API.G_MISS_NUM)
264: AND (l_new_seq_end IS NOT NULL) AND (l_new_seq_end <> FND_API.G_MISS_NUM)
265: AND (l_new_seq_end < l_new_seq_start)) THEN
266: OKL_API.SET_MESSAGE( p_app_name => g_app_name
267: , p_msg_name => G_OKL_ST_DISB_SEQ_RANGE_ERR);
268: RAISE OKL_API.G_EXCEPTION_ERROR;
269: END IF;
270:
264: AND (l_new_seq_end IS NOT NULL) AND (l_new_seq_end <> FND_API.G_MISS_NUM)
265: AND (l_new_seq_end < l_new_seq_start)) THEN
266: OKL_API.SET_MESSAGE( p_app_name => g_app_name
267: , p_msg_name => G_OKL_ST_DISB_SEQ_RANGE_ERR);
268: RAISE OKL_API.G_EXCEPTION_ERROR;
269: END IF;
270:
271: --DBMS_OUTPUT.PUT_LINE('S2 ' || l_new_seq_start || ' ' || l_new_seq_end);
272: -- Check whether vendor site seq range overlaps with the any
284: AND (l_new_seq_start BETWEEN l_existing_seq_start AND l_existing_seq_end))
285: OR
286: ((l_new_seq_end IS NOT NULL) AND (l_new_seq_end <> FND_API.G_MISS_NUM)
287: AND (l_new_seq_end BETWEEN l_existing_seq_start AND l_existing_seq_end)) ) THEN
288: OKL_API.SET_MESSAGE( p_app_name => g_app_name
289: , p_msg_name => G_OKL_ST_DISB_SEQ_OVERLAP);
290: RAISE OKL_API.G_EXCEPTION_ERROR;
291: END IF;
292: ELSIF ((l_new_seq_end IS NULL) OR (l_new_seq_end = FND_API.G_MISS_NUM)
286: ((l_new_seq_end IS NOT NULL) AND (l_new_seq_end <> FND_API.G_MISS_NUM)
287: AND (l_new_seq_end BETWEEN l_existing_seq_start AND l_existing_seq_end)) ) THEN
288: OKL_API.SET_MESSAGE( p_app_name => g_app_name
289: , p_msg_name => G_OKL_ST_DISB_SEQ_OVERLAP);
290: RAISE OKL_API.G_EXCEPTION_ERROR;
291: END IF;
292: ELSIF ((l_new_seq_end IS NULL) OR (l_new_seq_end = FND_API.G_MISS_NUM)
293: OR ( l_new_seq_end > l_existing_seq_start )) THEN
294: OKL_API.SET_MESSAGE( p_app_name => g_app_name
290: RAISE OKL_API.G_EXCEPTION_ERROR;
291: END IF;
292: ELSIF ((l_new_seq_end IS NULL) OR (l_new_seq_end = FND_API.G_MISS_NUM)
293: OR ( l_new_seq_end > l_existing_seq_start )) THEN
294: OKL_API.SET_MESSAGE( p_app_name => g_app_name
295: , p_msg_name => G_OKL_ST_DISB_SEQ_OVERLAP);
296: RAISE OKL_API.G_EXCEPTION_ERROR;
297: END IF;
298: END IF;
292: ELSIF ((l_new_seq_end IS NULL) OR (l_new_seq_end = FND_API.G_MISS_NUM)
293: OR ( l_new_seq_end > l_existing_seq_start )) THEN
294: OKL_API.SET_MESSAGE( p_app_name => g_app_name
295: , p_msg_name => G_OKL_ST_DISB_SEQ_OVERLAP);
296: RAISE OKL_API.G_EXCEPTION_ERROR;
297: END IF;
298: END IF;
299: END LOOP;
300: END LOOP;
300: END LOOP;
301: END IF;
302:
303: --DBMS_OUTPUT.PUT_LINE('S3');
304: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
305:
306: EXCEPTION
307: WHEN OKL_API.G_EXCEPTION_ERROR THEN
308: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
303: --DBMS_OUTPUT.PUT_LINE('S3');
304: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
305:
306: EXCEPTION
307: WHEN OKL_API.G_EXCEPTION_ERROR THEN
308: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
309: , g_pkg_name
310: , 'OKL_API.G_RET_STS_ERROR'
311: , x_msg_count
304: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
305:
306: EXCEPTION
307: WHEN OKL_API.G_EXCEPTION_ERROR THEN
308: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
309: , g_pkg_name
310: , 'OKL_API.G_RET_STS_ERROR'
311: , x_msg_count
312: , x_msg_data
306: EXCEPTION
307: WHEN OKL_API.G_EXCEPTION_ERROR THEN
308: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
309: , g_pkg_name
310: , 'OKL_API.G_RET_STS_ERROR'
311: , x_msg_count
312: , x_msg_data
313: , '_PVT' );
314: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
310: , 'OKL_API.G_RET_STS_ERROR'
311: , x_msg_count
312: , x_msg_data
313: , '_PVT' );
314: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
315: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
316: , g_pkg_name
317: , 'OKL_API.G_RET_STS_UNEXP_ERROR'
318: , x_msg_count
311: , x_msg_count
312: , x_msg_data
313: , '_PVT' );
314: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
315: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
316: , g_pkg_name
317: , 'OKL_API.G_RET_STS_UNEXP_ERROR'
318: , x_msg_count
319: , x_msg_data
313: , '_PVT' );
314: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
315: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
316: , g_pkg_name
317: , 'OKL_API.G_RET_STS_UNEXP_ERROR'
318: , x_msg_count
319: , x_msg_data
320: , '_PVT' );
321: WHEN OTHERS THEN
318: , x_msg_count
319: , x_msg_data
320: , '_PVT' );
321: WHEN OTHERS THEN
322: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
323: , g_pkg_name
324: , 'OTHERS'
325: , x_msg_count
326: , x_msg_data
383: old_vendor_site_rec old_disb_vendor_sites_csr%ROWTYPE;
384:
385: BEGIN
386: -- Initialization
387: x_return_status := OKL_API.G_RET_STS_SUCCESS;
388:
389: x_return_status := OKL_API.START_ACTIVITY( l_api_name
390: , g_pkg_name
391: , p_init_msg_list
385: BEGIN
386: -- Initialization
387: x_return_status := OKL_API.G_RET_STS_SUCCESS;
388:
389: x_return_status := OKL_API.START_ACTIVITY( l_api_name
390: , g_pkg_name
391: , p_init_msg_list
392: , l_api_version
393: , p_api_version
392: , l_api_version
393: , p_api_version
394: , '_PVT'
395: , x_return_status);
396: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
397: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
398: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
399: RAISE OKL_API.G_EXCEPTION_ERROR;
400: END IF;
393: , p_api_version
394: , '_PVT'
395: , x_return_status);
396: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
397: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
398: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
399: RAISE OKL_API.G_EXCEPTION_ERROR;
400: END IF;
401:
394: , '_PVT'
395: , x_return_status);
396: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
397: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
398: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
399: RAISE OKL_API.G_EXCEPTION_ERROR;
400: END IF;
401:
402: -- If vendor sites available for the disbursement rule from DB
395: , x_return_status);
396: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
397: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
398: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
399: RAISE OKL_API.G_EXCEPTION_ERROR;
400: END IF;
401:
402: -- If vendor sites available for the disbursement rule from DB
403: -- is not found in the new vendor sites input table then delete it
426: , x_return_status => x_return_status
427: , x_msg_count => x_msg_count
428: , x_msg_data => x_msg_data
429: , p_drv_tbl => l_drv_del_tbl);
430: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
431: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
432: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
433: RAISE OKL_API.G_EXCEPTION_ERROR;
434: END IF;
427: , x_msg_count => x_msg_count
428: , x_msg_data => x_msg_data
429: , p_drv_tbl => l_drv_del_tbl);
430: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
431: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
432: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
433: RAISE OKL_API.G_EXCEPTION_ERROR;
434: END IF;
435: END IF;
428: , x_msg_data => x_msg_data
429: , p_drv_tbl => l_drv_del_tbl);
430: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
431: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
432: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
433: RAISE OKL_API.G_EXCEPTION_ERROR;
434: END IF;
435: END IF;
436:
429: , p_drv_tbl => l_drv_del_tbl);
430: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
431: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
432: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
433: RAISE OKL_API.G_EXCEPTION_ERROR;
434: END IF;
435: END IF;
436:
437: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
433: RAISE OKL_API.G_EXCEPTION_ERROR;
434: END IF;
435: END IF;
436:
437: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
438:
439: EXCEPTION
440: WHEN OKL_API.G_EXCEPTION_ERROR THEN
441: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
436:
437: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
438:
439: EXCEPTION
440: WHEN OKL_API.G_EXCEPTION_ERROR THEN
441: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
442: , g_pkg_name
443: , 'OKL_API.G_RET_STS_ERROR'
444: , x_msg_count
437: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
438:
439: EXCEPTION
440: WHEN OKL_API.G_EXCEPTION_ERROR THEN
441: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
442: , g_pkg_name
443: , 'OKL_API.G_RET_STS_ERROR'
444: , x_msg_count
445: , x_msg_data
439: EXCEPTION
440: WHEN OKL_API.G_EXCEPTION_ERROR THEN
441: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
442: , g_pkg_name
443: , 'OKL_API.G_RET_STS_ERROR'
444: , x_msg_count
445: , x_msg_data
446: , '_PVT' );
447: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
443: , 'OKL_API.G_RET_STS_ERROR'
444: , x_msg_count
445: , x_msg_data
446: , '_PVT' );
447: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
448: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
449: , g_pkg_name
450: , 'OKL_API.G_RET_STS_UNEXP_ERROR'
451: , x_msg_count
444: , x_msg_count
445: , x_msg_data
446: , '_PVT' );
447: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
448: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
449: , g_pkg_name
450: , 'OKL_API.G_RET_STS_UNEXP_ERROR'
451: , x_msg_count
452: , x_msg_data
446: , '_PVT' );
447: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
448: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
449: , g_pkg_name
450: , 'OKL_API.G_RET_STS_UNEXP_ERROR'
451: , x_msg_count
452: , x_msg_data
453: , '_PVT' );
454: WHEN OTHERS THEN
451: , x_msg_count
452: , x_msg_data
453: , '_PVT' );
454: WHEN OTHERS THEN
455: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
456: , g_pkg_name
457: , 'OTHERS'
458: , x_msg_count
459: , x_msg_data
541: BEGIN
542: --SAVEPOINT create_v_disbursement_rule;
543: ----g_debug_proc('START');
544: --DBMS_OUTPUT.PUT_LINE('START ');
545: x_return_status := OKL_API.G_RET_STS_SUCCESS;
546:
547: x_return_status := OKL_API.START_ACTIVITY( l_api_name
548: , g_pkg_name
549: , p_init_msg_list
543: ----g_debug_proc('START');
544: --DBMS_OUTPUT.PUT_LINE('START ');
545: x_return_status := OKL_API.G_RET_STS_SUCCESS;
546:
547: x_return_status := OKL_API.START_ACTIVITY( l_api_name
548: , g_pkg_name
549: , p_init_msg_list
550: , l_api_version
551: , p_api_version
550: , l_api_version
551: , p_api_version
552: , '_PVT'
553: , x_return_status);
554: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
555: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
556: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
557: RAISE OKL_API.G_EXCEPTION_ERROR;
558: END IF;
551: , p_api_version
552: , '_PVT'
553: , x_return_status);
554: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
555: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
556: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
557: RAISE OKL_API.G_EXCEPTION_ERROR;
558: END IF;
559:
552: , '_PVT'
553: , x_return_status);
554: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
555: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
556: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
557: RAISE OKL_API.G_EXCEPTION_ERROR;
558: END IF;
559:
560: -- lp_drv_tbl := p_drv_tbl;
553: , x_return_status);
554: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
555: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
556: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
557: RAISE OKL_API.G_EXCEPTION_ERROR;
558: END IF;
559:
560: -- lp_drv_tbl := p_drv_tbl;
561:
633: , x_msg_data => x_msg_data
634: , p_disb_rule_id => l_disb_rule_id
635: , p_vendor_id => lp_drv_tbl(lp_drv_tbl.FIRST).vendor_id
636: , p_new_drv_tbl => lp_drv_tbl);
637: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
638: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
639: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
640: RAISE OKL_API.G_EXCEPTION_ERROR;
641: END IF;
634: , p_disb_rule_id => l_disb_rule_id
635: , p_vendor_id => lp_drv_tbl(lp_drv_tbl.FIRST).vendor_id
636: , p_new_drv_tbl => lp_drv_tbl);
637: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
638: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
639: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
640: RAISE OKL_API.G_EXCEPTION_ERROR;
641: END IF;
642:
635: , p_vendor_id => lp_drv_tbl(lp_drv_tbl.FIRST).vendor_id
636: , p_new_drv_tbl => lp_drv_tbl);
637: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
638: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
639: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
640: RAISE OKL_API.G_EXCEPTION_ERROR;
641: END IF;
642:
643:
636: , p_new_drv_tbl => lp_drv_tbl);
637: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
638: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
639: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
640: RAISE OKL_API.G_EXCEPTION_ERROR;
641: END IF;
642:
643:
644: ----g_debug_proc('After Delete');
651: , x_msg_data => x_msg_data
652: , p_drav_rec => l_drav_rec
653: , p_drs_tbl => l_drs_tbl
654: , p_drv_tbl => lp_drv_tbl);
655: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
656: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
657: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
658: RAISE OKL_API.G_EXCEPTION_ERROR;
659: END IF;
652: , p_drav_rec => l_drav_rec
653: , p_drs_tbl => l_drs_tbl
654: , p_drv_tbl => lp_drv_tbl);
655: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
656: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
657: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
658: RAISE OKL_API.G_EXCEPTION_ERROR;
659: END IF;
660:
653: , p_drs_tbl => l_drs_tbl
654: , p_drv_tbl => lp_drv_tbl);
655: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
656: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
657: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
658: RAISE OKL_API.G_EXCEPTION_ERROR;
659: END IF;
660:
661:
654: , p_drv_tbl => lp_drv_tbl);
655: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
656: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
657: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
658: RAISE OKL_API.G_EXCEPTION_ERROR;
659: END IF;
660:
661:
662:
670: , x_msg_data => x_msg_data
671: , p_drav_rec => l_drav_rec
672: , p_drs_tbl => l_drs_tbl
673: , p_drv_tbl => lp_drv_tbl);
674: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
675: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
676: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
677: RAISE OKL_API.G_EXCEPTION_ERROR;
678: END IF;
671: , p_drav_rec => l_drav_rec
672: , p_drs_tbl => l_drs_tbl
673: , p_drv_tbl => lp_drv_tbl);
674: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
675: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
676: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
677: RAISE OKL_API.G_EXCEPTION_ERROR;
678: END IF;
679: --DBMS_OUTPUT.PUT_LINE('3');
672: , p_drs_tbl => l_drs_tbl
673: , p_drv_tbl => lp_drv_tbl);
674: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
675: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
676: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
677: RAISE OKL_API.G_EXCEPTION_ERROR;
678: END IF;
679: --DBMS_OUTPUT.PUT_LINE('3');
680:
673: , p_drv_tbl => lp_drv_tbl);
674: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
675: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
676: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
677: RAISE OKL_API.G_EXCEPTION_ERROR;
678: END IF;
679: --DBMS_OUTPUT.PUT_LINE('3');
680:
681:
686: , x_return_status => x_return_status
687: , x_msg_count => x_msg_count
688: , x_msg_data => x_msg_data
689: , p_drv_tbl => lp_drv_tbl);
690: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
691: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
692: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
693: RAISE OKL_API.G_EXCEPTION_ERROR;
694: END IF;
687: , x_msg_count => x_msg_count
688: , x_msg_data => x_msg_data
689: , p_drv_tbl => lp_drv_tbl);
690: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
691: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
692: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
693: RAISE OKL_API.G_EXCEPTION_ERROR;
694: END IF;
695:
688: , x_msg_data => x_msg_data
689: , p_drv_tbl => lp_drv_tbl);
690: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
691: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
692: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
693: RAISE OKL_API.G_EXCEPTION_ERROR;
694: END IF;
695:
696: ----g_debug_proc('Gaurav 4');
689: , p_drv_tbl => lp_drv_tbl);
690: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
691: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
692: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
693: RAISE OKL_API.G_EXCEPTION_ERROR;
694: END IF;
695:
696: ----g_debug_proc('Gaurav 4');
697:
698: --If disb_rule_vendor_site_id = null then record is inserted else updated.
699: FOR i IN lp_drv_tbl.FIRST .. lp_drv_tbl.LAST LOOP
700: --gkhuntet added on 22-JUN-2007 START.
701:
702: IF(lp_drv_tbl(i).disb_rule_vendor_site_id <> OKL_API.G_MISS_NUM
703: OR lp_drv_tbl(i).disb_rule_vendor_site_id IS NOT NULL) THEN
704: OPEN get_seq_no(lp_drv_tbl(i).DISB_RULE_VENDOR_SITE_ID);
705: FETCH get_seq_no INTO l_old_start_seq_no ,l_next_seq_no ,l_old_end_seq_no;
706: CLOSE get_seq_no;
708: IF(l_old_start_seq_no IS null) THEN
709: lp_drv_tbl(i).NEXT_INV_SEQ := lp_drv_tbl(i).INVOICE_SEQ_START;
710: END IF;
711: ELSIF(lp_drv_tbl(i).INVOICE_SEQ_END IS NOT NULL) THEN
712: OKL_API.SET_MESSAGE( p_app_name => g_app_name
713: , p_msg_name => G_OKL_ST_START_SEQ_NO_REQ);
714: RAISE OKL_API.G_EXCEPTION_ERROR;
715: END IF;
716:
710: END IF;
711: ELSIF(lp_drv_tbl(i).INVOICE_SEQ_END IS NOT NULL) THEN
712: OKL_API.SET_MESSAGE( p_app_name => g_app_name
713: , p_msg_name => G_OKL_ST_START_SEQ_NO_REQ);
714: RAISE OKL_API.G_EXCEPTION_ERROR;
715: END IF;
716:
717: IF((l_old_end_seq_no IS NOT NULL AND lp_drv_tbl(i).INVOICE_SEQ_END IS NULL) OR
718: l_old_end_seq_no IS NOT NULL AND lp_drv_tbl(i).INVOICE_SEQ_END < l_old_end_seq_no) THEN
715: END IF;
716:
717: IF((l_old_end_seq_no IS NOT NULL AND lp_drv_tbl(i).INVOICE_SEQ_END IS NULL) OR
718: l_old_end_seq_no IS NOT NULL AND lp_drv_tbl(i).INVOICE_SEQ_END < l_old_end_seq_no) THEN
719: OKL_API.SET_MESSAGE( p_app_name => g_app_name
720: , p_msg_name => G_OKL_ST_END_SEQ_NO_LESS);
721: RAISE OKL_API.G_EXCEPTION_ERROR;
722: END IF;
723:
717: IF((l_old_end_seq_no IS NOT NULL AND lp_drv_tbl(i).INVOICE_SEQ_END IS NULL) OR
718: l_old_end_seq_no IS NOT NULL AND lp_drv_tbl(i).INVOICE_SEQ_END < l_old_end_seq_no) THEN
719: OKL_API.SET_MESSAGE( p_app_name => g_app_name
720: , p_msg_name => G_OKL_ST_END_SEQ_NO_LESS);
721: RAISE OKL_API.G_EXCEPTION_ERROR;
722: END IF;
723:
724: IF((lp_drv_tbl(i).INVOICE_SEQ_START IS NULL AND l_old_start_seq_no IS NOT NULL) OR
725: (l_old_start_seq_no IS NOT NULL AND lp_drv_tbl(i).INVOICE_SEQ_START <> l_old_start_seq_no)) THEN
722: END IF;
723:
724: IF((lp_drv_tbl(i).INVOICE_SEQ_START IS NULL AND l_old_start_seq_no IS NOT NULL) OR
725: (l_old_start_seq_no IS NOT NULL AND lp_drv_tbl(i).INVOICE_SEQ_START <> l_old_start_seq_no)) THEN
726: OKL_API.SET_MESSAGE( p_app_name => g_app_name
727: , p_msg_name => G_OKL_ST_START_SEQ_LOCK);
728: RAISE OKL_API.G_EXCEPTION_ERROR;
729: -- ELSE
730: -- lp_drv_tbl(i).INVOICE_SEQ_START := l_old_start_seq_no;
724: IF((lp_drv_tbl(i).INVOICE_SEQ_START IS NULL AND l_old_start_seq_no IS NOT NULL) OR
725: (l_old_start_seq_no IS NOT NULL AND lp_drv_tbl(i).INVOICE_SEQ_START <> l_old_start_seq_no)) THEN
726: OKL_API.SET_MESSAGE( p_app_name => g_app_name
727: , p_msg_name => G_OKL_ST_START_SEQ_LOCK);
728: RAISE OKL_API.G_EXCEPTION_ERROR;
729: -- ELSE
730: -- lp_drv_tbl(i).INVOICE_SEQ_START := l_old_start_seq_no;
731:
732:
733: END IF;
734: END IF;
735: --gkhuntet added on 22-JUN-2007 END.
736:
737: IF(lp_drv_tbl(i).disb_rule_vendor_site_id = OKL_API.G_MISS_NUM or
738: lp_drv_tbl(i).disb_rule_vendor_site_id is null) THEN
739: ----g_debug_proc('disb_rule_vendor_site_id ' || lp_drv_tbl(i).disb_rule_vendor_site_id);
740: l_drv_Crt_tbl(crt_count) := lp_drv_tbl(i);
741: crt_count := crt_count + 1;
757: , x_msg_count => x_msg_count
758: , x_msg_data => x_msg_data
759: , p_drv_tbl => l_drv_Updt_tbl
760: , x_drv_tbl => lx_drv_tbl);
761: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
762: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
763: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
764: RAISE OKL_API.G_EXCEPTION_ERROR;
765: END IF;
758: , x_msg_data => x_msg_data
759: , p_drv_tbl => l_drv_Updt_tbl
760: , x_drv_tbl => lx_drv_tbl);
761: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
762: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
763: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
764: RAISE OKL_API.G_EXCEPTION_ERROR;
765: END IF;
766: END IF;
759: , p_drv_tbl => l_drv_Updt_tbl
760: , x_drv_tbl => lx_drv_tbl);
761: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
762: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
763: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
764: RAISE OKL_API.G_EXCEPTION_ERROR;
765: END IF;
766: END IF;
767:
760: , x_drv_tbl => lx_drv_tbl);
761: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
762: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
763: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
764: RAISE OKL_API.G_EXCEPTION_ERROR;
765: END IF;
766: END IF;
767:
768: ----g_debug_proc('Gaurav 6');
775: , x_msg_count => x_msg_count
776: , x_msg_data => x_msg_data
777: , p_drv_tbl => l_drv_Crt_tbl
778: , x_drv_tbl => lx_drv_tbl);
779: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
780: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
781: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
782: RAISE OKL_API.G_EXCEPTION_ERROR;
783: END IF;
776: , x_msg_data => x_msg_data
777: , p_drv_tbl => l_drv_Crt_tbl
778: , x_drv_tbl => lx_drv_tbl);
779: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
780: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
781: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
782: RAISE OKL_API.G_EXCEPTION_ERROR;
783: END IF;
784: END IF;
777: , p_drv_tbl => l_drv_Crt_tbl
778: , x_drv_tbl => lx_drv_tbl);
779: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
780: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
781: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
782: RAISE OKL_API.G_EXCEPTION_ERROR;
783: END IF;
784: END IF;
785:
778: , x_drv_tbl => lx_drv_tbl);
779: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
780: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
781: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
782: RAISE OKL_API.G_EXCEPTION_ERROR;
783: END IF;
784: END IF;
785:
786: ----g_debug_proc('Gaurav 7');
784: END IF;
785:
786: ----g_debug_proc('Gaurav 7');
787:
788: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
789:
790: EXCEPTION
791: WHEN OKL_API.G_EXCEPTION_ERROR THEN
792: --ROLLBACK TO create_v_disbursement_rule;
787:
788: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
789:
790: EXCEPTION
791: WHEN OKL_API.G_EXCEPTION_ERROR THEN
792: --ROLLBACK TO create_v_disbursement_rule;
793: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
794: , g_pkg_name
795: , 'OKL_API.G_RET_STS_ERROR'
789:
790: EXCEPTION
791: WHEN OKL_API.G_EXCEPTION_ERROR THEN
792: --ROLLBACK TO create_v_disbursement_rule;
793: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
794: , g_pkg_name
795: , 'OKL_API.G_RET_STS_ERROR'
796: , x_msg_count
797: , x_msg_data
791: WHEN OKL_API.G_EXCEPTION_ERROR THEN
792: --ROLLBACK TO create_v_disbursement_rule;
793: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
794: , g_pkg_name
795: , 'OKL_API.G_RET_STS_ERROR'
796: , x_msg_count
797: , x_msg_data
798: , '_PVT' );
799: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
795: , 'OKL_API.G_RET_STS_ERROR'
796: , x_msg_count
797: , x_msg_data
798: , '_PVT' );
799: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
800: --ROLLBACK TO create_v_disbursement_rule;
801: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
802: , g_pkg_name
803: , 'OKL_API.G_RET_STS_UNEXP_ERROR'
797: , x_msg_data
798: , '_PVT' );
799: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
800: --ROLLBACK TO create_v_disbursement_rule;
801: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
802: , g_pkg_name
803: , 'OKL_API.G_RET_STS_UNEXP_ERROR'
804: , x_msg_count
805: , x_msg_data
799: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
800: --ROLLBACK TO create_v_disbursement_rule;
801: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
802: , g_pkg_name
803: , 'OKL_API.G_RET_STS_UNEXP_ERROR'
804: , x_msg_count
805: , x_msg_data
806: , '_PVT' );
807: WHEN OTHERS THEN
805: , x_msg_data
806: , '_PVT' );
807: WHEN OTHERS THEN
808: --ROLLBACK TO create_v_disbursement_rule;
809: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
810: , g_pkg_name
811: , 'OTHERS'
812: , x_msg_count
813: , x_msg_data
854: l_found VARCHAR2(1) := 'N';
855:
856: BEGIN
857: -- Initialization
858: x_return_status := OKL_API.G_RET_STS_SUCCESS;
859:
860: x_return_status := OKL_API.START_ACTIVITY( l_api_name
861: , g_pkg_name
862: , p_init_msg_list
856: BEGIN
857: -- Initialization
858: x_return_status := OKL_API.G_RET_STS_SUCCESS;
859:
860: x_return_status := OKL_API.START_ACTIVITY( l_api_name
861: , g_pkg_name
862: , p_init_msg_list
863: , l_api_version
864: , p_api_version
863: , l_api_version
864: , p_api_version
865: , '_PVT'
866: , x_return_status);
867: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
868: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
869: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
870: RAISE OKL_API.G_EXCEPTION_ERROR;
871: END IF;
864: , p_api_version
865: , '_PVT'
866: , x_return_status);
867: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
868: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
869: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
870: RAISE OKL_API.G_EXCEPTION_ERROR;
871: END IF;
872:
865: , '_PVT'
866: , x_return_status);
867: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
868: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
869: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
870: RAISE OKL_API.G_EXCEPTION_ERROR;
871: END IF;
872:
873: -- Check whether Rule name is unique accross rules within org
866: , x_return_status);
867: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
868: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
869: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
870: RAISE OKL_API.G_EXCEPTION_ERROR;
871: END IF;
872:
873: -- Check whether Rule name is unique accross rules within org
874: OPEN disb_rule_name_csr;
875: FETCH disb_rule_name_csr INTO l_found;
876: CLOSE disb_rule_name_csr;
877:
878: IF ( l_found = 'Y') THEN
879: OKL_API.SET_MESSAGE( p_app_name => g_app_name
880: , p_msg_name => G_OKL_ST_DISB_NAME_EXIST
881: , p_token1 => G_VALUE
882: , p_token1_value => p_disb_rule_name );
883: RAISE OKL_API.G_EXCEPTION_ERROR;
879: OKL_API.SET_MESSAGE( p_app_name => g_app_name
880: , p_msg_name => G_OKL_ST_DISB_NAME_EXIST
881: , p_token1 => G_VALUE
882: , p_token1_value => p_disb_rule_name );
883: RAISE OKL_API.G_EXCEPTION_ERROR;
884: END IF;
885:
886: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
887:
882: , p_token1_value => p_disb_rule_name );
883: RAISE OKL_API.G_EXCEPTION_ERROR;
884: END IF;
885:
886: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
887:
888: EXCEPTION
889: WHEN OKL_API.G_EXCEPTION_ERROR THEN
890: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
885:
886: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
887:
888: EXCEPTION
889: WHEN OKL_API.G_EXCEPTION_ERROR THEN
890: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
891: , g_pkg_name
892: , 'OKL_API.G_RET_STS_ERROR'
893: , x_msg_count
886: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
887:
888: EXCEPTION
889: WHEN OKL_API.G_EXCEPTION_ERROR THEN
890: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
891: , g_pkg_name
892: , 'OKL_API.G_RET_STS_ERROR'
893: , x_msg_count
894: , x_msg_data
888: EXCEPTION
889: WHEN OKL_API.G_EXCEPTION_ERROR THEN
890: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
891: , g_pkg_name
892: , 'OKL_API.G_RET_STS_ERROR'
893: , x_msg_count
894: , x_msg_data
895: , '_PVT' );
896: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
892: , 'OKL_API.G_RET_STS_ERROR'
893: , x_msg_count
894: , x_msg_data
895: , '_PVT' );
896: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
897: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
898: , g_pkg_name
899: , 'OKL_API.G_RET_STS_UNEXP_ERROR'
900: , x_msg_count
893: , x_msg_count
894: , x_msg_data
895: , '_PVT' );
896: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
897: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
898: , g_pkg_name
899: , 'OKL_API.G_RET_STS_UNEXP_ERROR'
900: , x_msg_count
901: , x_msg_data
895: , '_PVT' );
896: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
897: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
898: , g_pkg_name
899: , 'OKL_API.G_RET_STS_UNEXP_ERROR'
900: , x_msg_count
901: , x_msg_data
902: , '_PVT' );
903: WHEN OTHERS THEN
900: , x_msg_count
901: , x_msg_data
902: , '_PVT' );
903: WHEN OTHERS THEN
904: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
905: , g_pkg_name
906: , 'OTHERS'
907: , x_msg_count
908: , x_msg_data
942:
943: BEGIN
944: -- Initialization
945:
946: x_return_status := OKL_API.G_RET_STS_SUCCESS;
947:
948: x_return_status := OKL_API.START_ACTIVITY( l_api_name
949: , g_pkg_name
950: , p_init_msg_list
944: -- Initialization
945:
946: x_return_status := OKL_API.G_RET_STS_SUCCESS;
947:
948: x_return_status := OKL_API.START_ACTIVITY( l_api_name
949: , g_pkg_name
950: , p_init_msg_list
951: , l_api_version
952: , p_api_version
951: , l_api_version
952: , p_api_version
953: , '_PVT'
954: , x_return_status);
955: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
956: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
957: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
958: RAISE OKL_API.G_EXCEPTION_ERROR;
959: END IF;
952: , p_api_version
953: , '_PVT'
954: , x_return_status);
955: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
956: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
957: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
958: RAISE OKL_API.G_EXCEPTION_ERROR;
959: END IF;
960:
953: , '_PVT'
954: , x_return_status);
955: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
956: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
957: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
958: RAISE OKL_API.G_EXCEPTION_ERROR;
959: END IF;
960:
961:
954: , x_return_status);
955: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
956: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
957: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
958: RAISE OKL_API.G_EXCEPTION_ERROR;
959: END IF;
960:
961:
962: -- Rule must have atleast one Stream Type defined
961:
962: -- Rule must have atleast one Stream Type defined
963:
964: IF ( p_drs_tbl.COUNT <= 0 ) THEN
965: OKL_API.SET_MESSAGE( p_app_name => g_app_name
966: , p_msg_name => G_OKL_ST_DISB_RUL_STY_MISSING );
967: RAISE OKL_API.G_EXCEPTION_ERROR;
968: END IF;
969: -- If Fee Basis is selected then Option is mandatory
963:
964: IF ( p_drs_tbl.COUNT <= 0 ) THEN
965: OKL_API.SET_MESSAGE( p_app_name => g_app_name
966: , p_msg_name => G_OKL_ST_DISB_RUL_STY_MISSING );
967: RAISE OKL_API.G_EXCEPTION_ERROR;
968: END IF;
969: -- If Fee Basis is selected then Option is mandatory
970: IF ( p_drav_rec.fee_basis <> OKL_API.G_MISS_CHAR AND p_drav_rec.fee_basis IS NOT NULL ) THEN
971: IF ( p_drav_rec.fee_option = OKL_API.G_MISS_CHAR OR p_drav_rec.fee_option IS NULL ) THEN
966: , p_msg_name => G_OKL_ST_DISB_RUL_STY_MISSING );
967: RAISE OKL_API.G_EXCEPTION_ERROR;
968: END IF;
969: -- If Fee Basis is selected then Option is mandatory
970: IF ( p_drav_rec.fee_basis <> OKL_API.G_MISS_CHAR AND p_drav_rec.fee_basis IS NOT NULL ) THEN
971: IF ( p_drav_rec.fee_option = OKL_API.G_MISS_CHAR OR p_drav_rec.fee_option IS NULL ) THEN
972: OKL_API.SET_MESSAGE( p_app_name => g_app_name
973: , p_msg_name => G_OKL_ST_DISB_FEE_OPTION_REQ);
974: RAISE OKL_API.G_EXCEPTION_ERROR;
967: RAISE OKL_API.G_EXCEPTION_ERROR;
968: END IF;
969: -- If Fee Basis is selected then Option is mandatory
970: IF ( p_drav_rec.fee_basis <> OKL_API.G_MISS_CHAR AND p_drav_rec.fee_basis IS NOT NULL ) THEN
971: IF ( p_drav_rec.fee_option = OKL_API.G_MISS_CHAR OR p_drav_rec.fee_option IS NULL ) THEN
972: OKL_API.SET_MESSAGE( p_app_name => g_app_name
973: , p_msg_name => G_OKL_ST_DISB_FEE_OPTION_REQ);
974: RAISE OKL_API.G_EXCEPTION_ERROR;
975: END IF;
968: END IF;
969: -- If Fee Basis is selected then Option is mandatory
970: IF ( p_drav_rec.fee_basis <> OKL_API.G_MISS_CHAR AND p_drav_rec.fee_basis IS NOT NULL ) THEN
971: IF ( p_drav_rec.fee_option = OKL_API.G_MISS_CHAR OR p_drav_rec.fee_option IS NULL ) THEN
972: OKL_API.SET_MESSAGE( p_app_name => g_app_name
973: , p_msg_name => G_OKL_ST_DISB_FEE_OPTION_REQ);
974: RAISE OKL_API.G_EXCEPTION_ERROR;
975: END IF;
976: --g_debug_proc('Fee Basis ' || p_drav_rec.fee_basis);
970: IF ( p_drav_rec.fee_basis <> OKL_API.G_MISS_CHAR AND p_drav_rec.fee_basis IS NOT NULL ) THEN
971: IF ( p_drav_rec.fee_option = OKL_API.G_MISS_CHAR OR p_drav_rec.fee_option IS NULL ) THEN
972: OKL_API.SET_MESSAGE( p_app_name => g_app_name
973: , p_msg_name => G_OKL_ST_DISB_FEE_OPTION_REQ);
974: RAISE OKL_API.G_EXCEPTION_ERROR;
975: END IF;
976: --g_debug_proc('Fee Basis ' || p_drav_rec.fee_basis);
977: --g_debug_proc('Fee Amount ' || p_drav_rec.fee_amount);
978: --g_debug_proc('Fee Percent ' || p_drav_rec.fee_percent);
979: -- If Fee Basis is 'Amount' then Fee Amount is mandatory
980:
981: -- Commented by gkhuntet For Disbursement phase 1.
982: /* IF (p_drav_rec.fee_basis = 'AMOUNT') THEN
983: IF ( p_drav_rec.fee_amount = OKL_API.G_MISS_NUM OR p_drav_rec.fee_amount IS NULL ) THEN
984: OKL_API.SET_MESSAGE( p_app_name => g_app_name
985: , p_msg_name => G_OKL_ST_DISB_FEE_AMNT_REQ);
986: RAISE OKL_API.G_EXCEPTION_ERROR;
987: END IF;
980:
981: -- Commented by gkhuntet For Disbursement phase 1.
982: /* IF (p_drav_rec.fee_basis = 'AMOUNT') THEN
983: IF ( p_drav_rec.fee_amount = OKL_API.G_MISS_NUM OR p_drav_rec.fee_amount IS NULL ) THEN
984: OKL_API.SET_MESSAGE( p_app_name => g_app_name
985: , p_msg_name => G_OKL_ST_DISB_FEE_AMNT_REQ);
986: RAISE OKL_API.G_EXCEPTION_ERROR;
987: END IF;
988: END IF;
982: /* IF (p_drav_rec.fee_basis = 'AMOUNT') THEN
983: IF ( p_drav_rec.fee_amount = OKL_API.G_MISS_NUM OR p_drav_rec.fee_amount IS NULL ) THEN
984: OKL_API.SET_MESSAGE( p_app_name => g_app_name
985: , p_msg_name => G_OKL_ST_DISB_FEE_AMNT_REQ);
986: RAISE OKL_API.G_EXCEPTION_ERROR;
987: END IF;
988: END IF;
989: IF (p_drav_rec.fee_basis = 'PERCENT') THEN -- If Fee Basis is 'Percent' then Fee Percent is mandatory
990: IF ( p_drav_rec.fee_percent = OKL_API.G_MISS_NUM OR p_drav_rec.fee_percent IS NULL ) THEN
986: RAISE OKL_API.G_EXCEPTION_ERROR;
987: END IF;
988: END IF;
989: IF (p_drav_rec.fee_basis = 'PERCENT') THEN -- If Fee Basis is 'Percent' then Fee Percent is mandatory
990: IF ( p_drav_rec.fee_percent = OKL_API.G_MISS_NUM OR p_drav_rec.fee_percent IS NULL ) THEN
991: OKL_API.SET_MESSAGE( p_app_name => g_app_name
992: , p_msg_name => G_OKL_ST_DISB_FEE_PERCENT_REQ);
993: RAISE OKL_API.G_EXCEPTION_ERROR;
994: -- Fee Percent should have value between 0 and 100
987: END IF;
988: END IF;
989: IF (p_drav_rec.fee_basis = 'PERCENT') THEN -- If Fee Basis is 'Percent' then Fee Percent is mandatory
990: IF ( p_drav_rec.fee_percent = OKL_API.G_MISS_NUM OR p_drav_rec.fee_percent IS NULL ) THEN
991: OKL_API.SET_MESSAGE( p_app_name => g_app_name
992: , p_msg_name => G_OKL_ST_DISB_FEE_PERCENT_REQ);
993: RAISE OKL_API.G_EXCEPTION_ERROR;
994: -- Fee Percent should have value between 0 and 100
995: ELSIF ( p_drav_rec.fee_percent < 0 OR p_drav_rec.fee_percent > 100 ) THEN
989: IF (p_drav_rec.fee_basis = 'PERCENT') THEN -- If Fee Basis is 'Percent' then Fee Percent is mandatory
990: IF ( p_drav_rec.fee_percent = OKL_API.G_MISS_NUM OR p_drav_rec.fee_percent IS NULL ) THEN
991: OKL_API.SET_MESSAGE( p_app_name => g_app_name
992: , p_msg_name => G_OKL_ST_DISB_FEE_PERCENT_REQ);
993: RAISE OKL_API.G_EXCEPTION_ERROR;
994: -- Fee Percent should have value between 0 and 100
995: ELSIF ( p_drav_rec.fee_percent < 0 OR p_drav_rec.fee_percent > 100 ) THEN
996: OKL_API.SET_MESSAGE( p_app_name => g_app_name
997: , p_msg_name => G_OKL_ST_DISB_FEE_PERCENT_ERR);
992: , p_msg_name => G_OKL_ST_DISB_FEE_PERCENT_REQ);
993: RAISE OKL_API.G_EXCEPTION_ERROR;
994: -- Fee Percent should have value between 0 and 100
995: ELSIF ( p_drav_rec.fee_percent < 0 OR p_drav_rec.fee_percent > 100 ) THEN
996: OKL_API.SET_MESSAGE( p_app_name => g_app_name
997: , p_msg_name => G_OKL_ST_DISB_FEE_PERCENT_ERR);
998: RAISE OKL_API.G_EXCEPTION_ERROR;
999: END IF;
1000: END IF;
994: -- Fee Percent should have value between 0 and 100
995: ELSIF ( p_drav_rec.fee_percent < 0 OR p_drav_rec.fee_percent > 100 ) THEN
996: OKL_API.SET_MESSAGE( p_app_name => g_app_name
997: , p_msg_name => G_OKL_ST_DISB_FEE_PERCENT_ERR);
998: RAISE OKL_API.G_EXCEPTION_ERROR;
999: END IF;
1000: END IF;
1001: */
1002: END IF;
1002: END IF;
1003: --DBMS_OUTPUT.PUT_LINE('1');
1004: -- If 'Consolidated by Invoice date' is checked then Frequency, Scheduled Day of Month and
1005: -- Scheduled Month are mandatory.
1006: IF ((p_drav_rec.consolidate_by_due_date <> OKL_API.G_MISS_CHAR) AND
1007: (p_drav_rec.consolidate_by_due_date IS NOT NULL) AND
1008: (p_drav_rec.consolidate_by_due_date = 'Y')) THEN
1009: IF (p_drav_rec.frequency = OKL_API.G_MISS_CHAR OR p_drav_rec.frequency IS NULL) THEN
1010: OKL_API.SET_MESSAGE( p_app_name => g_app_name
1005: -- Scheduled Month are mandatory.
1006: IF ((p_drav_rec.consolidate_by_due_date <> OKL_API.G_MISS_CHAR) AND
1007: (p_drav_rec.consolidate_by_due_date IS NOT NULL) AND
1008: (p_drav_rec.consolidate_by_due_date = 'Y')) THEN
1009: IF (p_drav_rec.frequency = OKL_API.G_MISS_CHAR OR p_drav_rec.frequency IS NULL) THEN
1010: OKL_API.SET_MESSAGE( p_app_name => g_app_name
1011: , p_msg_name => G_OKL_ST_DISB_FREQ_REQ);
1012: RAISE OKL_API.G_EXCEPTION_ERROR;
1013: END IF;
1006: IF ((p_drav_rec.consolidate_by_due_date <> OKL_API.G_MISS_CHAR) AND
1007: (p_drav_rec.consolidate_by_due_date IS NOT NULL) AND
1008: (p_drav_rec.consolidate_by_due_date = 'Y')) THEN
1009: IF (p_drav_rec.frequency = OKL_API.G_MISS_CHAR OR p_drav_rec.frequency IS NULL) THEN
1010: OKL_API.SET_MESSAGE( p_app_name => g_app_name
1011: , p_msg_name => G_OKL_ST_DISB_FREQ_REQ);
1012: RAISE OKL_API.G_EXCEPTION_ERROR;
1013: END IF;
1014: IF (p_drav_rec.day_of_month = OKL_API.G_MISS_NUM OR p_drav_rec.day_of_month IS NULL) THEN
1008: (p_drav_rec.consolidate_by_due_date = 'Y')) THEN
1009: IF (p_drav_rec.frequency = OKL_API.G_MISS_CHAR OR p_drav_rec.frequency IS NULL) THEN
1010: OKL_API.SET_MESSAGE( p_app_name => g_app_name
1011: , p_msg_name => G_OKL_ST_DISB_FREQ_REQ);
1012: RAISE OKL_API.G_EXCEPTION_ERROR;
1013: END IF;
1014: IF (p_drav_rec.day_of_month = OKL_API.G_MISS_NUM OR p_drav_rec.day_of_month IS NULL) THEN
1015: OKL_API.SET_MESSAGE( p_app_name => g_app_name
1016: , p_msg_name => G_OKL_ST_DISB_DAY_MON_REQ);
1010: OKL_API.SET_MESSAGE( p_app_name => g_app_name
1011: , p_msg_name => G_OKL_ST_DISB_FREQ_REQ);
1012: RAISE OKL_API.G_EXCEPTION_ERROR;
1013: END IF;
1014: IF (p_drav_rec.day_of_month = OKL_API.G_MISS_NUM OR p_drav_rec.day_of_month IS NULL) THEN
1015: OKL_API.SET_MESSAGE( p_app_name => g_app_name
1016: , p_msg_name => G_OKL_ST_DISB_DAY_MON_REQ);
1017: RAISE OKL_API.G_EXCEPTION_ERROR;
1018: END IF;
1011: , p_msg_name => G_OKL_ST_DISB_FREQ_REQ);
1012: RAISE OKL_API.G_EXCEPTION_ERROR;
1013: END IF;
1014: IF (p_drav_rec.day_of_month = OKL_API.G_MISS_NUM OR p_drav_rec.day_of_month IS NULL) THEN
1015: OKL_API.SET_MESSAGE( p_app_name => g_app_name
1016: , p_msg_name => G_OKL_ST_DISB_DAY_MON_REQ);
1017: RAISE OKL_API.G_EXCEPTION_ERROR;
1018: END IF;
1019: IF (p_drav_rec.scheduled_month = OKL_API.G_MISS_CHAR OR p_drav_rec.scheduled_month IS NULL) THEN
1013: END IF;
1014: IF (p_drav_rec.day_of_month = OKL_API.G_MISS_NUM OR p_drav_rec.day_of_month IS NULL) THEN
1015: OKL_API.SET_MESSAGE( p_app_name => g_app_name
1016: , p_msg_name => G_OKL_ST_DISB_DAY_MON_REQ);
1017: RAISE OKL_API.G_EXCEPTION_ERROR;
1018: END IF;
1019: IF (p_drav_rec.scheduled_month = OKL_API.G_MISS_CHAR OR p_drav_rec.scheduled_month IS NULL) THEN
1020: OKL_API.SET_MESSAGE( p_app_name => g_app_name
1021: , p_msg_name => G_OKL_ST_DISB_SCHED_MON_REQ);
1015: OKL_API.SET_MESSAGE( p_app_name => g_app_name
1016: , p_msg_name => G_OKL_ST_DISB_DAY_MON_REQ);
1017: RAISE OKL_API.G_EXCEPTION_ERROR;
1018: END IF;
1019: IF (p_drav_rec.scheduled_month = OKL_API.G_MISS_CHAR OR p_drav_rec.scheduled_month IS NULL) THEN
1020: OKL_API.SET_MESSAGE( p_app_name => g_app_name
1021: , p_msg_name => G_OKL_ST_DISB_SCHED_MON_REQ);
1022: RAISE OKL_API.G_EXCEPTION_ERROR;
1023: END IF;
1016: , p_msg_name => G_OKL_ST_DISB_DAY_MON_REQ);
1017: RAISE OKL_API.G_EXCEPTION_ERROR;
1018: END IF;
1019: IF (p_drav_rec.scheduled_month = OKL_API.G_MISS_CHAR OR p_drav_rec.scheduled_month IS NULL) THEN
1020: OKL_API.SET_MESSAGE( p_app_name => g_app_name
1021: , p_msg_name => G_OKL_ST_DISB_SCHED_MON_REQ);
1022: RAISE OKL_API.G_EXCEPTION_ERROR;
1023: END IF;
1024: END IF;
1018: END IF;
1019: IF (p_drav_rec.scheduled_month = OKL_API.G_MISS_CHAR OR p_drav_rec.scheduled_month IS NULL) THEN
1020: OKL_API.SET_MESSAGE( p_app_name => g_app_name
1021: , p_msg_name => G_OKL_ST_DISB_SCHED_MON_REQ);
1022: RAISE OKL_API.G_EXCEPTION_ERROR;
1023: END IF;
1024: END IF;
1025: --DBMS_OUTPUT.PUT_LINE('2 ..');
1026: -- Only one disbursement rule can exist for one vendor site and stream type
1032: , x_msg_data => x_msg_data
1033: , p_drav_rec => p_drav_rec
1034: , p_drs_tbl => p_drs_tbl
1035: , p_drv_tbl => p_drv_tbl);
1036: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1037: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1038: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1039: RAISE OKL_API.G_EXCEPTION_ERROR;
1040: END IF;
1033: , p_drav_rec => p_drav_rec
1034: , p_drs_tbl => p_drs_tbl
1035: , p_drv_tbl => p_drv_tbl);
1036: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1037: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1038: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1039: RAISE OKL_API.G_EXCEPTION_ERROR;
1040: END IF;
1041: --DBMS_OUTPUT.PUT_LINE('3');
1034: , p_drs_tbl => p_drs_tbl
1035: , p_drv_tbl => p_drv_tbl);
1036: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1037: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1038: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1039: RAISE OKL_API.G_EXCEPTION_ERROR;
1040: END IF;
1041: --DBMS_OUTPUT.PUT_LINE('3');
1042: -- Vendor site, Sequence range must not overlap accross rules
1035: , p_drv_tbl => p_drv_tbl);
1036: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1037: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1038: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1039: RAISE OKL_API.G_EXCEPTION_ERROR;
1040: END IF;
1041: --DBMS_OUTPUT.PUT_LINE('3');
1042: -- Vendor site, Sequence range must not overlap accross rules
1043: validate_sequence_range( p_api_version => p_api_version
1045: , x_return_status => x_return_status
1046: , x_msg_count => x_msg_count
1047: , x_msg_data => x_msg_data
1048: , p_drv_tbl => p_drv_tbl);
1049: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1050: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1051: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1052: RAISE OKL_API.G_EXCEPTION_ERROR;
1053: END IF;*/
1046: , x_msg_count => x_msg_count
1047: , x_msg_data => x_msg_data
1048: , p_drv_tbl => p_drv_tbl);
1049: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1050: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1051: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1052: RAISE OKL_API.G_EXCEPTION_ERROR;
1053: END IF;*/
1054: --DBMS_OUTPUT.PUT_LINE('4');
1047: , x_msg_data => x_msg_data
1048: , p_drv_tbl => p_drv_tbl);
1049: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1050: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1051: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1052: RAISE OKL_API.G_EXCEPTION_ERROR;
1053: END IF;*/
1054: --DBMS_OUTPUT.PUT_LINE('4');
1055: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1048: , p_drv_tbl => p_drv_tbl);
1049: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1050: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1051: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1052: RAISE OKL_API.G_EXCEPTION_ERROR;
1053: END IF;*/
1054: --DBMS_OUTPUT.PUT_LINE('4');
1055: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1056:
1051: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1052: RAISE OKL_API.G_EXCEPTION_ERROR;
1053: END IF;*/
1054: --DBMS_OUTPUT.PUT_LINE('4');
1055: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1056:
1057: EXCEPTION
1058: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1059: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
1054: --DBMS_OUTPUT.PUT_LINE('4');
1055: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1056:
1057: EXCEPTION
1058: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1059: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
1060: , g_pkg_name
1061: , 'OKL_API.G_RET_STS_ERROR'
1062: , x_msg_count
1055: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1056:
1057: EXCEPTION
1058: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1059: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
1060: , g_pkg_name
1061: , 'OKL_API.G_RET_STS_ERROR'
1062: , x_msg_count
1063: , x_msg_data
1057: EXCEPTION
1058: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1059: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
1060: , g_pkg_name
1061: , 'OKL_API.G_RET_STS_ERROR'
1062: , x_msg_count
1063: , x_msg_data
1064: , '_PVT' );
1065: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1061: , 'OKL_API.G_RET_STS_ERROR'
1062: , x_msg_count
1063: , x_msg_data
1064: , '_PVT' );
1065: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1066: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
1067: , g_pkg_name
1068: , 'OKL_API.G_RET_STS_UNEXP_ERROR'
1069: , x_msg_count
1062: , x_msg_count
1063: , x_msg_data
1064: , '_PVT' );
1065: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1066: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
1067: , g_pkg_name
1068: , 'OKL_API.G_RET_STS_UNEXP_ERROR'
1069: , x_msg_count
1070: , x_msg_data
1064: , '_PVT' );
1065: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1066: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
1067: , g_pkg_name
1068: , 'OKL_API.G_RET_STS_UNEXP_ERROR'
1069: , x_msg_count
1070: , x_msg_data
1071: , '_PVT' );
1072: WHEN OTHERS THEN
1069: , x_msg_count
1070: , x_msg_data
1071: , '_PVT' );
1072: WHEN OTHERS THEN
1073: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
1074: , g_pkg_name
1075: , 'OTHERS'
1076: , x_msg_count
1077: , x_msg_data
1120: lx_drv_tbl drv_tbl_type;
1121:
1122: BEGIN
1123: -- Initialization
1124: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1125:
1126: x_return_status := OKL_API.START_ACTIVITY( l_api_name
1127: , g_pkg_name
1128: , p_init_msg_list
1122: BEGIN
1123: -- Initialization
1124: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1125:
1126: x_return_status := OKL_API.START_ACTIVITY( l_api_name
1127: , g_pkg_name
1128: , p_init_msg_list
1129: , l_api_version
1130: , p_api_version
1129: , l_api_version
1130: , p_api_version
1131: , '_PVT'
1132: , x_return_status);
1133: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1134: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1135: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1136: RAISE OKL_API.G_EXCEPTION_ERROR;
1137: END IF;
1130: , p_api_version
1131: , '_PVT'
1132: , x_return_status);
1133: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1134: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1135: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1136: RAISE OKL_API.G_EXCEPTION_ERROR;
1137: END IF;
1138:
1131: , '_PVT'
1132: , x_return_status);
1133: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1134: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1135: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1136: RAISE OKL_API.G_EXCEPTION_ERROR;
1137: END IF;
1138:
1139:
1132: , x_return_status);
1133: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1134: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1135: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1136: RAISE OKL_API.G_EXCEPTION_ERROR;
1137: END IF;
1138:
1139:
1140:
1145: , x_return_status => x_return_status
1146: , x_msg_count => x_msg_count
1147: , x_msg_data => x_msg_data
1148: , p_disb_rule_name => p_drav_rec.rule_name);
1149: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1150: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1151: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1152: RAISE OKL_API.G_EXCEPTION_ERROR;
1153: END IF;
1146: , x_msg_count => x_msg_count
1147: , x_msg_data => x_msg_data
1148: , p_disb_rule_name => p_drav_rec.rule_name);
1149: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1150: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1151: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1152: RAISE OKL_API.G_EXCEPTION_ERROR;
1153: END IF;
1154: --DBMS_OUTPUT.PUT_LINE('Validated Rule Name');
1147: , x_msg_data => x_msg_data
1148: , p_disb_rule_name => p_drav_rec.rule_name);
1149: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1150: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1151: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1152: RAISE OKL_API.G_EXCEPTION_ERROR;
1153: END IF;
1154: --DBMS_OUTPUT.PUT_LINE('Validated Rule Name');
1155: --g_debug_proc('Validated Rule Name');
1148: , p_disb_rule_name => p_drav_rec.rule_name);
1149: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1150: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1151: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1152: RAISE OKL_API.G_EXCEPTION_ERROR;
1153: END IF;
1154: --DBMS_OUTPUT.PUT_LINE('Validated Rule Name');
1155: --g_debug_proc('Validated Rule Name');
1156: -- Do the required validations
1161: , x_msg_data => x_msg_data
1162: , p_drav_rec => p_drav_rec
1163: , p_drs_tbl => p_drs_tbl
1164: , p_drv_tbl => p_drv_tbl);
1165: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1166: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1167: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1168: RAISE OKL_API.G_EXCEPTION_ERROR;
1169: END IF;
1162: , p_drav_rec => p_drav_rec
1163: , p_drs_tbl => p_drs_tbl
1164: , p_drv_tbl => p_drv_tbl);
1165: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1166: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1167: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1168: RAISE OKL_API.G_EXCEPTION_ERROR;
1169: END IF;
1170:
1163: , p_drs_tbl => p_drs_tbl
1164: , p_drv_tbl => p_drv_tbl);
1165: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1166: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1167: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1168: RAISE OKL_API.G_EXCEPTION_ERROR;
1169: END IF;
1170:
1171: l_drav_rec := p_drav_rec;
1164: , p_drv_tbl => p_drv_tbl);
1165: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1166: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1167: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1168: RAISE OKL_API.G_EXCEPTION_ERROR;
1169: END IF;
1170:
1171: l_drav_rec := p_drav_rec;
1172:
1181: , x_msg_data => x_msg_data
1182: , p_drav_rec => p_drav_rec
1183: , p_drs_tbl => p_drs_tbl
1184: , p_drv_tbl => p_drv_tbl);
1185: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1186: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1187: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1188: RAISE OKL_API.G_EXCEPTION_ERROR;
1189: END IF;
1182: , p_drav_rec => p_drav_rec
1183: , p_drs_tbl => p_drs_tbl
1184: , p_drv_tbl => p_drv_tbl);
1185: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1186: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1187: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1188: RAISE OKL_API.G_EXCEPTION_ERROR;
1189: END IF;
1190:
1183: , p_drs_tbl => p_drs_tbl
1184: , p_drv_tbl => p_drv_tbl);
1185: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1186: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1187: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1188: RAISE OKL_API.G_EXCEPTION_ERROR;
1189: END IF;
1190:
1191:
1184: , p_drv_tbl => p_drv_tbl);
1185: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1186: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1187: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1188: RAISE OKL_API.G_EXCEPTION_ERROR;
1189: END IF;
1190:
1191:
1192:
1199: , x_msg_count => x_msg_count
1200: , x_msg_data => x_msg_data
1201: , p_drav_rec => l_drav_rec
1202: , x_drav_rec => lx_drav_rec);
1203: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1204: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1205: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1206: RAISE OKL_API.G_EXCEPTION_ERROR;
1207: END IF;
1200: , x_msg_data => x_msg_data
1201: , p_drav_rec => l_drav_rec
1202: , x_drav_rec => lx_drav_rec);
1203: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1204: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1205: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1206: RAISE OKL_API.G_EXCEPTION_ERROR;
1207: END IF;
1208: --DBMS_OUTPUT.PUT_LINE('Rule Inserted');
1201: , p_drav_rec => l_drav_rec
1202: , x_drav_rec => lx_drav_rec);
1203: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1204: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1205: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1206: RAISE OKL_API.G_EXCEPTION_ERROR;
1207: END IF;
1208: --DBMS_OUTPUT.PUT_LINE('Rule Inserted');
1209: --g_debug_proc('Rule Inserted');
1202: , x_drav_rec => lx_drav_rec);
1203: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1204: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1205: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1206: RAISE OKL_API.G_EXCEPTION_ERROR;
1207: END IF;
1208: --DBMS_OUTPUT.PUT_LINE('Rule Inserted');
1209: --g_debug_proc('Rule Inserted');
1210: -- populate the OKL_DISB_RULE_STY_TYPES table with the
1225: , x_msg_count => x_msg_count
1226: , x_msg_data => x_msg_data
1227: , p_drs_tbl => l_drs_tbl
1228: , x_drs_tbl => lx_drs_tbl);
1229: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1230: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1231: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1232: RAISE OKL_API.G_EXCEPTION_ERROR;
1233: END IF;
1226: , x_msg_data => x_msg_data
1227: , p_drs_tbl => l_drs_tbl
1228: , x_drs_tbl => lx_drs_tbl);
1229: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1230: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1231: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1232: RAISE OKL_API.G_EXCEPTION_ERROR;
1233: END IF;
1234:
1227: , p_drs_tbl => l_drs_tbl
1228: , x_drs_tbl => lx_drs_tbl);
1229: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1230: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1231: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1232: RAISE OKL_API.G_EXCEPTION_ERROR;
1233: END IF;
1234:
1235: END IF;
1228: , x_drs_tbl => lx_drs_tbl);
1229: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1230: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1231: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1232: RAISE OKL_API.G_EXCEPTION_ERROR;
1233: END IF;
1234:
1235: END IF;
1236: --g_debug_proc('Stream Inserted');
1252: , x_msg_count => x_msg_count
1253: , x_msg_data => x_msg_data
1254: , p_drv_tbl => l_drv_tbl
1255: , x_drv_tbl => lx_drv_tbl);
1256: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1257: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1258: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1259: RAISE OKL_API.G_EXCEPTION_ERROR;
1260: END IF;
1253: , x_msg_data => x_msg_data
1254: , p_drv_tbl => l_drv_tbl
1255: , x_drv_tbl => lx_drv_tbl);
1256: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1257: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1258: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1259: RAISE OKL_API.G_EXCEPTION_ERROR;
1260: END IF;
1261:
1254: , p_drv_tbl => l_drv_tbl
1255: , x_drv_tbl => lx_drv_tbl);
1256: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1257: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1258: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1259: RAISE OKL_API.G_EXCEPTION_ERROR;
1260: END IF;
1261:
1262: END IF;
1255: , x_drv_tbl => lx_drv_tbl);
1256: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1257: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1258: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1259: RAISE OKL_API.G_EXCEPTION_ERROR;
1260: END IF;
1261:
1262: END IF;
1263: --g_debug_proc('VendorSites Inserted');
1262: END IF;
1263: --g_debug_proc('VendorSites Inserted');
1264: x_drav_rec := lx_drav_rec;
1265:
1266: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1267:
1268: EXCEPTION
1269: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1270: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
1265:
1266: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1267:
1268: EXCEPTION
1269: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1270: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
1271: , g_pkg_name
1272: , 'OKL_API.G_RET_STS_ERROR'
1273: , x_msg_count
1266: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1267:
1268: EXCEPTION
1269: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1270: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
1271: , g_pkg_name
1272: , 'OKL_API.G_RET_STS_ERROR'
1273: , x_msg_count
1274: , x_msg_data
1268: EXCEPTION
1269: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1270: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
1271: , g_pkg_name
1272: , 'OKL_API.G_RET_STS_ERROR'
1273: , x_msg_count
1274: , x_msg_data
1275: , '_PVT' );
1276: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1272: , 'OKL_API.G_RET_STS_ERROR'
1273: , x_msg_count
1274: , x_msg_data
1275: , '_PVT' );
1276: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1277: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
1278: , g_pkg_name
1279: , 'OKL_API.G_RET_STS_UNEXP_ERROR'
1280: , x_msg_count
1273: , x_msg_count
1274: , x_msg_data
1275: , '_PVT' );
1276: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1277: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
1278: , g_pkg_name
1279: , 'OKL_API.G_RET_STS_UNEXP_ERROR'
1280: , x_msg_count
1281: , x_msg_data
1275: , '_PVT' );
1276: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1277: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
1278: , g_pkg_name
1279: , 'OKL_API.G_RET_STS_UNEXP_ERROR'
1280: , x_msg_count
1281: , x_msg_data
1282: , '_PVT' );
1283: WHEN OTHERS THEN
1280: , x_msg_count
1281: , x_msg_data
1282: , '_PVT' );
1283: WHEN OTHERS THEN
1284: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
1285: , g_pkg_name
1286: , 'OTHERS'
1287: , x_msg_count
1288: , x_msg_data
1335: old_sty_type_rec old_disb_sty_types_csr%rowtype;
1336:
1337: BEGIN
1338: -- Initialization
1339: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1340:
1341: x_return_status := OKL_API.START_ACTIVITY( l_api_name
1342: , g_pkg_name
1343: , p_init_msg_list
1337: BEGIN
1338: -- Initialization
1339: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1340:
1341: x_return_status := OKL_API.START_ACTIVITY( l_api_name
1342: , g_pkg_name
1343: , p_init_msg_list
1344: , l_api_version
1345: , p_api_version
1344: , l_api_version
1345: , p_api_version
1346: , '_PVT'
1347: , x_return_status);
1348: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1349: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1350: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1351: RAISE OKL_API.G_EXCEPTION_ERROR;
1352: END IF;
1345: , p_api_version
1346: , '_PVT'
1347: , x_return_status);
1348: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1349: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1350: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1351: RAISE OKL_API.G_EXCEPTION_ERROR;
1352: END IF;
1353:
1346: , '_PVT'
1347: , x_return_status);
1348: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1349: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1350: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1351: RAISE OKL_API.G_EXCEPTION_ERROR;
1352: END IF;
1353:
1354: -- If stream types available for the disbursement rule from DB
1347: , x_return_status);
1348: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1349: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1350: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1351: RAISE OKL_API.G_EXCEPTION_ERROR;
1352: END IF;
1353:
1354: -- If stream types available for the disbursement rule from DB
1355: -- is not found in the new stream types table then delete it
1376: , x_msg_count => x_msg_count
1377: , x_msg_data => x_msg_data
1378: , p_drs_tbl => l_drs_del_tbl);
1379:
1380: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1381: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1382: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1383: RAISE OKL_API.G_EXCEPTION_ERROR;
1384: END IF;
1377: , x_msg_data => x_msg_data
1378: , p_drs_tbl => l_drs_del_tbl);
1379:
1380: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1381: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1382: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1383: RAISE OKL_API.G_EXCEPTION_ERROR;
1384: END IF;
1385: END IF;
1378: , p_drs_tbl => l_drs_del_tbl);
1379:
1380: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1381: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1382: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1383: RAISE OKL_API.G_EXCEPTION_ERROR;
1384: END IF;
1385: END IF;
1386:
1379:
1380: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1381: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1382: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1383: RAISE OKL_API.G_EXCEPTION_ERROR;
1384: END IF;
1385: END IF;
1386:
1387: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1383: RAISE OKL_API.G_EXCEPTION_ERROR;
1384: END IF;
1385: END IF;
1386:
1387: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1388:
1389: EXCEPTION
1390: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1391: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
1386:
1387: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1388:
1389: EXCEPTION
1390: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1391: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
1392: , g_pkg_name
1393: , 'OKL_API.G_RET_STS_ERROR'
1394: , x_msg_count
1387: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1388:
1389: EXCEPTION
1390: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1391: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
1392: , g_pkg_name
1393: , 'OKL_API.G_RET_STS_ERROR'
1394: , x_msg_count
1395: , x_msg_data
1389: EXCEPTION
1390: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1391: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
1392: , g_pkg_name
1393: , 'OKL_API.G_RET_STS_ERROR'
1394: , x_msg_count
1395: , x_msg_data
1396: , '_PVT' );
1397: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1393: , 'OKL_API.G_RET_STS_ERROR'
1394: , x_msg_count
1395: , x_msg_data
1396: , '_PVT' );
1397: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1398: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
1399: , g_pkg_name
1400: , 'OKL_API.G_RET_STS_UNEXP_ERROR'
1401: , x_msg_count
1394: , x_msg_count
1395: , x_msg_data
1396: , '_PVT' );
1397: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1398: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
1399: , g_pkg_name
1400: , 'OKL_API.G_RET_STS_UNEXP_ERROR'
1401: , x_msg_count
1402: , x_msg_data
1396: , '_PVT' );
1397: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1398: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
1399: , g_pkg_name
1400: , 'OKL_API.G_RET_STS_UNEXP_ERROR'
1401: , x_msg_count
1402: , x_msg_data
1403: , '_PVT' );
1404: WHEN OTHERS THEN
1401: , x_msg_count
1402: , x_msg_data
1403: , '_PVT' );
1404: WHEN OTHERS THEN
1405: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
1406: , g_pkg_name
1407: , 'OTHERS'
1408: , x_msg_count
1409: , x_msg_data
1478:
1479:
1480: BEGIN
1481: -- Initialization
1482: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1483:
1484: x_return_status := OKL_API.START_ACTIVITY( l_api_name
1485: , g_pkg_name
1486: , p_init_msg_list
1480: BEGIN
1481: -- Initialization
1482: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1483:
1484: x_return_status := OKL_API.START_ACTIVITY( l_api_name
1485: , g_pkg_name
1486: , p_init_msg_list
1487: , l_api_version
1488: , p_api_version
1487: , l_api_version
1488: , p_api_version
1489: , '_PVT'
1490: , x_return_status);
1491: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1492: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1493: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1494: RAISE OKL_API.G_EXCEPTION_ERROR;
1495: END IF;
1488: , p_api_version
1489: , '_PVT'
1490: , x_return_status);
1491: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1492: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1493: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1494: RAISE OKL_API.G_EXCEPTION_ERROR;
1495: END IF;
1496:
1489: , '_PVT'
1490: , x_return_status);
1491: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1492: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1493: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1494: RAISE OKL_API.G_EXCEPTION_ERROR;
1495: END IF;
1496:
1497: -- Do the required validations before updating
1490: , x_return_status);
1491: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1492: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1493: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1494: RAISE OKL_API.G_EXCEPTION_ERROR;
1495: END IF;
1496:
1497: -- Do the required validations before updating
1498: validate_disbursement_rule( p_api_version => p_api_version
1502: , x_msg_data => x_msg_data
1503: , p_drav_rec => p_drav_rec
1504: , p_drs_tbl => p_drs_tbl
1505: , p_drv_tbl => p_drv_tbl);
1506: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1507: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1508: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1509: RAISE OKL_API.G_EXCEPTION_ERROR;
1510: END IF;
1503: , p_drav_rec => p_drav_rec
1504: , p_drs_tbl => p_drs_tbl
1505: , p_drv_tbl => p_drv_tbl);
1506: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1507: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1508: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1509: RAISE OKL_API.G_EXCEPTION_ERROR;
1510: END IF;
1511:
1504: , p_drs_tbl => p_drs_tbl
1505: , p_drv_tbl => p_drv_tbl);
1506: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1507: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1508: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1509: RAISE OKL_API.G_EXCEPTION_ERROR;
1510: END IF;
1511:
1512: --g_debug_proc('Update Validated');
1505: , p_drv_tbl => p_drv_tbl);
1506: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1507: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1508: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1509: RAISE OKL_API.G_EXCEPTION_ERROR;
1510: END IF;
1511:
1512: --g_debug_proc('Update Validated');
1513:
1521: , x_msg_data => x_msg_data
1522: , p_drav_rec => p_drav_rec
1523: , p_drs_tbl => p_drs_tbl
1524: , p_drv_tbl => p_drv_tbl);
1525: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1526: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1527: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1528: RAISE OKL_API.G_EXCEPTION_ERROR;
1529: END IF;
1522: , p_drav_rec => p_drav_rec
1523: , p_drs_tbl => p_drs_tbl
1524: , p_drv_tbl => p_drv_tbl);
1525: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1526: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1527: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1528: RAISE OKL_API.G_EXCEPTION_ERROR;
1529: END IF;
1530:
1523: , p_drs_tbl => p_drs_tbl
1524: , p_drv_tbl => p_drv_tbl);
1525: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1526: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1527: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1528: RAISE OKL_API.G_EXCEPTION_ERROR;
1529: END IF;
1530:
1531:
1524: , p_drv_tbl => p_drv_tbl);
1525: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1526: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1527: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1528: RAISE OKL_API.G_EXCEPTION_ERROR;
1529: END IF;
1530:
1531:
1532: l_drav_rec := p_drav_rec;
1539: , x_msg_count => x_msg_count
1540: , x_msg_data => x_msg_data
1541: , p_drav_rec => l_drav_rec
1542: , x_drav_rec => lx_drav_rec);
1543: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1544: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1545: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1546: RAISE OKL_API.G_EXCEPTION_ERROR;
1547: END IF;
1540: , x_msg_data => x_msg_data
1541: , p_drav_rec => l_drav_rec
1542: , x_drav_rec => lx_drav_rec);
1543: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1544: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1545: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1546: RAISE OKL_API.G_EXCEPTION_ERROR;
1547: END IF;
1548:
1541: , p_drav_rec => l_drav_rec
1542: , x_drav_rec => lx_drav_rec);
1543: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1544: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1545: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1546: RAISE OKL_API.G_EXCEPTION_ERROR;
1547: END IF;
1548:
1549: --g_debug_proc('Update DRA');
1542: , x_drav_rec => lx_drav_rec);
1543: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1544: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1545: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1546: RAISE OKL_API.G_EXCEPTION_ERROR;
1547: END IF;
1548:
1549: --g_debug_proc('Update DRA');
1550:
1556: , x_msg_count => x_msg_count
1557: , x_msg_data => x_msg_data
1558: , p_disb_rule_id => p_drav_rec.disb_rule_id
1559: , p_new_drs_tbl => p_drs_tbl);
1560: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1561: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1562: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1563: RAISE OKL_API.G_EXCEPTION_ERROR;
1564: END IF;
1557: , x_msg_data => x_msg_data
1558: , p_disb_rule_id => p_drav_rec.disb_rule_id
1559: , p_new_drs_tbl => p_drs_tbl);
1560: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1561: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1562: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1563: RAISE OKL_API.G_EXCEPTION_ERROR;
1564: END IF;
1565: -- Delete the rows from OKL_DISB_RULES_VENDOR_SITES which
1558: , p_disb_rule_id => p_drav_rec.disb_rule_id
1559: , p_new_drs_tbl => p_drs_tbl);
1560: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1561: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1562: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1563: RAISE OKL_API.G_EXCEPTION_ERROR;
1564: END IF;
1565: -- Delete the rows from OKL_DISB_RULES_VENDOR_SITES which
1566: -- are removed during update operation.
1559: , p_new_drs_tbl => p_drs_tbl);
1560: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1561: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1562: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1563: RAISE OKL_API.G_EXCEPTION_ERROR;
1564: END IF;
1565: -- Delete the rows from OKL_DISB_RULES_VENDOR_SITES which
1566: -- are removed during update operation.
1567: del_disb_rule_vendor_sites( p_api_version => l_api_version
1571: , x_msg_data => x_msg_data
1572: , p_disb_rule_id => p_drav_rec.disb_rule_id
1573: , p_vendor_id => null
1574: , p_new_drv_tbl => p_drv_tbl);
1575: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1576: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1577: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1578: RAISE OKL_API.G_EXCEPTION_ERROR;
1579: END IF;
1572: , p_disb_rule_id => p_drav_rec.disb_rule_id
1573: , p_vendor_id => null
1574: , p_new_drv_tbl => p_drv_tbl);
1575: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1576: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1577: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1578: RAISE OKL_API.G_EXCEPTION_ERROR;
1579: END IF;
1580:
1573: , p_vendor_id => null
1574: , p_new_drv_tbl => p_drv_tbl);
1575: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1576: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1577: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1578: RAISE OKL_API.G_EXCEPTION_ERROR;
1579: END IF;
1580:
1581: --g_debug_proc('Update Del DRS');
1574: , p_new_drv_tbl => p_drv_tbl);
1575: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1576: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1577: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1578: RAISE OKL_API.G_EXCEPTION_ERROR;
1579: END IF;
1580:
1581: --g_debug_proc('Update Del DRS');
1582: -- Check whether we need to create or update in to OKL_DISB_RULE_STY_TYPES table
1584: ins_count := 0;
1585: upd_count := 0;
1586: FOR i in p_drs_tbl.FIRST .. p_drs_tbl.LAST
1587: LOOP
1588: IF ( p_drs_tbl(i).disb_rule_sty_type_id = OKL_API.G_MISS_NUM OR
1589: p_drs_tbl(i).disb_rule_sty_type_id IS NULL ) THEN
1590: l_drs_ins_tbl(ins_count) := p_drs_tbl(i);
1591: --g_debug_proc('Insert Disb_Rule_Id ' || l_drs_ins_tbl(ins_count).disb_rule_id || ' , ' || l_drs_ins_tbl(ins_count).object_version_number || l_drs_ins_tbl(ins_count).DISB_RULE_STY_TYPE_ID);
1592: ins_count := ins_count + 1;
1607: , x_msg_count => x_msg_count
1608: , x_msg_data => x_msg_data
1609: , p_drs_tbl => l_drs_ins_tbl
1610: , x_drs_tbl => lx_drs_ins_tbl);
1611: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1612: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1613: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1614: RAISE OKL_API.G_EXCEPTION_ERROR;
1615: END IF;
1608: , x_msg_data => x_msg_data
1609: , p_drs_tbl => l_drs_ins_tbl
1610: , x_drs_tbl => lx_drs_ins_tbl);
1611: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1612: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1613: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1614: RAISE OKL_API.G_EXCEPTION_ERROR;
1615: END IF;
1616: END IF;
1609: , p_drs_tbl => l_drs_ins_tbl
1610: , x_drs_tbl => lx_drs_ins_tbl);
1611: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1612: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1613: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1614: RAISE OKL_API.G_EXCEPTION_ERROR;
1615: END IF;
1616: END IF;
1617:
1610: , x_drs_tbl => lx_drs_ins_tbl);
1611: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1612: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1613: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1614: RAISE OKL_API.G_EXCEPTION_ERROR;
1615: END IF;
1616: END IF;
1617:
1618: --g_debug_proc('Update Insert DRS');
1624: , x_msg_count => x_msg_count
1625: , x_msg_data => x_msg_data
1626: , p_drs_tbl => l_drs_upd_tbl
1627: , x_drs_tbl => lx_drs_upd_tbl);
1628: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1629: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1630: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1631: RAISE OKL_API.G_EXCEPTION_ERROR;
1632: END IF;
1625: , x_msg_data => x_msg_data
1626: , p_drs_tbl => l_drs_upd_tbl
1627: , x_drs_tbl => lx_drs_upd_tbl);
1628: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1629: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1630: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1631: RAISE OKL_API.G_EXCEPTION_ERROR;
1632: END IF;
1633: END IF;
1626: , p_drs_tbl => l_drs_upd_tbl
1627: , x_drs_tbl => lx_drs_upd_tbl);
1628: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1629: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1630: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1631: RAISE OKL_API.G_EXCEPTION_ERROR;
1632: END IF;
1633: END IF;
1634:
1627: , x_drs_tbl => lx_drs_upd_tbl);
1628: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1629: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1630: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1631: RAISE OKL_API.G_EXCEPTION_ERROR;
1632: END IF;
1633: END IF;
1634:
1635: END IF;
1640: ins_count := 0;
1641: upd_count := 0;
1642: FOR i in p_drv_tbl.FIRST .. p_drv_tbl.LAST
1643: LOOP
1644: IF ( p_drv_tbl(i).disb_rule_vendor_site_id = OKL_API.G_MISS_NUM OR
1645: p_drv_tbl(i).disb_rule_vendor_site_id IS NULL ) THEN
1646: l_drv_ins_tbl(ins_count) := p_drv_tbl(i);
1647: ins_count := ins_count + 1;
1648: ELSE
1659: , x_msg_count => x_msg_count
1660: , x_msg_data => x_msg_data
1661: , p_drv_tbl => l_drv_ins_tbl
1662: , x_drv_tbl => lx_drv_ins_tbl);
1663: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1664: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1665: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1666: RAISE OKL_API.G_EXCEPTION_ERROR;
1667: END IF;
1660: , x_msg_data => x_msg_data
1661: , p_drv_tbl => l_drv_ins_tbl
1662: , x_drv_tbl => lx_drv_ins_tbl);
1663: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1664: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1665: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1666: RAISE OKL_API.G_EXCEPTION_ERROR;
1667: END IF;
1668: END IF;
1661: , p_drv_tbl => l_drv_ins_tbl
1662: , x_drv_tbl => lx_drv_ins_tbl);
1663: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1664: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1665: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1666: RAISE OKL_API.G_EXCEPTION_ERROR;
1667: END IF;
1668: END IF;
1669:
1662: , x_drv_tbl => lx_drv_ins_tbl);
1663: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1664: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1665: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1666: RAISE OKL_API.G_EXCEPTION_ERROR;
1667: END IF;
1668: END IF;
1669:
1670: --g_debug_proc('Update Insert DRV');
1677: , x_msg_count => x_msg_count
1678: , x_msg_data => x_msg_data
1679: , p_drv_tbl => l_drv_upd_tbl
1680: , x_drv_tbl => lx_drv_upd_tbl);
1681: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1682: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1683: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1684: RAISE OKL_API.G_EXCEPTION_ERROR;
1685: END IF;
1678: , x_msg_data => x_msg_data
1679: , p_drv_tbl => l_drv_upd_tbl
1680: , x_drv_tbl => lx_drv_upd_tbl);
1681: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1682: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1683: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1684: RAISE OKL_API.G_EXCEPTION_ERROR;
1685: END IF;
1686: END IF;
1679: , p_drv_tbl => l_drv_upd_tbl
1680: , x_drv_tbl => lx_drv_upd_tbl);
1681: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1682: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1683: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1684: RAISE OKL_API.G_EXCEPTION_ERROR;
1685: END IF;
1686: END IF;
1687: END IF;
1680: , x_drv_tbl => lx_drv_upd_tbl);
1681: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1682: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1683: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1684: RAISE OKL_API.G_EXCEPTION_ERROR;
1685: END IF;
1686: END IF;
1687: END IF;
1688:
1689: -- g_debug_proc('Update DRV');
1690:
1691: x_drav_rec := lx_drav_rec;
1692:
1693: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1694:
1695: EXCEPTION
1696: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1697: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
1692:
1693: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1694:
1695: EXCEPTION
1696: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1697: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
1698: , g_pkg_name
1699: , 'OKL_API.G_RET_STS_ERROR'
1700: , x_msg_count
1693: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1694:
1695: EXCEPTION
1696: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1697: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
1698: , g_pkg_name
1699: , 'OKL_API.G_RET_STS_ERROR'
1700: , x_msg_count
1701: , x_msg_data
1695: EXCEPTION
1696: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1697: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
1698: , g_pkg_name
1699: , 'OKL_API.G_RET_STS_ERROR'
1700: , x_msg_count
1701: , x_msg_data
1702: , '_PVT' );
1703: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1699: , 'OKL_API.G_RET_STS_ERROR'
1700: , x_msg_count
1701: , x_msg_data
1702: , '_PVT' );
1703: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1704: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
1705: , g_pkg_name
1706: , 'OKL_API.G_RET_STS_UNEXP_ERROR'
1707: , x_msg_count
1700: , x_msg_count
1701: , x_msg_data
1702: , '_PVT' );
1703: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1704: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
1705: , g_pkg_name
1706: , 'OKL_API.G_RET_STS_UNEXP_ERROR'
1707: , x_msg_count
1708: , x_msg_data
1702: , '_PVT' );
1703: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1704: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
1705: , g_pkg_name
1706: , 'OKL_API.G_RET_STS_UNEXP_ERROR'
1707: , x_msg_count
1708: , x_msg_data
1709: , '_PVT' );
1710: WHEN OTHERS THEN
1707: , x_msg_count
1708: , x_msg_data
1709: , '_PVT' );
1710: WHEN OTHERS THEN
1711: x_return_status := OKL_API.HANDLE_EXCEPTIONS( l_api_name
1712: , g_pkg_name
1713: , 'OTHERS'
1714: , x_msg_count
1715: , x_msg_data