3:
4:
5: PROCEDURE create_indices(
6: p_api_version IN NUMBER
7: ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
8: ,x_return_status OUT NOCOPY VARCHAR2
9: ,x_msg_count OUT NOCOPY NUMBER
10: ,x_msg_data OUT NOCOPY VARCHAR2
11: ,p_idxv_rec IN idxv_rec_type
15: ) IS
16:
17: i NUMBER;
18: l_idxv_rec idxv_rec_type;
19: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
20: l_ivev_tbl ivev_tbl_type := p_ivev_tbl;
21:
22: BEGIN
23: -- Populate TRX CONTRACTS
28: ,x_msg_count => x_msg_count
29: ,x_msg_data => x_msg_data
30: ,p_idxv_rec => p_idxv_rec
31: ,x_idxv_rec => x_idxv_rec);
32: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
33: RAISE G_EXCEPTION_HALT_VALIDATION;
34: ELSE
35: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
36: l_return_status := x_return_status;
31: ,x_idxv_rec => x_idxv_rec);
32: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
33: RAISE G_EXCEPTION_HALT_VALIDATION;
34: ELSE
35: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
36: l_return_status := x_return_status;
37: END IF;
38: END IF;
39: -- populate the foreign key for the detail
54: ,x_msg_count => x_msg_count
55: ,x_msg_data => x_msg_data
56: ,p_ivev_tbl => l_ivev_tbl
57: ,x_ivev_tbl => x_ivev_tbl);
58: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
59: RAISE G_EXCEPTION_HALT_VALIDATION;
60: ELSE
61: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
62: l_return_status := x_return_status;
57: ,x_ivev_tbl => x_ivev_tbl);
58: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
59: RAISE G_EXCEPTION_HALT_VALIDATION;
60: ELSE
61: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
62: l_return_status := x_return_status;
63: END IF;
64: END IF;
65:
67: WHEN G_EXCEPTION_HALT_VALIDATION THEN
68: NULL;
69:
70: WHEN OTHERS THEN
71: OKC_API.SET_MESSAGE(p_app_name => g_app_name
72: ,p_msg_name => g_unexpected_error
73: ,p_token1 => g_sqlcode_token
74: ,p_token1_value => sqlcode
75: ,p_token2 => g_sqlerrm_token
73: ,p_token1 => g_sqlcode_token
74: ,p_token1_value => sqlcode
75: ,p_token2 => g_sqlerrm_token
76: ,p_token2_value => sqlerrm);
77: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
78: END create_indices;
79:
80: PROCEDURE create_indices(
81: p_api_version IN NUMBER
78: END create_indices;
79:
80: PROCEDURE create_indices(
81: p_api_version IN NUMBER
82: ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
83: ,x_return_status OUT NOCOPY VARCHAR2
84: ,x_msg_count OUT NOCOPY NUMBER
85: ,x_msg_data OUT NOCOPY VARCHAR2
86: ,p_idxv_rec IN idxv_rec_type
84: ,x_msg_count OUT NOCOPY NUMBER
85: ,x_msg_data OUT NOCOPY VARCHAR2
86: ,p_idxv_rec IN idxv_rec_type
87: ,x_idxv_rec OUT NOCOPY idxv_rec_type) IS
88: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
89: BEGIN
90: okl_idx_pvt.insert_row(
91: p_api_version => p_api_version
92: ,p_init_msg_list => p_init_msg_list
96: ,p_idxv_rec => p_idxv_rec
97: ,x_idxv_rec => x_idxv_rec
98: );
99:
100: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
101: RAISE G_EXCEPTION_HALT_VALIDATION;
102: ELSE
103: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
104: l_return_status := x_return_status;
99:
100: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
101: RAISE G_EXCEPTION_HALT_VALIDATION;
102: ELSE
103: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
104: l_return_status := x_return_status;
105: END IF;
106: END IF;
107: -- Custom code if any
110: WHEN G_EXCEPTION_HALT_VALIDATION THEN
111: NULL;
112:
113: WHEN OTHERS THEN
114: OKC_API.SET_MESSAGE(p_app_name => g_app_name
115: ,p_msg_name => g_unexpected_error
116: ,p_token1 => g_sqlcode_token
117: ,p_token1_value => sqlcode
118: ,p_token2 => g_sqlerrm_token
116: ,p_token1 => g_sqlcode_token
117: ,p_token1_value => sqlcode
118: ,p_token2 => g_sqlerrm_token
119: ,p_token2_value => sqlerrm);
120: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
121: END create_indices;
122: --null;
123: PROCEDURE create_indices(
124: p_api_version IN NUMBER
121: END create_indices;
122: --null;
123: PROCEDURE create_indices(
124: p_api_version IN NUMBER
125: ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
126: ,x_return_status OUT NOCOPY VARCHAR2
127: ,x_msg_count OUT NOCOPY NUMBER
128: ,x_msg_data OUT NOCOPY VARCHAR2
129: ,p_idxv_tbl IN idxv_tbl_type
127: ,x_msg_count OUT NOCOPY NUMBER
128: ,x_msg_data OUT NOCOPY VARCHAR2
129: ,p_idxv_tbl IN idxv_tbl_type
130: ,x_idxv_tbl OUT NOCOPY idxv_tbl_type) IS
131: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
132:
133: BEGIN
134: okl_idx_pvt.insert_row(
135: p_api_version => p_api_version
139: ,x_msg_data => x_msg_data
140: ,p_idxv_tbl => p_idxv_tbl
141: ,x_idxv_tbl => x_idxv_tbl
142: );
143: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
144: RAISE G_EXCEPTION_HALT_VALIDATION;
145: ELSE
146: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
147: l_return_status := x_return_status;
142: );
143: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
144: RAISE G_EXCEPTION_HALT_VALIDATION;
145: ELSE
146: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
147: l_return_status := x_return_status;
148: END IF;
149: END IF;
150: -- Custom code if any
153: WHEN G_EXCEPTION_HALT_VALIDATION THEN
154: NULL;
155:
156: WHEN OTHERS THEN
157: OKC_API.SET_MESSAGE(p_app_name => g_app_name
158: ,p_msg_name => g_unexpected_error
159: ,p_token1 => g_sqlcode_token
160: ,p_token1_value => sqlcode
161: ,p_token2 => g_sqlerrm_token
159: ,p_token1 => g_sqlcode_token
160: ,p_token1_value => sqlcode
161: ,p_token2 => g_sqlerrm_token
162: ,p_token2_value => sqlerrm);
163: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
164:
165: END create_indices;
166:
167: -- Object type procedure for update
166:
167: -- Object type procedure for update
168: PROCEDURE update_indices(
169: p_api_version IN NUMBER,
170: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
171: x_return_status OUT NOCOPY VARCHAR2,
172: x_msg_count OUT NOCOPY NUMBER,
173: x_msg_data OUT NOCOPY VARCHAR2,
174: p_idxv_rec IN idxv_rec_type,
174: p_idxv_rec IN idxv_rec_type,
175: p_ivev_tbl IN ivev_tbl_type,
176: x_idxv_rec OUT NOCOPY idxv_rec_type,
177: x_ivev_tbl OUT NOCOPY ivev_tbl_type) IS
178: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
179: BEGIN
180: -- Update the master
181: update_indices(
182: p_api_version => p_api_version
186: ,x_msg_data => x_msg_data
187: ,p_idxv_rec => p_idxv_rec
188: ,x_idxv_rec => x_idxv_rec
189: );
190: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
191: RAISE G_EXCEPTION_HALT_VALIDATION;
192: ELSE
193: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
194: l_return_status := x_return_status;
189: );
190: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
191: RAISE G_EXCEPTION_HALT_VALIDATION;
192: ELSE
193: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
194: l_return_status := x_return_status;
195: END IF;
196: END IF;
197:
205: ,p_ivev_tbl => p_ivev_tbl
206: ,x_ivev_tbl => x_ivev_tbl
207: );
208:
209: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
210: RAISE G_EXCEPTION_HALT_VALIDATION;
211: ELSE
212: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
213: l_return_status := x_return_status;
208:
209: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
210: RAISE G_EXCEPTION_HALT_VALIDATION;
211: ELSE
212: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
213: l_return_status := x_return_status;
214: END IF;
215: END IF;
216:
218: WHEN G_EXCEPTION_HALT_VALIDATION THEN
219: NULL;
220:
221: WHEN OTHERS THEN
222: OKC_API.SET_MESSAGE(p_app_name => g_app_name
223: ,p_msg_name => g_unexpected_error
224: ,p_token1 => g_sqlcode_token
225: ,p_token1_value => sqlcode
226: ,p_token2 => g_sqlerrm_token
224: ,p_token1 => g_sqlcode_token
225: ,p_token1_value => sqlcode
226: ,p_token2 => g_sqlerrm_token
227: ,p_token2_value => sqlerrm);
228: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
229:
230: END update_indices;
231:
232: PROCEDURE validate_indices(
230: END update_indices;
231:
232: PROCEDURE validate_indices(
233: p_api_version IN NUMBER
234: ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
235: ,x_return_status OUT NOCOPY VARCHAR2
236: ,x_msg_count OUT NOCOPY NUMBER
237: ,x_msg_data OUT NOCOPY VARCHAR2
238: ,p_idxv_rec IN idxv_rec_type
237: ,x_msg_data OUT NOCOPY VARCHAR2
238: ,p_idxv_rec IN idxv_rec_type
239: ,p_ivev_tbl IN ivev_tbl_type) IS
240:
241: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
242: BEGIN
243: -- Validate the master
244: validate_indices(
245: p_api_version => p_api_version
249: ,x_msg_data => x_msg_data
250: ,p_idxv_rec => p_idxv_rec
251: );
252:
253: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
254: RAISE G_EXCEPTION_HALT_VALIDATION;
255: ELSE
256: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
257: l_return_status := x_return_status;
252:
253: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
254: RAISE G_EXCEPTION_HALT_VALIDATION;
255: ELSE
256: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
257: l_return_status := x_return_status;
258: END IF;
259: END IF;
260:
267: ,x_msg_data => x_msg_data
268: ,p_ivev_tbl => p_ivev_tbl
269: );
270:
271: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
272: RAISE G_EXCEPTION_HALT_VALIDATION;
273: ELSE
274: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
275: l_return_status := x_return_status;
270:
271: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
272: RAISE G_EXCEPTION_HALT_VALIDATION;
273: ELSE
274: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
275: l_return_status := x_return_status;
276: END IF;
277: END IF;
278:
279: EXCEPTION
280: WHEN G_EXCEPTION_HALT_VALIDATION THEN
281: NULL;
282: WHEN OTHERS THEN
283: OKC_API.SET_MESSAGE(p_app_name => g_app_name
284: ,p_msg_name => g_unexpected_error
285: ,p_token1 => g_sqlcode_token
286: ,p_token1_value => sqlcode
287: ,p_token2 => g_sqlerrm_token
285: ,p_token1 => g_sqlcode_token
286: ,p_token1_value => sqlcode
287: ,p_token2 => g_sqlerrm_token
288: ,p_token2_value => sqlerrm);
289: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
290:
291: END validate_indices;
292:
293: PROCEDURE lock_indices(
291: END validate_indices;
292:
293: PROCEDURE lock_indices(
294: p_api_version IN NUMBER
295: ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
296: ,x_return_status OUT NOCOPY VARCHAR2
297: ,x_msg_count OUT NOCOPY NUMBER
298: ,x_msg_data OUT NOCOPY VARCHAR2
299: ,p_idxv_rec IN idxv_rec_type) IS
296: ,x_return_status OUT NOCOPY VARCHAR2
297: ,x_msg_count OUT NOCOPY NUMBER
298: ,x_msg_data OUT NOCOPY VARCHAR2
299: ,p_idxv_rec IN idxv_rec_type) IS
300: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
301:
302: BEGIN
303: okl_idx_pvt.lock_row(
304: p_api_version => p_api_version
307: ,x_msg_count => x_msg_count
308: ,x_msg_data => x_msg_data
309: ,p_idxv_rec => p_idxv_rec
310: );
311: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
312: RAISE G_EXCEPTION_HALT_VALIDATION;
313: ELSE
314: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
315: l_return_status := x_return_status;
310: );
311: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
312: RAISE G_EXCEPTION_HALT_VALIDATION;
313: ELSE
314: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
315: l_return_status := x_return_status;
316: END IF;
317: END IF;
318:
319: EXCEPTION
320: WHEN G_EXCEPTION_HALT_VALIDATION THEN
321: NULL;
322: WHEN OTHERS THEN
323: OKC_API.SET_MESSAGE(p_app_name => g_app_name
324: ,p_msg_name => g_unexpected_error
325: ,p_token1 => g_sqlcode_token
326: ,p_token1_value => sqlcode
327: ,p_token2 => g_sqlerrm_token
325: ,p_token1 => g_sqlcode_token
326: ,p_token1_value => sqlcode
327: ,p_token2 => g_sqlerrm_token
328: ,p_token2_value => sqlerrm);
329: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
330: END lock_indices;
331:
332: PROCEDURE lock_indices(
333: p_api_version IN NUMBER
330: END lock_indices;
331:
332: PROCEDURE lock_indices(
333: p_api_version IN NUMBER
334: ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
335: ,x_return_status OUT NOCOPY VARCHAR2
336: ,x_msg_count OUT NOCOPY NUMBER
337: ,x_msg_data OUT NOCOPY VARCHAR2
338: ,p_idxv_tbl IN idxv_tbl_type) IS
335: ,x_return_status OUT NOCOPY VARCHAR2
336: ,x_msg_count OUT NOCOPY NUMBER
337: ,x_msg_data OUT NOCOPY VARCHAR2
338: ,p_idxv_tbl IN idxv_tbl_type) IS
339: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
340:
341: BEGIN
342: okl_idx_pvt.lock_row(
343: p_api_version => p_api_version
346: ,x_msg_count => x_msg_count
347: ,x_msg_data => x_msg_data
348: ,p_idxv_tbl => p_idxv_tbl
349: );
350: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
351: RAISE G_EXCEPTION_HALT_VALIDATION;
352: ELSE
353: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
354: l_return_status := x_return_status;
349: );
350: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
351: RAISE G_EXCEPTION_HALT_VALIDATION;
352: ELSE
353: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
354: l_return_status := x_return_status;
355: END IF;
356: END IF;
357:
358: EXCEPTION
359: WHEN G_EXCEPTION_HALT_VALIDATION THEN
360: NULL;
361: WHEN OTHERS THEN
362: OKC_API.SET_MESSAGE(p_app_name => g_app_name
363: ,p_msg_name => g_unexpected_error
364: ,p_token1 => g_sqlcode_token
365: ,p_token1_value => sqlcode
366: ,p_token2 => g_sqlerrm_token
364: ,p_token1 => g_sqlcode_token
365: ,p_token1_value => sqlcode
366: ,p_token2 => g_sqlerrm_token
367: ,p_token2_value => sqlerrm);
368: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
369: END lock_indices;
370:
371: PROCEDURE update_indices(
372: p_api_version IN NUMBER
369: END lock_indices;
370:
371: PROCEDURE update_indices(
372: p_api_version IN NUMBER
373: ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
374: ,x_return_status OUT NOCOPY VARCHAR2
375: ,x_msg_count OUT NOCOPY NUMBER
376: ,x_msg_data OUT NOCOPY VARCHAR2
377: ,p_idxv_rec IN idxv_rec_type
375: ,x_msg_count OUT NOCOPY NUMBER
376: ,x_msg_data OUT NOCOPY VARCHAR2
377: ,p_idxv_rec IN idxv_rec_type
378: ,x_idxv_rec OUT NOCOPY idxv_rec_type) IS
379: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
380:
381: BEGIN
382: okl_idx_pvt.update_row(
383: p_api_version => p_api_version
387: ,x_msg_data => x_msg_data
388: ,p_idxv_rec => p_idxv_rec
389: ,x_idxv_rec => x_idxv_rec
390: );
391: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
392: RAISE G_EXCEPTION_HALT_VALIDATION;
393: ELSE
394: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
395: l_return_status := x_return_status;
390: );
391: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
392: RAISE G_EXCEPTION_HALT_VALIDATION;
393: ELSE
394: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
395: l_return_status := x_return_status;
396: END IF;
397: END IF;
398: EXCEPTION
398: EXCEPTION
399: WHEN G_EXCEPTION_HALT_VALIDATION THEN
400: NULL;
401: WHEN OTHERS THEN
402: OKC_API.SET_MESSAGE(p_app_name => g_app_name
403: ,p_msg_name => g_unexpected_error
404: ,p_token1 => g_sqlcode_token
405: ,p_token1_value => sqlcode
406: ,p_token2 => g_sqlerrm_token
404: ,p_token1 => g_sqlcode_token
405: ,p_token1_value => sqlcode
406: ,p_token2 => g_sqlerrm_token
407: ,p_token2_value => sqlerrm);
408: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
409: END update_indices;
410:
411: PROCEDURE update_indices(
412: p_api_version IN NUMBER
409: END update_indices;
410:
411: PROCEDURE update_indices(
412: p_api_version IN NUMBER
413: ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
414: ,x_return_status OUT NOCOPY VARCHAR2
415: ,x_msg_count OUT NOCOPY NUMBER
416: ,x_msg_data OUT NOCOPY VARCHAR2
417: ,p_idxv_tbl IN idxv_tbl_type
415: ,x_msg_count OUT NOCOPY NUMBER
416: ,x_msg_data OUT NOCOPY VARCHAR2
417: ,p_idxv_tbl IN idxv_tbl_type
418: ,x_idxv_tbl OUT NOCOPY idxv_tbl_type) IS
419: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
420: BEGIN
421: okl_idx_pvt.update_row(
422: p_api_version => p_api_version
423: ,p_init_msg_list => p_init_msg_list
426: ,x_msg_data => x_msg_data
427: ,p_idxv_tbl => p_idxv_tbl
428: ,x_idxv_tbl => x_idxv_tbl
429: );
430: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
431: RAISE G_EXCEPTION_HALT_VALIDATION;
432: ELSE
433: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
434: l_return_status := x_return_status;
429: );
430: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
431: RAISE G_EXCEPTION_HALT_VALIDATION;
432: ELSE
433: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
434: l_return_status := x_return_status;
435: END IF;
436: END IF;
437: EXCEPTION
437: EXCEPTION
438: WHEN G_EXCEPTION_HALT_VALIDATION THEN
439: NULL;
440: WHEN OTHERS THEN
441: OKC_API.SET_MESSAGE(p_app_name => g_app_name
442: ,p_msg_name => g_unexpected_error
443: ,p_token1 => g_sqlcode_token
444: ,p_token1_value => sqlcode
445: ,p_token2 => g_sqlerrm_token
443: ,p_token1 => g_sqlcode_token
444: ,p_token1_value => sqlcode
445: ,p_token2 => g_sqlerrm_token
446: ,p_token2_value => sqlerrm);
447: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
448: END update_indices;
449:
450: --Put custom code for cascade delete by developer
451: PROCEDURE delete_indices(
449:
450: --Put custom code for cascade delete by developer
451: PROCEDURE delete_indices(
452: p_api_version IN NUMBER
453: ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
454: ,x_return_status OUT NOCOPY VARCHAR2
455: ,x_msg_count OUT NOCOPY NUMBER
456: ,x_msg_data OUT NOCOPY VARCHAR2
457: ,p_idxv_rec IN idxv_rec_type) IS
455: ,x_msg_count OUT NOCOPY NUMBER
456: ,x_msg_data OUT NOCOPY VARCHAR2
457: ,p_idxv_rec IN idxv_rec_type) IS
458: i NUMBER :=0;
459: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
460: l_ivev_tbl ivev_tbl_type;
461:
462: CURSOR ive_csr IS
463: SELECT ive.id
478: ,x_msg_data => x_msg_data
479: ,p_ivev_tbl => l_ivev_tbl
480: );
481:
482: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
483: RAISE G_EXCEPTION_HALT_VALIDATION;
484: ELSE
485: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
486: l_return_status := x_return_status;
481:
482: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
483: RAISE G_EXCEPTION_HALT_VALIDATION;
484: ELSE
485: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
486: l_return_status := x_return_status;
487: END IF;
488: END IF;
489: END IF;
496: ,x_msg_data => x_msg_data
497: ,p_idxv_rec => p_idxv_rec
498: );
499:
500: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
501: RAISE G_EXCEPTION_HALT_VALIDATION;
502: ELSE
503: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
504: l_return_status := x_return_status;
499:
500: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
501: RAISE G_EXCEPTION_HALT_VALIDATION;
502: ELSE
503: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
504: l_return_status := x_return_status;
505: END IF;
506: END IF;
507: EXCEPTION
507: EXCEPTION
508: WHEN G_EXCEPTION_HALT_VALIDATION THEN
509: NULL;
510: WHEN OTHERS THEN
511: OKC_API.SET_MESSAGE(p_app_name => g_app_name
512: ,p_msg_name => g_unexpected_error
513: ,p_token1 => g_sqlcode_token
514: ,p_token1_value => sqlcode
515: ,p_token2 => g_sqlerrm_token
514: ,p_token1_value => sqlcode
515: ,p_token2 => g_sqlerrm_token
516: ,p_token2_value => sqlerrm);
517:
518: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
519: END delete_indices;
520:
521: PROCEDURE delete_indices(
522: p_api_version IN NUMBER
519: END delete_indices;
520:
521: PROCEDURE delete_indices(
522: p_api_version IN NUMBER
523: ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
524: ,x_return_status OUT NOCOPY VARCHAR2
525: ,x_msg_count OUT NOCOPY NUMBER
526: ,x_msg_data OUT NOCOPY VARCHAR2
527: ,p_idxv_tbl IN idxv_tbl_type) IS
525: ,x_msg_count OUT NOCOPY NUMBER
526: ,x_msg_data OUT NOCOPY VARCHAR2
527: ,p_idxv_tbl IN idxv_tbl_type) IS
528: i NUMBER :=0;
529: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
530: BEGIN
531: --Initialize the return status
532: x_return_status := OKC_API.G_RET_STS_SUCCESS;
533: IF (p_idxv_tbl.COUNT > 0) THEN
528: i NUMBER :=0;
529: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
530: BEGIN
531: --Initialize the return status
532: x_return_status := OKC_API.G_RET_STS_SUCCESS;
533: IF (p_idxv_tbl.COUNT > 0) THEN
534: i := p_idxv_tbl.FIRST;
535: LOOP
536: delete_indices(
545: EXIT WHEN (i = p_idxv_tbl.LAST);
546: i := p_idxv_tbl.NEXT(i);
547: END LOOP;
548: END IF;
549: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
550: RAISE G_EXCEPTION_HALT_VALIDATION;
551: ELSE
552: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
553: l_return_status := x_return_status;
548: END IF;
549: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
550: RAISE G_EXCEPTION_HALT_VALIDATION;
551: ELSE
552: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
553: l_return_status := x_return_status;
554: END IF;
555: END IF;
556: EXCEPTION
556: EXCEPTION
557: WHEN G_EXCEPTION_HALT_VALIDATION THEN
558: NULL;
559: WHEN OTHERS THEN
560: OKC_API.SET_MESSAGE(p_app_name => g_app_name
561: ,p_msg_name => g_unexpected_error
562: ,p_token1 => g_sqlcode_token
563: ,p_token1_value => sqlcode
564: ,p_token2 => g_sqlerrm_token
562: ,p_token1 => g_sqlcode_token
563: ,p_token1_value => sqlcode
564: ,p_token2 => g_sqlerrm_token
565: ,p_token2_value => sqlerrm);
566: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
567: END delete_indices;
568:
569: PROCEDURE validate_indices(
570: p_api_version IN NUMBER
567: END delete_indices;
568:
569: PROCEDURE validate_indices(
570: p_api_version IN NUMBER
571: ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
572: ,x_return_status OUT NOCOPY VARCHAR2
573: ,x_msg_count OUT NOCOPY NUMBER
574: ,x_msg_data OUT NOCOPY VARCHAR2
575: ,p_idxv_rec IN idxv_rec_type) IS
572: ,x_return_status OUT NOCOPY VARCHAR2
573: ,x_msg_count OUT NOCOPY NUMBER
574: ,x_msg_data OUT NOCOPY VARCHAR2
575: ,p_idxv_rec IN idxv_rec_type) IS
576: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
577: BEGIN
578: okl_idx_pvt.validate_row(
579: p_api_version => p_api_version
580: ,p_init_msg_list => p_init_msg_list
582: ,x_msg_count => x_msg_count
583: ,x_msg_data => x_msg_data
584: ,p_idxv_rec => p_idxv_rec
585: );
586: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
587: RAISE G_EXCEPTION_HALT_VALIDATION;
588: ELSE
589: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
590: l_return_status := x_return_status;
585: );
586: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
587: RAISE G_EXCEPTION_HALT_VALIDATION;
588: ELSE
589: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
590: l_return_status := x_return_status;
591: END IF;
592: END IF;
593: EXCEPTION
593: EXCEPTION
594: WHEN G_EXCEPTION_HALT_VALIDATION THEN
595: NULL;
596: WHEN OTHERS THEN
597: OKC_API.SET_MESSAGE(p_app_name => g_app_name
598: ,p_msg_name => g_unexpected_error
599: ,p_token1 => g_sqlcode_token
600: ,p_token1_value => sqlcode
601: ,p_token2 => g_sqlerrm_token
599: ,p_token1 => g_sqlcode_token
600: ,p_token1_value => sqlcode
601: ,p_token2 => g_sqlerrm_token
602: ,p_token2_value => sqlerrm);
603: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
604: END validate_indices;
605:
606: PROCEDURE validate_indices(
607: p_api_version IN NUMBER,
604: END validate_indices;
605:
606: PROCEDURE validate_indices(
607: p_api_version IN NUMBER,
608: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
609: x_return_status OUT NOCOPY VARCHAR2,
610: x_msg_count OUT NOCOPY NUMBER,
611: x_msg_data OUT NOCOPY VARCHAR2,
612: p_idxv_tbl IN idxv_tbl_type) IS
609: x_return_status OUT NOCOPY VARCHAR2,
610: x_msg_count OUT NOCOPY NUMBER,
611: x_msg_data OUT NOCOPY VARCHAR2,
612: p_idxv_tbl IN idxv_tbl_type) IS
613: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
614:
615: BEGIN
616: okl_idx_pvt.validate_row(
617: p_api_version => p_api_version
620: ,x_msg_count => x_msg_count
621: ,x_msg_data => x_msg_data
622: ,p_idxv_tbl => p_idxv_tbl
623: );
624: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
625: RAISE G_EXCEPTION_HALT_VALIDATION;
626: ELSE
627: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
628: l_return_status := x_return_status;
623: );
624: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
625: RAISE G_EXCEPTION_HALT_VALIDATION;
626: ELSE
627: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
628: l_return_status := x_return_status;
629: END IF;
630: END IF;
631: EXCEPTION
631: EXCEPTION
632: WHEN G_EXCEPTION_HALT_VALIDATION THEN
633: NULL;
634: WHEN OTHERS THEN
635: OKC_API.SET_MESSAGE(p_app_name => g_app_name
636: ,p_msg_name => g_unexpected_error
637: ,p_token1 => g_sqlcode_token
638: ,p_token1_value => sqlcode
639: ,p_token2 => g_sqlerrm_token
637: ,p_token1 => g_sqlcode_token
638: ,p_token1_value => sqlcode
639: ,p_token2 => g_sqlerrm_token
640: ,p_token2_value => sqlerrm);
641: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
642: END validate_indices;
643:
644: PROCEDURE create_index_values(
645: p_api_version IN NUMBER
642: END validate_indices;
643:
644: PROCEDURE create_index_values(
645: p_api_version IN NUMBER
646: ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
647: ,x_return_status OUT NOCOPY VARCHAR2
648: ,x_msg_count OUT NOCOPY NUMBER
649: ,x_msg_data OUT NOCOPY VARCHAR2
650: ,p_ivev_rec IN ivev_rec_type
648: ,x_msg_count OUT NOCOPY NUMBER
649: ,x_msg_data OUT NOCOPY VARCHAR2
650: ,p_ivev_rec IN ivev_rec_type
651: ,x_ivev_rec OUT NOCOPY ivev_rec_type) IS
652: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
653:
654: BEGIN
655: okl_ive_pvt.insert_row(
656: p_api_version => p_api_version
660: ,x_msg_data => x_msg_data
661: ,p_ivev_rec => p_ivev_rec
662: ,x_ivev_rec => x_ivev_rec
663: );
664: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
665: RAISE G_EXCEPTION_HALT_VALIDATION;
666: ELSE
667: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
668: l_return_status := x_return_status;
663: );
664: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
665: RAISE G_EXCEPTION_HALT_VALIDATION;
666: ELSE
667: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
668: l_return_status := x_return_status;
669: END IF;
670: END IF;
671: EXCEPTION
671: EXCEPTION
672: WHEN G_EXCEPTION_HALT_VALIDATION THEN
673: NULL;
674: WHEN OTHERS THEN
675: OKC_API.SET_MESSAGE(p_app_name => g_app_name
676: ,p_msg_name => g_unexpected_error
677: ,p_token1 => g_sqlcode_token
678: ,p_token1_value => sqlcode
679: ,p_token2 => g_sqlerrm_token
677: ,p_token1 => g_sqlcode_token
678: ,p_token1_value => sqlcode
679: ,p_token2 => g_sqlerrm_token
680: ,p_token2_value => sqlerrm);
681: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
682: END create_index_values;
683:
684: PROCEDURE create_index_values(
685: p_api_version IN NUMBER
682: END create_index_values;
683:
684: PROCEDURE create_index_values(
685: p_api_version IN NUMBER
686: ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
687: ,x_return_status OUT NOCOPY VARCHAR2
688: ,x_msg_count OUT NOCOPY NUMBER
689: ,x_msg_data OUT NOCOPY VARCHAR2
690: ,p_ivev_tbl IN ivev_tbl_type
688: ,x_msg_count OUT NOCOPY NUMBER
689: ,x_msg_data OUT NOCOPY VARCHAR2
690: ,p_ivev_tbl IN ivev_tbl_type
691: ,x_ivev_tbl OUT NOCOPY ivev_tbl_type) IS
692: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
693:
694: BEGIN
695: okl_ive_pvt.insert_row(
696: p_api_version => p_api_version
700: ,x_msg_data => x_msg_data
701: ,p_ivev_tbl => p_ivev_tbl
702: ,x_ivev_tbl => x_ivev_tbl
703: );
704: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
705: RAISE G_EXCEPTION_HALT_VALIDATION;
706: ELSE
707: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
708: l_return_status := x_return_status;
703: );
704: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
705: RAISE G_EXCEPTION_HALT_VALIDATION;
706: ELSE
707: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
708: l_return_status := x_return_status;
709: END IF;
710: END IF;
711: EXCEPTION
711: EXCEPTION
712: WHEN G_EXCEPTION_HALT_VALIDATION THEN
713: NULL;
714: WHEN OTHERS THEN
715: OKC_API.SET_MESSAGE(p_app_name => g_app_name
716: ,p_msg_name => g_unexpected_error
717: ,p_token1 => g_sqlcode_token
718: ,p_token1_value => sqlcode
719: ,p_token2 => g_sqlerrm_token
717: ,p_token1 => g_sqlcode_token
718: ,p_token1_value => sqlcode
719: ,p_token2 => g_sqlerrm_token
720: ,p_token2_value => sqlerrm);
721: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
722: END create_index_values;
723:
724: PROCEDURE lock_index_values(
725: p_api_version IN NUMBER
722: END create_index_values;
723:
724: PROCEDURE lock_index_values(
725: p_api_version IN NUMBER
726: ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
727: ,x_return_status OUT NOCOPY VARCHAR2
728: ,x_msg_count OUT NOCOPY NUMBER
729: ,x_msg_data OUT NOCOPY VARCHAR2
730: ,p_ivev_rec IN ivev_rec_type) IS
727: ,x_return_status OUT NOCOPY VARCHAR2
728: ,x_msg_count OUT NOCOPY NUMBER
729: ,x_msg_data OUT NOCOPY VARCHAR2
730: ,p_ivev_rec IN ivev_rec_type) IS
731: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
732: BEGIN
733: okl_ive_pvt.lock_row(
734: p_api_version => p_api_version
735: ,p_init_msg_list => p_init_msg_list
737: ,x_msg_count => x_msg_count
738: ,x_msg_data => x_msg_data
739: ,p_ivev_rec => p_ivev_rec
740: );
741: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
742: RAISE G_EXCEPTION_HALT_VALIDATION;
743: ELSE
744: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
745: l_return_status := x_return_status;
740: );
741: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
742: RAISE G_EXCEPTION_HALT_VALIDATION;
743: ELSE
744: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
745: l_return_status := x_return_status;
746: END IF;
747: END IF;
748: EXCEPTION
748: EXCEPTION
749: WHEN G_EXCEPTION_HALT_VALIDATION THEN
750: NULL;
751: WHEN OTHERS THEN
752: OKC_API.SET_MESSAGE(p_app_name => g_app_name
753: ,p_msg_name => g_unexpected_error
754: ,p_token1 => g_sqlcode_token
755: ,p_token1_value => sqlcode
756: ,p_token2 => g_sqlerrm_token
754: ,p_token1 => g_sqlcode_token
755: ,p_token1_value => sqlcode
756: ,p_token2 => g_sqlerrm_token
757: ,p_token2_value => sqlerrm);
758: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
759:
760: END lock_index_values;
761:
762: PROCEDURE lock_index_values(
760: END lock_index_values;
761:
762: PROCEDURE lock_index_values(
763: p_api_version IN NUMBER
764: ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
765: ,x_return_status OUT NOCOPY VARCHAR2
766: ,x_msg_count OUT NOCOPY NUMBER
767: ,x_msg_data OUT NOCOPY VARCHAR2
768: ,p_ivev_tbl IN ivev_tbl_type) IS
765: ,x_return_status OUT NOCOPY VARCHAR2
766: ,x_msg_count OUT NOCOPY NUMBER
767: ,x_msg_data OUT NOCOPY VARCHAR2
768: ,p_ivev_tbl IN ivev_tbl_type) IS
769: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
770:
771: BEGIN
772: okl_ive_pvt.lock_row(
773: p_api_version => p_api_version
776: ,x_msg_count => x_msg_count
777: ,x_msg_data => x_msg_data
778: ,p_ivev_tbl => p_ivev_tbl
779: );
780: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
781: RAISE G_EXCEPTION_HALT_VALIDATION;
782: ELSE
783: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
784: l_return_status := x_return_status;
779: );
780: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
781: RAISE G_EXCEPTION_HALT_VALIDATION;
782: ELSE
783: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
784: l_return_status := x_return_status;
785: END IF;
786: END IF;
787: EXCEPTION
787: EXCEPTION
788: WHEN G_EXCEPTION_HALT_VALIDATION THEN
789: NULL;
790: WHEN OTHERS THEN
791: OKC_API.SET_MESSAGE(p_app_name => g_app_name
792: ,p_msg_name => g_unexpected_error
793: ,p_token1 => g_sqlcode_token
794: ,p_token1_value => sqlcode
795: ,p_token2 => g_sqlerrm_token
793: ,p_token1 => g_sqlcode_token
794: ,p_token1_value => sqlcode
795: ,p_token2 => g_sqlerrm_token
796: ,p_token2_value => sqlerrm);
797: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
798: END lock_index_values;
799:
800: PROCEDURE update_index_values(
801: p_api_version IN NUMBER
798: END lock_index_values;
799:
800: PROCEDURE update_index_values(
801: p_api_version IN NUMBER
802: ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
803: ,x_return_status OUT NOCOPY VARCHAR2
804: ,x_msg_count OUT NOCOPY NUMBER
805: ,x_msg_data OUT NOCOPY VARCHAR2
806: ,p_ivev_rec IN ivev_rec_type
804: ,x_msg_count OUT NOCOPY NUMBER
805: ,x_msg_data OUT NOCOPY VARCHAR2
806: ,p_ivev_rec IN ivev_rec_type
807: ,x_ivev_rec OUT NOCOPY ivev_rec_type) IS
808: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
809:
810: BEGIN
811: okl_ive_pvt.update_row(
812: p_api_version => p_api_version
816: ,x_msg_data => x_msg_data
817: ,p_ivev_rec => p_ivev_rec
818: ,x_ivev_rec => x_ivev_rec
819: );
820: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
821: RAISE G_EXCEPTION_HALT_VALIDATION;
822: ELSE
823: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
824: l_return_status := x_return_status;
819: );
820: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
821: RAISE G_EXCEPTION_HALT_VALIDATION;
822: ELSE
823: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
824: l_return_status := x_return_status;
825: END IF;
826: END IF;
827: EXCEPTION
827: EXCEPTION
828: WHEN G_EXCEPTION_HALT_VALIDATION THEN
829: NULL;
830: WHEN OTHERS THEN
831: OKC_API.SET_MESSAGE(p_app_name => g_app_name
832: ,p_msg_name => g_unexpected_error
833: ,p_token1 => g_sqlcode_token
834: ,p_token1_value => sqlcode
835: ,p_token2 => g_sqlerrm_token
833: ,p_token1 => g_sqlcode_token
834: ,p_token1_value => sqlcode
835: ,p_token2 => g_sqlerrm_token
836: ,p_token2_value => sqlerrm);
837: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
838: END update_index_values;
839:
840: PROCEDURE update_index_values(
841: p_api_version IN NUMBER
838: END update_index_values;
839:
840: PROCEDURE update_index_values(
841: p_api_version IN NUMBER
842: ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
843: ,x_return_status OUT NOCOPY VARCHAR2
844: ,x_msg_count OUT NOCOPY NUMBER
845: ,x_msg_data OUT NOCOPY VARCHAR2
846: ,p_ivev_tbl IN ivev_tbl_type
844: ,x_msg_count OUT NOCOPY NUMBER
845: ,x_msg_data OUT NOCOPY VARCHAR2
846: ,p_ivev_tbl IN ivev_tbl_type
847: ,x_ivev_tbl OUT NOCOPY ivev_tbl_type) IS
848: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
849:
850: BEGIN
851: okl_ive_pvt.update_row(
852: p_api_version => p_api_version
856: ,x_msg_data => x_msg_data
857: ,p_ivev_tbl => p_ivev_tbl
858: ,x_ivev_tbl => x_ivev_tbl
859: );
860: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
861: RAISE G_EXCEPTION_HALT_VALIDATION;
862: ELSE
863: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
864: l_return_status := x_return_status;
859: );
860: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
861: RAISE G_EXCEPTION_HALT_VALIDATION;
862: ELSE
863: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
864: l_return_status := x_return_status;
865: END IF;
866: END IF;
867: EXCEPTION
867: EXCEPTION
868: WHEN G_EXCEPTION_HALT_VALIDATION THEN
869: NULL;
870: WHEN OTHERS THEN
871: OKC_API.SET_MESSAGE(p_app_name => g_app_name
872: ,p_msg_name => g_unexpected_error
873: ,p_token1 => g_sqlcode_token
874: ,p_token1_value => sqlcode
875: ,p_token2 => g_sqlerrm_token
873: ,p_token1 => g_sqlcode_token
874: ,p_token1_value => sqlcode
875: ,p_token2 => g_sqlerrm_token
876: ,p_token2_value => sqlerrm);
877: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
878: END update_index_values;
879:
880: --Put custom code for cascade delete by developer
881: PROCEDURE delete_index_values(
879:
880: --Put custom code for cascade delete by developer
881: PROCEDURE delete_index_values(
882: p_api_version IN NUMBER
883: ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
884: ,x_return_status OUT NOCOPY VARCHAR2
885: ,x_msg_count OUT NOCOPY NUMBER
886: ,x_msg_data OUT NOCOPY VARCHAR2
887: ,p_ivev_rec IN ivev_rec_type) IS
885: ,x_msg_count OUT NOCOPY NUMBER
886: ,x_msg_data OUT NOCOPY VARCHAR2
887: ,p_ivev_rec IN ivev_rec_type) IS
888: i NUMBER :=0;
889: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
890: BEGIN
891: okl_ive_pvt.delete_row(
892: p_api_version => p_api_version
893: ,p_init_msg_list => p_init_msg_list
894: ,x_return_status => x_return_status
895: ,x_msg_count => x_msg_count
896: ,x_msg_data => x_msg_data
897: ,p_ivev_rec => p_ivev_rec);
898: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
899: RAISE G_EXCEPTION_HALT_VALIDATION;
900: ELSE
901: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
902: l_return_status := x_return_status;
897: ,p_ivev_rec => p_ivev_rec);
898: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
899: RAISE G_EXCEPTION_HALT_VALIDATION;
900: ELSE
901: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
902: l_return_status := x_return_status;
903: END IF;
904: END IF;
905: EXCEPTION
905: EXCEPTION
906: WHEN G_EXCEPTION_HALT_VALIDATION THEN
907: NULL;
908: WHEN OTHERS THEN
909: OKC_API.SET_MESSAGE(p_app_name => g_app_name
910: ,p_msg_name => g_unexpected_error
911: ,p_token1 => g_sqlcode_token
912: ,p_token1_value => sqlcode
913: ,p_token2 => g_sqlerrm_token
911: ,p_token1 => g_sqlcode_token
912: ,p_token1_value => sqlcode
913: ,p_token2 => g_sqlerrm_token
914: ,p_token2_value => sqlerrm);
915: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
916: END delete_index_values;
917:
918: PROCEDURE delete_index_values(
919: p_api_version IN NUMBER
916: END delete_index_values;
917:
918: PROCEDURE delete_index_values(
919: p_api_version IN NUMBER
920: ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
921: ,x_return_status OUT NOCOPY VARCHAR2
922: ,x_msg_count OUT NOCOPY NUMBER
923: ,x_msg_data OUT NOCOPY VARCHAR2
924: ,p_ivev_tbl IN ivev_tbl_type) IS
923: ,x_msg_data OUT NOCOPY VARCHAR2
924: ,p_ivev_tbl IN ivev_tbl_type) IS
925:
926: i NUMBER :=0;
927: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
928: BEGIN
929: --Initialize the return status
930: x_return_status := OKC_API.G_RET_STS_SUCCESS;
931: IF (p_ivev_tbl.COUNT > 0) THEN
926: i NUMBER :=0;
927: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
928: BEGIN
929: --Initialize the return status
930: x_return_status := OKC_API.G_RET_STS_SUCCESS;
931: IF (p_ivev_tbl.COUNT > 0) THEN
932: i := p_ivev_tbl.FIRST;
933: LOOP
934: delete_index_values(
941: EXIT WHEN (i = p_ivev_tbl.LAST);
942: i := p_ivev_tbl.NEXT(i);
943: END LOOP;
944: END IF;
945: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
946: RAISE G_EXCEPTION_HALT_VALIDATION;
947: ELSE
948: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
949: l_return_status := x_return_status;
944: END IF;
945: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
946: RAISE G_EXCEPTION_HALT_VALIDATION;
947: ELSE
948: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
949: l_return_status := x_return_status;
950: END IF;
951: END IF;
952: EXCEPTION
952: EXCEPTION
953: WHEN G_EXCEPTION_HALT_VALIDATION THEN
954: NULL;
955: WHEN OTHERS THEN
956: OKC_API.SET_MESSAGE(p_app_name => g_app_name
957: ,p_msg_name => g_unexpected_error
958: ,p_token1 => g_sqlcode_token
959: ,p_token1_value => sqlcode
960: ,p_token2 => g_sqlerrm_token
958: ,p_token1 => g_sqlcode_token
959: ,p_token1_value => sqlcode
960: ,p_token2 => g_sqlerrm_token
961: ,p_token2_value => sqlerrm);
962: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
963: END delete_index_values;
964:
965: PROCEDURE validate_index_values(
966: p_api_version IN NUMBER
963: END delete_index_values;
964:
965: PROCEDURE validate_index_values(
966: p_api_version IN NUMBER
967: ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
968: ,x_return_status OUT NOCOPY VARCHAR2
969: ,x_msg_count OUT NOCOPY NUMBER
970: ,x_msg_data OUT NOCOPY VARCHAR2
971: ,p_ivev_rec IN ivev_rec_type) IS
968: ,x_return_status OUT NOCOPY VARCHAR2
969: ,x_msg_count OUT NOCOPY NUMBER
970: ,x_msg_data OUT NOCOPY VARCHAR2
971: ,p_ivev_rec IN ivev_rec_type) IS
972: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
973: BEGIN
974: okl_ive_pvt.validate_row(
975: p_api_version => p_api_version
976: ,p_init_msg_list => p_init_msg_list
978: ,x_msg_count => x_msg_count
979: ,x_msg_data => x_msg_data
980: ,p_ivev_rec => p_ivev_rec
981: );
982: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
983: RAISE G_EXCEPTION_HALT_VALIDATION;
984: ELSE
985: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
986: l_return_status := x_return_status;
981: );
982: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
983: RAISE G_EXCEPTION_HALT_VALIDATION;
984: ELSE
985: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
986: l_return_status := x_return_status;
987: END IF;
988: END IF;
989: EXCEPTION
989: EXCEPTION
990: WHEN G_EXCEPTION_HALT_VALIDATION THEN
991: NULL;
992: WHEN OTHERS THEN
993: OKC_API.SET_MESSAGE(p_app_name => g_app_name
994: ,p_msg_name => g_unexpected_error
995: ,p_token1 => g_sqlcode_token
996: ,p_token1_value => sqlcode
997: ,p_token2 => g_sqlerrm_token
995: ,p_token1 => g_sqlcode_token
996: ,p_token1_value => sqlcode
997: ,p_token2 => g_sqlerrm_token
998: ,p_token2_value => sqlerrm);
999: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1000: END validate_index_values;
1001:
1002: PROCEDURE validate_index_values(
1003: p_api_version IN NUMBER
1000: END validate_index_values;
1001:
1002: PROCEDURE validate_index_values(
1003: p_api_version IN NUMBER
1004: ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
1005: ,x_return_status OUT NOCOPY VARCHAR2
1006: ,x_msg_count OUT NOCOPY NUMBER
1007: ,x_msg_data OUT NOCOPY VARCHAR2
1008: ,p_ivev_tbl IN ivev_tbl_type) IS
1005: ,x_return_status OUT NOCOPY VARCHAR2
1006: ,x_msg_count OUT NOCOPY NUMBER
1007: ,x_msg_data OUT NOCOPY VARCHAR2
1008: ,p_ivev_tbl IN ivev_tbl_type) IS
1009: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1010: BEGIN
1011: okl_ive_pvt.validate_row(
1012: p_api_version => p_api_version
1013: ,p_init_msg_list => p_init_msg_list
1015: ,x_msg_count => x_msg_count
1016: ,x_msg_data => x_msg_data
1017: ,p_ivev_tbl => p_ivev_tbl
1018: );
1019: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1020: RAISE G_EXCEPTION_HALT_VALIDATION;
1021: ELSE
1022: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
1023: l_return_status := x_return_status;
1018: );
1019: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1020: RAISE G_EXCEPTION_HALT_VALIDATION;
1021: ELSE
1022: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
1023: l_return_status := x_return_status;
1024: END IF;
1025: END IF;
1026: EXCEPTION
1026: EXCEPTION
1027: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1028: NULL;
1029: WHEN OTHERS THEN
1030: OKC_API.SET_MESSAGE(p_app_name => g_app_name
1031: ,p_msg_name => g_unexpected_error
1032: ,p_token1 => g_sqlcode_token
1033: ,p_token1_value => sqlcode
1034: ,p_token2 => g_sqlerrm_token
1032: ,p_token1 => g_sqlcode_token
1033: ,p_token1_value => sqlcode
1034: ,p_token2 => g_sqlerrm_token
1035: ,p_token2_value => sqlerrm);
1036: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1037: END validate_index_values;
1038:
1039: END OKL_INDICES_PVT;