216: p_srmv_rec IN srmv_rec_type
217: ) RETURN srmv_rec_type IS
218: l_srmv_rec srmv_rec_type := p_srmv_rec;
219: BEGIN
220: IF (l_srmv_rec.id = OKC_API.G_MISS_NUM) THEN
221: l_srmv_rec.id := NULL;
222: END IF;
223: IF (l_srmv_rec.error_code = OKC_API.G_MISS_CHAR) THEN
224: l_srmv_rec.error_code := NULL;
219: BEGIN
220: IF (l_srmv_rec.id = OKC_API.G_MISS_NUM) THEN
221: l_srmv_rec.id := NULL;
222: END IF;
223: IF (l_srmv_rec.error_code = OKC_API.G_MISS_CHAR) THEN
224: l_srmv_rec.error_code := NULL;
225: END IF;
226: IF (l_srmv_rec.description = OKC_API.G_MISS_CHAR) THEN
227: l_srmv_rec.description := NULL;
222: END IF;
223: IF (l_srmv_rec.error_code = OKC_API.G_MISS_CHAR) THEN
224: l_srmv_rec.error_code := NULL;
225: END IF;
226: IF (l_srmv_rec.description = OKC_API.G_MISS_CHAR) THEN
227: l_srmv_rec.description := NULL;
228: END IF;
229: IF (l_srmv_rec.tag_attribute_name = OKC_API.G_MISS_CHAR) THEN
230: l_srmv_rec.tag_attribute_name := NULL;
225: END IF;
226: IF (l_srmv_rec.description = OKC_API.G_MISS_CHAR) THEN
227: l_srmv_rec.description := NULL;
228: END IF;
229: IF (l_srmv_rec.tag_attribute_name = OKC_API.G_MISS_CHAR) THEN
230: l_srmv_rec.tag_attribute_name := NULL;
231: END IF;
232: IF (l_srmv_rec.tag_name = OKC_API.G_MISS_CHAR) THEN
233: l_srmv_rec.tag_name := NULL;
228: END IF;
229: IF (l_srmv_rec.tag_attribute_name = OKC_API.G_MISS_CHAR) THEN
230: l_srmv_rec.tag_attribute_name := NULL;
231: END IF;
232: IF (l_srmv_rec.tag_name = OKC_API.G_MISS_CHAR) THEN
233: l_srmv_rec.tag_name := NULL;
234: END IF;
235: IF (l_srmv_rec.sir_id = OKC_API.G_MISS_NUM) THEN
236: l_srmv_rec.sir_id := NULL;
231: END IF;
232: IF (l_srmv_rec.tag_name = OKC_API.G_MISS_CHAR) THEN
233: l_srmv_rec.tag_name := NULL;
234: END IF;
235: IF (l_srmv_rec.sir_id = OKC_API.G_MISS_NUM) THEN
236: l_srmv_rec.sir_id := NULL;
237: END IF;
238: IF (l_srmv_rec.error_message = OKC_API.G_MISS_CHAR) THEN
239: l_srmv_rec.error_message := NULL;
234: END IF;
235: IF (l_srmv_rec.sir_id = OKC_API.G_MISS_NUM) THEN
236: l_srmv_rec.sir_id := NULL;
237: END IF;
238: IF (l_srmv_rec.error_message = OKC_API.G_MISS_CHAR) THEN
239: l_srmv_rec.error_message := NULL;
240: END IF;
241: IF (l_srmv_rec.tag_attribute_value = OKC_API.G_MISS_CHAR) THEN
242: l_srmv_rec.tag_attribute_value := NULL;
237: END IF;
238: IF (l_srmv_rec.error_message = OKC_API.G_MISS_CHAR) THEN
239: l_srmv_rec.error_message := NULL;
240: END IF;
241: IF (l_srmv_rec.tag_attribute_value = OKC_API.G_MISS_CHAR) THEN
242: l_srmv_rec.tag_attribute_value := NULL;
243: END IF;
244: IF (l_srmv_rec.stream_interface_attribute01 = OKC_API.G_MISS_CHAR) THEN
245: l_srmv_rec.stream_interface_attribute01 := NULL;
240: END IF;
241: IF (l_srmv_rec.tag_attribute_value = OKC_API.G_MISS_CHAR) THEN
242: l_srmv_rec.tag_attribute_value := NULL;
243: END IF;
244: IF (l_srmv_rec.stream_interface_attribute01 = OKC_API.G_MISS_CHAR) THEN
245: l_srmv_rec.stream_interface_attribute01 := NULL;
246: END IF;
247: IF (l_srmv_rec.stream_interface_attribute02 = OKC_API.G_MISS_CHAR) THEN
248: l_srmv_rec.stream_interface_attribute02 := NULL;
243: END IF;
244: IF (l_srmv_rec.stream_interface_attribute01 = OKC_API.G_MISS_CHAR) THEN
245: l_srmv_rec.stream_interface_attribute01 := NULL;
246: END IF;
247: IF (l_srmv_rec.stream_interface_attribute02 = OKC_API.G_MISS_CHAR) THEN
248: l_srmv_rec.stream_interface_attribute02 := NULL;
249: END IF;
250: IF (l_srmv_rec.stream_interface_attribute03 = OKC_API.G_MISS_CHAR) THEN
251: l_srmv_rec.stream_interface_attribute03 := NULL;
246: END IF;
247: IF (l_srmv_rec.stream_interface_attribute02 = OKC_API.G_MISS_CHAR) THEN
248: l_srmv_rec.stream_interface_attribute02 := NULL;
249: END IF;
250: IF (l_srmv_rec.stream_interface_attribute03 = OKC_API.G_MISS_CHAR) THEN
251: l_srmv_rec.stream_interface_attribute03 := NULL;
252: END IF;
253: IF (l_srmv_rec.stream_interface_attribute04 = OKC_API.G_MISS_CHAR) THEN
254: l_srmv_rec.stream_interface_attribute04 := NULL;
249: END IF;
250: IF (l_srmv_rec.stream_interface_attribute03 = OKC_API.G_MISS_CHAR) THEN
251: l_srmv_rec.stream_interface_attribute03 := NULL;
252: END IF;
253: IF (l_srmv_rec.stream_interface_attribute04 = OKC_API.G_MISS_CHAR) THEN
254: l_srmv_rec.stream_interface_attribute04 := NULL;
255: END IF;
256: IF (l_srmv_rec.stream_interface_attribute05 = OKC_API.G_MISS_CHAR) THEN
257: l_srmv_rec.stream_interface_attribute05 := NULL;
252: END IF;
253: IF (l_srmv_rec.stream_interface_attribute04 = OKC_API.G_MISS_CHAR) THEN
254: l_srmv_rec.stream_interface_attribute04 := NULL;
255: END IF;
256: IF (l_srmv_rec.stream_interface_attribute05 = OKC_API.G_MISS_CHAR) THEN
257: l_srmv_rec.stream_interface_attribute05 := NULL;
258: END IF;
259: IF (l_srmv_rec.stream_interface_attribute06 = OKC_API.G_MISS_CHAR) THEN
260: l_srmv_rec.stream_interface_attribute06 := NULL;
255: END IF;
256: IF (l_srmv_rec.stream_interface_attribute05 = OKC_API.G_MISS_CHAR) THEN
257: l_srmv_rec.stream_interface_attribute05 := NULL;
258: END IF;
259: IF (l_srmv_rec.stream_interface_attribute06 = OKC_API.G_MISS_CHAR) THEN
260: l_srmv_rec.stream_interface_attribute06 := NULL;
261: END IF;
262: IF (l_srmv_rec.stream_interface_attribute07 = OKC_API.G_MISS_CHAR) THEN
263: l_srmv_rec.stream_interface_attribute07 := NULL;
258: END IF;
259: IF (l_srmv_rec.stream_interface_attribute06 = OKC_API.G_MISS_CHAR) THEN
260: l_srmv_rec.stream_interface_attribute06 := NULL;
261: END IF;
262: IF (l_srmv_rec.stream_interface_attribute07 = OKC_API.G_MISS_CHAR) THEN
263: l_srmv_rec.stream_interface_attribute07 := NULL;
264: END IF;
265: IF (l_srmv_rec.stream_interface_attribute08 = OKC_API.G_MISS_CHAR) THEN
266: l_srmv_rec.stream_interface_attribute08 := NULL;
261: END IF;
262: IF (l_srmv_rec.stream_interface_attribute07 = OKC_API.G_MISS_CHAR) THEN
263: l_srmv_rec.stream_interface_attribute07 := NULL;
264: END IF;
265: IF (l_srmv_rec.stream_interface_attribute08 = OKC_API.G_MISS_CHAR) THEN
266: l_srmv_rec.stream_interface_attribute08 := NULL;
267: END IF;
268: IF (l_srmv_rec.stream_interface_attribute09 = OKC_API.G_MISS_CHAR) THEN
269: l_srmv_rec.stream_interface_attribute09 := NULL;
264: END IF;
265: IF (l_srmv_rec.stream_interface_attribute08 = OKC_API.G_MISS_CHAR) THEN
266: l_srmv_rec.stream_interface_attribute08 := NULL;
267: END IF;
268: IF (l_srmv_rec.stream_interface_attribute09 = OKC_API.G_MISS_CHAR) THEN
269: l_srmv_rec.stream_interface_attribute09 := NULL;
270: END IF;
271: IF (l_srmv_rec.stream_interface_attribute10 = OKC_API.G_MISS_CHAR) THEN
272: l_srmv_rec.stream_interface_attribute10 := NULL;
267: END IF;
268: IF (l_srmv_rec.stream_interface_attribute09 = OKC_API.G_MISS_CHAR) THEN
269: l_srmv_rec.stream_interface_attribute09 := NULL;
270: END IF;
271: IF (l_srmv_rec.stream_interface_attribute10 = OKC_API.G_MISS_CHAR) THEN
272: l_srmv_rec.stream_interface_attribute10 := NULL;
273: END IF;
274: IF (l_srmv_rec.stream_interface_attribute11 = OKC_API.G_MISS_CHAR) THEN
275: l_srmv_rec.stream_interface_attribute11 := NULL;
270: END IF;
271: IF (l_srmv_rec.stream_interface_attribute10 = OKC_API.G_MISS_CHAR) THEN
272: l_srmv_rec.stream_interface_attribute10 := NULL;
273: END IF;
274: IF (l_srmv_rec.stream_interface_attribute11 = OKC_API.G_MISS_CHAR) THEN
275: l_srmv_rec.stream_interface_attribute11 := NULL;
276: END IF;
277: IF (l_srmv_rec.stream_interface_attribute12 = OKC_API.G_MISS_CHAR) THEN
278: l_srmv_rec.stream_interface_attribute12 := NULL;
273: END IF;
274: IF (l_srmv_rec.stream_interface_attribute11 = OKC_API.G_MISS_CHAR) THEN
275: l_srmv_rec.stream_interface_attribute11 := NULL;
276: END IF;
277: IF (l_srmv_rec.stream_interface_attribute12 = OKC_API.G_MISS_CHAR) THEN
278: l_srmv_rec.stream_interface_attribute12 := NULL;
279: END IF;
280: IF (l_srmv_rec.stream_interface_attribute13 = OKC_API.G_MISS_CHAR) THEN
281: l_srmv_rec.stream_interface_attribute13 := NULL;
276: END IF;
277: IF (l_srmv_rec.stream_interface_attribute12 = OKC_API.G_MISS_CHAR) THEN
278: l_srmv_rec.stream_interface_attribute12 := NULL;
279: END IF;
280: IF (l_srmv_rec.stream_interface_attribute13 = OKC_API.G_MISS_CHAR) THEN
281: l_srmv_rec.stream_interface_attribute13 := NULL;
282: END IF;
283: IF (l_srmv_rec.stream_interface_attribute14 = OKC_API.G_MISS_CHAR) THEN
284: l_srmv_rec.stream_interface_attribute14 := NULL;
279: END IF;
280: IF (l_srmv_rec.stream_interface_attribute13 = OKC_API.G_MISS_CHAR) THEN
281: l_srmv_rec.stream_interface_attribute13 := NULL;
282: END IF;
283: IF (l_srmv_rec.stream_interface_attribute14 = OKC_API.G_MISS_CHAR) THEN
284: l_srmv_rec.stream_interface_attribute14 := NULL;
285: END IF;
286: IF (l_srmv_rec.stream_interface_attribute15 = OKC_API.G_MISS_CHAR) THEN
287: l_srmv_rec.stream_interface_attribute15 := NULL;
282: END IF;
283: IF (l_srmv_rec.stream_interface_attribute14 = OKC_API.G_MISS_CHAR) THEN
284: l_srmv_rec.stream_interface_attribute14 := NULL;
285: END IF;
286: IF (l_srmv_rec.stream_interface_attribute15 = OKC_API.G_MISS_CHAR) THEN
287: l_srmv_rec.stream_interface_attribute15 := NULL;
288: END IF;
289: IF (l_srmv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
290: l_srmv_rec.object_version_number := NULL;
285: END IF;
286: IF (l_srmv_rec.stream_interface_attribute15 = OKC_API.G_MISS_CHAR) THEN
287: l_srmv_rec.stream_interface_attribute15 := NULL;
288: END IF;
289: IF (l_srmv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
290: l_srmv_rec.object_version_number := NULL;
291: END IF;
292: IF (l_srmv_rec.created_by = OKC_API.G_MISS_NUM) THEN
293: l_srmv_rec.created_by := NULL;
288: END IF;
289: IF (l_srmv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
290: l_srmv_rec.object_version_number := NULL;
291: END IF;
292: IF (l_srmv_rec.created_by = OKC_API.G_MISS_NUM) THEN
293: l_srmv_rec.created_by := NULL;
294: END IF;
295: IF (l_srmv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
296: l_srmv_rec.last_updated_by := NULL;
291: END IF;
292: IF (l_srmv_rec.created_by = OKC_API.G_MISS_NUM) THEN
293: l_srmv_rec.created_by := NULL;
294: END IF;
295: IF (l_srmv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
296: l_srmv_rec.last_updated_by := NULL;
297: END IF;
298: IF (l_srmv_rec.creation_date = OKC_API.G_MISS_DATE) THEN
299: l_srmv_rec.creation_date := NULL;
294: END IF;
295: IF (l_srmv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
296: l_srmv_rec.last_updated_by := NULL;
297: END IF;
298: IF (l_srmv_rec.creation_date = OKC_API.G_MISS_DATE) THEN
299: l_srmv_rec.creation_date := NULL;
300: END IF;
301: IF (l_srmv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
302: l_srmv_rec.last_update_date := NULL;
297: END IF;
298: IF (l_srmv_rec.creation_date = OKC_API.G_MISS_DATE) THEN
299: l_srmv_rec.creation_date := NULL;
300: END IF;
301: IF (l_srmv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
302: l_srmv_rec.last_update_date := NULL;
303: END IF;
304: IF (l_srmv_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
305: l_srmv_rec.last_update_login := NULL;
300: END IF;
301: IF (l_srmv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
302: l_srmv_rec.last_update_date := NULL;
303: END IF;
304: IF (l_srmv_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
305: l_srmv_rec.last_update_login := NULL;
306: END IF;
307: RETURN(l_srmv_rec);
308: END null_out_defaults;
318: --------------------------------------------------
319: FUNCTION Validate_Attributes (
320: p_srmv_rec IN srmv_rec_type
321: ) RETURN VARCHAR2 IS
322: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
323: BEGIN
324: IF p_srmv_rec.id = OKC_API.G_MISS_NUM OR
325: p_srmv_rec.id IS NULL
326: THEN
320: p_srmv_rec IN srmv_rec_type
321: ) RETURN VARCHAR2 IS
322: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
323: BEGIN
324: IF p_srmv_rec.id = OKC_API.G_MISS_NUM OR
325: p_srmv_rec.id IS NULL
326: THEN
327: OKC_API.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
328: l_return_status := OKC_API.G_RET_STS_ERROR;
323: BEGIN
324: IF p_srmv_rec.id = OKC_API.G_MISS_NUM OR
325: p_srmv_rec.id IS NULL
326: THEN
327: OKC_API.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
328: l_return_status := OKC_API.G_RET_STS_ERROR;
329: ELSIF p_srmv_rec.sir_id = OKC_API.G_MISS_NUM OR
330: p_srmv_rec.sir_id IS NULL
331: THEN
324: IF p_srmv_rec.id = OKC_API.G_MISS_NUM OR
325: p_srmv_rec.id IS NULL
326: THEN
327: OKC_API.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
328: l_return_status := OKC_API.G_RET_STS_ERROR;
329: ELSIF p_srmv_rec.sir_id = OKC_API.G_MISS_NUM OR
330: p_srmv_rec.sir_id IS NULL
331: THEN
332: OKC_API.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'sir_id');
325: p_srmv_rec.id IS NULL
326: THEN
327: OKC_API.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
328: l_return_status := OKC_API.G_RET_STS_ERROR;
329: ELSIF p_srmv_rec.sir_id = OKC_API.G_MISS_NUM OR
330: p_srmv_rec.sir_id IS NULL
331: THEN
332: OKC_API.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'sir_id');
333: l_return_status := OKC_API.G_RET_STS_ERROR;
328: l_return_status := OKC_API.G_RET_STS_ERROR;
329: ELSIF p_srmv_rec.sir_id = OKC_API.G_MISS_NUM OR
330: p_srmv_rec.sir_id IS NULL
331: THEN
332: OKC_API.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'sir_id');
333: l_return_status := OKC_API.G_RET_STS_ERROR;
334: END IF;
335: RETURN(l_return_status);
336: END Validate_Attributes;
329: ELSIF p_srmv_rec.sir_id = OKC_API.G_MISS_NUM OR
330: p_srmv_rec.sir_id IS NULL
331: THEN
332: OKC_API.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'sir_id');
333: l_return_status := OKC_API.G_RET_STS_ERROR;
334: END IF;
335: RETURN(l_return_status);
336: END Validate_Attributes;
337:
354: PROCEDURE Validate_Id(p_srmv_rec IN srmv_rec_type,x_return_status OUT NOCOPY VARCHAR2)
355:
356: IS
357:
358: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
359:
360: BEGIN
361: -- initialize return status
362: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
358: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
359:
360: BEGIN
361: -- initialize return status
362: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
363: -- check for data before processing
364: IF (p_srmv_rec.id = Okc_Api.G_MISS_NUM) OR
365: (p_srmv_rec.id IS NULL) THEN
366:
360: BEGIN
361: -- initialize return status
362: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
363: -- check for data before processing
364: IF (p_srmv_rec.id = Okc_Api.G_MISS_NUM) OR
365: (p_srmv_rec.id IS NULL) THEN
366:
367: Okc_Api.SET_MESSAGE(p_app_name => G_OKC_APP
368: ,p_msg_name => g_required_value
363: -- check for data before processing
364: IF (p_srmv_rec.id = Okc_Api.G_MISS_NUM) OR
365: (p_srmv_rec.id IS NULL) THEN
366:
367: Okc_Api.SET_MESSAGE(p_app_name => G_OKC_APP
368: ,p_msg_name => g_required_value
369: ,p_token1 => g_col_name_token
370: ,p_token1_value => 'id');
371: x_return_status := Okc_Api.G_RET_STS_ERROR;
367: Okc_Api.SET_MESSAGE(p_app_name => G_OKC_APP
368: ,p_msg_name => g_required_value
369: ,p_token1 => g_col_name_token
370: ,p_token1_value => 'id');
371: x_return_status := Okc_Api.G_RET_STS_ERROR;
372: RAISE G_EXCEPTION_HALT_VALIDATION;
373: END IF;
374:
375: EXCEPTION
379: NULL;
380:
381: WHEN OTHERS THEN
382: -- store SQL error message on message stack for caller
383: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
384: p_msg_name => G_OKL_UNEXPECTED_ERROR,
385: p_token1 => G_OKL_SQLCODE_TOKEN,
386: p_token1_value => SQLCODE,
387: p_token2 => G_OKL_SQLERRM_TOKEN,
387: p_token2 => G_OKL_SQLERRM_TOKEN,
388: p_token2_value => SQLERRM);
389:
390: -- notify caller of an UNEXPECTED error
391: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
392:
393: END Validate_Id;
394:
395: --------------------------------------------------------------------------
416: l_dummy_sir_id VARCHAR2(1);
417: l_row_notfound BOOLEAN :=TRUE;
418: BEGIN
419: -- initialize return status
420: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
421: -- check for data before processing
422: IF (p_srmv_rec.sir_id IS NULL) OR
423: (p_srmv_rec.sir_id = Okc_Api.G_MISS_NUM)
424: THEN
419: -- initialize return status
420: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
421: -- check for data before processing
422: IF (p_srmv_rec.sir_id IS NULL) OR
423: (p_srmv_rec.sir_id = Okc_Api.G_MISS_NUM)
424: THEN
425: Okc_Api.SET_MESSAGE(p_app_name => G_OKC_APP
426: ,p_msg_name => g_required_value
427: ,p_token1 => g_col_name_token
421: -- check for data before processing
422: IF (p_srmv_rec.sir_id IS NULL) OR
423: (p_srmv_rec.sir_id = Okc_Api.G_MISS_NUM)
424: THEN
425: Okc_Api.SET_MESSAGE(p_app_name => G_OKC_APP
426: ,p_msg_name => g_required_value
427: ,p_token1 => g_col_name_token
428: ,p_token1_value => 'sir_id');
429: x_return_status := Okc_Api.G_RET_STS_ERROR;
425: Okc_Api.SET_MESSAGE(p_app_name => G_OKC_APP
426: ,p_msg_name => g_required_value
427: ,p_token1 => g_col_name_token
428: ,p_token1_value => 'sir_id');
429: x_return_status := Okc_Api.G_RET_STS_ERROR;
430: RAISE G_EXCEPTION_HALT_VALIDATION;
431:
432: ELSIF p_srmv_rec.sir_id IS NOT NULL THEN
433: --Check if sir_id exists in the stream level table or not
435: FETCH l_sirid_csr INTO l_dummy_sir_id;
436: l_row_notfound :=l_sirid_csr%NOTFOUND;
437: CLOSE l_sirid_csr;
438: IF(l_row_notfound ) THEN
439: OKC_API.SET_MESSAGE(G_APP_NAME,G_OKL_NO_PARENT_RECORD,G_COL_NAME_TOKEN,'SIR_ID',G_CHILD_TABLE_TOKEN,'OKL_STRM_ELEMENTS_V',G_PARENT_TABLE_TOKEN,'OKL_STREAM_LEVELS_V');
440: x_return_status := Okc_Api.G_RET_STS_ERROR;
441: -- raise the exception as there's no matching foreign key value
442: RAISE G_EXCEPTION_HALT_VALIDATION;
443: END IF;
436: l_row_notfound :=l_sirid_csr%NOTFOUND;
437: CLOSE l_sirid_csr;
438: IF(l_row_notfound ) THEN
439: OKC_API.SET_MESSAGE(G_APP_NAME,G_OKL_NO_PARENT_RECORD,G_COL_NAME_TOKEN,'SIR_ID',G_CHILD_TABLE_TOKEN,'OKL_STRM_ELEMENTS_V',G_PARENT_TABLE_TOKEN,'OKL_STREAM_LEVELS_V');
440: x_return_status := Okc_Api.G_RET_STS_ERROR;
441: -- raise the exception as there's no matching foreign key value
442: RAISE G_EXCEPTION_HALT_VALIDATION;
443: END IF;
444: END IF;
448: -- with the next column
449: NULL;
450: WHEN OTHERS THEN
451: -- store SQL error message on message stack for caller
452: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
453: p_msg_name => G_OKL_UNEXPECTED_ERROR,
454: p_token1 => G_OKL_SQLCODE_TOKEN,
455: p_token1_value => SQLCODE,
456: p_token2 => G_OKL_SQLERRM_TOKEN,
455: p_token1_value => SQLCODE,
456: p_token2 => G_OKL_SQLERRM_TOKEN,
457: p_token2_value => SQLERRM);
458: -- notify caller of an UNEXPECTED error
459: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
460:
461: IF l_sirid_csr%ISOPEN
462: THEN
463: CLOSE l_sirid_csr;
480: PROCEDURE Validate_Object_Version_Number(p_srmv_rec IN srmv_rec_type,x_return_status OUT NOCOPY VARCHAR2)
481:
482: IS
483:
484: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
485:
486: BEGIN
487: -- initialize return status
488: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
484: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
485:
486: BEGIN
487: -- initialize return status
488: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
489: -- check for data before processing
490: IF (p_srmv_rec.object_version_number IS NULL) OR
491: (p_srmv_rec.object_version_number = Okc_Api.G_MISS_NUM) THEN
492: Okc_Api.SET_MESSAGE(p_app_name => G_OKC_APP
487: -- initialize return status
488: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
489: -- check for data before processing
490: IF (p_srmv_rec.object_version_number IS NULL) OR
491: (p_srmv_rec.object_version_number = Okc_Api.G_MISS_NUM) THEN
492: Okc_Api.SET_MESSAGE(p_app_name => G_OKC_APP
493: ,p_msg_name => g_required_value
494: ,p_token1 => g_col_name_token
495: ,p_token1_value => 'object_version_number');
488: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
489: -- check for data before processing
490: IF (p_srmv_rec.object_version_number IS NULL) OR
491: (p_srmv_rec.object_version_number = Okc_Api.G_MISS_NUM) THEN
492: Okc_Api.SET_MESSAGE(p_app_name => G_OKC_APP
493: ,p_msg_name => g_required_value
494: ,p_token1 => g_col_name_token
495: ,p_token1_value => 'object_version_number');
496: x_return_status := Okc_Api.G_RET_STS_ERROR;
492: Okc_Api.SET_MESSAGE(p_app_name => G_OKC_APP
493: ,p_msg_name => g_required_value
494: ,p_token1 => g_col_name_token
495: ,p_token1_value => 'object_version_number');
496: x_return_status := Okc_Api.G_RET_STS_ERROR;
497: RAISE G_EXCEPTION_HALT_VALIDATION;
498: END IF;
499:
500: EXCEPTION
504: NULL;
505:
506: WHEN OTHERS THEN
507: -- store SQL error message on message stack for caller
508: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
509: p_msg_name => G_OKL_UNEXPECTED_ERROR,
510: p_token1 => G_OKL_SQLCODE_TOKEN,
511: p_token1_value => SQLCODE,
512: p_token2 => G_OKL_SQLERRM_TOKEN,
512: p_token2 => G_OKL_SQLERRM_TOKEN,
513: p_token2_value => SQLERRM);
514:
515: -- notify caller of an UNEXPECTED error
516: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
517:
518: END Validate_Object_Version_Number;
519:
520:
533: FUNCTION Validate_Attributes (
534: p_srmv_rec IN srmv_rec_type
535: ) RETURN VARCHAR2 IS
536:
537: x_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
538: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
539: BEGIN
540:
541: -- call each column-level validation
534: p_srmv_rec IN srmv_rec_type
535: ) RETURN VARCHAR2 IS
536:
537: x_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
538: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
539: BEGIN
540:
541: -- call each column-level validation
542:
543:
544: -- Validate_Id
545: Validate_Id(p_srmv_rec, x_return_status);
546: -- store the highest degree of error
547: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
548: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
549: -- need to leave
550: l_return_status := x_return_status;
551: RAISE G_EXCEPTION_HALT_VALIDATION;
544: -- Validate_Id
545: Validate_Id(p_srmv_rec, x_return_status);
546: -- store the highest degree of error
547: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
548: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
549: -- need to leave
550: l_return_status := x_return_status;
551: RAISE G_EXCEPTION_HALT_VALIDATION;
552: ELSE
557:
558: -- Validate_Object_Version_Number
559: Validate_Object_Version_Number(p_srmv_rec, x_return_status);
560: -- store the highest degree of error
561: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
562: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
563: -- need to leave
564: l_return_status := x_return_status;
565: RAISE G_EXCEPTION_HALT_VALIDATION;
558: -- Validate_Object_Version_Number
559: Validate_Object_Version_Number(p_srmv_rec, x_return_status);
560: -- store the highest degree of error
561: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
562: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
563: -- need to leave
564: l_return_status := x_return_status;
565: RAISE G_EXCEPTION_HALT_VALIDATION;
566: ELSE
572: -- Validate_Sir_Id
573: Validate_Sir_Id(p_srmv_rec, x_return_status);
574:
575: -- store the highest degree of error
576: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
577: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
578: -- need to leave
579: l_return_status := x_return_status;
580: RAISE G_EXCEPTION_HALT_VALIDATION;
573: Validate_Sir_Id(p_srmv_rec, x_return_status);
574:
575: -- store the highest degree of error
576: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
577: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
578: -- need to leave
579: l_return_status := x_return_status;
580: RAISE G_EXCEPTION_HALT_VALIDATION;
581: ELSE
591: RETURN (l_return_status);
592:
593: WHEN OTHERS THEN
594: -- store SQL error message on message stack for caller
595: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
596: p_msg_name => G_OKL_UNEXPECTED_ERROR,
597: p_token1 => G_OKL_SQLCODE_TOKEN,
598: p_token1_value => SQLCODE,
599: p_token2 => G_OKL_SQLERRM_TOKEN,
598: p_token1_value => SQLCODE,
599: p_token2 => G_OKL_SQLERRM_TOKEN,
600: p_token2_value => SQLERRM);
601: -- notify caller of an UNEXPECTED error
602: l_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
603: RETURN(l_return_status);
604:
605: END Validate_Attributes;
606:
617: ----------------------------------------------
618: FUNCTION Validate_Record (
619: p_srmv_rec IN srmv_rec_type
620: ) RETURN VARCHAR2 IS
621: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
622: BEGIN
623: RETURN (l_return_status);
624: END Validate_Record;
625:
704: -- validate_row for:OKL_SIF_RET_ERRORS_V --
705: -------------------------------------------
706: PROCEDURE validate_row(
707: p_api_version IN NUMBER,
708: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
709: x_return_status OUT NOCOPY VARCHAR2,
710: x_msg_count OUT NOCOPY NUMBER,
711: x_msg_data OUT NOCOPY VARCHAR2,
712: p_srmv_rec IN srmv_rec_type) IS
712: p_srmv_rec IN srmv_rec_type) IS
713:
714: l_api_version CONSTANT NUMBER := 1;
715: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
716: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
717: l_srmv_rec srmv_rec_type := p_srmv_rec;
718: l_srm_rec srm_rec_type;
719: BEGIN
720: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
716: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
717: l_srmv_rec srmv_rec_type := p_srmv_rec;
718: l_srm_rec srm_rec_type;
719: BEGIN
720: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
721: G_PKG_NAME,
722: p_init_msg_list,
723: l_api_version,
724: p_api_version,
723: l_api_version,
724: p_api_version,
725: '_PVT',
726: x_return_status);
727: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
728: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
729: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
730: RAISE OKC_API.G_EXCEPTION_ERROR;
731: END IF;
724: p_api_version,
725: '_PVT',
726: x_return_status);
727: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
728: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
729: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
730: RAISE OKC_API.G_EXCEPTION_ERROR;
731: END IF;
732: --- Validate all non-missing attributes (Item Level Validation)
725: '_PVT',
726: x_return_status);
727: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
728: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
729: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
730: RAISE OKC_API.G_EXCEPTION_ERROR;
731: END IF;
732: --- Validate all non-missing attributes (Item Level Validation)
733: l_return_status := Validate_Attributes(l_srmv_rec);
726: x_return_status);
727: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
728: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
729: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
730: RAISE OKC_API.G_EXCEPTION_ERROR;
731: END IF;
732: --- Validate all non-missing attributes (Item Level Validation)
733: l_return_status := Validate_Attributes(l_srmv_rec);
734: --- If any errors happen abort API
731: END IF;
732: --- Validate all non-missing attributes (Item Level Validation)
733: l_return_status := Validate_Attributes(l_srmv_rec);
734: --- If any errors happen abort API
735: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
736: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
737: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
738: RAISE OKC_API.G_EXCEPTION_ERROR;
739: END IF;
732: --- Validate all non-missing attributes (Item Level Validation)
733: l_return_status := Validate_Attributes(l_srmv_rec);
734: --- If any errors happen abort API
735: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
736: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
737: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
738: RAISE OKC_API.G_EXCEPTION_ERROR;
739: END IF;
740: l_return_status := Validate_Record(l_srmv_rec);
733: l_return_status := Validate_Attributes(l_srmv_rec);
734: --- If any errors happen abort API
735: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
736: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
737: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
738: RAISE OKC_API.G_EXCEPTION_ERROR;
739: END IF;
740: l_return_status := Validate_Record(l_srmv_rec);
741: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
734: --- If any errors happen abort API
735: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
736: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
737: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
738: RAISE OKC_API.G_EXCEPTION_ERROR;
739: END IF;
740: l_return_status := Validate_Record(l_srmv_rec);
741: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
742: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
737: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
738: RAISE OKC_API.G_EXCEPTION_ERROR;
739: END IF;
740: l_return_status := Validate_Record(l_srmv_rec);
741: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
742: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
743: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
744: RAISE OKC_API.G_EXCEPTION_ERROR;
745: END IF;
738: RAISE OKC_API.G_EXCEPTION_ERROR;
739: END IF;
740: l_return_status := Validate_Record(l_srmv_rec);
741: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
742: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
743: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
744: RAISE OKC_API.G_EXCEPTION_ERROR;
745: END IF;
746: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
739: END IF;
740: l_return_status := Validate_Record(l_srmv_rec);
741: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
742: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
743: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
744: RAISE OKC_API.G_EXCEPTION_ERROR;
745: END IF;
746: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
747: EXCEPTION
740: l_return_status := Validate_Record(l_srmv_rec);
741: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
742: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
743: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
744: RAISE OKC_API.G_EXCEPTION_ERROR;
745: END IF;
746: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
747: EXCEPTION
748: WHEN OKC_API.G_EXCEPTION_ERROR THEN
742: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
743: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
744: RAISE OKC_API.G_EXCEPTION_ERROR;
745: END IF;
746: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
747: EXCEPTION
748: WHEN OKC_API.G_EXCEPTION_ERROR THEN
749: x_return_status := OKC_API.HANDLE_EXCEPTIONS
750: (
744: RAISE OKC_API.G_EXCEPTION_ERROR;
745: END IF;
746: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
747: EXCEPTION
748: WHEN OKC_API.G_EXCEPTION_ERROR THEN
749: x_return_status := OKC_API.HANDLE_EXCEPTIONS
750: (
751: l_api_name,
752: G_PKG_NAME,
745: END IF;
746: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
747: EXCEPTION
748: WHEN OKC_API.G_EXCEPTION_ERROR THEN
749: x_return_status := OKC_API.HANDLE_EXCEPTIONS
750: (
751: l_api_name,
752: G_PKG_NAME,
753: 'OKC_API.G_RET_STS_ERROR',
749: x_return_status := OKC_API.HANDLE_EXCEPTIONS
750: (
751: l_api_name,
752: G_PKG_NAME,
753: 'OKC_API.G_RET_STS_ERROR',
754: x_msg_count,
755: x_msg_data,
756: '_PVT'
757: );
754: x_msg_count,
755: x_msg_data,
756: '_PVT'
757: );
758: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
759: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
760: (
761: l_api_name,
762: G_PKG_NAME,
755: x_msg_data,
756: '_PVT'
757: );
758: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
759: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
760: (
761: l_api_name,
762: G_PKG_NAME,
763: 'OKC_API.G_RET_STS_UNEXP_ERROR',
759: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
760: (
761: l_api_name,
762: G_PKG_NAME,
763: 'OKC_API.G_RET_STS_UNEXP_ERROR',
764: x_msg_count,
765: x_msg_data,
766: '_PVT'
767: );
765: x_msg_data,
766: '_PVT'
767: );
768: WHEN OTHERS THEN
769: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
770: (
771: l_api_name,
772: G_PKG_NAME,
773: 'OTHERS',
780: -- PL/SQL TBL validate_row for:SRMV_TBL --
781: ------------------------------------------
782: PROCEDURE validate_row(
783: p_api_version IN NUMBER,
784: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
785: x_return_status OUT NOCOPY VARCHAR2,
786: x_msg_count OUT NOCOPY NUMBER,
787: x_msg_data OUT NOCOPY VARCHAR2,
788: p_srmv_tbl IN srmv_tbl_type) IS
788: p_srmv_tbl IN srmv_tbl_type) IS
789:
790: l_api_version CONSTANT NUMBER := 1;
791: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
792: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
793: i NUMBER := 0;
794: -- START change : akjain, 11/05/2001
795: -- Adding OverAll Status Flag
796: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
792: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
793: i NUMBER := 0;
794: -- START change : akjain, 11/05/2001
795: -- Adding OverAll Status Flag
796: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
797: -- END change : akjain
798:
799: BEGIN
800: OKC_API.init_msg_list(p_init_msg_list);
796: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
797: -- END change : akjain
798:
799: BEGIN
800: OKC_API.init_msg_list(p_init_msg_list);
801: -- Make sure PL/SQL table has records in it before passing
802: IF (p_srmv_tbl.COUNT > 0) THEN
803: i := p_srmv_tbl.FIRST;
804: LOOP
803: i := p_srmv_tbl.FIRST;
804: LOOP
805: validate_row (
806: p_api_version => p_api_version,
807: p_init_msg_list => OKC_API.G_FALSE,
808: x_return_status => x_return_status,
809: x_msg_count => x_msg_count,
810: x_msg_data => x_msg_data,
811: p_srmv_rec => p_srmv_tbl(i));
810: x_msg_data => x_msg_data,
811: p_srmv_rec => p_srmv_tbl(i));
812: -- START change : akjain, 11/05/2001
813: -- store the highest degree of error
814: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
815: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
816: l_overall_status := x_return_status;
817: END IF;
818: END IF;
811: p_srmv_rec => p_srmv_tbl(i));
812: -- START change : akjain, 11/05/2001
813: -- store the highest degree of error
814: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
815: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
816: l_overall_status := x_return_status;
817: END IF;
818: END IF;
819: -- END change : akjain
827: -- END change : akjain
828:
829: END IF;
830: EXCEPTION
831: WHEN OKC_API.G_EXCEPTION_ERROR THEN
832: x_return_status := OKC_API.HANDLE_EXCEPTIONS
833: (
834: l_api_name,
835: G_PKG_NAME,
828:
829: END IF;
830: EXCEPTION
831: WHEN OKC_API.G_EXCEPTION_ERROR THEN
832: x_return_status := OKC_API.HANDLE_EXCEPTIONS
833: (
834: l_api_name,
835: G_PKG_NAME,
836: 'OKC_API.G_RET_STS_ERROR',
832: x_return_status := OKC_API.HANDLE_EXCEPTIONS
833: (
834: l_api_name,
835: G_PKG_NAME,
836: 'OKC_API.G_RET_STS_ERROR',
837: x_msg_count,
838: x_msg_data,
839: '_PVT'
840: );
837: x_msg_count,
838: x_msg_data,
839: '_PVT'
840: );
841: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
842: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
843: (
844: l_api_name,
845: G_PKG_NAME,
838: x_msg_data,
839: '_PVT'
840: );
841: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
842: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
843: (
844: l_api_name,
845: G_PKG_NAME,
846: 'OKC_API.G_RET_STS_UNEXP_ERROR',
842: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
843: (
844: l_api_name,
845: G_PKG_NAME,
846: 'OKC_API.G_RET_STS_UNEXP_ERROR',
847: x_msg_count,
848: x_msg_data,
849: '_PVT'
850: );
848: x_msg_data,
849: '_PVT'
850: );
851: WHEN OTHERS THEN
852: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
853: (
854: l_api_name,
855: G_PKG_NAME,
856: 'OTHERS',
866: ---------------------------------------
867: -- insert_row for:OKL_SIF_RET_ERRORS --
868: ---------------------------------------
869: PROCEDURE insert_row(
870: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
871: x_return_status OUT NOCOPY VARCHAR2,
872: x_msg_count OUT NOCOPY NUMBER,
873: x_msg_data OUT NOCOPY VARCHAR2,
874: p_srm_rec IN srm_rec_type,
875: x_srm_rec OUT NOCOPY srm_rec_type) IS
876:
877: l_api_version CONSTANT NUMBER := 1;
878: l_api_name CONSTANT VARCHAR2(30) := 'ERRORS_insert_row';
879: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
880: l_srm_rec srm_rec_type := p_srm_rec;
881: l_def_srm_rec srm_rec_type;
882: -------------------------------------------
883: -- Set_Attributes for:OKL_SIF_RET_ERRORS --
885: FUNCTION Set_Attributes (
886: p_srm_rec IN srm_rec_type,
887: x_srm_rec OUT NOCOPY srm_rec_type
888: ) RETURN VARCHAR2 IS
889: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
890: BEGIN
891: x_srm_rec := p_srm_rec;
892: RETURN(l_return_status);
893: END Set_Attributes;
891: x_srm_rec := p_srm_rec;
892: RETURN(l_return_status);
893: END Set_Attributes;
894: BEGIN
895: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
896: p_init_msg_list,
897: '_PVT',
898: x_return_status);
899: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
895: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
896: p_init_msg_list,
897: '_PVT',
898: x_return_status);
899: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
900: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
901: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
902: RAISE OKC_API.G_EXCEPTION_ERROR;
903: END IF;
896: p_init_msg_list,
897: '_PVT',
898: x_return_status);
899: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
900: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
901: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
902: RAISE OKC_API.G_EXCEPTION_ERROR;
903: END IF;
904: --- Setting item attributes
897: '_PVT',
898: x_return_status);
899: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
900: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
901: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
902: RAISE OKC_API.G_EXCEPTION_ERROR;
903: END IF;
904: --- Setting item attributes
905: l_return_status := Set_Attributes(
898: x_return_status);
899: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
900: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
901: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
902: RAISE OKC_API.G_EXCEPTION_ERROR;
903: END IF;
904: --- Setting item attributes
905: l_return_status := Set_Attributes(
906: p_srm_rec, -- IN
905: l_return_status := Set_Attributes(
906: p_srm_rec, -- IN
907: l_srm_rec); -- OUT
908: --- If any errors happen abort API
909: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
910: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
911: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
912: RAISE OKC_API.G_EXCEPTION_ERROR;
913: END IF;
906: p_srm_rec, -- IN
907: l_srm_rec); -- OUT
908: --- If any errors happen abort API
909: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
910: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
911: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
912: RAISE OKC_API.G_EXCEPTION_ERROR;
913: END IF;
914: INSERT INTO OKL_SIF_RET_ERRORS(
907: l_srm_rec); -- OUT
908: --- If any errors happen abort API
909: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
910: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
911: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
912: RAISE OKC_API.G_EXCEPTION_ERROR;
913: END IF;
914: INSERT INTO OKL_SIF_RET_ERRORS(
915: id,
908: --- If any errors happen abort API
909: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
910: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
911: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
912: RAISE OKC_API.G_EXCEPTION_ERROR;
913: END IF;
914: INSERT INTO OKL_SIF_RET_ERRORS(
915: id,
916: sir_id,
972: l_srm_rec.last_update_date,
973: l_srm_rec.last_update_login);
974: -- Set OUT values
975: x_srm_rec := l_srm_rec;
976: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
977: EXCEPTION
978: WHEN OKC_API.G_EXCEPTION_ERROR THEN
979: x_return_status := OKC_API.HANDLE_EXCEPTIONS
980: (
974: -- Set OUT values
975: x_srm_rec := l_srm_rec;
976: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
977: EXCEPTION
978: WHEN OKC_API.G_EXCEPTION_ERROR THEN
979: x_return_status := OKC_API.HANDLE_EXCEPTIONS
980: (
981: l_api_name,
982: G_PKG_NAME,
975: x_srm_rec := l_srm_rec;
976: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
977: EXCEPTION
978: WHEN OKC_API.G_EXCEPTION_ERROR THEN
979: x_return_status := OKC_API.HANDLE_EXCEPTIONS
980: (
981: l_api_name,
982: G_PKG_NAME,
983: 'OKC_API.G_RET_STS_ERROR',
979: x_return_status := OKC_API.HANDLE_EXCEPTIONS
980: (
981: l_api_name,
982: G_PKG_NAME,
983: 'OKC_API.G_RET_STS_ERROR',
984: x_msg_count,
985: x_msg_data,
986: '_PVT'
987: );
984: x_msg_count,
985: x_msg_data,
986: '_PVT'
987: );
988: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
989: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
990: (
991: l_api_name,
992: G_PKG_NAME,
985: x_msg_data,
986: '_PVT'
987: );
988: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
989: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
990: (
991: l_api_name,
992: G_PKG_NAME,
993: 'OKC_API.G_RET_STS_UNEXP_ERROR',
989: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
990: (
991: l_api_name,
992: G_PKG_NAME,
993: 'OKC_API.G_RET_STS_UNEXP_ERROR',
994: x_msg_count,
995: x_msg_data,
996: '_PVT'
997: );
995: x_msg_data,
996: '_PVT'
997: );
998: WHEN OTHERS THEN
999: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1000: (
1001: l_api_name,
1002: G_PKG_NAME,
1003: 'OTHERS',
1010: -- insert_row for:OKL_SIF_RET_ERRORS_V --
1011: -----------------------------------------
1012: PROCEDURE insert_row(
1013: p_api_version IN NUMBER,
1014: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1015: x_return_status OUT NOCOPY VARCHAR2,
1016: x_msg_count OUT NOCOPY NUMBER,
1017: x_msg_data OUT NOCOPY VARCHAR2,
1018: p_srmv_rec IN srmv_rec_type,
1019: x_srmv_rec OUT NOCOPY srmv_rec_type) IS
1020:
1021: l_api_version CONSTANT NUMBER := 1;
1022: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
1023: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1024: l_srmv_rec srmv_rec_type;
1025: l_def_srmv_rec srmv_rec_type;
1026: l_srm_rec srm_rec_type;
1027: lx_srm_rec srm_rec_type;
1046: FUNCTION Set_Attributes (
1047: p_srmv_rec IN srmv_rec_type,
1048: x_srmv_rec OUT NOCOPY srmv_rec_type
1049: ) RETURN VARCHAR2 IS
1050: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1051: BEGIN
1052: x_srmv_rec := p_srmv_rec;
1053: x_srmv_rec.OBJECT_VERSION_NUMBER := 1;
1054: RETURN(l_return_status);
1053: x_srmv_rec.OBJECT_VERSION_NUMBER := 1;
1054: RETURN(l_return_status);
1055: END Set_Attributes;
1056: BEGIN
1057: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1058: G_PKG_NAME,
1059: p_init_msg_list,
1060: l_api_version,
1061: p_api_version,
1060: l_api_version,
1061: p_api_version,
1062: '_PVT',
1063: x_return_status);
1064: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1065: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1066: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1067: RAISE OKC_API.G_EXCEPTION_ERROR;
1068: END IF;
1061: p_api_version,
1062: '_PVT',
1063: x_return_status);
1064: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1065: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1066: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1067: RAISE OKC_API.G_EXCEPTION_ERROR;
1068: END IF;
1069: l_srmv_rec := null_out_defaults(p_srmv_rec);
1062: '_PVT',
1063: x_return_status);
1064: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1065: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1066: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1067: RAISE OKC_API.G_EXCEPTION_ERROR;
1068: END IF;
1069: l_srmv_rec := null_out_defaults(p_srmv_rec);
1070: -- Set primary key value
1063: x_return_status);
1064: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1065: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1066: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1067: RAISE OKC_API.G_EXCEPTION_ERROR;
1068: END IF;
1069: l_srmv_rec := null_out_defaults(p_srmv_rec);
1070: -- Set primary key value
1071: l_srmv_rec.ID := get_seq_id;
1073: l_return_status := Set_Attributes(
1074: l_srmv_rec, -- IN
1075: l_def_srmv_rec); -- OUT
1076: --- If any errors happen abort API
1077: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1078: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1079: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1080: RAISE OKC_API.G_EXCEPTION_ERROR;
1081: END IF;
1074: l_srmv_rec, -- IN
1075: l_def_srmv_rec); -- OUT
1076: --- If any errors happen abort API
1077: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1078: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1079: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1080: RAISE OKC_API.G_EXCEPTION_ERROR;
1081: END IF;
1082: l_def_srmv_rec := fill_who_columns(l_def_srmv_rec);
1075: l_def_srmv_rec); -- OUT
1076: --- If any errors happen abort API
1077: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1078: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1079: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1080: RAISE OKC_API.G_EXCEPTION_ERROR;
1081: END IF;
1082: l_def_srmv_rec := fill_who_columns(l_def_srmv_rec);
1083: --- Validate all non-missing attributes (Item Level Validation)
1076: --- If any errors happen abort API
1077: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1078: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1079: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1080: RAISE OKC_API.G_EXCEPTION_ERROR;
1081: END IF;
1082: l_def_srmv_rec := fill_who_columns(l_def_srmv_rec);
1083: --- Validate all non-missing attributes (Item Level Validation)
1084: l_return_status := Validate_Attributes(l_def_srmv_rec);
1082: l_def_srmv_rec := fill_who_columns(l_def_srmv_rec);
1083: --- Validate all non-missing attributes (Item Level Validation)
1084: l_return_status := Validate_Attributes(l_def_srmv_rec);
1085: --- If any errors happen abort API
1086: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1087: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1088: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1089: RAISE OKC_API.G_EXCEPTION_ERROR;
1090: END IF;
1083: --- Validate all non-missing attributes (Item Level Validation)
1084: l_return_status := Validate_Attributes(l_def_srmv_rec);
1085: --- If any errors happen abort API
1086: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1087: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1088: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1089: RAISE OKC_API.G_EXCEPTION_ERROR;
1090: END IF;
1091: l_return_status := Validate_Record(l_def_srmv_rec);
1084: l_return_status := Validate_Attributes(l_def_srmv_rec);
1085: --- If any errors happen abort API
1086: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1087: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1088: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1089: RAISE OKC_API.G_EXCEPTION_ERROR;
1090: END IF;
1091: l_return_status := Validate_Record(l_def_srmv_rec);
1092: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1085: --- If any errors happen abort API
1086: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1087: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1088: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1089: RAISE OKC_API.G_EXCEPTION_ERROR;
1090: END IF;
1091: l_return_status := Validate_Record(l_def_srmv_rec);
1092: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1093: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1088: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1089: RAISE OKC_API.G_EXCEPTION_ERROR;
1090: END IF;
1091: l_return_status := Validate_Record(l_def_srmv_rec);
1092: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1093: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1094: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1095: RAISE OKC_API.G_EXCEPTION_ERROR;
1096: END IF;
1089: RAISE OKC_API.G_EXCEPTION_ERROR;
1090: END IF;
1091: l_return_status := Validate_Record(l_def_srmv_rec);
1092: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1093: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1094: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1095: RAISE OKC_API.G_EXCEPTION_ERROR;
1096: END IF;
1097: --------------------------------------
1090: END IF;
1091: l_return_status := Validate_Record(l_def_srmv_rec);
1092: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1093: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1094: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1095: RAISE OKC_API.G_EXCEPTION_ERROR;
1096: END IF;
1097: --------------------------------------
1098: -- Move VIEW record to "Child" records
1091: l_return_status := Validate_Record(l_def_srmv_rec);
1092: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1093: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1094: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1095: RAISE OKC_API.G_EXCEPTION_ERROR;
1096: END IF;
1097: --------------------------------------
1098: -- Move VIEW record to "Child" records
1099: --------------------------------------
1108: x_msg_data,
1109: l_srm_rec,
1110: lx_srm_rec
1111: );
1112: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1113: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1114: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1115: RAISE OKC_API.G_EXCEPTION_ERROR;
1116: END IF;
1109: l_srm_rec,
1110: lx_srm_rec
1111: );
1112: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1113: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1114: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1115: RAISE OKC_API.G_EXCEPTION_ERROR;
1116: END IF;
1117: migrate(lx_srm_rec, l_def_srmv_rec);
1110: lx_srm_rec
1111: );
1112: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1113: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1114: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1115: RAISE OKC_API.G_EXCEPTION_ERROR;
1116: END IF;
1117: migrate(lx_srm_rec, l_def_srmv_rec);
1118: -- Set OUT values
1111: );
1112: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1113: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1114: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1115: RAISE OKC_API.G_EXCEPTION_ERROR;
1116: END IF;
1117: migrate(lx_srm_rec, l_def_srmv_rec);
1118: -- Set OUT values
1119: x_srmv_rec := l_def_srmv_rec;
1116: END IF;
1117: migrate(lx_srm_rec, l_def_srmv_rec);
1118: -- Set OUT values
1119: x_srmv_rec := l_def_srmv_rec;
1120: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1121: EXCEPTION
1122: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1123: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1124: (
1118: -- Set OUT values
1119: x_srmv_rec := l_def_srmv_rec;
1120: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1121: EXCEPTION
1122: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1123: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1124: (
1125: l_api_name,
1126: G_PKG_NAME,
1119: x_srmv_rec := l_def_srmv_rec;
1120: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1121: EXCEPTION
1122: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1123: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1124: (
1125: l_api_name,
1126: G_PKG_NAME,
1127: 'OKC_API.G_RET_STS_ERROR',
1123: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1124: (
1125: l_api_name,
1126: G_PKG_NAME,
1127: 'OKC_API.G_RET_STS_ERROR',
1128: x_msg_count,
1129: x_msg_data,
1130: '_PVT'
1131: );
1128: x_msg_count,
1129: x_msg_data,
1130: '_PVT'
1131: );
1132: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1133: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1134: (
1135: l_api_name,
1136: G_PKG_NAME,
1129: x_msg_data,
1130: '_PVT'
1131: );
1132: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1133: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1134: (
1135: l_api_name,
1136: G_PKG_NAME,
1137: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1133: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1134: (
1135: l_api_name,
1136: G_PKG_NAME,
1137: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1138: x_msg_count,
1139: x_msg_data,
1140: '_PVT'
1141: );
1139: x_msg_data,
1140: '_PVT'
1141: );
1142: WHEN OTHERS THEN
1143: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1144: (
1145: l_api_name,
1146: G_PKG_NAME,
1147: 'OTHERS',
1154: -- PL/SQL TBL insert_row for:SRMV_TBL --
1155: ----------------------------------------
1156: PROCEDURE insert_row(
1157: p_api_version IN NUMBER,
1158: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1159: x_return_status OUT NOCOPY VARCHAR2,
1160: x_msg_count OUT NOCOPY NUMBER,
1161: x_msg_data OUT NOCOPY VARCHAR2,
1162: p_srmv_tbl IN srmv_tbl_type,
1163: x_srmv_tbl OUT NOCOPY srmv_tbl_type) IS
1164:
1165: l_api_version CONSTANT NUMBER := 1;
1166: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
1167: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1168: i NUMBER := 0;
1169: -- START change : akjain, 11/05/2001
1170: -- Adding OverAll Status Flag
1171: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1167: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1168: i NUMBER := 0;
1169: -- START change : akjain, 11/05/2001
1170: -- Adding OverAll Status Flag
1171: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1172: -- END change : akjain
1173:
1174: BEGIN
1175: OKC_API.init_msg_list(p_init_msg_list);
1171: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1172: -- END change : akjain
1173:
1174: BEGIN
1175: OKC_API.init_msg_list(p_init_msg_list);
1176: -- Make sure PL/SQL table has records in it before passing
1177: IF (p_srmv_tbl.COUNT > 0) THEN
1178: i := p_srmv_tbl.FIRST;
1179: LOOP
1178: i := p_srmv_tbl.FIRST;
1179: LOOP
1180: insert_row (
1181: p_api_version => p_api_version,
1182: p_init_msg_list => OKC_API.G_FALSE,
1183: x_return_status => x_return_status,
1184: x_msg_count => x_msg_count,
1185: x_msg_data => x_msg_data,
1186: p_srmv_rec => p_srmv_tbl(i),
1186: p_srmv_rec => p_srmv_tbl(i),
1187: x_srmv_rec => x_srmv_tbl(i));
1188: -- START change : akjain, 11/05/2001
1189: -- store the highest degree of error
1190: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
1191: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
1192: l_overall_status := x_return_status;
1193: END IF;
1194: END IF;
1187: x_srmv_rec => x_srmv_tbl(i));
1188: -- START change : akjain, 11/05/2001
1189: -- store the highest degree of error
1190: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
1191: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
1192: l_overall_status := x_return_status;
1193: END IF;
1194: END IF;
1195: -- END change : akjain
1203: -- END change : akjain
1204:
1205: END IF;
1206: EXCEPTION
1207: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1208: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1209: (
1210: l_api_name,
1211: G_PKG_NAME,
1204:
1205: END IF;
1206: EXCEPTION
1207: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1208: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1209: (
1210: l_api_name,
1211: G_PKG_NAME,
1212: 'OKC_API.G_RET_STS_ERROR',
1208: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1209: (
1210: l_api_name,
1211: G_PKG_NAME,
1212: 'OKC_API.G_RET_STS_ERROR',
1213: x_msg_count,
1214: x_msg_data,
1215: '_PVT'
1216: );
1213: x_msg_count,
1214: x_msg_data,
1215: '_PVT'
1216: );
1217: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1218: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1219: (
1220: l_api_name,
1221: G_PKG_NAME,
1214: x_msg_data,
1215: '_PVT'
1216: );
1217: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1218: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1219: (
1220: l_api_name,
1221: G_PKG_NAME,
1222: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1218: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1219: (
1220: l_api_name,
1221: G_PKG_NAME,
1222: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1223: x_msg_count,
1224: x_msg_data,
1225: '_PVT'
1226: );
1224: x_msg_data,
1225: '_PVT'
1226: );
1227: WHEN OTHERS THEN
1228: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1229: (
1230: l_api_name,
1231: G_PKG_NAME,
1232: 'OTHERS',
1242: -------------------------------------
1243: -- lock_row for:OKL_SIF_RET_ERRORS --
1244: -------------------------------------
1245: PROCEDURE lock_row(
1246: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1247: x_return_status OUT NOCOPY VARCHAR2,
1248: x_msg_count OUT NOCOPY NUMBER,
1249: x_msg_data OUT NOCOPY VARCHAR2,
1250: p_srm_rec IN srm_rec_type) IS
1263: FROM OKL_SIF_RET_ERRORS
1264: WHERE ID = p_srm_rec.id;
1265: l_api_version CONSTANT NUMBER := 1;
1266: l_api_name CONSTANT VARCHAR2(30) := 'ERRORS_lock_row';
1267: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1268: l_object_version_number OKL_SIF_RET_ERRORS.OBJECT_VERSION_NUMBER%TYPE;
1269: lc_object_version_number OKL_SIF_RET_ERRORS.OBJECT_VERSION_NUMBER%TYPE;
1270: l_row_notfound BOOLEAN := FALSE;
1271: lc_row_notfound BOOLEAN := FALSE;
1269: lc_object_version_number OKL_SIF_RET_ERRORS.OBJECT_VERSION_NUMBER%TYPE;
1270: l_row_notfound BOOLEAN := FALSE;
1271: lc_row_notfound BOOLEAN := FALSE;
1272: BEGIN
1273: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1274: p_init_msg_list,
1275: '_PVT',
1276: x_return_status);
1277: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1273: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1274: p_init_msg_list,
1275: '_PVT',
1276: x_return_status);
1277: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1278: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1279: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1280: RAISE OKC_API.G_EXCEPTION_ERROR;
1281: END IF;
1274: p_init_msg_list,
1275: '_PVT',
1276: x_return_status);
1277: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1278: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1279: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1280: RAISE OKC_API.G_EXCEPTION_ERROR;
1281: END IF;
1282: BEGIN
1275: '_PVT',
1276: x_return_status);
1277: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1278: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1279: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1280: RAISE OKC_API.G_EXCEPTION_ERROR;
1281: END IF;
1282: BEGIN
1283: OPEN lock_csr(p_srm_rec);
1276: x_return_status);
1277: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1278: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1279: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1280: RAISE OKC_API.G_EXCEPTION_ERROR;
1281: END IF;
1282: BEGIN
1283: OPEN lock_csr(p_srm_rec);
1284: FETCH lock_csr INTO l_object_version_number;
1288: WHEN E_Resource_Busy THEN
1289: IF (lock_csr%ISOPEN) THEN
1290: CLOSE lock_csr;
1291: END IF;
1292: OKC_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
1293: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
1294: END;
1295:
1296: IF ( l_row_notfound ) THEN
1299: lc_row_notfound := lchk_csr%NOTFOUND;
1300: CLOSE lchk_csr;
1301: END IF;
1302: IF (lc_row_notfound) THEN
1303: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1304: RAISE OKC_API.G_EXCEPTION_ERROR;
1305: ELSIF lc_object_version_number > p_srm_rec.object_version_number THEN
1306: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1307: RAISE OKC_API.G_EXCEPTION_ERROR;
1300: CLOSE lchk_csr;
1301: END IF;
1302: IF (lc_row_notfound) THEN
1303: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1304: RAISE OKC_API.G_EXCEPTION_ERROR;
1305: ELSIF lc_object_version_number > p_srm_rec.object_version_number THEN
1306: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1307: RAISE OKC_API.G_EXCEPTION_ERROR;
1308: ELSIF lc_object_version_number <> p_srm_rec.object_version_number THEN
1302: IF (lc_row_notfound) THEN
1303: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1304: RAISE OKC_API.G_EXCEPTION_ERROR;
1305: ELSIF lc_object_version_number > p_srm_rec.object_version_number THEN
1306: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1307: RAISE OKC_API.G_EXCEPTION_ERROR;
1308: ELSIF lc_object_version_number <> p_srm_rec.object_version_number THEN
1309: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1310: RAISE OKC_API.G_EXCEPTION_ERROR;
1303: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1304: RAISE OKC_API.G_EXCEPTION_ERROR;
1305: ELSIF lc_object_version_number > p_srm_rec.object_version_number THEN
1306: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1307: RAISE OKC_API.G_EXCEPTION_ERROR;
1308: ELSIF lc_object_version_number <> p_srm_rec.object_version_number THEN
1309: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1310: RAISE OKC_API.G_EXCEPTION_ERROR;
1311: ELSIF lc_object_version_number = -1 THEN
1305: ELSIF lc_object_version_number > p_srm_rec.object_version_number THEN
1306: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1307: RAISE OKC_API.G_EXCEPTION_ERROR;
1308: ELSIF lc_object_version_number <> p_srm_rec.object_version_number THEN
1309: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1310: RAISE OKC_API.G_EXCEPTION_ERROR;
1311: ELSIF lc_object_version_number = -1 THEN
1312: OKC_API.set_message(G_OKC_APP,G_RECORD_LOGICALLY_DELETED);
1313: RAISE OKC_API.G_EXCEPTION_ERROR;
1306: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1307: RAISE OKC_API.G_EXCEPTION_ERROR;
1308: ELSIF lc_object_version_number <> p_srm_rec.object_version_number THEN
1309: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1310: RAISE OKC_API.G_EXCEPTION_ERROR;
1311: ELSIF lc_object_version_number = -1 THEN
1312: OKC_API.set_message(G_OKC_APP,G_RECORD_LOGICALLY_DELETED);
1313: RAISE OKC_API.G_EXCEPTION_ERROR;
1314: END IF;
1308: ELSIF lc_object_version_number <> p_srm_rec.object_version_number THEN
1309: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1310: RAISE OKC_API.G_EXCEPTION_ERROR;
1311: ELSIF lc_object_version_number = -1 THEN
1312: OKC_API.set_message(G_OKC_APP,G_RECORD_LOGICALLY_DELETED);
1313: RAISE OKC_API.G_EXCEPTION_ERROR;
1314: END IF;
1315: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1316: EXCEPTION
1309: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1310: RAISE OKC_API.G_EXCEPTION_ERROR;
1311: ELSIF lc_object_version_number = -1 THEN
1312: OKC_API.set_message(G_OKC_APP,G_RECORD_LOGICALLY_DELETED);
1313: RAISE OKC_API.G_EXCEPTION_ERROR;
1314: END IF;
1315: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1316: EXCEPTION
1317: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1311: ELSIF lc_object_version_number = -1 THEN
1312: OKC_API.set_message(G_OKC_APP,G_RECORD_LOGICALLY_DELETED);
1313: RAISE OKC_API.G_EXCEPTION_ERROR;
1314: END IF;
1315: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1316: EXCEPTION
1317: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1318: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1319: (
1313: RAISE OKC_API.G_EXCEPTION_ERROR;
1314: END IF;
1315: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1316: EXCEPTION
1317: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1318: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1319: (
1320: l_api_name,
1321: G_PKG_NAME,
1314: END IF;
1315: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1316: EXCEPTION
1317: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1318: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1319: (
1320: l_api_name,
1321: G_PKG_NAME,
1322: 'OKC_API.G_RET_STS_ERROR',
1318: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1319: (
1320: l_api_name,
1321: G_PKG_NAME,
1322: 'OKC_API.G_RET_STS_ERROR',
1323: x_msg_count,
1324: x_msg_data,
1325: '_PVT'
1326: );
1323: x_msg_count,
1324: x_msg_data,
1325: '_PVT'
1326: );
1327: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1328: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1329: (
1330: l_api_name,
1331: G_PKG_NAME,
1324: x_msg_data,
1325: '_PVT'
1326: );
1327: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1328: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1329: (
1330: l_api_name,
1331: G_PKG_NAME,
1332: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1328: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1329: (
1330: l_api_name,
1331: G_PKG_NAME,
1332: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1333: x_msg_count,
1334: x_msg_data,
1335: '_PVT'
1336: );
1334: x_msg_data,
1335: '_PVT'
1336: );
1337: WHEN OTHERS THEN
1338: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1339: (
1340: l_api_name,
1341: G_PKG_NAME,
1342: 'OTHERS',
1349: -- lock_row for:OKL_SIF_RET_ERRORS_V --
1350: ---------------------------------------
1351: PROCEDURE lock_row(
1352: p_api_version IN NUMBER,
1353: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1354: x_return_status OUT NOCOPY VARCHAR2,
1355: x_msg_count OUT NOCOPY NUMBER,
1356: x_msg_data OUT NOCOPY VARCHAR2,
1357: p_srmv_rec IN srmv_rec_type) IS
1357: p_srmv_rec IN srmv_rec_type) IS
1358:
1359: l_api_version CONSTANT NUMBER := 1;
1360: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
1361: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1362: l_srm_rec srm_rec_type;
1363: BEGIN
1364: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1365: G_PKG_NAME,
1360: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
1361: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1362: l_srm_rec srm_rec_type;
1363: BEGIN
1364: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1365: G_PKG_NAME,
1366: p_init_msg_list,
1367: l_api_version,
1368: p_api_version,
1367: l_api_version,
1368: p_api_version,
1369: '_PVT',
1370: x_return_status);
1371: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1372: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1373: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1374: RAISE OKC_API.G_EXCEPTION_ERROR;
1375: END IF;
1368: p_api_version,
1369: '_PVT',
1370: x_return_status);
1371: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1372: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1373: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1374: RAISE OKC_API.G_EXCEPTION_ERROR;
1375: END IF;
1376: --------------------------------------
1369: '_PVT',
1370: x_return_status);
1371: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1372: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1373: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1374: RAISE OKC_API.G_EXCEPTION_ERROR;
1375: END IF;
1376: --------------------------------------
1377: -- Move VIEW record to "Child" records
1370: x_return_status);
1371: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1372: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1373: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1374: RAISE OKC_API.G_EXCEPTION_ERROR;
1375: END IF;
1376: --------------------------------------
1377: -- Move VIEW record to "Child" records
1378: --------------------------------------
1386: x_msg_count,
1387: x_msg_data,
1388: l_srm_rec
1389: );
1390: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1391: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1392: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1393: RAISE OKC_API.G_EXCEPTION_ERROR;
1394: END IF;
1387: x_msg_data,
1388: l_srm_rec
1389: );
1390: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1391: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1392: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1393: RAISE OKC_API.G_EXCEPTION_ERROR;
1394: END IF;
1395: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1388: l_srm_rec
1389: );
1390: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1391: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1392: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1393: RAISE OKC_API.G_EXCEPTION_ERROR;
1394: END IF;
1395: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1396: EXCEPTION
1389: );
1390: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1391: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1392: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1393: RAISE OKC_API.G_EXCEPTION_ERROR;
1394: END IF;
1395: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1396: EXCEPTION
1397: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1391: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1392: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1393: RAISE OKC_API.G_EXCEPTION_ERROR;
1394: END IF;
1395: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1396: EXCEPTION
1397: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1398: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1399: (
1393: RAISE OKC_API.G_EXCEPTION_ERROR;
1394: END IF;
1395: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1396: EXCEPTION
1397: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1398: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1399: (
1400: l_api_name,
1401: G_PKG_NAME,
1394: END IF;
1395: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1396: EXCEPTION
1397: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1398: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1399: (
1400: l_api_name,
1401: G_PKG_NAME,
1402: 'OKC_API.G_RET_STS_ERROR',
1398: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1399: (
1400: l_api_name,
1401: G_PKG_NAME,
1402: 'OKC_API.G_RET_STS_ERROR',
1403: x_msg_count,
1404: x_msg_data,
1405: '_PVT'
1406: );
1403: x_msg_count,
1404: x_msg_data,
1405: '_PVT'
1406: );
1407: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1408: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1409: (
1410: l_api_name,
1411: G_PKG_NAME,
1404: x_msg_data,
1405: '_PVT'
1406: );
1407: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1408: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1409: (
1410: l_api_name,
1411: G_PKG_NAME,
1412: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1408: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1409: (
1410: l_api_name,
1411: G_PKG_NAME,
1412: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1413: x_msg_count,
1414: x_msg_data,
1415: '_PVT'
1416: );
1414: x_msg_data,
1415: '_PVT'
1416: );
1417: WHEN OTHERS THEN
1418: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1419: (
1420: l_api_name,
1421: G_PKG_NAME,
1422: 'OTHERS',
1429: -- PL/SQL TBL lock_row for:SRMV_TBL --
1430: --------------------------------------
1431: PROCEDURE lock_row(
1432: p_api_version IN NUMBER,
1433: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1434: x_return_status OUT NOCOPY VARCHAR2,
1435: x_msg_count OUT NOCOPY NUMBER,
1436: x_msg_data OUT NOCOPY VARCHAR2,
1437: p_srmv_tbl IN srmv_tbl_type) IS
1437: p_srmv_tbl IN srmv_tbl_type) IS
1438:
1439: l_api_version CONSTANT NUMBER := 1;
1440: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
1441: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1442: i NUMBER := 0;
1443: -- START change : akjain, 11/05/2001
1444: -- Adding OverAll Status Flag
1445: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1441: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1442: i NUMBER := 0;
1443: -- START change : akjain, 11/05/2001
1444: -- Adding OverAll Status Flag
1445: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1446: -- END change : akjain
1447:
1448: BEGIN
1449: OKC_API.init_msg_list(p_init_msg_list);
1445: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1446: -- END change : akjain
1447:
1448: BEGIN
1449: OKC_API.init_msg_list(p_init_msg_list);
1450: -- Make sure PL/SQL table has records in it before passing
1451: IF (p_srmv_tbl.COUNT > 0) THEN
1452: i := p_srmv_tbl.FIRST;
1453: LOOP
1452: i := p_srmv_tbl.FIRST;
1453: LOOP
1454: lock_row (
1455: p_api_version => p_api_version,
1456: p_init_msg_list => OKC_API.G_FALSE,
1457: x_return_status => x_return_status,
1458: x_msg_count => x_msg_count,
1459: x_msg_data => x_msg_data,
1460: p_srmv_rec => p_srmv_tbl(i));
1459: x_msg_data => x_msg_data,
1460: p_srmv_rec => p_srmv_tbl(i));
1461: -- START change : akjain, 11/05/2001
1462: -- store the highest degree of error
1463: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
1464: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
1465: l_overall_status := x_return_status;
1466: END IF;
1467: END IF;
1460: p_srmv_rec => p_srmv_tbl(i));
1461: -- START change : akjain, 11/05/2001
1462: -- store the highest degree of error
1463: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
1464: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
1465: l_overall_status := x_return_status;
1466: END IF;
1467: END IF;
1468: -- END change : akjain
1476: -- END change : akjain
1477:
1478: END IF;
1479: EXCEPTION
1480: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1481: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1482: (
1483: l_api_name,
1484: G_PKG_NAME,
1477:
1478: END IF;
1479: EXCEPTION
1480: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1481: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1482: (
1483: l_api_name,
1484: G_PKG_NAME,
1485: 'OKC_API.G_RET_STS_ERROR',
1481: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1482: (
1483: l_api_name,
1484: G_PKG_NAME,
1485: 'OKC_API.G_RET_STS_ERROR',
1486: x_msg_count,
1487: x_msg_data,
1488: '_PVT'
1489: );
1486: x_msg_count,
1487: x_msg_data,
1488: '_PVT'
1489: );
1490: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1491: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1492: (
1493: l_api_name,
1494: G_PKG_NAME,
1487: x_msg_data,
1488: '_PVT'
1489: );
1490: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1491: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1492: (
1493: l_api_name,
1494: G_PKG_NAME,
1495: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1491: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1492: (
1493: l_api_name,
1494: G_PKG_NAME,
1495: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1496: x_msg_count,
1497: x_msg_data,
1498: '_PVT'
1499: );
1497: x_msg_data,
1498: '_PVT'
1499: );
1500: WHEN OTHERS THEN
1501: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1502: (
1503: l_api_name,
1504: G_PKG_NAME,
1505: 'OTHERS',
1515: ---------------------------------------
1516: -- update_row for:OKL_SIF_RET_ERRORS --
1517: ---------------------------------------
1518: PROCEDURE update_row(
1519: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1520: x_return_status OUT NOCOPY VARCHAR2,
1521: x_msg_count OUT NOCOPY NUMBER,
1522: x_msg_data OUT NOCOPY VARCHAR2,
1523: p_srm_rec IN srm_rec_type,
1524: x_srm_rec OUT NOCOPY srm_rec_type) IS
1525:
1526: l_api_version CONSTANT NUMBER := 1;
1527: l_api_name CONSTANT VARCHAR2(30) := 'ERRORS_update_row';
1528: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1529: l_srm_rec srm_rec_type := p_srm_rec;
1530: l_def_srm_rec srm_rec_type;
1531: l_row_notfound BOOLEAN := TRUE;
1532: ----------------------------------
1537: x_srm_rec OUT NOCOPY srm_rec_type
1538: ) RETURN VARCHAR2 IS
1539: l_srm_rec srm_rec_type;
1540: l_row_notfound BOOLEAN := TRUE;
1541: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1542: BEGIN
1543: x_srm_rec := p_srm_rec;
1544: -- Get current database values
1545: l_srm_rec := get_rec(p_srm_rec, l_row_notfound);
1543: x_srm_rec := p_srm_rec;
1544: -- Get current database values
1545: l_srm_rec := get_rec(p_srm_rec, l_row_notfound);
1546: IF (l_row_notfound) THEN
1547: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1548: END IF;
1549: IF (x_srm_rec.id = OKC_API.G_MISS_NUM)
1550: THEN
1551: x_srm_rec.id := l_srm_rec.id;
1545: l_srm_rec := get_rec(p_srm_rec, l_row_notfound);
1546: IF (l_row_notfound) THEN
1547: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1548: END IF;
1549: IF (x_srm_rec.id = OKC_API.G_MISS_NUM)
1550: THEN
1551: x_srm_rec.id := l_srm_rec.id;
1552: END IF;
1553: IF (x_srm_rec.sir_id = OKC_API.G_MISS_NUM)
1549: IF (x_srm_rec.id = OKC_API.G_MISS_NUM)
1550: THEN
1551: x_srm_rec.id := l_srm_rec.id;
1552: END IF;
1553: IF (x_srm_rec.sir_id = OKC_API.G_MISS_NUM)
1554: THEN
1555: x_srm_rec.sir_id := l_srm_rec.sir_id;
1556: END IF;
1557: IF (x_srm_rec.error_code = OKC_API.G_MISS_CHAR)
1553: IF (x_srm_rec.sir_id = OKC_API.G_MISS_NUM)
1554: THEN
1555: x_srm_rec.sir_id := l_srm_rec.sir_id;
1556: END IF;
1557: IF (x_srm_rec.error_code = OKC_API.G_MISS_CHAR)
1558: THEN
1559: x_srm_rec.error_code := l_srm_rec.error_code;
1560: END IF;
1561: IF (x_srm_rec.error_message = OKC_API.G_MISS_CHAR)
1557: IF (x_srm_rec.error_code = OKC_API.G_MISS_CHAR)
1558: THEN
1559: x_srm_rec.error_code := l_srm_rec.error_code;
1560: END IF;
1561: IF (x_srm_rec.error_message = OKC_API.G_MISS_CHAR)
1562: THEN
1563: x_srm_rec.error_message := l_srm_rec.error_message;
1564: END IF;
1565: IF (x_srm_rec.tag_name = OKC_API.G_MISS_CHAR)
1561: IF (x_srm_rec.error_message = OKC_API.G_MISS_CHAR)
1562: THEN
1563: x_srm_rec.error_message := l_srm_rec.error_message;
1564: END IF;
1565: IF (x_srm_rec.tag_name = OKC_API.G_MISS_CHAR)
1566: THEN
1567: x_srm_rec.tag_name := l_srm_rec.tag_name;
1568: END IF;
1569: IF (x_srm_rec.tag_attribute_name = OKC_API.G_MISS_CHAR)
1565: IF (x_srm_rec.tag_name = OKC_API.G_MISS_CHAR)
1566: THEN
1567: x_srm_rec.tag_name := l_srm_rec.tag_name;
1568: END IF;
1569: IF (x_srm_rec.tag_attribute_name = OKC_API.G_MISS_CHAR)
1570: THEN
1571: x_srm_rec.tag_attribute_name := l_srm_rec.tag_attribute_name;
1572: END IF;
1573: IF (x_srm_rec.tag_attribute_value = OKC_API.G_MISS_CHAR)
1569: IF (x_srm_rec.tag_attribute_name = OKC_API.G_MISS_CHAR)
1570: THEN
1571: x_srm_rec.tag_attribute_name := l_srm_rec.tag_attribute_name;
1572: END IF;
1573: IF (x_srm_rec.tag_attribute_value = OKC_API.G_MISS_CHAR)
1574: THEN
1575: x_srm_rec.tag_attribute_value := l_srm_rec.tag_attribute_value;
1576: END IF;
1577: IF (x_srm_rec.description = OKC_API.G_MISS_CHAR)
1573: IF (x_srm_rec.tag_attribute_value = OKC_API.G_MISS_CHAR)
1574: THEN
1575: x_srm_rec.tag_attribute_value := l_srm_rec.tag_attribute_value;
1576: END IF;
1577: IF (x_srm_rec.description = OKC_API.G_MISS_CHAR)
1578: THEN
1579: x_srm_rec.description := l_srm_rec.description;
1580: END IF;
1581: IF (x_srm_rec.stream_interface_attribute01 = OKC_API.G_MISS_CHAR)
1577: IF (x_srm_rec.description = OKC_API.G_MISS_CHAR)
1578: THEN
1579: x_srm_rec.description := l_srm_rec.description;
1580: END IF;
1581: IF (x_srm_rec.stream_interface_attribute01 = OKC_API.G_MISS_CHAR)
1582: THEN
1583: x_srm_rec.stream_interface_attribute01 := l_srm_rec.stream_interface_attribute01;
1584: END IF;
1585: IF (x_srm_rec.stream_interface_attribute02 = OKC_API.G_MISS_CHAR)
1581: IF (x_srm_rec.stream_interface_attribute01 = OKC_API.G_MISS_CHAR)
1582: THEN
1583: x_srm_rec.stream_interface_attribute01 := l_srm_rec.stream_interface_attribute01;
1584: END IF;
1585: IF (x_srm_rec.stream_interface_attribute02 = OKC_API.G_MISS_CHAR)
1586: THEN
1587: x_srm_rec.stream_interface_attribute02 := l_srm_rec.stream_interface_attribute02;
1588: END IF;
1589: IF (x_srm_rec.stream_interface_attribute03 = OKC_API.G_MISS_CHAR)
1585: IF (x_srm_rec.stream_interface_attribute02 = OKC_API.G_MISS_CHAR)
1586: THEN
1587: x_srm_rec.stream_interface_attribute02 := l_srm_rec.stream_interface_attribute02;
1588: END IF;
1589: IF (x_srm_rec.stream_interface_attribute03 = OKC_API.G_MISS_CHAR)
1590: THEN
1591: x_srm_rec.stream_interface_attribute03 := l_srm_rec.stream_interface_attribute03;
1592: END IF;
1593: IF (x_srm_rec.stream_interface_attribute04 = OKC_API.G_MISS_CHAR)
1589: IF (x_srm_rec.stream_interface_attribute03 = OKC_API.G_MISS_CHAR)
1590: THEN
1591: x_srm_rec.stream_interface_attribute03 := l_srm_rec.stream_interface_attribute03;
1592: END IF;
1593: IF (x_srm_rec.stream_interface_attribute04 = OKC_API.G_MISS_CHAR)
1594: THEN
1595: x_srm_rec.stream_interface_attribute04 := l_srm_rec.stream_interface_attribute04;
1596: END IF;
1597: IF (x_srm_rec.stream_interface_attribute05 = OKC_API.G_MISS_CHAR)
1593: IF (x_srm_rec.stream_interface_attribute04 = OKC_API.G_MISS_CHAR)
1594: THEN
1595: x_srm_rec.stream_interface_attribute04 := l_srm_rec.stream_interface_attribute04;
1596: END IF;
1597: IF (x_srm_rec.stream_interface_attribute05 = OKC_API.G_MISS_CHAR)
1598: THEN
1599: x_srm_rec.stream_interface_attribute05 := l_srm_rec.stream_interface_attribute05;
1600: END IF;
1601: IF (x_srm_rec.stream_interface_attribute06 = OKC_API.G_MISS_CHAR)
1597: IF (x_srm_rec.stream_interface_attribute05 = OKC_API.G_MISS_CHAR)
1598: THEN
1599: x_srm_rec.stream_interface_attribute05 := l_srm_rec.stream_interface_attribute05;
1600: END IF;
1601: IF (x_srm_rec.stream_interface_attribute06 = OKC_API.G_MISS_CHAR)
1602: THEN
1603: x_srm_rec.stream_interface_attribute06 := l_srm_rec.stream_interface_attribute06;
1604: END IF;
1605: IF (x_srm_rec.stream_interface_attribute07 = OKC_API.G_MISS_CHAR)
1601: IF (x_srm_rec.stream_interface_attribute06 = OKC_API.G_MISS_CHAR)
1602: THEN
1603: x_srm_rec.stream_interface_attribute06 := l_srm_rec.stream_interface_attribute06;
1604: END IF;
1605: IF (x_srm_rec.stream_interface_attribute07 = OKC_API.G_MISS_CHAR)
1606: THEN
1607: x_srm_rec.stream_interface_attribute07 := l_srm_rec.stream_interface_attribute07;
1608: END IF;
1609: IF (x_srm_rec.stream_interface_attribute08 = OKC_API.G_MISS_CHAR)
1605: IF (x_srm_rec.stream_interface_attribute07 = OKC_API.G_MISS_CHAR)
1606: THEN
1607: x_srm_rec.stream_interface_attribute07 := l_srm_rec.stream_interface_attribute07;
1608: END IF;
1609: IF (x_srm_rec.stream_interface_attribute08 = OKC_API.G_MISS_CHAR)
1610: THEN
1611: x_srm_rec.stream_interface_attribute08 := l_srm_rec.stream_interface_attribute08;
1612: END IF;
1613: IF (x_srm_rec.stream_interface_attribute09 = OKC_API.G_MISS_CHAR)
1609: IF (x_srm_rec.stream_interface_attribute08 = OKC_API.G_MISS_CHAR)
1610: THEN
1611: x_srm_rec.stream_interface_attribute08 := l_srm_rec.stream_interface_attribute08;
1612: END IF;
1613: IF (x_srm_rec.stream_interface_attribute09 = OKC_API.G_MISS_CHAR)
1614: THEN
1615: x_srm_rec.stream_interface_attribute09 := l_srm_rec.stream_interface_attribute09;
1616: END IF;
1617: IF (x_srm_rec.stream_interface_attribute10 = OKC_API.G_MISS_CHAR)
1613: IF (x_srm_rec.stream_interface_attribute09 = OKC_API.G_MISS_CHAR)
1614: THEN
1615: x_srm_rec.stream_interface_attribute09 := l_srm_rec.stream_interface_attribute09;
1616: END IF;
1617: IF (x_srm_rec.stream_interface_attribute10 = OKC_API.G_MISS_CHAR)
1618: THEN
1619: x_srm_rec.stream_interface_attribute10 := l_srm_rec.stream_interface_attribute10;
1620: END IF;
1621: IF (x_srm_rec.stream_interface_attribute11 = OKC_API.G_MISS_CHAR)
1617: IF (x_srm_rec.stream_interface_attribute10 = OKC_API.G_MISS_CHAR)
1618: THEN
1619: x_srm_rec.stream_interface_attribute10 := l_srm_rec.stream_interface_attribute10;
1620: END IF;
1621: IF (x_srm_rec.stream_interface_attribute11 = OKC_API.G_MISS_CHAR)
1622: THEN
1623: x_srm_rec.stream_interface_attribute11 := l_srm_rec.stream_interface_attribute11;
1624: END IF;
1625: IF (x_srm_rec.stream_interface_attribute12 = OKC_API.G_MISS_CHAR)
1621: IF (x_srm_rec.stream_interface_attribute11 = OKC_API.G_MISS_CHAR)
1622: THEN
1623: x_srm_rec.stream_interface_attribute11 := l_srm_rec.stream_interface_attribute11;
1624: END IF;
1625: IF (x_srm_rec.stream_interface_attribute12 = OKC_API.G_MISS_CHAR)
1626: THEN
1627: x_srm_rec.stream_interface_attribute12 := l_srm_rec.stream_interface_attribute12;
1628: END IF;
1629: IF (x_srm_rec.stream_interface_attribute13 = OKC_API.G_MISS_CHAR)
1625: IF (x_srm_rec.stream_interface_attribute12 = OKC_API.G_MISS_CHAR)
1626: THEN
1627: x_srm_rec.stream_interface_attribute12 := l_srm_rec.stream_interface_attribute12;
1628: END IF;
1629: IF (x_srm_rec.stream_interface_attribute13 = OKC_API.G_MISS_CHAR)
1630: THEN
1631: x_srm_rec.stream_interface_attribute13 := l_srm_rec.stream_interface_attribute13;
1632: END IF;
1633: IF (x_srm_rec.stream_interface_attribute14 = OKC_API.G_MISS_CHAR)
1629: IF (x_srm_rec.stream_interface_attribute13 = OKC_API.G_MISS_CHAR)
1630: THEN
1631: x_srm_rec.stream_interface_attribute13 := l_srm_rec.stream_interface_attribute13;
1632: END IF;
1633: IF (x_srm_rec.stream_interface_attribute14 = OKC_API.G_MISS_CHAR)
1634: THEN
1635: x_srm_rec.stream_interface_attribute14 := l_srm_rec.stream_interface_attribute14;
1636: END IF;
1637: IF (x_srm_rec.stream_interface_attribute15 = OKC_API.G_MISS_CHAR)
1633: IF (x_srm_rec.stream_interface_attribute14 = OKC_API.G_MISS_CHAR)
1634: THEN
1635: x_srm_rec.stream_interface_attribute14 := l_srm_rec.stream_interface_attribute14;
1636: END IF;
1637: IF (x_srm_rec.stream_interface_attribute15 = OKC_API.G_MISS_CHAR)
1638: THEN
1639: x_srm_rec.stream_interface_attribute15 := l_srm_rec.stream_interface_attribute15;
1640: END IF;
1641: IF (x_srm_rec.object_version_number = OKC_API.G_MISS_NUM)
1637: IF (x_srm_rec.stream_interface_attribute15 = OKC_API.G_MISS_CHAR)
1638: THEN
1639: x_srm_rec.stream_interface_attribute15 := l_srm_rec.stream_interface_attribute15;
1640: END IF;
1641: IF (x_srm_rec.object_version_number = OKC_API.G_MISS_NUM)
1642: THEN
1643: x_srm_rec.object_version_number := l_srm_rec.object_version_number;
1644: END IF;
1645: IF (x_srm_rec.created_by = OKC_API.G_MISS_NUM)
1641: IF (x_srm_rec.object_version_number = OKC_API.G_MISS_NUM)
1642: THEN
1643: x_srm_rec.object_version_number := l_srm_rec.object_version_number;
1644: END IF;
1645: IF (x_srm_rec.created_by = OKC_API.G_MISS_NUM)
1646: THEN
1647: x_srm_rec.created_by := l_srm_rec.created_by;
1648: END IF;
1649: IF (x_srm_rec.last_updated_by = OKC_API.G_MISS_NUM)
1645: IF (x_srm_rec.created_by = OKC_API.G_MISS_NUM)
1646: THEN
1647: x_srm_rec.created_by := l_srm_rec.created_by;
1648: END IF;
1649: IF (x_srm_rec.last_updated_by = OKC_API.G_MISS_NUM)
1650: THEN
1651: x_srm_rec.last_updated_by := l_srm_rec.last_updated_by;
1652: END IF;
1653: IF (x_srm_rec.creation_date = OKC_API.G_MISS_DATE)
1649: IF (x_srm_rec.last_updated_by = OKC_API.G_MISS_NUM)
1650: THEN
1651: x_srm_rec.last_updated_by := l_srm_rec.last_updated_by;
1652: END IF;
1653: IF (x_srm_rec.creation_date = OKC_API.G_MISS_DATE)
1654: THEN
1655: x_srm_rec.creation_date := l_srm_rec.creation_date;
1656: END IF;
1657: IF (x_srm_rec.last_update_date = OKC_API.G_MISS_DATE)
1653: IF (x_srm_rec.creation_date = OKC_API.G_MISS_DATE)
1654: THEN
1655: x_srm_rec.creation_date := l_srm_rec.creation_date;
1656: END IF;
1657: IF (x_srm_rec.last_update_date = OKC_API.G_MISS_DATE)
1658: THEN
1659: x_srm_rec.last_update_date := l_srm_rec.last_update_date;
1660: END IF;
1661: IF (x_srm_rec.last_update_login = OKC_API.G_MISS_NUM)
1657: IF (x_srm_rec.last_update_date = OKC_API.G_MISS_DATE)
1658: THEN
1659: x_srm_rec.last_update_date := l_srm_rec.last_update_date;
1660: END IF;
1661: IF (x_srm_rec.last_update_login = OKC_API.G_MISS_NUM)
1662: THEN
1663: x_srm_rec.last_update_login := l_srm_rec.last_update_login;
1664: END IF;
1665: RETURN(l_return_status);
1670: FUNCTION Set_Attributes (
1671: p_srm_rec IN srm_rec_type,
1672: x_srm_rec OUT NOCOPY srm_rec_type
1673: ) RETURN VARCHAR2 IS
1674: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1675: BEGIN
1676: x_srm_rec := p_srm_rec;
1677: RETURN(l_return_status);
1678: END Set_Attributes;
1676: x_srm_rec := p_srm_rec;
1677: RETURN(l_return_status);
1678: END Set_Attributes;
1679: BEGIN
1680: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1681: p_init_msg_list,
1682: '_PVT',
1683: x_return_status);
1684: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1680: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1681: p_init_msg_list,
1682: '_PVT',
1683: x_return_status);
1684: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1685: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1686: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1687: RAISE OKC_API.G_EXCEPTION_ERROR;
1688: END IF;
1681: p_init_msg_list,
1682: '_PVT',
1683: x_return_status);
1684: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1685: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1686: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1687: RAISE OKC_API.G_EXCEPTION_ERROR;
1688: END IF;
1689: --- Setting item attributes
1682: '_PVT',
1683: x_return_status);
1684: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1685: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1686: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1687: RAISE OKC_API.G_EXCEPTION_ERROR;
1688: END IF;
1689: --- Setting item attributes
1690: l_return_status := Set_Attributes(
1683: x_return_status);
1684: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1685: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1686: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1687: RAISE OKC_API.G_EXCEPTION_ERROR;
1688: END IF;
1689: --- Setting item attributes
1690: l_return_status := Set_Attributes(
1691: p_srm_rec, -- IN
1690: l_return_status := Set_Attributes(
1691: p_srm_rec, -- IN
1692: l_srm_rec); -- OUT
1693: --- If any errors happen abort API
1694: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1695: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1696: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1697: RAISE OKC_API.G_EXCEPTION_ERROR;
1698: END IF;
1691: p_srm_rec, -- IN
1692: l_srm_rec); -- OUT
1693: --- If any errors happen abort API
1694: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1695: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1696: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1697: RAISE OKC_API.G_EXCEPTION_ERROR;
1698: END IF;
1699: l_return_status := populate_new_record(l_srm_rec, l_def_srm_rec);
1692: l_srm_rec); -- OUT
1693: --- If any errors happen abort API
1694: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1695: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1696: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1697: RAISE OKC_API.G_EXCEPTION_ERROR;
1698: END IF;
1699: l_return_status := populate_new_record(l_srm_rec, l_def_srm_rec);
1700: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1693: --- If any errors happen abort API
1694: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1695: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1696: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1697: RAISE OKC_API.G_EXCEPTION_ERROR;
1698: END IF;
1699: l_return_status := populate_new_record(l_srm_rec, l_def_srm_rec);
1700: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1701: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1696: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1697: RAISE OKC_API.G_EXCEPTION_ERROR;
1698: END IF;
1699: l_return_status := populate_new_record(l_srm_rec, l_def_srm_rec);
1700: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1701: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1702: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1703: RAISE OKC_API.G_EXCEPTION_ERROR;
1704: END IF;
1697: RAISE OKC_API.G_EXCEPTION_ERROR;
1698: END IF;
1699: l_return_status := populate_new_record(l_srm_rec, l_def_srm_rec);
1700: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1701: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1702: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1703: RAISE OKC_API.G_EXCEPTION_ERROR;
1704: END IF;
1705: UPDATE OKL_SIF_RET_ERRORS
1698: END IF;
1699: l_return_status := populate_new_record(l_srm_rec, l_def_srm_rec);
1700: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1701: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1702: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1703: RAISE OKC_API.G_EXCEPTION_ERROR;
1704: END IF;
1705: UPDATE OKL_SIF_RET_ERRORS
1706: SET SIR_ID = l_def_srm_rec.sir_id,
1699: l_return_status := populate_new_record(l_srm_rec, l_def_srm_rec);
1700: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1701: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1702: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1703: RAISE OKC_API.G_EXCEPTION_ERROR;
1704: END IF;
1705: UPDATE OKL_SIF_RET_ERRORS
1706: SET SIR_ID = l_def_srm_rec.sir_id,
1707: ERROR_CODE = l_def_srm_rec.error_code,
1733: LAST_UPDATE_LOGIN = l_def_srm_rec.last_update_login
1734: WHERE ID = l_def_srm_rec.id;
1735:
1736: x_srm_rec := l_def_srm_rec;
1737: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1738: EXCEPTION
1739: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1740: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1741: (
1735:
1736: x_srm_rec := l_def_srm_rec;
1737: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1738: EXCEPTION
1739: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1740: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1741: (
1742: l_api_name,
1743: G_PKG_NAME,
1736: x_srm_rec := l_def_srm_rec;
1737: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1738: EXCEPTION
1739: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1740: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1741: (
1742: l_api_name,
1743: G_PKG_NAME,
1744: 'OKC_API.G_RET_STS_ERROR',
1740: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1741: (
1742: l_api_name,
1743: G_PKG_NAME,
1744: 'OKC_API.G_RET_STS_ERROR',
1745: x_msg_count,
1746: x_msg_data,
1747: '_PVT'
1748: );
1745: x_msg_count,
1746: x_msg_data,
1747: '_PVT'
1748: );
1749: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1750: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1751: (
1752: l_api_name,
1753: G_PKG_NAME,
1746: x_msg_data,
1747: '_PVT'
1748: );
1749: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1750: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1751: (
1752: l_api_name,
1753: G_PKG_NAME,
1754: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1750: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1751: (
1752: l_api_name,
1753: G_PKG_NAME,
1754: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1755: x_msg_count,
1756: x_msg_data,
1757: '_PVT'
1758: );
1756: x_msg_data,
1757: '_PVT'
1758: );
1759: WHEN OTHERS THEN
1760: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1761: (
1762: l_api_name,
1763: G_PKG_NAME,
1764: 'OTHERS',
1771: -- update_row for:OKL_SIF_RET_ERRORS_V --
1772: -----------------------------------------
1773: PROCEDURE update_row(
1774: p_api_version IN NUMBER,
1775: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1776: x_return_status OUT NOCOPY VARCHAR2,
1777: x_msg_count OUT NOCOPY NUMBER,
1778: x_msg_data OUT NOCOPY VARCHAR2,
1779: p_srmv_rec IN srmv_rec_type,
1780: x_srmv_rec OUT NOCOPY srmv_rec_type) IS
1781:
1782: l_api_version CONSTANT NUMBER := 1;
1783: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
1784: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1785: l_srmv_rec srmv_rec_type := p_srmv_rec;
1786: l_def_srmv_rec srmv_rec_type;
1787: l_srm_rec srm_rec_type;
1788: lx_srm_rec srm_rec_type;
1807: x_srmv_rec OUT NOCOPY srmv_rec_type
1808: ) RETURN VARCHAR2 IS
1809: l_srmv_rec srmv_rec_type;
1810: l_row_notfound BOOLEAN := TRUE;
1811: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1812: BEGIN
1813: x_srmv_rec := p_srmv_rec;
1814: -- Get current database values
1815: l_srmv_rec := get_rec(p_srmv_rec, l_row_notfound);
1813: x_srmv_rec := p_srmv_rec;
1814: -- Get current database values
1815: l_srmv_rec := get_rec(p_srmv_rec, l_row_notfound);
1816: IF (l_row_notfound) THEN
1817: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1818: END IF;
1819: IF (x_srmv_rec.id = OKC_API.G_MISS_NUM)
1820: THEN
1821: x_srmv_rec.id := l_srmv_rec.id;
1815: l_srmv_rec := get_rec(p_srmv_rec, l_row_notfound);
1816: IF (l_row_notfound) THEN
1817: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1818: END IF;
1819: IF (x_srmv_rec.id = OKC_API.G_MISS_NUM)
1820: THEN
1821: x_srmv_rec.id := l_srmv_rec.id;
1822: END IF;
1823: IF (x_srmv_rec.error_code = OKC_API.G_MISS_CHAR)
1819: IF (x_srmv_rec.id = OKC_API.G_MISS_NUM)
1820: THEN
1821: x_srmv_rec.id := l_srmv_rec.id;
1822: END IF;
1823: IF (x_srmv_rec.error_code = OKC_API.G_MISS_CHAR)
1824: THEN
1825: x_srmv_rec.error_code := l_srmv_rec.error_code;
1826: END IF;
1827: IF (x_srmv_rec.description = OKC_API.G_MISS_CHAR)
1823: IF (x_srmv_rec.error_code = OKC_API.G_MISS_CHAR)
1824: THEN
1825: x_srmv_rec.error_code := l_srmv_rec.error_code;
1826: END IF;
1827: IF (x_srmv_rec.description = OKC_API.G_MISS_CHAR)
1828: THEN
1829: x_srmv_rec.description := l_srmv_rec.description;
1830: END IF;
1831: IF (x_srmv_rec.tag_attribute_name = OKC_API.G_MISS_CHAR)
1827: IF (x_srmv_rec.description = OKC_API.G_MISS_CHAR)
1828: THEN
1829: x_srmv_rec.description := l_srmv_rec.description;
1830: END IF;
1831: IF (x_srmv_rec.tag_attribute_name = OKC_API.G_MISS_CHAR)
1832: THEN
1833: x_srmv_rec.tag_attribute_name := l_srmv_rec.tag_attribute_name;
1834: END IF;
1835: IF (x_srmv_rec.tag_name = OKC_API.G_MISS_CHAR)
1831: IF (x_srmv_rec.tag_attribute_name = OKC_API.G_MISS_CHAR)
1832: THEN
1833: x_srmv_rec.tag_attribute_name := l_srmv_rec.tag_attribute_name;
1834: END IF;
1835: IF (x_srmv_rec.tag_name = OKC_API.G_MISS_CHAR)
1836: THEN
1837: x_srmv_rec.tag_name := l_srmv_rec.tag_name;
1838: END IF;
1839: IF (x_srmv_rec.sir_id = OKC_API.G_MISS_NUM)
1835: IF (x_srmv_rec.tag_name = OKC_API.G_MISS_CHAR)
1836: THEN
1837: x_srmv_rec.tag_name := l_srmv_rec.tag_name;
1838: END IF;
1839: IF (x_srmv_rec.sir_id = OKC_API.G_MISS_NUM)
1840: THEN
1841: x_srmv_rec.sir_id := l_srmv_rec.sir_id;
1842: END IF;
1843: IF (x_srmv_rec.error_message = OKC_API.G_MISS_CHAR)
1839: IF (x_srmv_rec.sir_id = OKC_API.G_MISS_NUM)
1840: THEN
1841: x_srmv_rec.sir_id := l_srmv_rec.sir_id;
1842: END IF;
1843: IF (x_srmv_rec.error_message = OKC_API.G_MISS_CHAR)
1844: THEN
1845: x_srmv_rec.error_message := l_srmv_rec.error_message;
1846: END IF;
1847: IF (x_srmv_rec.tag_attribute_value = OKC_API.G_MISS_CHAR)
1843: IF (x_srmv_rec.error_message = OKC_API.G_MISS_CHAR)
1844: THEN
1845: x_srmv_rec.error_message := l_srmv_rec.error_message;
1846: END IF;
1847: IF (x_srmv_rec.tag_attribute_value = OKC_API.G_MISS_CHAR)
1848: THEN
1849: x_srmv_rec.tag_attribute_value := l_srmv_rec.tag_attribute_value;
1850: END IF;
1851: IF (x_srmv_rec.stream_interface_attribute01 = OKC_API.G_MISS_CHAR)
1847: IF (x_srmv_rec.tag_attribute_value = OKC_API.G_MISS_CHAR)
1848: THEN
1849: x_srmv_rec.tag_attribute_value := l_srmv_rec.tag_attribute_value;
1850: END IF;
1851: IF (x_srmv_rec.stream_interface_attribute01 = OKC_API.G_MISS_CHAR)
1852: THEN
1853: x_srmv_rec.stream_interface_attribute01 := l_srmv_rec.stream_interface_attribute01;
1854: END IF;
1855: IF (x_srmv_rec.stream_interface_attribute02 = OKC_API.G_MISS_CHAR)
1851: IF (x_srmv_rec.stream_interface_attribute01 = OKC_API.G_MISS_CHAR)
1852: THEN
1853: x_srmv_rec.stream_interface_attribute01 := l_srmv_rec.stream_interface_attribute01;
1854: END IF;
1855: IF (x_srmv_rec.stream_interface_attribute02 = OKC_API.G_MISS_CHAR)
1856: THEN
1857: x_srmv_rec.stream_interface_attribute02 := l_srmv_rec.stream_interface_attribute02;
1858: END IF;
1859: IF (x_srmv_rec.stream_interface_attribute03 = OKC_API.G_MISS_CHAR)
1855: IF (x_srmv_rec.stream_interface_attribute02 = OKC_API.G_MISS_CHAR)
1856: THEN
1857: x_srmv_rec.stream_interface_attribute02 := l_srmv_rec.stream_interface_attribute02;
1858: END IF;
1859: IF (x_srmv_rec.stream_interface_attribute03 = OKC_API.G_MISS_CHAR)
1860: THEN
1861: x_srmv_rec.stream_interface_attribute03 := l_srmv_rec.stream_interface_attribute03;
1862: END IF;
1863: IF (x_srmv_rec.stream_interface_attribute04 = OKC_API.G_MISS_CHAR)
1859: IF (x_srmv_rec.stream_interface_attribute03 = OKC_API.G_MISS_CHAR)
1860: THEN
1861: x_srmv_rec.stream_interface_attribute03 := l_srmv_rec.stream_interface_attribute03;
1862: END IF;
1863: IF (x_srmv_rec.stream_interface_attribute04 = OKC_API.G_MISS_CHAR)
1864: THEN
1865: x_srmv_rec.stream_interface_attribute04 := l_srmv_rec.stream_interface_attribute04;
1866: END IF;
1867: IF (x_srmv_rec.stream_interface_attribute05 = OKC_API.G_MISS_CHAR)
1863: IF (x_srmv_rec.stream_interface_attribute04 = OKC_API.G_MISS_CHAR)
1864: THEN
1865: x_srmv_rec.stream_interface_attribute04 := l_srmv_rec.stream_interface_attribute04;
1866: END IF;
1867: IF (x_srmv_rec.stream_interface_attribute05 = OKC_API.G_MISS_CHAR)
1868: THEN
1869: x_srmv_rec.stream_interface_attribute05 := l_srmv_rec.stream_interface_attribute05;
1870: END IF;
1871: IF (x_srmv_rec.stream_interface_attribute06 = OKC_API.G_MISS_CHAR)
1867: IF (x_srmv_rec.stream_interface_attribute05 = OKC_API.G_MISS_CHAR)
1868: THEN
1869: x_srmv_rec.stream_interface_attribute05 := l_srmv_rec.stream_interface_attribute05;
1870: END IF;
1871: IF (x_srmv_rec.stream_interface_attribute06 = OKC_API.G_MISS_CHAR)
1872: THEN
1873: x_srmv_rec.stream_interface_attribute06 := l_srmv_rec.stream_interface_attribute06;
1874: END IF;
1875: IF (x_srmv_rec.stream_interface_attribute07 = OKC_API.G_MISS_CHAR)
1871: IF (x_srmv_rec.stream_interface_attribute06 = OKC_API.G_MISS_CHAR)
1872: THEN
1873: x_srmv_rec.stream_interface_attribute06 := l_srmv_rec.stream_interface_attribute06;
1874: END IF;
1875: IF (x_srmv_rec.stream_interface_attribute07 = OKC_API.G_MISS_CHAR)
1876: THEN
1877: x_srmv_rec.stream_interface_attribute07 := l_srmv_rec.stream_interface_attribute07;
1878: END IF;
1879: IF (x_srmv_rec.stream_interface_attribute08 = OKC_API.G_MISS_CHAR)
1875: IF (x_srmv_rec.stream_interface_attribute07 = OKC_API.G_MISS_CHAR)
1876: THEN
1877: x_srmv_rec.stream_interface_attribute07 := l_srmv_rec.stream_interface_attribute07;
1878: END IF;
1879: IF (x_srmv_rec.stream_interface_attribute08 = OKC_API.G_MISS_CHAR)
1880: THEN
1881: x_srmv_rec.stream_interface_attribute08 := l_srmv_rec.stream_interface_attribute08;
1882: END IF;
1883: IF (x_srmv_rec.stream_interface_attribute09 = OKC_API.G_MISS_CHAR)
1879: IF (x_srmv_rec.stream_interface_attribute08 = OKC_API.G_MISS_CHAR)
1880: THEN
1881: x_srmv_rec.stream_interface_attribute08 := l_srmv_rec.stream_interface_attribute08;
1882: END IF;
1883: IF (x_srmv_rec.stream_interface_attribute09 = OKC_API.G_MISS_CHAR)
1884: THEN
1885: x_srmv_rec.stream_interface_attribute09 := l_srmv_rec.stream_interface_attribute09;
1886: END IF;
1887: IF (x_srmv_rec.stream_interface_attribute10 = OKC_API.G_MISS_CHAR)
1883: IF (x_srmv_rec.stream_interface_attribute09 = OKC_API.G_MISS_CHAR)
1884: THEN
1885: x_srmv_rec.stream_interface_attribute09 := l_srmv_rec.stream_interface_attribute09;
1886: END IF;
1887: IF (x_srmv_rec.stream_interface_attribute10 = OKC_API.G_MISS_CHAR)
1888: THEN
1889: x_srmv_rec.stream_interface_attribute10 := l_srmv_rec.stream_interface_attribute10;
1890: END IF;
1891: IF (x_srmv_rec.stream_interface_attribute11 = OKC_API.G_MISS_CHAR)
1887: IF (x_srmv_rec.stream_interface_attribute10 = OKC_API.G_MISS_CHAR)
1888: THEN
1889: x_srmv_rec.stream_interface_attribute10 := l_srmv_rec.stream_interface_attribute10;
1890: END IF;
1891: IF (x_srmv_rec.stream_interface_attribute11 = OKC_API.G_MISS_CHAR)
1892: THEN
1893: x_srmv_rec.stream_interface_attribute11 := l_srmv_rec.stream_interface_attribute11;
1894: END IF;
1895: IF (x_srmv_rec.stream_interface_attribute12 = OKC_API.G_MISS_CHAR)
1891: IF (x_srmv_rec.stream_interface_attribute11 = OKC_API.G_MISS_CHAR)
1892: THEN
1893: x_srmv_rec.stream_interface_attribute11 := l_srmv_rec.stream_interface_attribute11;
1894: END IF;
1895: IF (x_srmv_rec.stream_interface_attribute12 = OKC_API.G_MISS_CHAR)
1896: THEN
1897: x_srmv_rec.stream_interface_attribute12 := l_srmv_rec.stream_interface_attribute12;
1898: END IF;
1899: IF (x_srmv_rec.stream_interface_attribute13 = OKC_API.G_MISS_CHAR)
1895: IF (x_srmv_rec.stream_interface_attribute12 = OKC_API.G_MISS_CHAR)
1896: THEN
1897: x_srmv_rec.stream_interface_attribute12 := l_srmv_rec.stream_interface_attribute12;
1898: END IF;
1899: IF (x_srmv_rec.stream_interface_attribute13 = OKC_API.G_MISS_CHAR)
1900: THEN
1901: x_srmv_rec.stream_interface_attribute13 := l_srmv_rec.stream_interface_attribute13;
1902: END IF;
1903: IF (x_srmv_rec.stream_interface_attribute14 = OKC_API.G_MISS_CHAR)
1899: IF (x_srmv_rec.stream_interface_attribute13 = OKC_API.G_MISS_CHAR)
1900: THEN
1901: x_srmv_rec.stream_interface_attribute13 := l_srmv_rec.stream_interface_attribute13;
1902: END IF;
1903: IF (x_srmv_rec.stream_interface_attribute14 = OKC_API.G_MISS_CHAR)
1904: THEN
1905: x_srmv_rec.stream_interface_attribute14 := l_srmv_rec.stream_interface_attribute14;
1906: END IF;
1907: IF (x_srmv_rec.stream_interface_attribute15 = OKC_API.G_MISS_CHAR)
1903: IF (x_srmv_rec.stream_interface_attribute14 = OKC_API.G_MISS_CHAR)
1904: THEN
1905: x_srmv_rec.stream_interface_attribute14 := l_srmv_rec.stream_interface_attribute14;
1906: END IF;
1907: IF (x_srmv_rec.stream_interface_attribute15 = OKC_API.G_MISS_CHAR)
1908: THEN
1909: x_srmv_rec.stream_interface_attribute15 := l_srmv_rec.stream_interface_attribute15;
1910: END IF;
1911: IF (x_srmv_rec.object_version_number = OKC_API.G_MISS_NUM)
1907: IF (x_srmv_rec.stream_interface_attribute15 = OKC_API.G_MISS_CHAR)
1908: THEN
1909: x_srmv_rec.stream_interface_attribute15 := l_srmv_rec.stream_interface_attribute15;
1910: END IF;
1911: IF (x_srmv_rec.object_version_number = OKC_API.G_MISS_NUM)
1912: THEN
1913: x_srmv_rec.object_version_number := l_srmv_rec.object_version_number;
1914: END IF;
1915: IF (x_srmv_rec.created_by = OKC_API.G_MISS_NUM)
1911: IF (x_srmv_rec.object_version_number = OKC_API.G_MISS_NUM)
1912: THEN
1913: x_srmv_rec.object_version_number := l_srmv_rec.object_version_number;
1914: END IF;
1915: IF (x_srmv_rec.created_by = OKC_API.G_MISS_NUM)
1916: THEN
1917: x_srmv_rec.created_by := l_srmv_rec.created_by;
1918: END IF;
1919: IF (x_srmv_rec.last_updated_by = OKC_API.G_MISS_NUM)
1915: IF (x_srmv_rec.created_by = OKC_API.G_MISS_NUM)
1916: THEN
1917: x_srmv_rec.created_by := l_srmv_rec.created_by;
1918: END IF;
1919: IF (x_srmv_rec.last_updated_by = OKC_API.G_MISS_NUM)
1920: THEN
1921: x_srmv_rec.last_updated_by := l_srmv_rec.last_updated_by;
1922: END IF;
1923: IF (x_srmv_rec.creation_date = OKC_API.G_MISS_DATE)
1919: IF (x_srmv_rec.last_updated_by = OKC_API.G_MISS_NUM)
1920: THEN
1921: x_srmv_rec.last_updated_by := l_srmv_rec.last_updated_by;
1922: END IF;
1923: IF (x_srmv_rec.creation_date = OKC_API.G_MISS_DATE)
1924: THEN
1925: x_srmv_rec.creation_date := l_srmv_rec.creation_date;
1926: END IF;
1927: IF (x_srmv_rec.last_update_date = OKC_API.G_MISS_DATE)
1923: IF (x_srmv_rec.creation_date = OKC_API.G_MISS_DATE)
1924: THEN
1925: x_srmv_rec.creation_date := l_srmv_rec.creation_date;
1926: END IF;
1927: IF (x_srmv_rec.last_update_date = OKC_API.G_MISS_DATE)
1928: THEN
1929: x_srmv_rec.last_update_date := l_srmv_rec.last_update_date;
1930: END IF;
1931: IF (x_srmv_rec.last_update_login = OKC_API.G_MISS_NUM)
1927: IF (x_srmv_rec.last_update_date = OKC_API.G_MISS_DATE)
1928: THEN
1929: x_srmv_rec.last_update_date := l_srmv_rec.last_update_date;
1930: END IF;
1931: IF (x_srmv_rec.last_update_login = OKC_API.G_MISS_NUM)
1932: THEN
1933: x_srmv_rec.last_update_login := l_srmv_rec.last_update_login;
1934: END IF;
1935: RETURN(l_return_status);
1940: FUNCTION Set_Attributes (
1941: p_srmv_rec IN srmv_rec_type,
1942: x_srmv_rec OUT NOCOPY srmv_rec_type
1943: ) RETURN VARCHAR2 IS
1944: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1945: BEGIN
1946: x_srmv_rec := p_srmv_rec;
1947: x_srmv_rec.OBJECT_VERSION_NUMBER := NVL(x_srmv_rec.OBJECT_VERSION_NUMBER, 0) + 1;
1948: RETURN(l_return_status);
1947: x_srmv_rec.OBJECT_VERSION_NUMBER := NVL(x_srmv_rec.OBJECT_VERSION_NUMBER, 0) + 1;
1948: RETURN(l_return_status);
1949: END Set_Attributes;
1950: BEGIN
1951: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1952: G_PKG_NAME,
1953: p_init_msg_list,
1954: l_api_version,
1955: p_api_version,
1954: l_api_version,
1955: p_api_version,
1956: '_PVT',
1957: x_return_status);
1958: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1959: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1960: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1961: RAISE OKC_API.G_EXCEPTION_ERROR;
1962: END IF;
1955: p_api_version,
1956: '_PVT',
1957: x_return_status);
1958: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1959: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1960: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1961: RAISE OKC_API.G_EXCEPTION_ERROR;
1962: END IF;
1963: --- Setting item attributes
1956: '_PVT',
1957: x_return_status);
1958: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1959: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1960: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1961: RAISE OKC_API.G_EXCEPTION_ERROR;
1962: END IF;
1963: --- Setting item attributes
1964: l_return_status := Set_Attributes(
1957: x_return_status);
1958: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1959: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1960: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1961: RAISE OKC_API.G_EXCEPTION_ERROR;
1962: END IF;
1963: --- Setting item attributes
1964: l_return_status := Set_Attributes(
1965: p_srmv_rec, -- IN
1964: l_return_status := Set_Attributes(
1965: p_srmv_rec, -- IN
1966: l_srmv_rec); -- OUT
1967: --- If any errors happen abort API
1968: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1969: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1970: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1971: RAISE OKC_API.G_EXCEPTION_ERROR;
1972: END IF;
1965: p_srmv_rec, -- IN
1966: l_srmv_rec); -- OUT
1967: --- If any errors happen abort API
1968: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1969: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1970: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1971: RAISE OKC_API.G_EXCEPTION_ERROR;
1972: END IF;
1973: l_return_status := populate_new_record(l_srmv_rec, l_def_srmv_rec);
1966: l_srmv_rec); -- OUT
1967: --- If any errors happen abort API
1968: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1969: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1970: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1971: RAISE OKC_API.G_EXCEPTION_ERROR;
1972: END IF;
1973: l_return_status := populate_new_record(l_srmv_rec, l_def_srmv_rec);
1974: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1967: --- If any errors happen abort API
1968: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1969: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1970: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1971: RAISE OKC_API.G_EXCEPTION_ERROR;
1972: END IF;
1973: l_return_status := populate_new_record(l_srmv_rec, l_def_srmv_rec);
1974: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1975: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1970: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1971: RAISE OKC_API.G_EXCEPTION_ERROR;
1972: END IF;
1973: l_return_status := populate_new_record(l_srmv_rec, l_def_srmv_rec);
1974: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1975: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1976: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1977: RAISE OKC_API.G_EXCEPTION_ERROR;
1978: END IF;
1971: RAISE OKC_API.G_EXCEPTION_ERROR;
1972: END IF;
1973: l_return_status := populate_new_record(l_srmv_rec, l_def_srmv_rec);
1974: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1975: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1976: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1977: RAISE OKC_API.G_EXCEPTION_ERROR;
1978: END IF;
1979: l_def_srmv_rec := fill_who_columns(l_def_srmv_rec);
1972: END IF;
1973: l_return_status := populate_new_record(l_srmv_rec, l_def_srmv_rec);
1974: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1975: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1976: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1977: RAISE OKC_API.G_EXCEPTION_ERROR;
1978: END IF;
1979: l_def_srmv_rec := fill_who_columns(l_def_srmv_rec);
1980: --- Validate all non-missing attributes (Item Level Validation)
1973: l_return_status := populate_new_record(l_srmv_rec, l_def_srmv_rec);
1974: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1975: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1976: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1977: RAISE OKC_API.G_EXCEPTION_ERROR;
1978: END IF;
1979: l_def_srmv_rec := fill_who_columns(l_def_srmv_rec);
1980: --- Validate all non-missing attributes (Item Level Validation)
1981: l_return_status := Validate_Attributes(l_def_srmv_rec);
1979: l_def_srmv_rec := fill_who_columns(l_def_srmv_rec);
1980: --- Validate all non-missing attributes (Item Level Validation)
1981: l_return_status := Validate_Attributes(l_def_srmv_rec);
1982: --- If any errors happen abort API
1983: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1984: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1985: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1986: RAISE OKC_API.G_EXCEPTION_ERROR;
1987: END IF;
1980: --- Validate all non-missing attributes (Item Level Validation)
1981: l_return_status := Validate_Attributes(l_def_srmv_rec);
1982: --- If any errors happen abort API
1983: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1984: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1985: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1986: RAISE OKC_API.G_EXCEPTION_ERROR;
1987: END IF;
1988: l_return_status := Validate_Record(l_def_srmv_rec);
1981: l_return_status := Validate_Attributes(l_def_srmv_rec);
1982: --- If any errors happen abort API
1983: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1984: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1985: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1986: RAISE OKC_API.G_EXCEPTION_ERROR;
1987: END IF;
1988: l_return_status := Validate_Record(l_def_srmv_rec);
1989: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1982: --- If any errors happen abort API
1983: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1984: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1985: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1986: RAISE OKC_API.G_EXCEPTION_ERROR;
1987: END IF;
1988: l_return_status := Validate_Record(l_def_srmv_rec);
1989: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1990: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1985: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1986: RAISE OKC_API.G_EXCEPTION_ERROR;
1987: END IF;
1988: l_return_status := Validate_Record(l_def_srmv_rec);
1989: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1990: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1991: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1992: RAISE OKC_API.G_EXCEPTION_ERROR;
1993: END IF;
1986: RAISE OKC_API.G_EXCEPTION_ERROR;
1987: END IF;
1988: l_return_status := Validate_Record(l_def_srmv_rec);
1989: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1990: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1991: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1992: RAISE OKC_API.G_EXCEPTION_ERROR;
1993: END IF;
1994:
1987: END IF;
1988: l_return_status := Validate_Record(l_def_srmv_rec);
1989: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1990: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1991: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1992: RAISE OKC_API.G_EXCEPTION_ERROR;
1993: END IF;
1994:
1995: --------------------------------------
1988: l_return_status := Validate_Record(l_def_srmv_rec);
1989: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1990: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1991: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1992: RAISE OKC_API.G_EXCEPTION_ERROR;
1993: END IF;
1994:
1995: --------------------------------------
1996: -- Move VIEW record to "Child" records
2006: x_msg_data,
2007: l_srm_rec,
2008: lx_srm_rec
2009: );
2010: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2011: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2012: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2013: RAISE OKC_API.G_EXCEPTION_ERROR;
2014: END IF;
2007: l_srm_rec,
2008: lx_srm_rec
2009: );
2010: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2011: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2012: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2013: RAISE OKC_API.G_EXCEPTION_ERROR;
2014: END IF;
2015: migrate(lx_srm_rec, l_def_srmv_rec);
2008: lx_srm_rec
2009: );
2010: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2011: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2012: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2013: RAISE OKC_API.G_EXCEPTION_ERROR;
2014: END IF;
2015: migrate(lx_srm_rec, l_def_srmv_rec);
2016: x_srmv_rec := l_def_srmv_rec;
2009: );
2010: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2011: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2012: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2013: RAISE OKC_API.G_EXCEPTION_ERROR;
2014: END IF;
2015: migrate(lx_srm_rec, l_def_srmv_rec);
2016: x_srmv_rec := l_def_srmv_rec;
2017: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2013: RAISE OKC_API.G_EXCEPTION_ERROR;
2014: END IF;
2015: migrate(lx_srm_rec, l_def_srmv_rec);
2016: x_srmv_rec := l_def_srmv_rec;
2017: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2018: EXCEPTION
2019: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2020: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2021: (
2015: migrate(lx_srm_rec, l_def_srmv_rec);
2016: x_srmv_rec := l_def_srmv_rec;
2017: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2018: EXCEPTION
2019: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2020: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2021: (
2022: l_api_name,
2023: G_PKG_NAME,
2016: x_srmv_rec := l_def_srmv_rec;
2017: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2018: EXCEPTION
2019: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2020: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2021: (
2022: l_api_name,
2023: G_PKG_NAME,
2024: 'OKC_API.G_RET_STS_ERROR',
2020: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2021: (
2022: l_api_name,
2023: G_PKG_NAME,
2024: 'OKC_API.G_RET_STS_ERROR',
2025: x_msg_count,
2026: x_msg_data,
2027: '_PVT'
2028: );
2025: x_msg_count,
2026: x_msg_data,
2027: '_PVT'
2028: );
2029: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2030: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2031: (
2032: l_api_name,
2033: G_PKG_NAME,
2026: x_msg_data,
2027: '_PVT'
2028: );
2029: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2030: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2031: (
2032: l_api_name,
2033: G_PKG_NAME,
2034: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2030: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2031: (
2032: l_api_name,
2033: G_PKG_NAME,
2034: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2035: x_msg_count,
2036: x_msg_data,
2037: '_PVT'
2038: );
2036: x_msg_data,
2037: '_PVT'
2038: );
2039: WHEN OTHERS THEN
2040: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2041: (
2042: l_api_name,
2043: G_PKG_NAME,
2044: 'OTHERS',
2051: -- PL/SQL TBL update_row for:SRMV_TBL --
2052: ----------------------------------------
2053: PROCEDURE update_row(
2054: p_api_version IN NUMBER,
2055: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2056: x_return_status OUT NOCOPY VARCHAR2,
2057: x_msg_count OUT NOCOPY NUMBER,
2058: x_msg_data OUT NOCOPY VARCHAR2,
2059: p_srmv_tbl IN srmv_tbl_type,
2060: x_srmv_tbl OUT NOCOPY srmv_tbl_type) IS
2061:
2062: l_api_version CONSTANT NUMBER := 1;
2063: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
2064: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2065: i NUMBER := 0;
2066: -- START change : akjain, 11/05/2001
2067: -- Adding OverAll Status Flag
2068: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2064: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2065: i NUMBER := 0;
2066: -- START change : akjain, 11/05/2001
2067: -- Adding OverAll Status Flag
2068: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2069: -- END change : akjain
2070:
2071: BEGIN
2072: OKC_API.init_msg_list(p_init_msg_list);
2068: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2069: -- END change : akjain
2070:
2071: BEGIN
2072: OKC_API.init_msg_list(p_init_msg_list);
2073: -- Make sure PL/SQL table has records in it before passing
2074: IF (p_srmv_tbl.COUNT > 0) THEN
2075: i := p_srmv_tbl.FIRST;
2076: LOOP
2075: i := p_srmv_tbl.FIRST;
2076: LOOP
2077: update_row (
2078: p_api_version => p_api_version,
2079: p_init_msg_list => OKC_API.G_FALSE,
2080: x_return_status => x_return_status,
2081: x_msg_count => x_msg_count,
2082: x_msg_data => x_msg_data,
2083: p_srmv_rec => p_srmv_tbl(i),
2083: p_srmv_rec => p_srmv_tbl(i),
2084: x_srmv_rec => x_srmv_tbl(i));
2085: -- START change : akjain, 11/05/2001
2086: -- store the highest degree of error
2087: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
2088: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
2089: l_overall_status := x_return_status;
2090: END IF;
2091: END IF;
2084: x_srmv_rec => x_srmv_tbl(i));
2085: -- START change : akjain, 11/05/2001
2086: -- store the highest degree of error
2087: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
2088: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
2089: l_overall_status := x_return_status;
2090: END IF;
2091: END IF;
2092: -- END change : akjain
2100: -- END change : akjain
2101:
2102: END IF;
2103: EXCEPTION
2104: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2105: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2106: (
2107: l_api_name,
2108: G_PKG_NAME,
2101:
2102: END IF;
2103: EXCEPTION
2104: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2105: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2106: (
2107: l_api_name,
2108: G_PKG_NAME,
2109: 'OKC_API.G_RET_STS_ERROR',
2105: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2106: (
2107: l_api_name,
2108: G_PKG_NAME,
2109: 'OKC_API.G_RET_STS_ERROR',
2110: x_msg_count,
2111: x_msg_data,
2112: '_PVT'
2113: );
2110: x_msg_count,
2111: x_msg_data,
2112: '_PVT'
2113: );
2114: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2115: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2116: (
2117: l_api_name,
2118: G_PKG_NAME,
2111: x_msg_data,
2112: '_PVT'
2113: );
2114: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2115: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2116: (
2117: l_api_name,
2118: G_PKG_NAME,
2119: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2115: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2116: (
2117: l_api_name,
2118: G_PKG_NAME,
2119: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2120: x_msg_count,
2121: x_msg_data,
2122: '_PVT'
2123: );
2121: x_msg_data,
2122: '_PVT'
2123: );
2124: WHEN OTHERS THEN
2125: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2126: (
2127: l_api_name,
2128: G_PKG_NAME,
2129: 'OTHERS',
2139: ---------------------------------------
2140: -- delete_row for:OKL_SIF_RET_ERRORS --
2141: ---------------------------------------
2142: PROCEDURE delete_row(
2143: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2144: x_return_status OUT NOCOPY VARCHAR2,
2145: x_msg_count OUT NOCOPY NUMBER,
2146: x_msg_data OUT NOCOPY VARCHAR2,
2147: p_srm_rec IN srm_rec_type) IS
2147: p_srm_rec IN srm_rec_type) IS
2148:
2149: l_api_version CONSTANT NUMBER := 1;
2150: l_api_name CONSTANT VARCHAR2(30) := 'ERRORS_delete_row';
2151: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2152: l_srm_rec srm_rec_type:= p_srm_rec;
2153: l_row_notfound BOOLEAN := TRUE;
2154: BEGIN
2155: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2151: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2152: l_srm_rec srm_rec_type:= p_srm_rec;
2153: l_row_notfound BOOLEAN := TRUE;
2154: BEGIN
2155: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2156: p_init_msg_list,
2157: '_PVT',
2158: x_return_status);
2159: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2155: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2156: p_init_msg_list,
2157: '_PVT',
2158: x_return_status);
2159: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2160: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2161: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2162: RAISE OKC_API.G_EXCEPTION_ERROR;
2163: END IF;
2156: p_init_msg_list,
2157: '_PVT',
2158: x_return_status);
2159: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2160: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2161: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2162: RAISE OKC_API.G_EXCEPTION_ERROR;
2163: END IF;
2164: DELETE FROM OKL_SIF_RET_ERRORS
2157: '_PVT',
2158: x_return_status);
2159: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2160: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2161: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2162: RAISE OKC_API.G_EXCEPTION_ERROR;
2163: END IF;
2164: DELETE FROM OKL_SIF_RET_ERRORS
2165: WHERE ID = l_srm_rec.id;
2158: x_return_status);
2159: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2160: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2161: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2162: RAISE OKC_API.G_EXCEPTION_ERROR;
2163: END IF;
2164: DELETE FROM OKL_SIF_RET_ERRORS
2165: WHERE ID = l_srm_rec.id;
2166:
2163: END IF;
2164: DELETE FROM OKL_SIF_RET_ERRORS
2165: WHERE ID = l_srm_rec.id;
2166:
2167: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2168: EXCEPTION
2169: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2170: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2171: (
2165: WHERE ID = l_srm_rec.id;
2166:
2167: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2168: EXCEPTION
2169: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2170: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2171: (
2172: l_api_name,
2173: G_PKG_NAME,
2166:
2167: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2168: EXCEPTION
2169: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2170: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2171: (
2172: l_api_name,
2173: G_PKG_NAME,
2174: 'OKC_API.G_RET_STS_ERROR',
2170: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2171: (
2172: l_api_name,
2173: G_PKG_NAME,
2174: 'OKC_API.G_RET_STS_ERROR',
2175: x_msg_count,
2176: x_msg_data,
2177: '_PVT'
2178: );
2175: x_msg_count,
2176: x_msg_data,
2177: '_PVT'
2178: );
2179: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2180: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2181: (
2182: l_api_name,
2183: G_PKG_NAME,
2176: x_msg_data,
2177: '_PVT'
2178: );
2179: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2180: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2181: (
2182: l_api_name,
2183: G_PKG_NAME,
2184: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2180: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2181: (
2182: l_api_name,
2183: G_PKG_NAME,
2184: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2185: x_msg_count,
2186: x_msg_data,
2187: '_PVT'
2188: );
2186: x_msg_data,
2187: '_PVT'
2188: );
2189: WHEN OTHERS THEN
2190: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2191: (
2192: l_api_name,
2193: G_PKG_NAME,
2194: 'OTHERS',
2201: -- delete_row for:OKL_SIF_RET_ERRORS_V --
2202: -----------------------------------------
2203: PROCEDURE delete_row(
2204: p_api_version IN NUMBER,
2205: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2206: x_return_status OUT NOCOPY VARCHAR2,
2207: x_msg_count OUT NOCOPY NUMBER,
2208: x_msg_data OUT NOCOPY VARCHAR2,
2209: p_srmv_rec IN srmv_rec_type) IS
2209: p_srmv_rec IN srmv_rec_type) IS
2210:
2211: l_api_version CONSTANT NUMBER := 1;
2212: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
2213: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2214: l_srmv_rec srmv_rec_type := p_srmv_rec;
2215: l_srm_rec srm_rec_type;
2216: BEGIN
2217: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2213: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2214: l_srmv_rec srmv_rec_type := p_srmv_rec;
2215: l_srm_rec srm_rec_type;
2216: BEGIN
2217: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2218: G_PKG_NAME,
2219: p_init_msg_list,
2220: l_api_version,
2221: p_api_version,
2220: l_api_version,
2221: p_api_version,
2222: '_PVT',
2223: x_return_status);
2224: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2225: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2226: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2227: RAISE OKC_API.G_EXCEPTION_ERROR;
2228: END IF;
2221: p_api_version,
2222: '_PVT',
2223: x_return_status);
2224: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2225: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2226: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2227: RAISE OKC_API.G_EXCEPTION_ERROR;
2228: END IF;
2229: --------------------------------------
2222: '_PVT',
2223: x_return_status);
2224: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2225: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2226: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2227: RAISE OKC_API.G_EXCEPTION_ERROR;
2228: END IF;
2229: --------------------------------------
2230: -- Move VIEW record to "Child" records
2223: x_return_status);
2224: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2225: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2226: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2227: RAISE OKC_API.G_EXCEPTION_ERROR;
2228: END IF;
2229: --------------------------------------
2230: -- Move VIEW record to "Child" records
2231: --------------------------------------
2239: x_msg_count,
2240: x_msg_data,
2241: l_srm_rec
2242: );
2243: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2244: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2245: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2246: RAISE OKC_API.G_EXCEPTION_ERROR;
2247: END IF;
2240: x_msg_data,
2241: l_srm_rec
2242: );
2243: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2244: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2245: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2246: RAISE OKC_API.G_EXCEPTION_ERROR;
2247: END IF;
2248: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2241: l_srm_rec
2242: );
2243: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2244: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2245: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2246: RAISE OKC_API.G_EXCEPTION_ERROR;
2247: END IF;
2248: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2249: EXCEPTION
2242: );
2243: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2244: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2245: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2246: RAISE OKC_API.G_EXCEPTION_ERROR;
2247: END IF;
2248: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2249: EXCEPTION
2250: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2244: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2245: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2246: RAISE OKC_API.G_EXCEPTION_ERROR;
2247: END IF;
2248: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2249: EXCEPTION
2250: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2251: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2252: (
2246: RAISE OKC_API.G_EXCEPTION_ERROR;
2247: END IF;
2248: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2249: EXCEPTION
2250: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2251: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2252: (
2253: l_api_name,
2254: G_PKG_NAME,
2247: END IF;
2248: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2249: EXCEPTION
2250: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2251: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2252: (
2253: l_api_name,
2254: G_PKG_NAME,
2255: 'OKC_API.G_RET_STS_ERROR',
2251: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2252: (
2253: l_api_name,
2254: G_PKG_NAME,
2255: 'OKC_API.G_RET_STS_ERROR',
2256: x_msg_count,
2257: x_msg_data,
2258: '_PVT'
2259: );
2256: x_msg_count,
2257: x_msg_data,
2258: '_PVT'
2259: );
2260: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2261: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2262: (
2263: l_api_name,
2264: G_PKG_NAME,
2257: x_msg_data,
2258: '_PVT'
2259: );
2260: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2261: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2262: (
2263: l_api_name,
2264: G_PKG_NAME,
2265: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2261: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2262: (
2263: l_api_name,
2264: G_PKG_NAME,
2265: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2266: x_msg_count,
2267: x_msg_data,
2268: '_PVT'
2269: );
2267: x_msg_data,
2268: '_PVT'
2269: );
2270: WHEN OTHERS THEN
2271: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2272: (
2273: l_api_name,
2274: G_PKG_NAME,
2275: 'OTHERS',
2282: -- PL/SQL TBL delete_row for:SRMV_TBL --
2283: ----------------------------------------
2284: PROCEDURE delete_row(
2285: p_api_version IN NUMBER,
2286: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2287: x_return_status OUT NOCOPY VARCHAR2,
2288: x_msg_count OUT NOCOPY NUMBER,
2289: x_msg_data OUT NOCOPY VARCHAR2,
2290: p_srmv_tbl IN srmv_tbl_type) IS
2290: p_srmv_tbl IN srmv_tbl_type) IS
2291:
2292: l_api_version CONSTANT NUMBER := 1;
2293: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
2294: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2295: i NUMBER := 0;
2296: -- START change : akjain, 11/05/2001
2297: -- Adding OverAll Status Flag
2298: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2294: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2295: i NUMBER := 0;
2296: -- START change : akjain, 11/05/2001
2297: -- Adding OverAll Status Flag
2298: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2299: -- END change : akjain
2300:
2301: BEGIN
2302: OKC_API.init_msg_list(p_init_msg_list);
2298: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2299: -- END change : akjain
2300:
2301: BEGIN
2302: OKC_API.init_msg_list(p_init_msg_list);
2303: -- Make sure PL/SQL table has records in it before passing
2304: IF (p_srmv_tbl.COUNT > 0) THEN
2305: i := p_srmv_tbl.FIRST;
2306: LOOP
2305: i := p_srmv_tbl.FIRST;
2306: LOOP
2307: delete_row (
2308: p_api_version => p_api_version,
2309: p_init_msg_list => OKC_API.G_FALSE,
2310: x_return_status => x_return_status,
2311: x_msg_count => x_msg_count,
2312: x_msg_data => x_msg_data,
2313: p_srmv_rec => p_srmv_tbl(i));
2312: x_msg_data => x_msg_data,
2313: p_srmv_rec => p_srmv_tbl(i));
2314: -- START change : akjain, 11/05/2001
2315: -- store the highest degree of error
2316: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
2317: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
2318: l_overall_status := x_return_status;
2319: END IF;
2320: END IF;
2313: p_srmv_rec => p_srmv_tbl(i));
2314: -- START change : akjain, 11/05/2001
2315: -- store the highest degree of error
2316: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
2317: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
2318: l_overall_status := x_return_status;
2319: END IF;
2320: END IF;
2321: -- END change : akjain
2329: -- END change : akjain
2330:
2331: END IF;
2332: EXCEPTION
2333: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2334: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2335: (
2336: l_api_name,
2337: G_PKG_NAME,
2330:
2331: END IF;
2332: EXCEPTION
2333: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2334: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2335: (
2336: l_api_name,
2337: G_PKG_NAME,
2338: 'OKC_API.G_RET_STS_ERROR',
2334: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2335: (
2336: l_api_name,
2337: G_PKG_NAME,
2338: 'OKC_API.G_RET_STS_ERROR',
2339: x_msg_count,
2340: x_msg_data,
2341: '_PVT'
2342: );
2339: x_msg_count,
2340: x_msg_data,
2341: '_PVT'
2342: );
2343: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2344: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2345: (
2346: l_api_name,
2347: G_PKG_NAME,
2340: x_msg_data,
2341: '_PVT'
2342: );
2343: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2344: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2345: (
2346: l_api_name,
2347: G_PKG_NAME,
2348: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2344: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2345: (
2346: l_api_name,
2347: G_PKG_NAME,
2348: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2349: x_msg_count,
2350: x_msg_data,
2351: '_PVT'
2352: );
2350: x_msg_data,
2351: '_PVT'
2352: );
2353: WHEN OTHERS THEN
2354: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2355: (
2356: l_api_name,
2357: G_PKG_NAME,
2358: 'OTHERS',