226: p_crjv_rec IN crjv_rec_type
227: ) RETURN crjv_rec_type IS
228: l_crjv_rec crjv_rec_type := p_crjv_rec;
229: BEGIN
230: IF (l_crjv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
231: l_crjv_rec.object_version_number := NULL;
232: END IF;
233: IF (l_crjv_rec.cle_id = OKC_API.G_MISS_NUM) THEN
234: l_crjv_rec.cle_id := NULL;
229: BEGIN
230: IF (l_crjv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
231: l_crjv_rec.object_version_number := NULL;
232: END IF;
233: IF (l_crjv_rec.cle_id = OKC_API.G_MISS_NUM) THEN
234: l_crjv_rec.cle_id := NULL;
235: END IF;
236: IF (l_crjv_rec.chr_id = OKC_API.G_MISS_NUM) THEN
237: l_crjv_rec.chr_id := NULL;
232: END IF;
233: IF (l_crjv_rec.cle_id = OKC_API.G_MISS_NUM) THEN
234: l_crjv_rec.cle_id := NULL;
235: END IF;
236: IF (l_crjv_rec.chr_id = OKC_API.G_MISS_NUM) THEN
237: l_crjv_rec.chr_id := NULL;
238: END IF;
239: IF (l_crjv_rec.rty_code = OKC_API.G_MISS_CHAR) THEN
240: l_crjv_rec.rty_code := NULL;
235: END IF;
236: IF (l_crjv_rec.chr_id = OKC_API.G_MISS_NUM) THEN
237: l_crjv_rec.chr_id := NULL;
238: END IF;
239: IF (l_crjv_rec.rty_code = OKC_API.G_MISS_CHAR) THEN
240: l_crjv_rec.rty_code := NULL;
241: END IF;
242: IF (l_crjv_rec.object1_id1 = OKC_API.G_MISS_CHAR) THEN
243: l_crjv_rec.object1_id1 := NULL;
238: END IF;
239: IF (l_crjv_rec.rty_code = OKC_API.G_MISS_CHAR) THEN
240: l_crjv_rec.rty_code := NULL;
241: END IF;
242: IF (l_crjv_rec.object1_id1 = OKC_API.G_MISS_CHAR) THEN
243: l_crjv_rec.object1_id1 := NULL;
244: END IF;
245: IF (l_crjv_rec.object1_id2 = OKC_API.G_MISS_CHAR) THEN
246: l_crjv_rec.object1_id2 := NULL;
241: END IF;
242: IF (l_crjv_rec.object1_id1 = OKC_API.G_MISS_CHAR) THEN
243: l_crjv_rec.object1_id1 := NULL;
244: END IF;
245: IF (l_crjv_rec.object1_id2 = OKC_API.G_MISS_CHAR) THEN
246: l_crjv_rec.object1_id2 := NULL;
247: END IF;
248: IF (l_crjv_rec.JTOT_OBJECT1_CODE = OKC_API.G_MISS_CHAR) THEN
249: l_crjv_rec.JTOT_OBJECT1_CODE := NULL;
244: END IF;
245: IF (l_crjv_rec.object1_id2 = OKC_API.G_MISS_CHAR) THEN
246: l_crjv_rec.object1_id2 := NULL;
247: END IF;
248: IF (l_crjv_rec.JTOT_OBJECT1_CODE = OKC_API.G_MISS_CHAR) THEN
249: l_crjv_rec.JTOT_OBJECT1_CODE := NULL;
250: END IF;
251: IF (l_crjv_rec.attribute_category = OKC_API.G_MISS_CHAR) THEN
252: l_crjv_rec.attribute_category := NULL;
247: END IF;
248: IF (l_crjv_rec.JTOT_OBJECT1_CODE = OKC_API.G_MISS_CHAR) THEN
249: l_crjv_rec.JTOT_OBJECT1_CODE := NULL;
250: END IF;
251: IF (l_crjv_rec.attribute_category = OKC_API.G_MISS_CHAR) THEN
252: l_crjv_rec.attribute_category := NULL;
253: END IF;
254: IF (l_crjv_rec.attribute1 = OKC_API.G_MISS_CHAR) THEN
255: l_crjv_rec.attribute1 := NULL;
250: END IF;
251: IF (l_crjv_rec.attribute_category = OKC_API.G_MISS_CHAR) THEN
252: l_crjv_rec.attribute_category := NULL;
253: END IF;
254: IF (l_crjv_rec.attribute1 = OKC_API.G_MISS_CHAR) THEN
255: l_crjv_rec.attribute1 := NULL;
256: END IF;
257: IF (l_crjv_rec.attribute2 = OKC_API.G_MISS_CHAR) THEN
258: l_crjv_rec.attribute2 := NULL;
253: END IF;
254: IF (l_crjv_rec.attribute1 = OKC_API.G_MISS_CHAR) THEN
255: l_crjv_rec.attribute1 := NULL;
256: END IF;
257: IF (l_crjv_rec.attribute2 = OKC_API.G_MISS_CHAR) THEN
258: l_crjv_rec.attribute2 := NULL;
259: END IF;
260: IF (l_crjv_rec.attribute3 = OKC_API.G_MISS_CHAR) THEN
261: l_crjv_rec.attribute3 := NULL;
256: END IF;
257: IF (l_crjv_rec.attribute2 = OKC_API.G_MISS_CHAR) THEN
258: l_crjv_rec.attribute2 := NULL;
259: END IF;
260: IF (l_crjv_rec.attribute3 = OKC_API.G_MISS_CHAR) THEN
261: l_crjv_rec.attribute3 := NULL;
262: END IF;
263: IF (l_crjv_rec.attribute4 = OKC_API.G_MISS_CHAR) THEN
264: l_crjv_rec.attribute4 := NULL;
259: END IF;
260: IF (l_crjv_rec.attribute3 = OKC_API.G_MISS_CHAR) THEN
261: l_crjv_rec.attribute3 := NULL;
262: END IF;
263: IF (l_crjv_rec.attribute4 = OKC_API.G_MISS_CHAR) THEN
264: l_crjv_rec.attribute4 := NULL;
265: END IF;
266: IF (l_crjv_rec.attribute5 = OKC_API.G_MISS_CHAR) THEN
267: l_crjv_rec.attribute5 := NULL;
262: END IF;
263: IF (l_crjv_rec.attribute4 = OKC_API.G_MISS_CHAR) THEN
264: l_crjv_rec.attribute4 := NULL;
265: END IF;
266: IF (l_crjv_rec.attribute5 = OKC_API.G_MISS_CHAR) THEN
267: l_crjv_rec.attribute5 := NULL;
268: END IF;
269: IF (l_crjv_rec.attribute6 = OKC_API.G_MISS_CHAR) THEN
270: l_crjv_rec.attribute6 := NULL;
265: END IF;
266: IF (l_crjv_rec.attribute5 = OKC_API.G_MISS_CHAR) THEN
267: l_crjv_rec.attribute5 := NULL;
268: END IF;
269: IF (l_crjv_rec.attribute6 = OKC_API.G_MISS_CHAR) THEN
270: l_crjv_rec.attribute6 := NULL;
271: END IF;
272: IF (l_crjv_rec.attribute7 = OKC_API.G_MISS_CHAR) THEN
273: l_crjv_rec.attribute7 := NULL;
268: END IF;
269: IF (l_crjv_rec.attribute6 = OKC_API.G_MISS_CHAR) THEN
270: l_crjv_rec.attribute6 := NULL;
271: END IF;
272: IF (l_crjv_rec.attribute7 = OKC_API.G_MISS_CHAR) THEN
273: l_crjv_rec.attribute7 := NULL;
274: END IF;
275: IF (l_crjv_rec.attribute8 = OKC_API.G_MISS_CHAR) THEN
276: l_crjv_rec.attribute8 := NULL;
271: END IF;
272: IF (l_crjv_rec.attribute7 = OKC_API.G_MISS_CHAR) THEN
273: l_crjv_rec.attribute7 := NULL;
274: END IF;
275: IF (l_crjv_rec.attribute8 = OKC_API.G_MISS_CHAR) THEN
276: l_crjv_rec.attribute8 := NULL;
277: END IF;
278: IF (l_crjv_rec.attribute9 = OKC_API.G_MISS_CHAR) THEN
279: l_crjv_rec.attribute9 := NULL;
274: END IF;
275: IF (l_crjv_rec.attribute8 = OKC_API.G_MISS_CHAR) THEN
276: l_crjv_rec.attribute8 := NULL;
277: END IF;
278: IF (l_crjv_rec.attribute9 = OKC_API.G_MISS_CHAR) THEN
279: l_crjv_rec.attribute9 := NULL;
280: END IF;
281: IF (l_crjv_rec.attribute10 = OKC_API.G_MISS_CHAR) THEN
282: l_crjv_rec.attribute10 := NULL;
277: END IF;
278: IF (l_crjv_rec.attribute9 = OKC_API.G_MISS_CHAR) THEN
279: l_crjv_rec.attribute9 := NULL;
280: END IF;
281: IF (l_crjv_rec.attribute10 = OKC_API.G_MISS_CHAR) THEN
282: l_crjv_rec.attribute10 := NULL;
283: END IF;
284: IF (l_crjv_rec.attribute11 = OKC_API.G_MISS_CHAR) THEN
285: l_crjv_rec.attribute11 := NULL;
280: END IF;
281: IF (l_crjv_rec.attribute10 = OKC_API.G_MISS_CHAR) THEN
282: l_crjv_rec.attribute10 := NULL;
283: END IF;
284: IF (l_crjv_rec.attribute11 = OKC_API.G_MISS_CHAR) THEN
285: l_crjv_rec.attribute11 := NULL;
286: END IF;
287: IF (l_crjv_rec.attribute12 = OKC_API.G_MISS_CHAR) THEN
288: l_crjv_rec.attribute12 := NULL;
283: END IF;
284: IF (l_crjv_rec.attribute11 = OKC_API.G_MISS_CHAR) THEN
285: l_crjv_rec.attribute11 := NULL;
286: END IF;
287: IF (l_crjv_rec.attribute12 = OKC_API.G_MISS_CHAR) THEN
288: l_crjv_rec.attribute12 := NULL;
289: END IF;
290: IF (l_crjv_rec.attribute13 = OKC_API.G_MISS_CHAR) THEN
291: l_crjv_rec.attribute13 := NULL;
286: END IF;
287: IF (l_crjv_rec.attribute12 = OKC_API.G_MISS_CHAR) THEN
288: l_crjv_rec.attribute12 := NULL;
289: END IF;
290: IF (l_crjv_rec.attribute13 = OKC_API.G_MISS_CHAR) THEN
291: l_crjv_rec.attribute13 := NULL;
292: END IF;
293: IF (l_crjv_rec.attribute14 = OKC_API.G_MISS_CHAR) THEN
294: l_crjv_rec.attribute14 := NULL;
289: END IF;
290: IF (l_crjv_rec.attribute13 = OKC_API.G_MISS_CHAR) THEN
291: l_crjv_rec.attribute13 := NULL;
292: END IF;
293: IF (l_crjv_rec.attribute14 = OKC_API.G_MISS_CHAR) THEN
294: l_crjv_rec.attribute14 := NULL;
295: END IF;
296: IF (l_crjv_rec.attribute15 = OKC_API.G_MISS_CHAR) THEN
297: l_crjv_rec.attribute15 := NULL;
292: END IF;
293: IF (l_crjv_rec.attribute14 = OKC_API.G_MISS_CHAR) THEN
294: l_crjv_rec.attribute14 := NULL;
295: END IF;
296: IF (l_crjv_rec.attribute15 = OKC_API.G_MISS_CHAR) THEN
297: l_crjv_rec.attribute15 := NULL;
298: END IF;
299: IF (l_crjv_rec.created_by = OKC_API.G_MISS_NUM) THEN
300: l_crjv_rec.created_by := NULL;
295: END IF;
296: IF (l_crjv_rec.attribute15 = OKC_API.G_MISS_CHAR) THEN
297: l_crjv_rec.attribute15 := NULL;
298: END IF;
299: IF (l_crjv_rec.created_by = OKC_API.G_MISS_NUM) THEN
300: l_crjv_rec.created_by := NULL;
301: END IF;
302: IF (l_crjv_rec.creation_date = OKC_API.G_MISS_DATE) THEN
303: l_crjv_rec.creation_date := NULL;
298: END IF;
299: IF (l_crjv_rec.created_by = OKC_API.G_MISS_NUM) THEN
300: l_crjv_rec.created_by := NULL;
301: END IF;
302: IF (l_crjv_rec.creation_date = OKC_API.G_MISS_DATE) THEN
303: l_crjv_rec.creation_date := NULL;
304: END IF;
305: IF (l_crjv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
306: l_crjv_rec.last_updated_by := NULL;
301: END IF;
302: IF (l_crjv_rec.creation_date = OKC_API.G_MISS_DATE) THEN
303: l_crjv_rec.creation_date := NULL;
304: END IF;
305: IF (l_crjv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
306: l_crjv_rec.last_updated_by := NULL;
307: END IF;
308: IF (l_crjv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
309: l_crjv_rec.last_update_date := NULL;
304: END IF;
305: IF (l_crjv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
306: l_crjv_rec.last_updated_by := NULL;
307: END IF;
308: IF (l_crjv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
309: l_crjv_rec.last_update_date := NULL;
310: END IF;
311: IF (l_crjv_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
312: l_crjv_rec.last_update_login := NULL;
307: END IF;
308: IF (l_crjv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
309: l_crjv_rec.last_update_date := NULL;
310: END IF;
311: IF (l_crjv_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
312: l_crjv_rec.last_update_login := NULL;
313: END IF;
314: RETURN(l_crjv_rec);
315: END null_out_defaults;
327: ,p_api IN varchar2
328: ,x_return_status OUT NOCOPY VARCHAR2
329: ) IS
330: l_api_name varchar2(300) := 'valid_att_id';
331: l_return_status varchar2(1) := OKC_API.G_RET_STS_SUCCESS;
332: BEGIN
333: x_return_status := OKC_API.G_RET_STS_SUCCESS;
334: IF (-- id null
335: p_crjv_rec.id = OKC_API.G_MISS_NUM
329: ) IS
330: l_api_name varchar2(300) := 'valid_att_id';
331: l_return_status varchar2(1) := OKC_API.G_RET_STS_SUCCESS;
332: BEGIN
333: x_return_status := OKC_API.G_RET_STS_SUCCESS;
334: IF (-- id null
335: p_crjv_rec.id = OKC_API.G_MISS_NUM
336: OR p_crjv_rec.id IS NULL
337: ) THEN
331: l_return_status varchar2(1) := OKC_API.G_RET_STS_SUCCESS;
332: BEGIN
333: x_return_status := OKC_API.G_RET_STS_SUCCESS;
334: IF (-- id null
335: p_crjv_rec.id = OKC_API.G_MISS_NUM
336: OR p_crjv_rec.id IS NULL
337: ) THEN
338: OKC_API.set_message
339: (
334: IF (-- id null
335: p_crjv_rec.id = OKC_API.G_MISS_NUM
336: OR p_crjv_rec.id IS NULL
337: ) THEN
338: OKC_API.set_message
339: (
340: G_APP_NAME
341: ,G_REQUIRED_VALUE
342: ,G_COL_NAME_TOKEN
342: ,G_COL_NAME_TOKEN
343: ,'id'
344: )
345: ;
346: x_return_status := OKC_API.G_RET_STS_ERROR;
347: raise g_exception_halt_validation;
348: END IF; -- id null
349: EXCEPTION
350: WHEN g_exception_halt_validation THEN
349: EXCEPTION
350: WHEN g_exception_halt_validation THEN
351: null;
352: WHEN OTHERS THEN
353: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
354: OKC_API.set_message
355: (
356: G_APP_NAME
357: ,g_unexpected_error
350: WHEN g_exception_halt_validation THEN
351: null;
352: WHEN OTHERS THEN
353: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
354: OKC_API.set_message
355: (
356: G_APP_NAME
357: ,g_unexpected_error
358: ,g_sqlcode_token
373: ,p_api IN varchar2
374: ,x_return_status OUT NOCOPY VARCHAR2
375: ) IS
376: l_api_name varchar2(300) := 'valid_att_obj_vers_num';
377: l_return_status varchar2(1) := OKC_API.G_RET_STS_SUCCESS;
378: BEGIN
379: x_return_status := OKC_API.G_RET_STS_SUCCESS;
380: IF (-- object_version_number null
381: p_crjv_rec.object_version_number = OKC_API.G_MISS_NUM
375: ) IS
376: l_api_name varchar2(300) := 'valid_att_obj_vers_num';
377: l_return_status varchar2(1) := OKC_API.G_RET_STS_SUCCESS;
378: BEGIN
379: x_return_status := OKC_API.G_RET_STS_SUCCESS;
380: IF (-- object_version_number null
381: p_crjv_rec.object_version_number = OKC_API.G_MISS_NUM
382: OR p_crjv_rec.object_version_number IS NULL
383: ) THEN
377: l_return_status varchar2(1) := OKC_API.G_RET_STS_SUCCESS;
378: BEGIN
379: x_return_status := OKC_API.G_RET_STS_SUCCESS;
380: IF (-- object_version_number null
381: p_crjv_rec.object_version_number = OKC_API.G_MISS_NUM
382: OR p_crjv_rec.object_version_number IS NULL
383: ) THEN
384: OKC_API.set_message
385: (
380: IF (-- object_version_number null
381: p_crjv_rec.object_version_number = OKC_API.G_MISS_NUM
382: OR p_crjv_rec.object_version_number IS NULL
383: ) THEN
384: OKC_API.set_message
385: (
386: G_APP_NAME
387: ,G_REQUIRED_VALUE
388: ,G_COL_NAME_TOKEN
388: ,G_COL_NAME_TOKEN
389: ,'object_version_number'
390: )
391: ;
392: x_return_status := OKC_API.G_RET_STS_ERROR;
393: raise g_exception_halt_validation;
394: END IF; -- object_version_number null
395: EXCEPTION
396: WHEN g_exception_halt_validation THEN
395: EXCEPTION
396: WHEN g_exception_halt_validation THEN
397: null;
398: WHEN OTHERS THEN
399: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
400: OKC_API.set_message
401: (
402: G_APP_NAME
403: ,g_unexpected_error
396: WHEN g_exception_halt_validation THEN
397: null;
398: WHEN OTHERS THEN
399: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
400: OKC_API.set_message
401: (
402: G_APP_NAME
403: ,g_unexpected_error
404: ,g_sqlcode_token
419: ,p_api IN varchar2
420: ,x_return_status OUT NOCOPY VARCHAR2
421: ) IS
422: l_api_name varchar2(300) := 'valid_att_rty_code';
423: l_return_status varchar2(1) := OKC_API.G_RET_STS_SUCCESS;
424:
425: BEGIN
426: x_return_status := OKC_API.G_RET_STS_SUCCESS;
427: IF (-- rel. type code null
422: l_api_name varchar2(300) := 'valid_att_rty_code';
423: l_return_status varchar2(1) := OKC_API.G_RET_STS_SUCCESS;
424:
425: BEGIN
426: x_return_status := OKC_API.G_RET_STS_SUCCESS;
427: IF (-- rel. type code null
428: p_crjv_rec.rty_code = OKC_API.G_MISS_CHAR
429: OR p_crjv_rec.rty_code IS NULL
430: ) THEN
424:
425: BEGIN
426: x_return_status := OKC_API.G_RET_STS_SUCCESS;
427: IF (-- rel. type code null
428: p_crjv_rec.rty_code = OKC_API.G_MISS_CHAR
429: OR p_crjv_rec.rty_code IS NULL
430: ) THEN
431: OKC_API.set_message
432: (
427: IF (-- rel. type code null
428: p_crjv_rec.rty_code = OKC_API.G_MISS_CHAR
429: OR p_crjv_rec.rty_code IS NULL
430: ) THEN
431: OKC_API.set_message
432: (
433: G_APP_NAME
434: ,G_REQUIRED_VALUE
435: ,G_COL_NAME_TOKEN
436: ,'='
437: ,p_crjv_rec.rty_code
438: )
439: ;
440: x_return_status := OKC_API.G_RET_STS_ERROR;
441: raise g_exception_halt_validation;
442: END IF; -- rel. type code null
443: EXCEPTION
444: WHEN g_exception_halt_validation THEN
443: EXCEPTION
444: WHEN g_exception_halt_validation THEN
445: null;
446: WHEN OTHERS THEN
447: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
448: OKC_API.set_message
449: (
450: G_APP_NAME
451: ,g_unexpected_error
444: WHEN g_exception_halt_validation THEN
445: null;
446: WHEN OTHERS THEN
447: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
448: OKC_API.set_message
449: (
450: G_APP_NAME
451: ,g_unexpected_error
452: ,g_sqlcode_token
467: ,p_api IN varchar2
468: ,x_return_status OUT NOCOPY VARCHAR2
469: ) IS
470: l_api_name varchar2(300) := 'valid_att_k_hdr_and_line';
471: l_return_status varchar2(1) := OKC_API.G_RET_STS_SUCCESS;
472: BEGIN
473: x_return_status := OKC_API.G_RET_STS_SUCCESS;
474: IF (-- both contract header and line are null
475: (-- line null
469: ) IS
470: l_api_name varchar2(300) := 'valid_att_k_hdr_and_line';
471: l_return_status varchar2(1) := OKC_API.G_RET_STS_SUCCESS;
472: BEGIN
473: x_return_status := OKC_API.G_RET_STS_SUCCESS;
474: IF (-- both contract header and line are null
475: (-- line null
476: p_crjv_rec.cle_id = OKC_API.G_MISS_NUM
477: OR p_crjv_rec.cle_id IS NULL
472: BEGIN
473: x_return_status := OKC_API.G_RET_STS_SUCCESS;
474: IF (-- both contract header and line are null
475: (-- line null
476: p_crjv_rec.cle_id = OKC_API.G_MISS_NUM
477: OR p_crjv_rec.cle_id IS NULL
478: )
479: and
480: (-- header null
477: OR p_crjv_rec.cle_id IS NULL
478: )
479: and
480: (-- header null
481: p_crjv_rec.chr_id = OKC_API.G_MISS_NUM
482: OR p_crjv_rec.chr_id IS NULL
483: )
484: ) THEN
485: OKC_API.set_message
481: p_crjv_rec.chr_id = OKC_API.G_MISS_NUM
482: OR p_crjv_rec.chr_id IS NULL
483: )
484: ) THEN
485: OKC_API.set_message
486: (
487: G_APP_NAME
488: ,G_REQUIRED_VALUE
489: ,G_COL_NAME_TOKEN
489: ,G_COL_NAME_TOKEN
490: ,'chr_id / cle_id'
491: )
492: ;
493: x_return_status := OKC_API.G_RET_STS_ERROR;
494: raise g_exception_halt_validation;
495: END IF; -- both contract header and line are null
496: EXCEPTION
497: WHEN g_exception_halt_validation THEN
496: EXCEPTION
497: WHEN g_exception_halt_validation THEN
498: null;
499: WHEN OTHERS THEN
500: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
501: OKC_API.set_message
502: (
503: G_APP_NAME
504: ,g_unexpected_error
497: WHEN g_exception_halt_validation THEN
498: null;
499: WHEN OTHERS THEN
500: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
501: OKC_API.set_message
502: (
503: G_APP_NAME
504: ,g_unexpected_error
505: ,g_sqlcode_token
520: ,p_api IN varchar2
521: ,x_return_status OUT NOCOPY VARCHAR2
522: ) IS
523: l_api_name varchar2(300) := 'valid_att_obj_id';
524: l_return_status varchar2(1) := OKC_API.G_RET_STS_SUCCESS;
525: BEGIN
526: x_return_status := OKC_API.G_RET_STS_SUCCESS;
527: IF (-- rel. type code null
528: p_crjv_rec.JTOT_OBJECT1_CODE = OKC_API.G_MISS_CHAR
522: ) IS
523: l_api_name varchar2(300) := 'valid_att_obj_id';
524: l_return_status varchar2(1) := OKC_API.G_RET_STS_SUCCESS;
525: BEGIN
526: x_return_status := OKC_API.G_RET_STS_SUCCESS;
527: IF (-- rel. type code null
528: p_crjv_rec.JTOT_OBJECT1_CODE = OKC_API.G_MISS_CHAR
529: OR p_crjv_rec.JTOT_OBJECT1_CODE IS NULL
530: ) THEN
524: l_return_status varchar2(1) := OKC_API.G_RET_STS_SUCCESS;
525: BEGIN
526: x_return_status := OKC_API.G_RET_STS_SUCCESS;
527: IF (-- rel. type code null
528: p_crjv_rec.JTOT_OBJECT1_CODE = OKC_API.G_MISS_CHAR
529: OR p_crjv_rec.JTOT_OBJECT1_CODE IS NULL
530: ) THEN
531: OKC_API.set_message
532: (
527: IF (-- rel. type code null
528: p_crjv_rec.JTOT_OBJECT1_CODE = OKC_API.G_MISS_CHAR
529: OR p_crjv_rec.JTOT_OBJECT1_CODE IS NULL
530: ) THEN
531: OKC_API.set_message
532: (
533: G_APP_NAME
534: ,G_REQUIRED_VALUE
535: ,G_COL_NAME_TOKEN
535: ,G_COL_NAME_TOKEN
536: ,'JTOT_OBJECT1_CODE'
537: )
538: ;
539: x_return_status := OKC_API.G_RET_STS_ERROR;
540: raise g_exception_halt_validation;
541: END IF; -- rel. type code null
542: EXCEPTION
543: WHEN g_exception_halt_validation THEN
542: EXCEPTION
543: WHEN g_exception_halt_validation THEN
544: null;
545: WHEN OTHERS THEN
546: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
547: OKC_API.set_message
548: (
549: G_APP_NAME
550: ,g_unexpected_error
543: WHEN g_exception_halt_validation THEN
544: null;
545: WHEN OTHERS THEN
546: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
547: OKC_API.set_message
548: (
549: G_APP_NAME
550: ,g_unexpected_error
551: ,g_sqlcode_token
575: SELECT 'x' from okc_k_lines_b
576: where id=p_crjv_rec.object1_id1;
577:
578: l_api_name varchar2(300) := 'valid_rec_obj_type';
579: l_return_status varchar2(1) := OKC_API.G_RET_STS_SUCCESS;
580: l_row_notfound BOOLEAN := TRUE;
581: l_found varchar2(1);
582:
583: BEGIN
580: l_row_notfound BOOLEAN := TRUE;
581: l_found varchar2(1);
582:
583: BEGIN
584: x_return_status := OKC_API.G_RET_STS_SUCCESS;
585: /* start added code
586: */
587:
588: /* check object existence
622:
623: if (--
624: l_row_notfound
625: ) then
626: OKC_API.set_message
627: (
628: G_APP_NAME
629: ,G_INVALID_VALUE
630: ,G_COL_NAME_TOKEN
634: || ';' || p_crjv_rec.object1_id1
635: || ';' || p_crjv_rec.object1_id2
636: )
637: ;
638: x_return_status := OKC_API.G_RET_STS_ERROR;
639: raise g_exception_halt_validation;
640: end if; --
641: /* end added code
642: */
643: EXCEPTION
644: WHEN g_exception_halt_validation THEN
645: null;
646: WHEN OTHERS THEN
647: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
648: OKC_API.set_message
649: (
650: G_APP_NAME
651: ,g_unexpected_error
644: WHEN g_exception_halt_validation THEN
645: null;
646: WHEN OTHERS THEN
647: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
648: OKC_API.set_message
649: (
650: G_APP_NAME
651: ,g_unexpected_error
652: ,g_sqlcode_token
667: ,p_api IN varchar2
668: ,x_return_status OUT NOCOPY VARCHAR2
669: ) IS
670: l_api_name varchar2(300) := 'valid_rec_rty_code';
671: l_return_status varchar2(1) := OKC_API.G_RET_STS_SUCCESS;
672: l_row_notfound BOOLEAN := TRUE;
673:
674: --CURSOR fnd_lookup_pk_csr (p_lookup_code IN VARCHAR2) IS
675: --SELECT
684: --WHERE fnd_lookups.lookup_code = p_lookup_code;
685: --l_fnd_lookup_pk fnd_lookup_pk_csr%ROWTYPE;
686:
687: BEGIN
688: x_return_status := OKC_API.G_RET_STS_SUCCESS;
689: /*
690: IF (p_crjv_rec.RTY_CODE IS NOT NULL) THEN
691: OPEN fnd_lookup_pk_csr(p_crjv_rec.RTY_CODE);
692: FETCH fnd_lookup_pk_csr INTO l_fnd_lookup_pk;
692: FETCH fnd_lookup_pk_csr INTO l_fnd_lookup_pk;
693: l_row_notfound := fnd_lookup_pk_csr%NOTFOUND;
694: CLOSE fnd_lookup_pk_csr;
695: IF (l_row_notfound) THEN
696: OKC_API.set_message
697: (
698: G_APP_NAME
699: ,G_REQUIRED_VALUE
700: ,G_COL_NAME_TOKEN
700: ,G_COL_NAME_TOKEN
701: ,'rty_code'
702: )
703: ;
704: x_return_status := OKC_API.G_RET_STS_ERROR;
705: raise g_exception_halt_validation;
706: END IF;
707: END IF;
708: */
711: 'OKC_REL_OBJ'
712: ,p_crjv_rec.rty_code
713: );
714: if (--
715: x_return_status <> OKC_API.G_RET_STS_SUCCESS
716: ) then
717: OKC_API.set_message
718: (
719: G_APP_NAME
713: );
714: if (--
715: x_return_status <> OKC_API.G_RET_STS_SUCCESS
716: ) then
717: OKC_API.set_message
718: (
719: G_APP_NAME
720: ,G_INVALID_VALUE
721: ,G_COL_NAME_TOKEN
723: ,'='
724: ,p_crjv_rec.rty_code
725: )
726: ;
727: x_return_status := OKC_API.G_RET_STS_ERROR;
728: raise g_exception_halt_validation;
729: end if; --
730:
731: EXCEPTION
731: EXCEPTION
732: WHEN g_exception_halt_validation THEN
733: null;
734: WHEN OTHERS THEN
735: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
736: OKC_API.set_message
737: (
738: G_APP_NAME
739: ,g_unexpected_error
732: WHEN g_exception_halt_validation THEN
733: null;
734: WHEN OTHERS THEN
735: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
736: OKC_API.set_message
737: (
738: G_APP_NAME
739: ,g_unexpected_error
740: ,g_sqlcode_token
755: ,p_api IN varchar2
756: ,x_return_status OUT NOCOPY VARCHAR2
757: ) IS
758: l_api_name varchar2(300) := 'valid_rec_cle_id';
759: l_return_status varchar2(1) := OKC_API.G_RET_STS_SUCCESS;
760: l_row_notfound BOOLEAN := TRUE;
761:
762: CURSOR okc_clev_pk_csr (p_id IN NUMBER) IS
763: SELECT
813: WHERE okc_k_lines_v.id = p_id;
814: l_okc_clev_pk okc_clev_pk_csr%ROWTYPE;
815:
816: BEGIN
817: x_return_status := OKC_API.G_RET_STS_SUCCESS;
818: IF (p_crjv_rec.CLE_ID IS NOT NULL)
819: THEN
820: OPEN okc_clev_pk_csr(p_crjv_rec.CLE_ID);
821: FETCH okc_clev_pk_csr INTO l_okc_clev_pk;
821: FETCH okc_clev_pk_csr INTO l_okc_clev_pk;
822: l_row_notfound := okc_clev_pk_csr%NOTFOUND;
823: CLOSE okc_clev_pk_csr;
824: IF (l_row_notfound) THEN
825: OKC_API.set_message
826: (
827: G_APP_NAME
828: ,G_REQUIRED_VALUE
829: ,G_COL_NAME_TOKEN
829: ,G_COL_NAME_TOKEN
830: ,'cle_id'
831: )
832: ;
833: x_return_status := OKC_API.G_RET_STS_ERROR;
834: raise g_exception_halt_validation;
835: END IF;
836: END IF;
837: EXCEPTION
837: EXCEPTION
838: WHEN g_exception_halt_validation THEN
839: null;
840: WHEN OTHERS THEN
841: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
842: OKC_API.set_message
843: (
844: G_APP_NAME
845: ,g_unexpected_error
838: WHEN g_exception_halt_validation THEN
839: null;
840: WHEN OTHERS THEN
841: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
842: OKC_API.set_message
843: (
844: G_APP_NAME
845: ,g_unexpected_error
846: ,g_sqlcode_token
861: ,p_api IN varchar2
862: ,x_return_status OUT NOCOPY VARCHAR2
863: ) IS
864: l_api_name varchar2(300) := 'valid_rec_chr_id';
865: l_return_status varchar2(1) := OKC_API.G_RET_STS_SUCCESS;
866: l_row_notfound BOOLEAN := TRUE;
867:
868: CURSOR okc_chrv_pk_csr (p_id IN NUMBER) IS
869: SELECT
938: FROM Okc_K_Headers_V
939: WHERE okc_k_headers_v.id = p_id;
940: l_okc_chrv_pk okc_chrv_pk_csr%ROWTYPE;
941: BEGIN
942: x_return_status := OKC_API.G_RET_STS_SUCCESS;
943: IF (p_crjv_rec.CHR_ID IS NOT NULL) THEN
944: OPEN okc_chrv_pk_csr(p_crjv_rec.CHR_ID);
945: FETCH okc_chrv_pk_csr INTO l_okc_chrv_pk;
946: l_row_notfound := okc_chrv_pk_csr%NOTFOUND;
945: FETCH okc_chrv_pk_csr INTO l_okc_chrv_pk;
946: l_row_notfound := okc_chrv_pk_csr%NOTFOUND;
947: CLOSE okc_chrv_pk_csr;
948: IF (l_row_notfound) THEN
949: OKC_API.set_message
950: (
951: G_APP_NAME
952: ,G_REQUIRED_VALUE
953: ,G_COL_NAME_TOKEN
953: ,G_COL_NAME_TOKEN
954: ,'chr_id'
955: )
956: ;
957: x_return_status := OKC_API.G_RET_STS_ERROR;
958: raise g_exception_halt_validation;
959: END IF;
960: END IF;
961: EXCEPTION
961: EXCEPTION
962: WHEN g_exception_halt_validation THEN
963: null;
964: WHEN OTHERS THEN
965: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
966: OKC_API.set_message
967: (
968: G_APP_NAME
969: ,g_unexpected_error
962: WHEN g_exception_halt_validation THEN
963: null;
964: WHEN OTHERS THEN
965: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
966: OKC_API.set_message
967: (
968: G_APP_NAME
969: ,g_unexpected_error
970: ,g_sqlcode_token
985: ,p_api IN varchar2
986: ,x_return_status OUT NOCOPY VARCHAR2
987: ) IS
988: l_api_name varchar2(300) := 'valid_rec_unique';
989: l_return_status varchar2(1) := OKC_API.G_RET_STS_SUCCESS;
990: l_row_notfound BOOLEAN := TRUE;
991:
992: CURSOR row_unique
993: (
1017: )
1018: ) ;
1019: r_row_unique row_unique%rowtype;
1020: BEGIN
1021: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1022:
1023: OPEN row_unique
1024: (
1025: p_crjv_rec
1031: IF (
1032: not(l_row_notfound)
1033: ) THEN
1034:
1035: OKC_API.set_message
1036: (
1037: G_APP_NAME
1038: ,'not unique row'
1039: ,'@'
1038: ,'not unique row'
1039: ,'@'
1040: ,l_api_name
1041: );
1042: x_return_status := OKC_API.G_RET_STS_ERROR;
1043: raise g_exception_halt_validation;
1044: END IF;
1045: EXCEPTION
1046: WHEN g_exception_halt_validation THEN
1045: EXCEPTION
1046: WHEN g_exception_halt_validation THEN
1047: null;
1048: WHEN OTHERS THEN
1049: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1050: OKC_API.set_message
1051: (
1052: G_APP_NAME
1053: ,g_unexpected_error
1046: WHEN g_exception_halt_validation THEN
1047: null;
1048: WHEN OTHERS THEN
1049: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1050: OKC_API.set_message
1051: (
1052: G_APP_NAME
1053: ,g_unexpected_error
1054: ,g_sqlcode_token
1069: ,p_api IN varchar2
1070: ,x_return_status OUT NOCOPY VARCHAR2
1071: ) IS
1072: l_api_name varchar2(300) := 'valid_rec_cardinality';
1073: l_return_status varchar2(1) := OKC_API.G_RET_STS_SUCCESS;
1074: l_row_notfound BOOLEAN := TRUE;
1075:
1076: CURSOR row_cardinality_k
1077: (-- contract negotiates only 1 quote (all rest many)
1128: ;
1129: r_row_cardinality_obj row_cardinality_obj%rowtype;
1130:
1131: BEGIN
1132: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1133: OPEN row_cardinality_k
1134: (
1135: p_crjv_rec
1136: );
1140: CLOSE row_cardinality_k;
1141: IF (
1142: not(l_row_notfound)
1143: ) THEN
1144: OKC_API.set_message
1145: (
1146: G_APP_NAME
1147: ,'not unique row for contract'
1148: ,'@'
1147: ,'not unique row for contract'
1148: ,'@'
1149: ,l_api_name
1150: );
1151: x_return_status := OKC_API.G_RET_STS_ERROR;
1152: raise g_exception_halt_validation;
1153: END IF;
1154: OPEN row_cardinality_obj
1155: (
1161: CLOSE row_cardinality_obj;
1162: IF (
1163: not(l_row_notfound)
1164: ) THEN
1165: OKC_API.set_message
1166: (
1167: G_APP_NAME
1168: ,'not unique object rel'
1169: ,'@'
1168: ,'not unique object rel'
1169: ,'@'
1170: ,l_api_name
1171: );
1172: x_return_status := OKC_API.G_RET_STS_ERROR;
1173: raise g_exception_halt_validation;
1174: END IF;
1175:
1176: EXCEPTION
1176: EXCEPTION
1177: WHEN g_exception_halt_validation THEN
1178: null;
1179: WHEN OTHERS THEN
1180: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1181: OKC_API.set_message
1182: (
1183: G_APP_NAME
1184: ,g_unexpected_error
1177: WHEN g_exception_halt_validation THEN
1178: null;
1179: WHEN OTHERS THEN
1180: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1181: OKC_API.set_message
1182: (
1183: G_APP_NAME
1184: ,g_unexpected_error
1185: ,g_sqlcode_token
1200: (
1201: p_crjv_rec IN crjv_rec_type
1202: ,p_api IN varchar2
1203: ) RETURN VARCHAR2 IS
1204: l_return_status varchar2(1) := OKC_API.G_RET_STS_SUCCESS;
1205: x_return_status varchar2(1) := OKC_API.G_RET_STS_SUCCESS;
1206: l_api_name varchar2(300) := 'Validate_Attributes';
1207: BEGIN
1208: /* start mod code
1201: p_crjv_rec IN crjv_rec_type
1202: ,p_api IN varchar2
1203: ) RETURN VARCHAR2 IS
1204: l_return_status varchar2(1) := OKC_API.G_RET_STS_SUCCESS;
1205: x_return_status varchar2(1) := OKC_API.G_RET_STS_SUCCESS;
1206: l_api_name varchar2(300) := 'Validate_Attributes';
1207: BEGIN
1208: /* start mod code
1209: */
1213: ,l_api_name
1214: ,l_return_status
1215: );
1216: if (-- error returned
1217: l_return_status <> OKC_API.G_RET_STS_SUCCESS
1218: ) then
1219: if (-- no error so far
1220: x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR
1221: ) then
1216: if (-- error returned
1217: l_return_status <> OKC_API.G_RET_STS_SUCCESS
1218: ) then
1219: if (-- no error so far
1220: x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR
1221: ) then
1222: x_return_status := l_return_status;
1223: end if; -- no error so far
1224: end if; -- error returned
1228: ,l_api_name
1229: ,l_return_status
1230: );
1231: if (-- error returned
1232: l_return_status <> OKC_API.G_RET_STS_SUCCESS
1233: ) then
1234: if (-- no error so far
1235: x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR
1236: ) then
1231: if (-- error returned
1232: l_return_status <> OKC_API.G_RET_STS_SUCCESS
1233: ) then
1234: if (-- no error so far
1235: x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR
1236: ) then
1237: x_return_status := l_return_status;
1238: end if; -- no error so far
1239: end if; -- error returned
1243: ,l_api_name
1244: ,l_return_status
1245: );
1246: if (-- error returned
1247: l_return_status <> OKC_API.G_RET_STS_SUCCESS
1248: ) then
1249: if (-- no error so far
1250: x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR
1251: ) then
1246: if (-- error returned
1247: l_return_status <> OKC_API.G_RET_STS_SUCCESS
1248: ) then
1249: if (-- no error so far
1250: x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR
1251: ) then
1252: x_return_status := l_return_status;
1253: end if; -- no error so far
1254: end if; -- error returned
1258: ,l_api_name
1259: ,l_return_status
1260: );
1261: if (-- error returned
1262: l_return_status <> OKC_API.G_RET_STS_SUCCESS
1263: ) then
1264: if (-- no error so far
1265: x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR
1266: ) then
1261: if (-- error returned
1262: l_return_status <> OKC_API.G_RET_STS_SUCCESS
1263: ) then
1264: if (-- no error so far
1265: x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR
1266: ) then
1267: x_return_status := l_return_status;
1268: end if; -- no error so far
1269: end if; -- error returned
1273: ,l_api_name
1274: ,l_return_status
1275: );
1276: if (-- error returned
1277: l_return_status <> OKC_API.G_RET_STS_SUCCESS
1278: ) then
1279: if (-- no error so far
1280: x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR
1281: ) then
1276: if (-- error returned
1277: l_return_status <> OKC_API.G_RET_STS_SUCCESS
1278: ) then
1279: if (-- no error so far
1280: x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR
1281: ) then
1282: x_return_status := l_return_status;
1283: end if; -- no error so far
1284: end if; -- error returned
1288: ,l_api_name
1289: ,l_return_status
1290: );
1291: if (-- error returned
1292: l_return_status <> OKC_API.G_RET_STS_SUCCESS
1293: ) then
1294: if (-- no error so far
1295: x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR
1296: ) then
1291: if (-- error returned
1292: l_return_status <> OKC_API.G_RET_STS_SUCCESS
1293: ) then
1294: if (-- no error so far
1295: x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR
1296: ) then
1297: x_return_status := l_return_status;
1298: end if; -- no error so far
1299: end if; -- error returned
1303: ,l_api_name
1304: ,l_return_status
1305: );
1306: if (-- error returned
1307: l_return_status <> OKC_API.G_RET_STS_SUCCESS
1308: ) then
1309: if (-- no error so far
1310: x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR
1311: ) then
1306: if (-- error returned
1307: l_return_status <> OKC_API.G_RET_STS_SUCCESS
1308: ) then
1309: if (-- no error so far
1310: x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR
1311: ) then
1312: x_return_status := l_return_status;
1313: end if; -- no error so far
1314: end if; -- error returned
1318: ,l_api_name
1319: ,l_return_status
1320: );
1321: if (-- error returned
1322: l_return_status <> OKC_API.G_RET_STS_SUCCESS
1323: ) then
1324: if (-- no error so far
1325: x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR
1326: ) then
1321: if (-- error returned
1322: l_return_status <> OKC_API.G_RET_STS_SUCCESS
1323: ) then
1324: if (-- no error so far
1325: x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR
1326: ) then
1327: x_return_status := l_return_status;
1328: end if; -- no error so far
1329: end if; -- error returned
1333: ,l_api_name
1334: ,l_return_status
1335: );
1336: if (-- error returned
1337: l_return_status <> OKC_API.G_RET_STS_SUCCESS
1338: ) then
1339: if (-- no error so far
1340: x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR
1341: ) then
1336: if (-- error returned
1337: l_return_status <> OKC_API.G_RET_STS_SUCCESS
1338: ) then
1339: if (-- no error so far
1340: x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR
1341: ) then
1342: x_return_status := l_return_status;
1343: end if; -- no error so far
1344: end if; -- error returned
1348: ,l_api_name
1349: ,l_return_status
1350: );
1351: if (-- error returned
1352: l_return_status <> OKC_API.G_RET_STS_SUCCESS
1353: ) then
1354: if (-- no error so far
1355: x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR
1356: ) then
1351: if (-- error returned
1352: l_return_status <> OKC_API.G_RET_STS_SUCCESS
1353: ) then
1354: if (-- no error so far
1355: x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR
1356: ) then
1357: x_return_status := l_return_status;
1358: end if; -- no error so far
1359: end if; -- error returned
1366: -- ,l_api_name
1367: -- ,l_return_status
1368: -- );
1369: -- if (-- error returned
1370: -- l_return_status <> OKC_API.G_RET_STS_SUCCESS
1371: -- ) then
1372: -- if (-- no error so far
1373: -- x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR
1374: -- ) then
1369: -- if (-- error returned
1370: -- l_return_status <> OKC_API.G_RET_STS_SUCCESS
1371: -- ) then
1372: -- if (-- no error so far
1373: -- x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR
1374: -- ) then
1375: -- x_return_status := l_return_status;
1376: -- end if; -- no error so far
1377: -- end if; -- error returned
1470: p_crjv_rec IN crjv_rec_type) IS
1471:
1472: l_api_version CONSTANT NUMBER := 1;
1473: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
1474: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1475: l_crjv_rec crjv_rec_type := p_crjv_rec;
1476: l_crj_rec crj_rec_type;
1477: BEGIN
1478: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1474: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1475: l_crjv_rec crjv_rec_type := p_crjv_rec;
1476: l_crj_rec crj_rec_type;
1477: BEGIN
1478: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1479: G_PKG_NAME,
1480: p_init_msg_list,
1481: l_api_version,
1482: p_api_version,
1481: l_api_version,
1482: p_api_version,
1483: '_PVT',
1484: x_return_status);
1485: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1486: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1487: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1488: RAISE OKC_API.G_EXCEPTION_ERROR;
1489: END IF;
1482: p_api_version,
1483: '_PVT',
1484: x_return_status);
1485: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1486: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1487: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1488: RAISE OKC_API.G_EXCEPTION_ERROR;
1489: END IF;
1490: --- Validate all non-missing attributes (Item Level Validation)
1483: '_PVT',
1484: x_return_status);
1485: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1486: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1487: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1488: RAISE OKC_API.G_EXCEPTION_ERROR;
1489: END IF;
1490: --- Validate all non-missing attributes (Item Level Validation)
1491: l_return_status := Validate_Attributes(l_crjv_rec, l_api_name);
1484: x_return_status);
1485: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1486: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1487: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1488: RAISE OKC_API.G_EXCEPTION_ERROR;
1489: END IF;
1490: --- Validate all non-missing attributes (Item Level Validation)
1491: l_return_status := Validate_Attributes(l_crjv_rec, l_api_name);
1492: --- If any errors happen abort API
1489: END IF;
1490: --- Validate all non-missing attributes (Item Level Validation)
1491: l_return_status := Validate_Attributes(l_crjv_rec, l_api_name);
1492: --- If any errors happen abort API
1493: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1494: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1495: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1496: RAISE OKC_API.G_EXCEPTION_ERROR;
1497: END IF;
1490: --- Validate all non-missing attributes (Item Level Validation)
1491: l_return_status := Validate_Attributes(l_crjv_rec, l_api_name);
1492: --- If any errors happen abort API
1493: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1494: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1495: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1496: RAISE OKC_API.G_EXCEPTION_ERROR;
1497: END IF;
1498: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1491: l_return_status := Validate_Attributes(l_crjv_rec, l_api_name);
1492: --- If any errors happen abort API
1493: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1494: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1495: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1496: RAISE OKC_API.G_EXCEPTION_ERROR;
1497: END IF;
1498: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1499: EXCEPTION
1492: --- If any errors happen abort API
1493: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1494: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1495: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1496: RAISE OKC_API.G_EXCEPTION_ERROR;
1497: END IF;
1498: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1499: EXCEPTION
1500: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1494: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1495: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1496: RAISE OKC_API.G_EXCEPTION_ERROR;
1497: END IF;
1498: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1499: EXCEPTION
1500: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1501: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1502: (
1496: RAISE OKC_API.G_EXCEPTION_ERROR;
1497: END IF;
1498: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1499: EXCEPTION
1500: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1501: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1502: (
1503: l_api_name,
1504: G_PKG_NAME,
1497: END IF;
1498: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1499: EXCEPTION
1500: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1501: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1502: (
1503: l_api_name,
1504: G_PKG_NAME,
1505: 'OKC_API.G_RET_STS_ERROR',
1501: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1502: (
1503: l_api_name,
1504: G_PKG_NAME,
1505: 'OKC_API.G_RET_STS_ERROR',
1506: x_msg_count,
1507: x_msg_data,
1508: '_PVT'
1509: );
1506: x_msg_count,
1507: x_msg_data,
1508: '_PVT'
1509: );
1510: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1511: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1512: (
1513: l_api_name,
1514: G_PKG_NAME,
1507: x_msg_data,
1508: '_PVT'
1509: );
1510: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1511: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1512: (
1513: l_api_name,
1514: G_PKG_NAME,
1515: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1511: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1512: (
1513: l_api_name,
1514: G_PKG_NAME,
1515: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1516: x_msg_count,
1517: x_msg_data,
1518: '_PVT'
1519: );
1517: x_msg_data,
1518: '_PVT'
1519: );
1520: WHEN OTHERS THEN
1521: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1522: (
1523: l_api_name,
1524: G_PKG_NAME,
1525: 'OTHERS',
1540: p_crjv_tbl IN crjv_tbl_type) IS
1541:
1542: l_api_version CONSTANT NUMBER := 1;
1543: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
1544: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1545: i NUMBER := 0;
1546: BEGIN
1547: OKC_API.init_msg_list(p_init_msg_list);
1548: -- Make sure PL/SQL table has records in it before passing
1543: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
1544: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1545: i NUMBER := 0;
1546: BEGIN
1547: OKC_API.init_msg_list(p_init_msg_list);
1548: -- Make sure PL/SQL table has records in it before passing
1549: IF (p_crjv_tbl.COUNT > 0) THEN
1550: i := p_crjv_tbl.FIRST;
1551: LOOP
1550: i := p_crjv_tbl.FIRST;
1551: LOOP
1552: validate_row (
1553: p_api_version => p_api_version,
1554: p_init_msg_list => OKC_API.G_FALSE,
1555: x_return_status => x_return_status,
1556: x_msg_count => x_msg_count,
1557: x_msg_data => x_msg_data,
1558: p_crjv_rec => p_crjv_tbl(i));
1560: i := p_crjv_tbl.NEXT(i);
1561: END LOOP;
1562: END IF;
1563: EXCEPTION
1564: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1565: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1566: (
1567: l_api_name,
1568: G_PKG_NAME,
1561: END LOOP;
1562: END IF;
1563: EXCEPTION
1564: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1565: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1566: (
1567: l_api_name,
1568: G_PKG_NAME,
1569: 'OKC_API.G_RET_STS_ERROR',
1565: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1566: (
1567: l_api_name,
1568: G_PKG_NAME,
1569: 'OKC_API.G_RET_STS_ERROR',
1570: x_msg_count,
1571: x_msg_data,
1572: '_PVT'
1573: );
1570: x_msg_count,
1571: x_msg_data,
1572: '_PVT'
1573: );
1574: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1575: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1576: (
1577: l_api_name,
1578: G_PKG_NAME,
1571: x_msg_data,
1572: '_PVT'
1573: );
1574: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1575: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1576: (
1577: l_api_name,
1578: G_PKG_NAME,
1579: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1575: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1576: (
1577: l_api_name,
1578: G_PKG_NAME,
1579: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1580: x_msg_count,
1581: x_msg_data,
1582: '_PVT'
1583: );
1581: x_msg_data,
1582: '_PVT'
1583: );
1584: WHEN OTHERS THEN
1585: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1586: (
1587: l_api_name,
1588: G_PKG_NAME,
1589: 'OTHERS',
1608: x_crj_rec OUT NOCOPY crj_rec_type) IS
1609:
1610: l_api_version CONSTANT NUMBER := 1;
1611: l_api_name CONSTANT VARCHAR2(30) := 'OBJS_insert_row';
1612: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1613: l_crj_rec crj_rec_type := p_crj_rec;
1614: l_def_crj_rec crj_rec_type;
1615: ---------------------------------------
1616: -- Set_Attributes for:OKC_K_REL_OBJS --
1618: FUNCTION Set_Attributes (
1619: p_crj_rec IN crj_rec_type,
1620: x_crj_rec OUT NOCOPY crj_rec_type
1621: ) RETURN VARCHAR2 IS
1622: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1623: BEGIN
1624: x_crj_rec := p_crj_rec;
1625: RETURN(l_return_status);
1626: END Set_Attributes;
1628: IF (l_debug = 'Y') THEN
1629: okc_util.print_trace(5, ' ');
1630: okc_util.print_trace(5, '>START - OKC_CRJ_PVT.INSERT_ROW -');
1631: END IF;
1632: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1633: p_init_msg_list,
1634: '_PVT',
1635: x_return_status);
1636: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1632: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1633: p_init_msg_list,
1634: '_PVT',
1635: x_return_status);
1636: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1637: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1638: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1639: RAISE OKC_API.G_EXCEPTION_ERROR;
1640: END IF;
1633: p_init_msg_list,
1634: '_PVT',
1635: x_return_status);
1636: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1637: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1638: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1639: RAISE OKC_API.G_EXCEPTION_ERROR;
1640: END IF;
1641: --- Setting item attributes
1634: '_PVT',
1635: x_return_status);
1636: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1637: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1638: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1639: RAISE OKC_API.G_EXCEPTION_ERROR;
1640: END IF;
1641: --- Setting item attributes
1642: l_return_status := Set_Attributes(
1635: x_return_status);
1636: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1637: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1638: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1639: RAISE OKC_API.G_EXCEPTION_ERROR;
1640: END IF;
1641: --- Setting item attributes
1642: l_return_status := Set_Attributes(
1643: p_crj_rec, -- IN
1642: l_return_status := Set_Attributes(
1643: p_crj_rec, -- IN
1644: l_crj_rec); -- OUT
1645: --- If any errors happen abort API
1646: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1647: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1648: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1649: RAISE OKC_API.G_EXCEPTION_ERROR;
1650: END IF;
1643: p_crj_rec, -- IN
1644: l_crj_rec); -- OUT
1645: --- If any errors happen abort API
1646: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1647: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1648: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1649: RAISE OKC_API.G_EXCEPTION_ERROR;
1650: END IF;
1651:
1644: l_crj_rec); -- OUT
1645: --- If any errors happen abort API
1646: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1647: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1648: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1649: RAISE OKC_API.G_EXCEPTION_ERROR;
1650: END IF;
1651:
1652: INSERT INTO OKC_K_REL_OBJS(
1645: --- If any errors happen abort API
1646: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1647: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1648: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1649: RAISE OKC_API.G_EXCEPTION_ERROR;
1650: END IF;
1651:
1652: INSERT INTO OKC_K_REL_OBJS(
1653: id,
1731: END IF;
1732:
1733: -- Set OUT values
1734: x_crj_rec := l_crj_rec;
1735: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1736: IF (l_debug = 'Y') THEN
1737: okc_util.print_trace(5, '
1739: EXCEPTION
1736: IF (l_debug = 'Y') THEN
1737: okc_util.print_trace(5, '
1739: EXCEPTION
1740: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1741: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1742: (
1743: l_api_name,
1744: G_PKG_NAME,
1737: okc_util.print_trace(5, '
1739: EXCEPTION
1740: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1741: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1742: (
1743: l_api_name,
1744: G_PKG_NAME,
1745: 'OKC_API.G_RET_STS_ERROR',
1741: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1742: (
1743: l_api_name,
1744: G_PKG_NAME,
1745: 'OKC_API.G_RET_STS_ERROR',
1746: x_msg_count,
1747: x_msg_data,
1748: '_PVT'
1749: );
1746: x_msg_count,
1747: x_msg_data,
1748: '_PVT'
1749: );
1750: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1751: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1752: (
1753: l_api_name,
1754: G_PKG_NAME,
1747: x_msg_data,
1748: '_PVT'
1749: );
1750: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1751: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1752: (
1753: l_api_name,
1754: G_PKG_NAME,
1755: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1751: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1752: (
1753: l_api_name,
1754: G_PKG_NAME,
1755: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1756: x_msg_count,
1757: x_msg_data,
1758: '_PVT'
1759: );
1757: x_msg_data,
1758: '_PVT'
1759: );
1760: WHEN OTHERS THEN
1761: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1762: (
1763: l_api_name,
1764: G_PKG_NAME,
1765: 'OTHERS',
1781: x_crjv_rec OUT NOCOPY crjv_rec_type) IS
1782:
1783: l_api_version CONSTANT NUMBER := 1;
1784: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
1785: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1786: l_crjv_rec crjv_rec_type;
1787: l_def_crjv_rec crjv_rec_type;
1788: l_crj_rec crj_rec_type;
1789: lx_crj_rec crj_rec_type;
1809: FUNCTION Set_Attributes (
1810: p_crjv_rec IN crjv_rec_type,
1811: x_crjv_rec OUT NOCOPY crjv_rec_type
1812: ) RETURN VARCHAR2 IS
1813: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1814: BEGIN
1815: x_crjv_rec := p_crjv_rec;
1816: x_crjv_rec.OBJECT_VERSION_NUMBER := 1;
1817: RETURN(l_return_status);
1821: IF (l_debug = 'Y') THEN
1822: okc_util.print_trace(4, ' ');
1823: okc_util.print_trace(4, '>START - OKC_CRJ_PVT.INSERT_ROW -');
1824: END IF;
1825: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1826: G_PKG_NAME,
1827: p_init_msg_list,
1828: l_api_version,
1829: p_api_version,
1828: l_api_version,
1829: p_api_version,
1830: '_PVT',
1831: x_return_status);
1832: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1833: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1834: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1835: RAISE OKC_API.G_EXCEPTION_ERROR;
1836: END IF;
1829: p_api_version,
1830: '_PVT',
1831: x_return_status);
1832: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1833: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1834: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1835: RAISE OKC_API.G_EXCEPTION_ERROR;
1836: END IF;
1837: l_crjv_rec := null_out_defaults(p_crjv_rec);
1830: '_PVT',
1831: x_return_status);
1832: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1833: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1834: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1835: RAISE OKC_API.G_EXCEPTION_ERROR;
1836: END IF;
1837: l_crjv_rec := null_out_defaults(p_crjv_rec);
1838: -- Set primary key value
1831: x_return_status);
1832: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1833: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1834: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1835: RAISE OKC_API.G_EXCEPTION_ERROR;
1836: END IF;
1837: l_crjv_rec := null_out_defaults(p_crjv_rec);
1838: -- Set primary key value
1839: l_crjv_rec.ID := get_seq_id;
1841: l_return_status := Set_Attributes(
1842: l_crjv_rec, -- IN
1843: l_def_crjv_rec); -- OUT
1844: --- If any errors happen abort API
1845: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1846: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1847: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1848: RAISE OKC_API.G_EXCEPTION_ERROR;
1849: END IF;
1842: l_crjv_rec, -- IN
1843: l_def_crjv_rec); -- OUT
1844: --- If any errors happen abort API
1845: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1846: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1847: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1848: RAISE OKC_API.G_EXCEPTION_ERROR;
1849: END IF;
1850:
1843: l_def_crjv_rec); -- OUT
1844: --- If any errors happen abort API
1845: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1846: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1847: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1848: RAISE OKC_API.G_EXCEPTION_ERROR;
1849: END IF;
1850:
1851: IF (l_debug = 'Y') THEN
1844: --- If any errors happen abort API
1845: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1846: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1847: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1848: RAISE OKC_API.G_EXCEPTION_ERROR;
1849: END IF;
1850:
1851: IF (l_debug = 'Y') THEN
1852: okc_util.print_trace(5, 'calling fill_who_columns');
1867: END IF;
1868: l_return_status := Validate_Attributes(l_def_crjv_rec, l_api_name);
1869:
1870: --- If any errors happen abort API
1871: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1872: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1873: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1874: RAISE OKC_API.G_EXCEPTION_ERROR;
1875: END IF;
1868: l_return_status := Validate_Attributes(l_def_crjv_rec, l_api_name);
1869:
1870: --- If any errors happen abort API
1871: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1872: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1873: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1874: RAISE OKC_API.G_EXCEPTION_ERROR;
1875: END IF;
1876: --------------------------------------
1869:
1870: --- If any errors happen abort API
1871: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1872: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1873: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1874: RAISE OKC_API.G_EXCEPTION_ERROR;
1875: END IF;
1876: --------------------------------------
1877: -- Move VIEW record to "Child" records
1870: --- If any errors happen abort API
1871: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1872: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1873: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1874: RAISE OKC_API.G_EXCEPTION_ERROR;
1875: END IF;
1876: --------------------------------------
1877: -- Move VIEW record to "Child" records
1878: --------------------------------------
1894: x_msg_data,
1895: l_crj_rec,
1896: lx_crj_rec
1897: );
1898: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1899: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1900: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1901: RAISE OKC_API.G_EXCEPTION_ERROR;
1902: END IF;
1895: l_crj_rec,
1896: lx_crj_rec
1897: );
1898: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1899: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1900: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1901: RAISE OKC_API.G_EXCEPTION_ERROR;
1902: END IF;
1903: migrate(lx_crj_rec, l_def_crjv_rec);
1896: lx_crj_rec
1897: );
1898: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1899: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1900: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1901: RAISE OKC_API.G_EXCEPTION_ERROR;
1902: END IF;
1903: migrate(lx_crj_rec, l_def_crjv_rec);
1904: -- Set OUT values
1897: );
1898: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1899: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1900: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1901: RAISE OKC_API.G_EXCEPTION_ERROR;
1902: END IF;
1903: migrate(lx_crj_rec, l_def_crjv_rec);
1904: -- Set OUT values
1905: x_crjv_rec := l_def_crjv_rec;
1902: END IF;
1903: migrate(lx_crj_rec, l_def_crjv_rec);
1904: -- Set OUT values
1905: x_crjv_rec := l_def_crjv_rec;
1906: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1907: IF (l_debug = 'Y') THEN
1908: okc_util.print_trace(4, '
1910: EXCEPTION
1907: IF (l_debug = 'Y') THEN
1908: okc_util.print_trace(4, '
1910: EXCEPTION
1911: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1912: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1913: (
1914: l_api_name,
1915: G_PKG_NAME,
1908: okc_util.print_trace(4, '
1910: EXCEPTION
1911: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1912: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1913: (
1914: l_api_name,
1915: G_PKG_NAME,
1916: 'OKC_API.G_RET_STS_ERROR',
1912: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1913: (
1914: l_api_name,
1915: G_PKG_NAME,
1916: 'OKC_API.G_RET_STS_ERROR',
1917: x_msg_count,
1918: x_msg_data,
1919: '_PVT'
1920: );
1917: x_msg_count,
1918: x_msg_data,
1919: '_PVT'
1920: );
1921: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1922: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1923: (
1924: l_api_name,
1925: G_PKG_NAME,
1918: x_msg_data,
1919: '_PVT'
1920: );
1921: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1922: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1923: (
1924: l_api_name,
1925: G_PKG_NAME,
1926: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1922: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1923: (
1924: l_api_name,
1925: G_PKG_NAME,
1926: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1927: x_msg_count,
1928: x_msg_data,
1929: '_PVT'
1930: );
1928: x_msg_data,
1929: '_PVT'
1930: );
1931: WHEN OTHERS THEN
1932: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1933: (
1934: l_api_name,
1935: G_PKG_NAME,
1936: 'OTHERS',
1952: x_crjv_tbl OUT NOCOPY crjv_tbl_type) IS
1953:
1954: l_api_version CONSTANT NUMBER := 1;
1955: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
1956: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1957: i NUMBER := 0;
1958: BEGIN
1959: OKC_API.init_msg_list(p_init_msg_list);
1960: -- Make sure PL/SQL table has records in it before passing
1955: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
1956: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1957: i NUMBER := 0;
1958: BEGIN
1959: OKC_API.init_msg_list(p_init_msg_list);
1960: -- Make sure PL/SQL table has records in it before passing
1961: IF (p_crjv_tbl.COUNT > 0) THEN
1962: i := p_crjv_tbl.FIRST;
1963: LOOP
1962: i := p_crjv_tbl.FIRST;
1963: LOOP
1964: insert_row (
1965: p_api_version => p_api_version,
1966: p_init_msg_list => OKC_API.G_FALSE,
1967: x_return_status => x_return_status,
1968: x_msg_count => x_msg_count,
1969: x_msg_data => x_msg_data,
1970: p_crjv_rec => p_crjv_tbl(i),
1973: i := p_crjv_tbl.NEXT(i);
1974: END LOOP;
1975: END IF;
1976: EXCEPTION
1977: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1978: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1979: (
1980: l_api_name,
1981: G_PKG_NAME,
1974: END LOOP;
1975: END IF;
1976: EXCEPTION
1977: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1978: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1979: (
1980: l_api_name,
1981: G_PKG_NAME,
1982: 'OKC_API.G_RET_STS_ERROR',
1978: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1979: (
1980: l_api_name,
1981: G_PKG_NAME,
1982: 'OKC_API.G_RET_STS_ERROR',
1983: x_msg_count,
1984: x_msg_data,
1985: '_PVT'
1986: );
1983: x_msg_count,
1984: x_msg_data,
1985: '_PVT'
1986: );
1987: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1988: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1989: (
1990: l_api_name,
1991: G_PKG_NAME,
1984: x_msg_data,
1985: '_PVT'
1986: );
1987: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1988: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1989: (
1990: l_api_name,
1991: G_PKG_NAME,
1992: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1988: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1989: (
1990: l_api_name,
1991: G_PKG_NAME,
1992: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1993: x_msg_count,
1994: x_msg_data,
1995: '_PVT'
1996: );
1994: x_msg_data,
1995: '_PVT'
1996: );
1997: WHEN OTHERS THEN
1998: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1999: (
2000: l_api_name,
2001: G_PKG_NAME,
2002: 'OTHERS',
2033: FROM OKC_K_REL_OBJS
2034: WHERE ID = p_crj_rec.id;
2035: l_api_version CONSTANT NUMBER := 1;
2036: l_api_name CONSTANT VARCHAR2(30) := 'OBJS_lock_row';
2037: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2038: l_object_version_number OKC_K_REL_OBJS.OBJECT_VERSION_NUMBER%TYPE;
2039: lc_object_version_number OKC_K_REL_OBJS.OBJECT_VERSION_NUMBER%TYPE;
2040: l_row_notfound BOOLEAN := FALSE;
2041: lc_row_notfound BOOLEAN := FALSE;
2039: lc_object_version_number OKC_K_REL_OBJS.OBJECT_VERSION_NUMBER%TYPE;
2040: l_row_notfound BOOLEAN := FALSE;
2041: lc_row_notfound BOOLEAN := FALSE;
2042: BEGIN
2043: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2044: p_init_msg_list,
2045: '_PVT',
2046: x_return_status);
2047: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2043: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2044: p_init_msg_list,
2045: '_PVT',
2046: x_return_status);
2047: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2048: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2049: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2050: RAISE OKC_API.G_EXCEPTION_ERROR;
2051: END IF;
2044: p_init_msg_list,
2045: '_PVT',
2046: x_return_status);
2047: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2048: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2049: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2050: RAISE OKC_API.G_EXCEPTION_ERROR;
2051: END IF;
2052: BEGIN
2045: '_PVT',
2046: x_return_status);
2047: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2048: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2049: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2050: RAISE OKC_API.G_EXCEPTION_ERROR;
2051: END IF;
2052: BEGIN
2053: OPEN lock_csr(p_crj_rec);
2046: x_return_status);
2047: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2048: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2049: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2050: RAISE OKC_API.G_EXCEPTION_ERROR;
2051: END IF;
2052: BEGIN
2053: OPEN lock_csr(p_crj_rec);
2054: FETCH lock_csr INTO l_object_version_number;
2058: WHEN E_Resource_Busy THEN
2059: IF (lock_csr%ISOPEN) THEN
2060: CLOSE lock_csr;
2061: END IF;
2062: OKC_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
2063: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
2064: END;
2065:
2066: IF ( l_row_notfound ) THEN
2069: lc_row_notfound := lchk_csr%NOTFOUND;
2070: CLOSE lchk_csr;
2071: END IF;
2072: IF (lc_row_notfound) THEN
2073: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2074: RAISE OKC_API.G_EXCEPTION_ERROR;
2075: ELSIF lc_object_version_number > p_crj_rec.object_version_number THEN
2076: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2077: RAISE OKC_API.G_EXCEPTION_ERROR;
2070: CLOSE lchk_csr;
2071: END IF;
2072: IF (lc_row_notfound) THEN
2073: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2074: RAISE OKC_API.G_EXCEPTION_ERROR;
2075: ELSIF lc_object_version_number > p_crj_rec.object_version_number THEN
2076: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2077: RAISE OKC_API.G_EXCEPTION_ERROR;
2078: ELSIF lc_object_version_number <> p_crj_rec.object_version_number THEN
2072: IF (lc_row_notfound) THEN
2073: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2074: RAISE OKC_API.G_EXCEPTION_ERROR;
2075: ELSIF lc_object_version_number > p_crj_rec.object_version_number THEN
2076: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2077: RAISE OKC_API.G_EXCEPTION_ERROR;
2078: ELSIF lc_object_version_number <> p_crj_rec.object_version_number THEN
2079: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2080: RAISE OKC_API.G_EXCEPTION_ERROR;
2073: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2074: RAISE OKC_API.G_EXCEPTION_ERROR;
2075: ELSIF lc_object_version_number > p_crj_rec.object_version_number THEN
2076: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2077: RAISE OKC_API.G_EXCEPTION_ERROR;
2078: ELSIF lc_object_version_number <> p_crj_rec.object_version_number THEN
2079: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2080: RAISE OKC_API.G_EXCEPTION_ERROR;
2081: ELSIF lc_object_version_number = -1 THEN
2075: ELSIF lc_object_version_number > p_crj_rec.object_version_number THEN
2076: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2077: RAISE OKC_API.G_EXCEPTION_ERROR;
2078: ELSIF lc_object_version_number <> p_crj_rec.object_version_number THEN
2079: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2080: RAISE OKC_API.G_EXCEPTION_ERROR;
2081: ELSIF lc_object_version_number = -1 THEN
2082: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2083: RAISE OKC_API.G_EXCEPTION_ERROR;
2076: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2077: RAISE OKC_API.G_EXCEPTION_ERROR;
2078: ELSIF lc_object_version_number <> p_crj_rec.object_version_number THEN
2079: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2080: RAISE OKC_API.G_EXCEPTION_ERROR;
2081: ELSIF lc_object_version_number = -1 THEN
2082: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2083: RAISE OKC_API.G_EXCEPTION_ERROR;
2084: END IF;
2078: ELSIF lc_object_version_number <> p_crj_rec.object_version_number THEN
2079: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2080: RAISE OKC_API.G_EXCEPTION_ERROR;
2081: ELSIF lc_object_version_number = -1 THEN
2082: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2083: RAISE OKC_API.G_EXCEPTION_ERROR;
2084: END IF;
2085: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2086: EXCEPTION
2079: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2080: RAISE OKC_API.G_EXCEPTION_ERROR;
2081: ELSIF lc_object_version_number = -1 THEN
2082: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2083: RAISE OKC_API.G_EXCEPTION_ERROR;
2084: END IF;
2085: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2086: EXCEPTION
2087: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2081: ELSIF lc_object_version_number = -1 THEN
2082: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2083: RAISE OKC_API.G_EXCEPTION_ERROR;
2084: END IF;
2085: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2086: EXCEPTION
2087: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2088: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2089: (
2083: RAISE OKC_API.G_EXCEPTION_ERROR;
2084: END IF;
2085: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2086: EXCEPTION
2087: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2088: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2089: (
2090: l_api_name,
2091: G_PKG_NAME,
2084: END IF;
2085: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2086: EXCEPTION
2087: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2088: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2089: (
2090: l_api_name,
2091: G_PKG_NAME,
2092: 'OKC_API.G_RET_STS_ERROR',
2088: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2089: (
2090: l_api_name,
2091: G_PKG_NAME,
2092: 'OKC_API.G_RET_STS_ERROR',
2093: x_msg_count,
2094: x_msg_data,
2095: '_PVT'
2096: );
2093: x_msg_count,
2094: x_msg_data,
2095: '_PVT'
2096: );
2097: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2098: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2099: (
2100: l_api_name,
2101: G_PKG_NAME,
2094: x_msg_data,
2095: '_PVT'
2096: );
2097: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2098: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2099: (
2100: l_api_name,
2101: G_PKG_NAME,
2102: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2098: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2099: (
2100: l_api_name,
2101: G_PKG_NAME,
2102: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2103: x_msg_count,
2104: x_msg_data,
2105: '_PVT'
2106: );
2104: x_msg_data,
2105: '_PVT'
2106: );
2107: WHEN OTHERS THEN
2108: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2109: (
2110: l_api_name,
2111: G_PKG_NAME,
2112: 'OTHERS',
2127: p_crjv_rec IN crjv_rec_type) IS
2128:
2129: l_api_version CONSTANT NUMBER := 1;
2130: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
2131: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2132: l_crj_rec crj_rec_type;
2133: BEGIN
2134: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2135: G_PKG_NAME,
2130: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
2131: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2132: l_crj_rec crj_rec_type;
2133: BEGIN
2134: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2135: G_PKG_NAME,
2136: p_init_msg_list,
2137: l_api_version,
2138: p_api_version,
2137: l_api_version,
2138: p_api_version,
2139: '_PVT',
2140: x_return_status);
2141: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2142: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2143: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2144: RAISE OKC_API.G_EXCEPTION_ERROR;
2145: END IF;
2138: p_api_version,
2139: '_PVT',
2140: x_return_status);
2141: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2142: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2143: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2144: RAISE OKC_API.G_EXCEPTION_ERROR;
2145: END IF;
2146: --------------------------------------
2139: '_PVT',
2140: x_return_status);
2141: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2142: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2143: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2144: RAISE OKC_API.G_EXCEPTION_ERROR;
2145: END IF;
2146: --------------------------------------
2147: -- Move VIEW record to "Child" records
2140: x_return_status);
2141: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2142: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2143: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2144: RAISE OKC_API.G_EXCEPTION_ERROR;
2145: END IF;
2146: --------------------------------------
2147: -- Move VIEW record to "Child" records
2148: --------------------------------------
2156: x_msg_count,
2157: x_msg_data,
2158: l_crj_rec
2159: );
2160: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2161: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2162: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2163: RAISE OKC_API.G_EXCEPTION_ERROR;
2164: END IF;
2157: x_msg_data,
2158: l_crj_rec
2159: );
2160: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2161: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2162: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2163: RAISE OKC_API.G_EXCEPTION_ERROR;
2164: END IF;
2165: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2158: l_crj_rec
2159: );
2160: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2161: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2162: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2163: RAISE OKC_API.G_EXCEPTION_ERROR;
2164: END IF;
2165: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2166: EXCEPTION
2159: );
2160: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2161: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2162: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2163: RAISE OKC_API.G_EXCEPTION_ERROR;
2164: END IF;
2165: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2166: EXCEPTION
2167: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2161: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2162: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2163: RAISE OKC_API.G_EXCEPTION_ERROR;
2164: END IF;
2165: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2166: EXCEPTION
2167: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2168: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2169: (
2163: RAISE OKC_API.G_EXCEPTION_ERROR;
2164: END IF;
2165: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2166: EXCEPTION
2167: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2168: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2169: (
2170: l_api_name,
2171: G_PKG_NAME,
2164: END IF;
2165: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2166: EXCEPTION
2167: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2168: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2169: (
2170: l_api_name,
2171: G_PKG_NAME,
2172: 'OKC_API.G_RET_STS_ERROR',
2168: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2169: (
2170: l_api_name,
2171: G_PKG_NAME,
2172: 'OKC_API.G_RET_STS_ERROR',
2173: x_msg_count,
2174: x_msg_data,
2175: '_PVT'
2176: );
2173: x_msg_count,
2174: x_msg_data,
2175: '_PVT'
2176: );
2177: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2178: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2179: (
2180: l_api_name,
2181: G_PKG_NAME,
2174: x_msg_data,
2175: '_PVT'
2176: );
2177: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2178: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2179: (
2180: l_api_name,
2181: G_PKG_NAME,
2182: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2178: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2179: (
2180: l_api_name,
2181: G_PKG_NAME,
2182: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2183: x_msg_count,
2184: x_msg_data,
2185: '_PVT'
2186: );
2184: x_msg_data,
2185: '_PVT'
2186: );
2187: WHEN OTHERS THEN
2188: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2189: (
2190: l_api_name,
2191: G_PKG_NAME,
2192: 'OTHERS',
2207: p_crjv_tbl IN crjv_tbl_type) IS
2208:
2209: l_api_version CONSTANT NUMBER := 1;
2210: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
2211: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2212: i NUMBER := 0;
2213: BEGIN
2214: OKC_API.init_msg_list(p_init_msg_list);
2215: -- Make sure PL/SQL table has records in it before passing
2210: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
2211: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2212: i NUMBER := 0;
2213: BEGIN
2214: OKC_API.init_msg_list(p_init_msg_list);
2215: -- Make sure PL/SQL table has records in it before passing
2216: IF (p_crjv_tbl.COUNT > 0) THEN
2217: i := p_crjv_tbl.FIRST;
2218: LOOP
2217: i := p_crjv_tbl.FIRST;
2218: LOOP
2219: lock_row (
2220: p_api_version => p_api_version,
2221: p_init_msg_list => OKC_API.G_FALSE,
2222: x_return_status => x_return_status,
2223: x_msg_count => x_msg_count,
2224: x_msg_data => x_msg_data,
2225: p_crjv_rec => p_crjv_tbl(i));
2227: i := p_crjv_tbl.NEXT(i);
2228: END LOOP;
2229: END IF;
2230: EXCEPTION
2231: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2232: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2233: (
2234: l_api_name,
2235: G_PKG_NAME,
2228: END LOOP;
2229: END IF;
2230: EXCEPTION
2231: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2232: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2233: (
2234: l_api_name,
2235: G_PKG_NAME,
2236: 'OKC_API.G_RET_STS_ERROR',
2232: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2233: (
2234: l_api_name,
2235: G_PKG_NAME,
2236: 'OKC_API.G_RET_STS_ERROR',
2237: x_msg_count,
2238: x_msg_data,
2239: '_PVT'
2240: );
2237: x_msg_count,
2238: x_msg_data,
2239: '_PVT'
2240: );
2241: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2242: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2243: (
2244: l_api_name,
2245: G_PKG_NAME,
2238: x_msg_data,
2239: '_PVT'
2240: );
2241: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2242: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2243: (
2244: l_api_name,
2245: G_PKG_NAME,
2246: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2242: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2243: (
2244: l_api_name,
2245: G_PKG_NAME,
2246: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2247: x_msg_count,
2248: x_msg_data,
2249: '_PVT'
2250: );
2248: x_msg_data,
2249: '_PVT'
2250: );
2251: WHEN OTHERS THEN
2252: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2253: (
2254: l_api_name,
2255: G_PKG_NAME,
2256: 'OTHERS',
2275: x_crj_rec OUT NOCOPY crj_rec_type) IS
2276:
2277: l_api_version CONSTANT NUMBER := 1;
2278: l_api_name CONSTANT VARCHAR2(30) := 'OBJS_update_row';
2279: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2280: l_crj_rec crj_rec_type := p_crj_rec;
2281: l_def_crj_rec crj_rec_type;
2282: l_row_notfound BOOLEAN := TRUE;
2283: ----------------------------------
2288: x_crj_rec OUT NOCOPY crj_rec_type
2289: ) RETURN VARCHAR2 IS
2290: l_crj_rec crj_rec_type;
2291: l_row_notfound BOOLEAN := TRUE;
2292: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2293: BEGIN
2294: x_crj_rec := p_crj_rec;
2295: -- Get current database values
2296: l_crj_rec := get_rec(p_crj_rec, l_row_notfound);
2294: x_crj_rec := p_crj_rec;
2295: -- Get current database values
2296: l_crj_rec := get_rec(p_crj_rec, l_row_notfound);
2297: IF (l_row_notfound) THEN
2298: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2299: END IF;
2300: IF (x_crj_rec.id = OKC_API.G_MISS_NUM)
2301: THEN
2302: x_crj_rec.id := l_crj_rec.id;
2296: l_crj_rec := get_rec(p_crj_rec, l_row_notfound);
2297: IF (l_row_notfound) THEN
2298: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2299: END IF;
2300: IF (x_crj_rec.id = OKC_API.G_MISS_NUM)
2301: THEN
2302: x_crj_rec.id := l_crj_rec.id;
2303: END IF;
2304: IF (x_crj_rec.cle_id = OKC_API.G_MISS_NUM)
2300: IF (x_crj_rec.id = OKC_API.G_MISS_NUM)
2301: THEN
2302: x_crj_rec.id := l_crj_rec.id;
2303: END IF;
2304: IF (x_crj_rec.cle_id = OKC_API.G_MISS_NUM)
2305: THEN
2306: x_crj_rec.cle_id := l_crj_rec.cle_id;
2307: END IF;
2308: IF (x_crj_rec.chr_id = OKC_API.G_MISS_NUM)
2304: IF (x_crj_rec.cle_id = OKC_API.G_MISS_NUM)
2305: THEN
2306: x_crj_rec.cle_id := l_crj_rec.cle_id;
2307: END IF;
2308: IF (x_crj_rec.chr_id = OKC_API.G_MISS_NUM)
2309: THEN
2310: x_crj_rec.chr_id := l_crj_rec.chr_id;
2311: END IF;
2312: IF (x_crj_rec.rty_code = OKC_API.G_MISS_CHAR)
2308: IF (x_crj_rec.chr_id = OKC_API.G_MISS_NUM)
2309: THEN
2310: x_crj_rec.chr_id := l_crj_rec.chr_id;
2311: END IF;
2312: IF (x_crj_rec.rty_code = OKC_API.G_MISS_CHAR)
2313: THEN
2314: x_crj_rec.rty_code := l_crj_rec.rty_code;
2315: END IF;
2316: IF (x_crj_rec.object1_id1 = OKC_API.G_MISS_CHAR)
2312: IF (x_crj_rec.rty_code = OKC_API.G_MISS_CHAR)
2313: THEN
2314: x_crj_rec.rty_code := l_crj_rec.rty_code;
2315: END IF;
2316: IF (x_crj_rec.object1_id1 = OKC_API.G_MISS_CHAR)
2317: THEN
2318: x_crj_rec.object1_id1 := l_crj_rec.object1_id1;
2319: END IF;
2320: IF (x_crj_rec.object1_id2 = OKC_API.G_MISS_CHAR)
2316: IF (x_crj_rec.object1_id1 = OKC_API.G_MISS_CHAR)
2317: THEN
2318: x_crj_rec.object1_id1 := l_crj_rec.object1_id1;
2319: END IF;
2320: IF (x_crj_rec.object1_id2 = OKC_API.G_MISS_CHAR)
2321: THEN
2322: x_crj_rec.object1_id2 := l_crj_rec.object1_id2;
2323: END IF;
2324: IF (x_crj_rec.JTOT_OBJECT1_CODE = OKC_API.G_MISS_CHAR)
2320: IF (x_crj_rec.object1_id2 = OKC_API.G_MISS_CHAR)
2321: THEN
2322: x_crj_rec.object1_id2 := l_crj_rec.object1_id2;
2323: END IF;
2324: IF (x_crj_rec.JTOT_OBJECT1_CODE = OKC_API.G_MISS_CHAR)
2325: THEN
2326: x_crj_rec.JTOT_OBJECT1_CODE := l_crj_rec.JTOT_OBJECT1_CODE;
2327: END IF;
2328: IF (x_crj_rec.object_version_number = OKC_API.G_MISS_NUM)
2324: IF (x_crj_rec.JTOT_OBJECT1_CODE = OKC_API.G_MISS_CHAR)
2325: THEN
2326: x_crj_rec.JTOT_OBJECT1_CODE := l_crj_rec.JTOT_OBJECT1_CODE;
2327: END IF;
2328: IF (x_crj_rec.object_version_number = OKC_API.G_MISS_NUM)
2329: THEN
2330: x_crj_rec.object_version_number := l_crj_rec.object_version_number;
2331: END IF;
2332: IF (x_crj_rec.created_by = OKC_API.G_MISS_NUM)
2328: IF (x_crj_rec.object_version_number = OKC_API.G_MISS_NUM)
2329: THEN
2330: x_crj_rec.object_version_number := l_crj_rec.object_version_number;
2331: END IF;
2332: IF (x_crj_rec.created_by = OKC_API.G_MISS_NUM)
2333: THEN
2334: x_crj_rec.created_by := l_crj_rec.created_by;
2335: END IF;
2336: IF (x_crj_rec.creation_date = OKC_API.G_MISS_DATE)
2332: IF (x_crj_rec.created_by = OKC_API.G_MISS_NUM)
2333: THEN
2334: x_crj_rec.created_by := l_crj_rec.created_by;
2335: END IF;
2336: IF (x_crj_rec.creation_date = OKC_API.G_MISS_DATE)
2337: THEN
2338: x_crj_rec.creation_date := l_crj_rec.creation_date;
2339: END IF;
2340: IF (x_crj_rec.last_updated_by = OKC_API.G_MISS_NUM)
2336: IF (x_crj_rec.creation_date = OKC_API.G_MISS_DATE)
2337: THEN
2338: x_crj_rec.creation_date := l_crj_rec.creation_date;
2339: END IF;
2340: IF (x_crj_rec.last_updated_by = OKC_API.G_MISS_NUM)
2341: THEN
2342: x_crj_rec.last_updated_by := l_crj_rec.last_updated_by;
2343: END IF;
2344: IF (x_crj_rec.last_update_date = OKC_API.G_MISS_DATE)
2340: IF (x_crj_rec.last_updated_by = OKC_API.G_MISS_NUM)
2341: THEN
2342: x_crj_rec.last_updated_by := l_crj_rec.last_updated_by;
2343: END IF;
2344: IF (x_crj_rec.last_update_date = OKC_API.G_MISS_DATE)
2345: THEN
2346: x_crj_rec.last_update_date := l_crj_rec.last_update_date;
2347: END IF;
2348: IF (x_crj_rec.last_update_login = OKC_API.G_MISS_NUM)
2344: IF (x_crj_rec.last_update_date = OKC_API.G_MISS_DATE)
2345: THEN
2346: x_crj_rec.last_update_date := l_crj_rec.last_update_date;
2347: END IF;
2348: IF (x_crj_rec.last_update_login = OKC_API.G_MISS_NUM)
2349: THEN
2350: x_crj_rec.last_update_login := l_crj_rec.last_update_login;
2351: END IF;
2352: IF (x_crj_rec.attribute_category = OKC_API.G_MISS_CHAR)
2348: IF (x_crj_rec.last_update_login = OKC_API.G_MISS_NUM)
2349: THEN
2350: x_crj_rec.last_update_login := l_crj_rec.last_update_login;
2351: END IF;
2352: IF (x_crj_rec.attribute_category = OKC_API.G_MISS_CHAR)
2353: THEN
2354: x_crj_rec.attribute_category := l_crj_rec.attribute_category;
2355: END IF;
2356: IF (x_crj_rec.attribute1 = OKC_API.G_MISS_CHAR)
2352: IF (x_crj_rec.attribute_category = OKC_API.G_MISS_CHAR)
2353: THEN
2354: x_crj_rec.attribute_category := l_crj_rec.attribute_category;
2355: END IF;
2356: IF (x_crj_rec.attribute1 = OKC_API.G_MISS_CHAR)
2357: THEN
2358: x_crj_rec.attribute1 := l_crj_rec.attribute1;
2359: END IF;
2360: IF (x_crj_rec.attribute2 = OKC_API.G_MISS_CHAR)
2356: IF (x_crj_rec.attribute1 = OKC_API.G_MISS_CHAR)
2357: THEN
2358: x_crj_rec.attribute1 := l_crj_rec.attribute1;
2359: END IF;
2360: IF (x_crj_rec.attribute2 = OKC_API.G_MISS_CHAR)
2361: THEN
2362: x_crj_rec.attribute2 := l_crj_rec.attribute2;
2363: END IF;
2364: IF (x_crj_rec.attribute3 = OKC_API.G_MISS_CHAR)
2360: IF (x_crj_rec.attribute2 = OKC_API.G_MISS_CHAR)
2361: THEN
2362: x_crj_rec.attribute2 := l_crj_rec.attribute2;
2363: END IF;
2364: IF (x_crj_rec.attribute3 = OKC_API.G_MISS_CHAR)
2365: THEN
2366: x_crj_rec.attribute3 := l_crj_rec.attribute3;
2367: END IF;
2368: IF (x_crj_rec.attribute4 = OKC_API.G_MISS_CHAR)
2364: IF (x_crj_rec.attribute3 = OKC_API.G_MISS_CHAR)
2365: THEN
2366: x_crj_rec.attribute3 := l_crj_rec.attribute3;
2367: END IF;
2368: IF (x_crj_rec.attribute4 = OKC_API.G_MISS_CHAR)
2369: THEN
2370: x_crj_rec.attribute4 := l_crj_rec.attribute4;
2371: END IF;
2372: IF (x_crj_rec.attribute5 = OKC_API.G_MISS_CHAR)
2368: IF (x_crj_rec.attribute4 = OKC_API.G_MISS_CHAR)
2369: THEN
2370: x_crj_rec.attribute4 := l_crj_rec.attribute4;
2371: END IF;
2372: IF (x_crj_rec.attribute5 = OKC_API.G_MISS_CHAR)
2373: THEN
2374: x_crj_rec.attribute5 := l_crj_rec.attribute5;
2375: END IF;
2376: IF (x_crj_rec.attribute6 = OKC_API.G_MISS_CHAR)
2372: IF (x_crj_rec.attribute5 = OKC_API.G_MISS_CHAR)
2373: THEN
2374: x_crj_rec.attribute5 := l_crj_rec.attribute5;
2375: END IF;
2376: IF (x_crj_rec.attribute6 = OKC_API.G_MISS_CHAR)
2377: THEN
2378: x_crj_rec.attribute6 := l_crj_rec.attribute6;
2379: END IF;
2380: IF (x_crj_rec.attribute7 = OKC_API.G_MISS_CHAR)
2376: IF (x_crj_rec.attribute6 = OKC_API.G_MISS_CHAR)
2377: THEN
2378: x_crj_rec.attribute6 := l_crj_rec.attribute6;
2379: END IF;
2380: IF (x_crj_rec.attribute7 = OKC_API.G_MISS_CHAR)
2381: THEN
2382: x_crj_rec.attribute7 := l_crj_rec.attribute7;
2383: END IF;
2384: IF (x_crj_rec.attribute8 = OKC_API.G_MISS_CHAR)
2380: IF (x_crj_rec.attribute7 = OKC_API.G_MISS_CHAR)
2381: THEN
2382: x_crj_rec.attribute7 := l_crj_rec.attribute7;
2383: END IF;
2384: IF (x_crj_rec.attribute8 = OKC_API.G_MISS_CHAR)
2385: THEN
2386: x_crj_rec.attribute8 := l_crj_rec.attribute8;
2387: END IF;
2388: IF (x_crj_rec.attribute9 = OKC_API.G_MISS_CHAR)
2384: IF (x_crj_rec.attribute8 = OKC_API.G_MISS_CHAR)
2385: THEN
2386: x_crj_rec.attribute8 := l_crj_rec.attribute8;
2387: END IF;
2388: IF (x_crj_rec.attribute9 = OKC_API.G_MISS_CHAR)
2389: THEN
2390: x_crj_rec.attribute9 := l_crj_rec.attribute9;
2391: END IF;
2392: IF (x_crj_rec.attribute10 = OKC_API.G_MISS_CHAR)
2388: IF (x_crj_rec.attribute9 = OKC_API.G_MISS_CHAR)
2389: THEN
2390: x_crj_rec.attribute9 := l_crj_rec.attribute9;
2391: END IF;
2392: IF (x_crj_rec.attribute10 = OKC_API.G_MISS_CHAR)
2393: THEN
2394: x_crj_rec.attribute10 := l_crj_rec.attribute10;
2395: END IF;
2396: IF (x_crj_rec.attribute11 = OKC_API.G_MISS_CHAR)
2392: IF (x_crj_rec.attribute10 = OKC_API.G_MISS_CHAR)
2393: THEN
2394: x_crj_rec.attribute10 := l_crj_rec.attribute10;
2395: END IF;
2396: IF (x_crj_rec.attribute11 = OKC_API.G_MISS_CHAR)
2397: THEN
2398: x_crj_rec.attribute11 := l_crj_rec.attribute11;
2399: END IF;
2400: IF (x_crj_rec.attribute12 = OKC_API.G_MISS_CHAR)
2396: IF (x_crj_rec.attribute11 = OKC_API.G_MISS_CHAR)
2397: THEN
2398: x_crj_rec.attribute11 := l_crj_rec.attribute11;
2399: END IF;
2400: IF (x_crj_rec.attribute12 = OKC_API.G_MISS_CHAR)
2401: THEN
2402: x_crj_rec.attribute12 := l_crj_rec.attribute12;
2403: END IF;
2404: IF (x_crj_rec.attribute13 = OKC_API.G_MISS_CHAR)
2400: IF (x_crj_rec.attribute12 = OKC_API.G_MISS_CHAR)
2401: THEN
2402: x_crj_rec.attribute12 := l_crj_rec.attribute12;
2403: END IF;
2404: IF (x_crj_rec.attribute13 = OKC_API.G_MISS_CHAR)
2405: THEN
2406: x_crj_rec.attribute13 := l_crj_rec.attribute13;
2407: END IF;
2408: IF (x_crj_rec.attribute14 = OKC_API.G_MISS_CHAR)
2404: IF (x_crj_rec.attribute13 = OKC_API.G_MISS_CHAR)
2405: THEN
2406: x_crj_rec.attribute13 := l_crj_rec.attribute13;
2407: END IF;
2408: IF (x_crj_rec.attribute14 = OKC_API.G_MISS_CHAR)
2409: THEN
2410: x_crj_rec.attribute14 := l_crj_rec.attribute14;
2411: END IF;
2412: IF (x_crj_rec.attribute15 = OKC_API.G_MISS_CHAR)
2408: IF (x_crj_rec.attribute14 = OKC_API.G_MISS_CHAR)
2409: THEN
2410: x_crj_rec.attribute14 := l_crj_rec.attribute14;
2411: END IF;
2412: IF (x_crj_rec.attribute15 = OKC_API.G_MISS_CHAR)
2413: THEN
2414: x_crj_rec.attribute15 := l_crj_rec.attribute15;
2415: END IF;
2416: RETURN(l_return_status);
2421: FUNCTION Set_Attributes (
2422: p_crj_rec IN crj_rec_type,
2423: x_crj_rec OUT NOCOPY crj_rec_type
2424: ) RETURN VARCHAR2 IS
2425: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2426: BEGIN
2427: x_crj_rec := p_crj_rec;
2428: RETURN(l_return_status);
2429: END Set_Attributes;
2427: x_crj_rec := p_crj_rec;
2428: RETURN(l_return_status);
2429: END Set_Attributes;
2430: BEGIN
2431: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2432: p_init_msg_list,
2433: '_PVT',
2434: x_return_status);
2435: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2431: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2432: p_init_msg_list,
2433: '_PVT',
2434: x_return_status);
2435: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2436: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2437: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2438: RAISE OKC_API.G_EXCEPTION_ERROR;
2439: END IF;
2432: p_init_msg_list,
2433: '_PVT',
2434: x_return_status);
2435: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2436: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2437: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2438: RAISE OKC_API.G_EXCEPTION_ERROR;
2439: END IF;
2440: --- Setting item attributes
2433: '_PVT',
2434: x_return_status);
2435: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2436: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2437: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2438: RAISE OKC_API.G_EXCEPTION_ERROR;
2439: END IF;
2440: --- Setting item attributes
2441: l_return_status := Set_Attributes(
2434: x_return_status);
2435: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2436: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2437: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2438: RAISE OKC_API.G_EXCEPTION_ERROR;
2439: END IF;
2440: --- Setting item attributes
2441: l_return_status := Set_Attributes(
2442: p_crj_rec, -- IN
2441: l_return_status := Set_Attributes(
2442: p_crj_rec, -- IN
2443: l_crj_rec); -- OUT
2444: --- If any errors happen abort API
2445: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2446: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2447: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2448: RAISE OKC_API.G_EXCEPTION_ERROR;
2449: END IF;
2442: p_crj_rec, -- IN
2443: l_crj_rec); -- OUT
2444: --- If any errors happen abort API
2445: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2446: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2447: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2448: RAISE OKC_API.G_EXCEPTION_ERROR;
2449: END IF;
2450: l_return_status := populate_new_record(l_crj_rec, l_def_crj_rec);
2443: l_crj_rec); -- OUT
2444: --- If any errors happen abort API
2445: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2446: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2447: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2448: RAISE OKC_API.G_EXCEPTION_ERROR;
2449: END IF;
2450: l_return_status := populate_new_record(l_crj_rec, l_def_crj_rec);
2451: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2444: --- If any errors happen abort API
2445: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2446: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2447: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2448: RAISE OKC_API.G_EXCEPTION_ERROR;
2449: END IF;
2450: l_return_status := populate_new_record(l_crj_rec, l_def_crj_rec);
2451: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2452: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2447: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2448: RAISE OKC_API.G_EXCEPTION_ERROR;
2449: END IF;
2450: l_return_status := populate_new_record(l_crj_rec, l_def_crj_rec);
2451: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2452: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2453: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2454: RAISE OKC_API.G_EXCEPTION_ERROR;
2455: END IF;
2448: RAISE OKC_API.G_EXCEPTION_ERROR;
2449: END IF;
2450: l_return_status := populate_new_record(l_crj_rec, l_def_crj_rec);
2451: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2452: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2453: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2454: RAISE OKC_API.G_EXCEPTION_ERROR;
2455: END IF;
2456: UPDATE OKC_K_REL_OBJS
2449: END IF;
2450: l_return_status := populate_new_record(l_crj_rec, l_def_crj_rec);
2451: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2452: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2453: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2454: RAISE OKC_API.G_EXCEPTION_ERROR;
2455: END IF;
2456: UPDATE OKC_K_REL_OBJS
2457: SET CLE_ID = l_def_crj_rec.cle_id,
2450: l_return_status := populate_new_record(l_crj_rec, l_def_crj_rec);
2451: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2452: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2453: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2454: RAISE OKC_API.G_EXCEPTION_ERROR;
2455: END IF;
2456: UPDATE OKC_K_REL_OBJS
2457: SET CLE_ID = l_def_crj_rec.cle_id,
2458: CHR_ID = l_def_crj_rec.chr_id,
2484: ATTRIBUTE15 = l_def_crj_rec.attribute15
2485: WHERE ID = l_def_crj_rec.id;
2486:
2487: x_crj_rec := l_def_crj_rec;
2488: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2489: EXCEPTION
2490: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2491: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2492: (
2486:
2487: x_crj_rec := l_def_crj_rec;
2488: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2489: EXCEPTION
2490: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2491: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2492: (
2493: l_api_name,
2494: G_PKG_NAME,
2487: x_crj_rec := l_def_crj_rec;
2488: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2489: EXCEPTION
2490: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2491: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2492: (
2493: l_api_name,
2494: G_PKG_NAME,
2495: 'OKC_API.G_RET_STS_ERROR',
2491: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2492: (
2493: l_api_name,
2494: G_PKG_NAME,
2495: 'OKC_API.G_RET_STS_ERROR',
2496: x_msg_count,
2497: x_msg_data,
2498: '_PVT'
2499: );
2496: x_msg_count,
2497: x_msg_data,
2498: '_PVT'
2499: );
2500: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2501: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2502: (
2503: l_api_name,
2504: G_PKG_NAME,
2497: x_msg_data,
2498: '_PVT'
2499: );
2500: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2501: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2502: (
2503: l_api_name,
2504: G_PKG_NAME,
2505: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2501: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2502: (
2503: l_api_name,
2504: G_PKG_NAME,
2505: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2506: x_msg_count,
2507: x_msg_data,
2508: '_PVT'
2509: );
2507: x_msg_data,
2508: '_PVT'
2509: );
2510: WHEN OTHERS THEN
2511: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2512: (
2513: l_api_name,
2514: G_PKG_NAME,
2515: 'OTHERS',
2531: x_crjv_rec OUT NOCOPY crjv_rec_type) IS
2532:
2533: l_api_version CONSTANT NUMBER := 1;
2534: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
2535: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2536: l_crjv_rec crjv_rec_type := p_crjv_rec;
2537: l_def_crjv_rec crjv_rec_type;
2538: l_crj_rec crj_rec_type;
2539: lx_crj_rec crj_rec_type;
2558: x_crjv_rec OUT NOCOPY crjv_rec_type
2559: ) RETURN VARCHAR2 IS
2560: l_crjv_rec crjv_rec_type;
2561: l_row_notfound BOOLEAN := TRUE;
2562: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2563: BEGIN
2564: x_crjv_rec := p_crjv_rec;
2565: -- Get current database values
2566: l_crjv_rec := get_rec(p_crjv_rec, l_row_notfound);
2564: x_crjv_rec := p_crjv_rec;
2565: -- Get current database values
2566: l_crjv_rec := get_rec(p_crjv_rec, l_row_notfound);
2567: IF (l_row_notfound) THEN
2568: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2569: END IF;
2570: IF (x_crjv_rec.id = OKC_API.G_MISS_NUM)
2571: THEN
2572: x_crjv_rec.id := l_crjv_rec.id;
2566: l_crjv_rec := get_rec(p_crjv_rec, l_row_notfound);
2567: IF (l_row_notfound) THEN
2568: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2569: END IF;
2570: IF (x_crjv_rec.id = OKC_API.G_MISS_NUM)
2571: THEN
2572: x_crjv_rec.id := l_crjv_rec.id;
2573: END IF;
2574: IF (x_crjv_rec.object_version_number = OKC_API.G_MISS_NUM)
2570: IF (x_crjv_rec.id = OKC_API.G_MISS_NUM)
2571: THEN
2572: x_crjv_rec.id := l_crjv_rec.id;
2573: END IF;
2574: IF (x_crjv_rec.object_version_number = OKC_API.G_MISS_NUM)
2575: THEN
2576: x_crjv_rec.object_version_number := l_crjv_rec.object_version_number;
2577: END IF;
2578: IF (x_crjv_rec.cle_id = OKC_API.G_MISS_NUM)
2574: IF (x_crjv_rec.object_version_number = OKC_API.G_MISS_NUM)
2575: THEN
2576: x_crjv_rec.object_version_number := l_crjv_rec.object_version_number;
2577: END IF;
2578: IF (x_crjv_rec.cle_id = OKC_API.G_MISS_NUM)
2579: THEN
2580: x_crjv_rec.cle_id := l_crjv_rec.cle_id;
2581: END IF;
2582: IF (x_crjv_rec.chr_id = OKC_API.G_MISS_NUM)
2578: IF (x_crjv_rec.cle_id = OKC_API.G_MISS_NUM)
2579: THEN
2580: x_crjv_rec.cle_id := l_crjv_rec.cle_id;
2581: END IF;
2582: IF (x_crjv_rec.chr_id = OKC_API.G_MISS_NUM)
2583: THEN
2584: x_crjv_rec.chr_id := l_crjv_rec.chr_id;
2585: END IF;
2586: IF (x_crjv_rec.rty_code = OKC_API.G_MISS_CHAR)
2582: IF (x_crjv_rec.chr_id = OKC_API.G_MISS_NUM)
2583: THEN
2584: x_crjv_rec.chr_id := l_crjv_rec.chr_id;
2585: END IF;
2586: IF (x_crjv_rec.rty_code = OKC_API.G_MISS_CHAR)
2587: THEN
2588: x_crjv_rec.rty_code := l_crjv_rec.rty_code;
2589: END IF;
2590: IF (x_crjv_rec.object1_id1 = OKC_API.G_MISS_CHAR)
2586: IF (x_crjv_rec.rty_code = OKC_API.G_MISS_CHAR)
2587: THEN
2588: x_crjv_rec.rty_code := l_crjv_rec.rty_code;
2589: END IF;
2590: IF (x_crjv_rec.object1_id1 = OKC_API.G_MISS_CHAR)
2591: THEN
2592: x_crjv_rec.object1_id1 := l_crjv_rec.object1_id1;
2593: END IF;
2594: IF (x_crjv_rec.object1_id2 = OKC_API.G_MISS_CHAR)
2590: IF (x_crjv_rec.object1_id1 = OKC_API.G_MISS_CHAR)
2591: THEN
2592: x_crjv_rec.object1_id1 := l_crjv_rec.object1_id1;
2593: END IF;
2594: IF (x_crjv_rec.object1_id2 = OKC_API.G_MISS_CHAR)
2595: THEN
2596: x_crjv_rec.object1_id2 := l_crjv_rec.object1_id2;
2597: END IF;
2598: IF (x_crjv_rec.JTOT_OBJECT1_CODE = OKC_API.G_MISS_CHAR)
2594: IF (x_crjv_rec.object1_id2 = OKC_API.G_MISS_CHAR)
2595: THEN
2596: x_crjv_rec.object1_id2 := l_crjv_rec.object1_id2;
2597: END IF;
2598: IF (x_crjv_rec.JTOT_OBJECT1_CODE = OKC_API.G_MISS_CHAR)
2599: THEN
2600: x_crjv_rec.JTOT_OBJECT1_CODE := l_crjv_rec.JTOT_OBJECT1_CODE;
2601: END IF;
2602: IF (x_crjv_rec.attribute_category = OKC_API.G_MISS_CHAR)
2598: IF (x_crjv_rec.JTOT_OBJECT1_CODE = OKC_API.G_MISS_CHAR)
2599: THEN
2600: x_crjv_rec.JTOT_OBJECT1_CODE := l_crjv_rec.JTOT_OBJECT1_CODE;
2601: END IF;
2602: IF (x_crjv_rec.attribute_category = OKC_API.G_MISS_CHAR)
2603: THEN
2604: x_crjv_rec.attribute_category := l_crjv_rec.attribute_category;
2605: END IF;
2606: IF (x_crjv_rec.attribute1 = OKC_API.G_MISS_CHAR)
2602: IF (x_crjv_rec.attribute_category = OKC_API.G_MISS_CHAR)
2603: THEN
2604: x_crjv_rec.attribute_category := l_crjv_rec.attribute_category;
2605: END IF;
2606: IF (x_crjv_rec.attribute1 = OKC_API.G_MISS_CHAR)
2607: THEN
2608: x_crjv_rec.attribute1 := l_crjv_rec.attribute1;
2609: END IF;
2610: IF (x_crjv_rec.attribute2 = OKC_API.G_MISS_CHAR)
2606: IF (x_crjv_rec.attribute1 = OKC_API.G_MISS_CHAR)
2607: THEN
2608: x_crjv_rec.attribute1 := l_crjv_rec.attribute1;
2609: END IF;
2610: IF (x_crjv_rec.attribute2 = OKC_API.G_MISS_CHAR)
2611: THEN
2612: x_crjv_rec.attribute2 := l_crjv_rec.attribute2;
2613: END IF;
2614: IF (x_crjv_rec.attribute3 = OKC_API.G_MISS_CHAR)
2610: IF (x_crjv_rec.attribute2 = OKC_API.G_MISS_CHAR)
2611: THEN
2612: x_crjv_rec.attribute2 := l_crjv_rec.attribute2;
2613: END IF;
2614: IF (x_crjv_rec.attribute3 = OKC_API.G_MISS_CHAR)
2615: THEN
2616: x_crjv_rec.attribute3 := l_crjv_rec.attribute3;
2617: END IF;
2618: IF (x_crjv_rec.attribute4 = OKC_API.G_MISS_CHAR)
2614: IF (x_crjv_rec.attribute3 = OKC_API.G_MISS_CHAR)
2615: THEN
2616: x_crjv_rec.attribute3 := l_crjv_rec.attribute3;
2617: END IF;
2618: IF (x_crjv_rec.attribute4 = OKC_API.G_MISS_CHAR)
2619: THEN
2620: x_crjv_rec.attribute4 := l_crjv_rec.attribute4;
2621: END IF;
2622: IF (x_crjv_rec.attribute5 = OKC_API.G_MISS_CHAR)
2618: IF (x_crjv_rec.attribute4 = OKC_API.G_MISS_CHAR)
2619: THEN
2620: x_crjv_rec.attribute4 := l_crjv_rec.attribute4;
2621: END IF;
2622: IF (x_crjv_rec.attribute5 = OKC_API.G_MISS_CHAR)
2623: THEN
2624: x_crjv_rec.attribute5 := l_crjv_rec.attribute5;
2625: END IF;
2626: IF (x_crjv_rec.attribute6 = OKC_API.G_MISS_CHAR)
2622: IF (x_crjv_rec.attribute5 = OKC_API.G_MISS_CHAR)
2623: THEN
2624: x_crjv_rec.attribute5 := l_crjv_rec.attribute5;
2625: END IF;
2626: IF (x_crjv_rec.attribute6 = OKC_API.G_MISS_CHAR)
2627: THEN
2628: x_crjv_rec.attribute6 := l_crjv_rec.attribute6;
2629: END IF;
2630: IF (x_crjv_rec.attribute7 = OKC_API.G_MISS_CHAR)
2626: IF (x_crjv_rec.attribute6 = OKC_API.G_MISS_CHAR)
2627: THEN
2628: x_crjv_rec.attribute6 := l_crjv_rec.attribute6;
2629: END IF;
2630: IF (x_crjv_rec.attribute7 = OKC_API.G_MISS_CHAR)
2631: THEN
2632: x_crjv_rec.attribute7 := l_crjv_rec.attribute7;
2633: END IF;
2634: IF (x_crjv_rec.attribute8 = OKC_API.G_MISS_CHAR)
2630: IF (x_crjv_rec.attribute7 = OKC_API.G_MISS_CHAR)
2631: THEN
2632: x_crjv_rec.attribute7 := l_crjv_rec.attribute7;
2633: END IF;
2634: IF (x_crjv_rec.attribute8 = OKC_API.G_MISS_CHAR)
2635: THEN
2636: x_crjv_rec.attribute8 := l_crjv_rec.attribute8;
2637: END IF;
2638: IF (x_crjv_rec.attribute9 = OKC_API.G_MISS_CHAR)
2634: IF (x_crjv_rec.attribute8 = OKC_API.G_MISS_CHAR)
2635: THEN
2636: x_crjv_rec.attribute8 := l_crjv_rec.attribute8;
2637: END IF;
2638: IF (x_crjv_rec.attribute9 = OKC_API.G_MISS_CHAR)
2639: THEN
2640: x_crjv_rec.attribute9 := l_crjv_rec.attribute9;
2641: END IF;
2642: IF (x_crjv_rec.attribute10 = OKC_API.G_MISS_CHAR)
2638: IF (x_crjv_rec.attribute9 = OKC_API.G_MISS_CHAR)
2639: THEN
2640: x_crjv_rec.attribute9 := l_crjv_rec.attribute9;
2641: END IF;
2642: IF (x_crjv_rec.attribute10 = OKC_API.G_MISS_CHAR)
2643: THEN
2644: x_crjv_rec.attribute10 := l_crjv_rec.attribute10;
2645: END IF;
2646: IF (x_crjv_rec.attribute11 = OKC_API.G_MISS_CHAR)
2642: IF (x_crjv_rec.attribute10 = OKC_API.G_MISS_CHAR)
2643: THEN
2644: x_crjv_rec.attribute10 := l_crjv_rec.attribute10;
2645: END IF;
2646: IF (x_crjv_rec.attribute11 = OKC_API.G_MISS_CHAR)
2647: THEN
2648: x_crjv_rec.attribute11 := l_crjv_rec.attribute11;
2649: END IF;
2650: IF (x_crjv_rec.attribute12 = OKC_API.G_MISS_CHAR)
2646: IF (x_crjv_rec.attribute11 = OKC_API.G_MISS_CHAR)
2647: THEN
2648: x_crjv_rec.attribute11 := l_crjv_rec.attribute11;
2649: END IF;
2650: IF (x_crjv_rec.attribute12 = OKC_API.G_MISS_CHAR)
2651: THEN
2652: x_crjv_rec.attribute12 := l_crjv_rec.attribute12;
2653: END IF;
2654: IF (x_crjv_rec.attribute13 = OKC_API.G_MISS_CHAR)
2650: IF (x_crjv_rec.attribute12 = OKC_API.G_MISS_CHAR)
2651: THEN
2652: x_crjv_rec.attribute12 := l_crjv_rec.attribute12;
2653: END IF;
2654: IF (x_crjv_rec.attribute13 = OKC_API.G_MISS_CHAR)
2655: THEN
2656: x_crjv_rec.attribute13 := l_crjv_rec.attribute13;
2657: END IF;
2658: IF (x_crjv_rec.attribute14 = OKC_API.G_MISS_CHAR)
2654: IF (x_crjv_rec.attribute13 = OKC_API.G_MISS_CHAR)
2655: THEN
2656: x_crjv_rec.attribute13 := l_crjv_rec.attribute13;
2657: END IF;
2658: IF (x_crjv_rec.attribute14 = OKC_API.G_MISS_CHAR)
2659: THEN
2660: x_crjv_rec.attribute14 := l_crjv_rec.attribute14;
2661: END IF;
2662: IF (x_crjv_rec.attribute15 = OKC_API.G_MISS_CHAR)
2658: IF (x_crjv_rec.attribute14 = OKC_API.G_MISS_CHAR)
2659: THEN
2660: x_crjv_rec.attribute14 := l_crjv_rec.attribute14;
2661: END IF;
2662: IF (x_crjv_rec.attribute15 = OKC_API.G_MISS_CHAR)
2663: THEN
2664: x_crjv_rec.attribute15 := l_crjv_rec.attribute15;
2665: END IF;
2666: IF (x_crjv_rec.created_by = OKC_API.G_MISS_NUM)
2662: IF (x_crjv_rec.attribute15 = OKC_API.G_MISS_CHAR)
2663: THEN
2664: x_crjv_rec.attribute15 := l_crjv_rec.attribute15;
2665: END IF;
2666: IF (x_crjv_rec.created_by = OKC_API.G_MISS_NUM)
2667: THEN
2668: x_crjv_rec.created_by := l_crjv_rec.created_by;
2669: END IF;
2670: IF (x_crjv_rec.creation_date = OKC_API.G_MISS_DATE)
2666: IF (x_crjv_rec.created_by = OKC_API.G_MISS_NUM)
2667: THEN
2668: x_crjv_rec.created_by := l_crjv_rec.created_by;
2669: END IF;
2670: IF (x_crjv_rec.creation_date = OKC_API.G_MISS_DATE)
2671: THEN
2672: x_crjv_rec.creation_date := l_crjv_rec.creation_date;
2673: END IF;
2674: IF (x_crjv_rec.last_updated_by = OKC_API.G_MISS_NUM)
2670: IF (x_crjv_rec.creation_date = OKC_API.G_MISS_DATE)
2671: THEN
2672: x_crjv_rec.creation_date := l_crjv_rec.creation_date;
2673: END IF;
2674: IF (x_crjv_rec.last_updated_by = OKC_API.G_MISS_NUM)
2675: THEN
2676: x_crjv_rec.last_updated_by := l_crjv_rec.last_updated_by;
2677: END IF;
2678: IF (x_crjv_rec.last_update_date = OKC_API.G_MISS_DATE)
2674: IF (x_crjv_rec.last_updated_by = OKC_API.G_MISS_NUM)
2675: THEN
2676: x_crjv_rec.last_updated_by := l_crjv_rec.last_updated_by;
2677: END IF;
2678: IF (x_crjv_rec.last_update_date = OKC_API.G_MISS_DATE)
2679: THEN
2680: x_crjv_rec.last_update_date := l_crjv_rec.last_update_date;
2681: END IF;
2682: IF (x_crjv_rec.last_update_login = OKC_API.G_MISS_NUM)
2678: IF (x_crjv_rec.last_update_date = OKC_API.G_MISS_DATE)
2679: THEN
2680: x_crjv_rec.last_update_date := l_crjv_rec.last_update_date;
2681: END IF;
2682: IF (x_crjv_rec.last_update_login = OKC_API.G_MISS_NUM)
2683: THEN
2684: x_crjv_rec.last_update_login := l_crjv_rec.last_update_login;
2685: END IF;
2686: RETURN(l_return_status);
2691: FUNCTION Set_Attributes (
2692: p_crjv_rec IN crjv_rec_type,
2693: x_crjv_rec OUT NOCOPY crjv_rec_type
2694: ) RETURN VARCHAR2 IS
2695: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2696: BEGIN
2697: x_crjv_rec := p_crjv_rec;
2698: x_crjv_rec.OBJECT_VERSION_NUMBER := NVL(x_crjv_rec.OBJECT_VERSION_NUMBER, 0) + 1;
2699: RETURN(l_return_status);
2698: x_crjv_rec.OBJECT_VERSION_NUMBER := NVL(x_crjv_rec.OBJECT_VERSION_NUMBER, 0) + 1;
2699: RETURN(l_return_status);
2700: END Set_Attributes;
2701: BEGIN
2702: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2703: G_PKG_NAME,
2704: p_init_msg_list,
2705: l_api_version,
2706: p_api_version,
2705: l_api_version,
2706: p_api_version,
2707: '_PVT',
2708: x_return_status);
2709: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2710: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2711: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2712: RAISE OKC_API.G_EXCEPTION_ERROR;
2713: END IF;
2706: p_api_version,
2707: '_PVT',
2708: x_return_status);
2709: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2710: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2711: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2712: RAISE OKC_API.G_EXCEPTION_ERROR;
2713: END IF;
2714: --- Setting item attributes
2707: '_PVT',
2708: x_return_status);
2709: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2710: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2711: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2712: RAISE OKC_API.G_EXCEPTION_ERROR;
2713: END IF;
2714: --- Setting item attributes
2715: l_return_status := Set_Attributes(
2708: x_return_status);
2709: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2710: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2711: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2712: RAISE OKC_API.G_EXCEPTION_ERROR;
2713: END IF;
2714: --- Setting item attributes
2715: l_return_status := Set_Attributes(
2716: p_crjv_rec, -- IN
2715: l_return_status := Set_Attributes(
2716: p_crjv_rec, -- IN
2717: l_crjv_rec); -- OUT
2718: --- If any errors happen abort API
2719: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2720: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2721: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2722: RAISE OKC_API.G_EXCEPTION_ERROR;
2723: END IF;
2716: p_crjv_rec, -- IN
2717: l_crjv_rec); -- OUT
2718: --- If any errors happen abort API
2719: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2720: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2721: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2722: RAISE OKC_API.G_EXCEPTION_ERROR;
2723: END IF;
2724: l_return_status := populate_new_record(l_crjv_rec, l_def_crjv_rec);
2717: l_crjv_rec); -- OUT
2718: --- If any errors happen abort API
2719: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2720: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2721: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2722: RAISE OKC_API.G_EXCEPTION_ERROR;
2723: END IF;
2724: l_return_status := populate_new_record(l_crjv_rec, l_def_crjv_rec);
2725: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2718: --- If any errors happen abort API
2719: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2720: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2721: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2722: RAISE OKC_API.G_EXCEPTION_ERROR;
2723: END IF;
2724: l_return_status := populate_new_record(l_crjv_rec, l_def_crjv_rec);
2725: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2726: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2721: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2722: RAISE OKC_API.G_EXCEPTION_ERROR;
2723: END IF;
2724: l_return_status := populate_new_record(l_crjv_rec, l_def_crjv_rec);
2725: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2726: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2727: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2728: RAISE OKC_API.G_EXCEPTION_ERROR;
2729: END IF;
2722: RAISE OKC_API.G_EXCEPTION_ERROR;
2723: END IF;
2724: l_return_status := populate_new_record(l_crjv_rec, l_def_crjv_rec);
2725: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2726: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2727: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2728: RAISE OKC_API.G_EXCEPTION_ERROR;
2729: END IF;
2730: l_def_crjv_rec := fill_who_columns(l_def_crjv_rec);
2723: END IF;
2724: l_return_status := populate_new_record(l_crjv_rec, l_def_crjv_rec);
2725: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2726: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2727: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2728: RAISE OKC_API.G_EXCEPTION_ERROR;
2729: END IF;
2730: l_def_crjv_rec := fill_who_columns(l_def_crjv_rec);
2731: --- Validate all non-missing attributes (Item Level Validation)
2724: l_return_status := populate_new_record(l_crjv_rec, l_def_crjv_rec);
2725: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2726: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2727: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2728: RAISE OKC_API.G_EXCEPTION_ERROR;
2729: END IF;
2730: l_def_crjv_rec := fill_who_columns(l_def_crjv_rec);
2731: --- Validate all non-missing attributes (Item Level Validation)
2732: l_return_status := Validate_Attributes(l_def_crjv_rec, l_api_name);
2730: l_def_crjv_rec := fill_who_columns(l_def_crjv_rec);
2731: --- Validate all non-missing attributes (Item Level Validation)
2732: l_return_status := Validate_Attributes(l_def_crjv_rec, l_api_name);
2733: --- If any errors happen abort API
2734: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2735: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2736: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2737: RAISE OKC_API.G_EXCEPTION_ERROR;
2738: END IF;
2731: --- Validate all non-missing attributes (Item Level Validation)
2732: l_return_status := Validate_Attributes(l_def_crjv_rec, l_api_name);
2733: --- If any errors happen abort API
2734: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2735: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2736: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2737: RAISE OKC_API.G_EXCEPTION_ERROR;
2738: END IF;
2739:
2732: l_return_status := Validate_Attributes(l_def_crjv_rec, l_api_name);
2733: --- If any errors happen abort API
2734: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2735: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2736: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2737: RAISE OKC_API.G_EXCEPTION_ERROR;
2738: END IF;
2739:
2740: --------------------------------------
2733: --- If any errors happen abort API
2734: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2735: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2736: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2737: RAISE OKC_API.G_EXCEPTION_ERROR;
2738: END IF;
2739:
2740: --------------------------------------
2741: -- Move VIEW record to "Child" records
2751: x_msg_data,
2752: l_crj_rec,
2753: lx_crj_rec
2754: );
2755: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2756: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2757: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2758: RAISE OKC_API.G_EXCEPTION_ERROR;
2759: END IF;
2752: l_crj_rec,
2753: lx_crj_rec
2754: );
2755: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2756: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2757: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2758: RAISE OKC_API.G_EXCEPTION_ERROR;
2759: END IF;
2760: migrate(lx_crj_rec, l_def_crjv_rec);
2753: lx_crj_rec
2754: );
2755: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2756: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2757: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2758: RAISE OKC_API.G_EXCEPTION_ERROR;
2759: END IF;
2760: migrate(lx_crj_rec, l_def_crjv_rec);
2761: x_crjv_rec := l_def_crjv_rec;
2754: );
2755: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2756: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2757: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2758: RAISE OKC_API.G_EXCEPTION_ERROR;
2759: END IF;
2760: migrate(lx_crj_rec, l_def_crjv_rec);
2761: x_crjv_rec := l_def_crjv_rec;
2762: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2758: RAISE OKC_API.G_EXCEPTION_ERROR;
2759: END IF;
2760: migrate(lx_crj_rec, l_def_crjv_rec);
2761: x_crjv_rec := l_def_crjv_rec;
2762: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2763: EXCEPTION
2764: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2765: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2766: (
2760: migrate(lx_crj_rec, l_def_crjv_rec);
2761: x_crjv_rec := l_def_crjv_rec;
2762: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2763: EXCEPTION
2764: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2765: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2766: (
2767: l_api_name,
2768: G_PKG_NAME,
2761: x_crjv_rec := l_def_crjv_rec;
2762: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2763: EXCEPTION
2764: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2765: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2766: (
2767: l_api_name,
2768: G_PKG_NAME,
2769: 'OKC_API.G_RET_STS_ERROR',
2765: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2766: (
2767: l_api_name,
2768: G_PKG_NAME,
2769: 'OKC_API.G_RET_STS_ERROR',
2770: x_msg_count,
2771: x_msg_data,
2772: '_PVT'
2773: );
2770: x_msg_count,
2771: x_msg_data,
2772: '_PVT'
2773: );
2774: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2775: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2776: (
2777: l_api_name,
2778: G_PKG_NAME,
2771: x_msg_data,
2772: '_PVT'
2773: );
2774: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2775: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2776: (
2777: l_api_name,
2778: G_PKG_NAME,
2779: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2775: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2776: (
2777: l_api_name,
2778: G_PKG_NAME,
2779: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2780: x_msg_count,
2781: x_msg_data,
2782: '_PVT'
2783: );
2781: x_msg_data,
2782: '_PVT'
2783: );
2784: WHEN OTHERS THEN
2785: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2786: (
2787: l_api_name,
2788: G_PKG_NAME,
2789: 'OTHERS',
2805: x_crjv_tbl OUT NOCOPY crjv_tbl_type) IS
2806:
2807: l_api_version CONSTANT NUMBER := 1;
2808: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
2809: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2810: i NUMBER := 0;
2811: BEGIN
2812: OKC_API.init_msg_list(p_init_msg_list);
2813: -- Make sure PL/SQL table has records in it before passing
2808: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
2809: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2810: i NUMBER := 0;
2811: BEGIN
2812: OKC_API.init_msg_list(p_init_msg_list);
2813: -- Make sure PL/SQL table has records in it before passing
2814: IF (p_crjv_tbl.COUNT > 0) THEN
2815: i := p_crjv_tbl.FIRST;
2816: LOOP
2815: i := p_crjv_tbl.FIRST;
2816: LOOP
2817: update_row (
2818: p_api_version => p_api_version,
2819: p_init_msg_list => OKC_API.G_FALSE,
2820: x_return_status => x_return_status,
2821: x_msg_count => x_msg_count,
2822: x_msg_data => x_msg_data,
2823: p_crjv_rec => p_crjv_tbl(i),
2826: i := p_crjv_tbl.NEXT(i);
2827: END LOOP;
2828: END IF;
2829: EXCEPTION
2830: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2831: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2832: (
2833: l_api_name,
2834: G_PKG_NAME,
2827: END LOOP;
2828: END IF;
2829: EXCEPTION
2830: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2831: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2832: (
2833: l_api_name,
2834: G_PKG_NAME,
2835: 'OKC_API.G_RET_STS_ERROR',
2831: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2832: (
2833: l_api_name,
2834: G_PKG_NAME,
2835: 'OKC_API.G_RET_STS_ERROR',
2836: x_msg_count,
2837: x_msg_data,
2838: '_PVT'
2839: );
2836: x_msg_count,
2837: x_msg_data,
2838: '_PVT'
2839: );
2840: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2841: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2842: (
2843: l_api_name,
2844: G_PKG_NAME,
2837: x_msg_data,
2838: '_PVT'
2839: );
2840: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2841: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2842: (
2843: l_api_name,
2844: G_PKG_NAME,
2845: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2841: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2842: (
2843: l_api_name,
2844: G_PKG_NAME,
2845: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2846: x_msg_count,
2847: x_msg_data,
2848: '_PVT'
2849: );
2847: x_msg_data,
2848: '_PVT'
2849: );
2850: WHEN OTHERS THEN
2851: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2852: (
2853: l_api_name,
2854: G_PKG_NAME,
2855: 'OTHERS',
2873: p_crj_rec IN crj_rec_type) IS
2874:
2875: l_api_version CONSTANT NUMBER := 1;
2876: l_api_name CONSTANT VARCHAR2(30) := 'OBJS_delete_row';
2877: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2878: l_crj_rec crj_rec_type:= p_crj_rec;
2879: l_row_notfound BOOLEAN := TRUE;
2880: BEGIN
2881: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2877: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2878: l_crj_rec crj_rec_type:= p_crj_rec;
2879: l_row_notfound BOOLEAN := TRUE;
2880: BEGIN
2881: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2882: p_init_msg_list,
2883: '_PVT',
2884: x_return_status);
2885: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2881: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2882: p_init_msg_list,
2883: '_PVT',
2884: x_return_status);
2885: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2886: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2887: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2888: RAISE OKC_API.G_EXCEPTION_ERROR;
2889: END IF;
2882: p_init_msg_list,
2883: '_PVT',
2884: x_return_status);
2885: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2886: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2887: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2888: RAISE OKC_API.G_EXCEPTION_ERROR;
2889: END IF;
2890: DELETE FROM OKC_K_REL_OBJS
2883: '_PVT',
2884: x_return_status);
2885: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2886: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2887: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2888: RAISE OKC_API.G_EXCEPTION_ERROR;
2889: END IF;
2890: DELETE FROM OKC_K_REL_OBJS
2891: WHERE ID = l_crj_rec.id;
2884: x_return_status);
2885: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2886: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2887: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2888: RAISE OKC_API.G_EXCEPTION_ERROR;
2889: END IF;
2890: DELETE FROM OKC_K_REL_OBJS
2891: WHERE ID = l_crj_rec.id;
2892:
2889: END IF;
2890: DELETE FROM OKC_K_REL_OBJS
2891: WHERE ID = l_crj_rec.id;
2892:
2893: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2894: EXCEPTION
2895: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2896: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2897: (
2891: WHERE ID = l_crj_rec.id;
2892:
2893: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2894: EXCEPTION
2895: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2896: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2897: (
2898: l_api_name,
2899: G_PKG_NAME,
2892:
2893: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2894: EXCEPTION
2895: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2896: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2897: (
2898: l_api_name,
2899: G_PKG_NAME,
2900: 'OKC_API.G_RET_STS_ERROR',
2896: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2897: (
2898: l_api_name,
2899: G_PKG_NAME,
2900: 'OKC_API.G_RET_STS_ERROR',
2901: x_msg_count,
2902: x_msg_data,
2903: '_PVT'
2904: );
2901: x_msg_count,
2902: x_msg_data,
2903: '_PVT'
2904: );
2905: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2906: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2907: (
2908: l_api_name,
2909: G_PKG_NAME,
2902: x_msg_data,
2903: '_PVT'
2904: );
2905: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2906: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2907: (
2908: l_api_name,
2909: G_PKG_NAME,
2910: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2906: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2907: (
2908: l_api_name,
2909: G_PKG_NAME,
2910: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2911: x_msg_count,
2912: x_msg_data,
2913: '_PVT'
2914: );
2912: x_msg_data,
2913: '_PVT'
2914: );
2915: WHEN OTHERS THEN
2916: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2917: (
2918: l_api_name,
2919: G_PKG_NAME,
2920: 'OTHERS',
2935: p_crjv_rec IN crjv_rec_type) IS
2936:
2937: l_api_version CONSTANT NUMBER := 1;
2938: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
2939: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2940: l_crjv_rec crjv_rec_type := p_crjv_rec;
2941: l_crj_rec crj_rec_type;
2942: BEGIN
2943: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2939: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2940: l_crjv_rec crjv_rec_type := p_crjv_rec;
2941: l_crj_rec crj_rec_type;
2942: BEGIN
2943: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2944: G_PKG_NAME,
2945: p_init_msg_list,
2946: l_api_version,
2947: p_api_version,
2946: l_api_version,
2947: p_api_version,
2948: '_PVT',
2949: x_return_status);
2950: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2951: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2952: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2953: RAISE OKC_API.G_EXCEPTION_ERROR;
2954: END IF;
2947: p_api_version,
2948: '_PVT',
2949: x_return_status);
2950: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2951: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2952: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2953: RAISE OKC_API.G_EXCEPTION_ERROR;
2954: END IF;
2955: --------------------------------------
2948: '_PVT',
2949: x_return_status);
2950: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2951: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2952: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2953: RAISE OKC_API.G_EXCEPTION_ERROR;
2954: END IF;
2955: --------------------------------------
2956: -- Move VIEW record to "Child" records
2949: x_return_status);
2950: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2951: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2952: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2953: RAISE OKC_API.G_EXCEPTION_ERROR;
2954: END IF;
2955: --------------------------------------
2956: -- Move VIEW record to "Child" records
2957: --------------------------------------
2965: x_msg_count,
2966: x_msg_data,
2967: l_crj_rec
2968: );
2969: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2970: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2971: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2972: RAISE OKC_API.G_EXCEPTION_ERROR;
2973: END IF;
2966: x_msg_data,
2967: l_crj_rec
2968: );
2969: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2970: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2971: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2972: RAISE OKC_API.G_EXCEPTION_ERROR;
2973: END IF;
2974: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2967: l_crj_rec
2968: );
2969: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2970: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2971: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2972: RAISE OKC_API.G_EXCEPTION_ERROR;
2973: END IF;
2974: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2975: EXCEPTION
2968: );
2969: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2970: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2971: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2972: RAISE OKC_API.G_EXCEPTION_ERROR;
2973: END IF;
2974: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2975: EXCEPTION
2976: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2970: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2971: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2972: RAISE OKC_API.G_EXCEPTION_ERROR;
2973: END IF;
2974: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2975: EXCEPTION
2976: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2977: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2978: (
2972: RAISE OKC_API.G_EXCEPTION_ERROR;
2973: END IF;
2974: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2975: EXCEPTION
2976: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2977: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2978: (
2979: l_api_name,
2980: G_PKG_NAME,
2973: END IF;
2974: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2975: EXCEPTION
2976: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2977: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2978: (
2979: l_api_name,
2980: G_PKG_NAME,
2981: 'OKC_API.G_RET_STS_ERROR',
2977: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2978: (
2979: l_api_name,
2980: G_PKG_NAME,
2981: 'OKC_API.G_RET_STS_ERROR',
2982: x_msg_count,
2983: x_msg_data,
2984: '_PVT'
2985: );
2982: x_msg_count,
2983: x_msg_data,
2984: '_PVT'
2985: );
2986: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2987: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2988: (
2989: l_api_name,
2990: G_PKG_NAME,
2983: x_msg_data,
2984: '_PVT'
2985: );
2986: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2987: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2988: (
2989: l_api_name,
2990: G_PKG_NAME,
2991: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2987: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2988: (
2989: l_api_name,
2990: G_PKG_NAME,
2991: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2992: x_msg_count,
2993: x_msg_data,
2994: '_PVT'
2995: );
2993: x_msg_data,
2994: '_PVT'
2995: );
2996: WHEN OTHERS THEN
2997: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2998: (
2999: l_api_name,
3000: G_PKG_NAME,
3001: 'OTHERS',
3016: p_crjv_tbl IN crjv_tbl_type) IS
3017:
3018: l_api_version CONSTANT NUMBER := 1;
3019: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
3020: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3021: i NUMBER := 0;
3022: BEGIN
3023: OKC_API.init_msg_list(p_init_msg_list);
3024: -- Make sure PL/SQL table has records in it before passing
3019: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
3020: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3021: i NUMBER := 0;
3022: BEGIN
3023: OKC_API.init_msg_list(p_init_msg_list);
3024: -- Make sure PL/SQL table has records in it before passing
3025: IF (p_crjv_tbl.COUNT > 0) THEN
3026: i := p_crjv_tbl.FIRST;
3027: LOOP
3026: i := p_crjv_tbl.FIRST;
3027: LOOP
3028: delete_row (
3029: p_api_version => p_api_version,
3030: p_init_msg_list => OKC_API.G_FALSE,
3031: x_return_status => x_return_status,
3032: x_msg_count => x_msg_count,
3033: x_msg_data => x_msg_data,
3034: p_crjv_rec => p_crjv_tbl(i));
3036: i := p_crjv_tbl.NEXT(i);
3037: END LOOP;
3038: END IF;
3039: EXCEPTION
3040: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3041: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3042: (
3043: l_api_name,
3044: G_PKG_NAME,
3037: END LOOP;
3038: END IF;
3039: EXCEPTION
3040: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3041: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3042: (
3043: l_api_name,
3044: G_PKG_NAME,
3045: 'OKC_API.G_RET_STS_ERROR',
3041: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3042: (
3043: l_api_name,
3044: G_PKG_NAME,
3045: 'OKC_API.G_RET_STS_ERROR',
3046: x_msg_count,
3047: x_msg_data,
3048: '_PVT'
3049: );
3046: x_msg_count,
3047: x_msg_data,
3048: '_PVT'
3049: );
3050: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3051: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3052: (
3053: l_api_name,
3054: G_PKG_NAME,
3047: x_msg_data,
3048: '_PVT'
3049: );
3050: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3051: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3052: (
3053: l_api_name,
3054: G_PKG_NAME,
3055: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3051: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3052: (
3053: l_api_name,
3054: G_PKG_NAME,
3055: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3056: x_msg_count,
3057: x_msg_data,
3058: '_PVT'
3059: );
3057: x_msg_data,
3058: '_PVT'
3059: );
3060: WHEN OTHERS THEN
3061: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3062: (
3063: l_api_name,
3064: G_PKG_NAME,
3065: 'OTHERS',
3090: ) is
3091:
3092: l_api_version CONSTANT NUMBER := 1;
3093: l_api_name CONSTANT VARCHAR2(30) := 'quote_is_renewal';
3094: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3095: l_row_notfound boolean;
3096: l_crjv_rec crjv_rec_type;
3097: i number;
3098:
3166: ;
3167: r_renew_rel_for_quote renew_rel_for_quote%rowtype;
3168:
3169: BEGIN
3170: OKC_API.init_msg_list(p_init_msg_list);
3171: l_return_status := OKC_API.START_ACTIVITY
3172: (
3173: substr(l_api_name,1,26)
3174: ,p_init_msg_list
3167: r_renew_rel_for_quote renew_rel_for_quote%rowtype;
3168:
3169: BEGIN
3170: OKC_API.init_msg_list(p_init_msg_list);
3171: l_return_status := OKC_API.START_ACTIVITY
3172: (
3173: substr(l_api_name,1,26)
3174: ,p_init_msg_list
3175: ,'_PUB'
3175: ,'_PUB'
3176: ,x_return_status
3177: );
3178: IF (-- unexpected error
3179: l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
3180: ) THEN
3181: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3182: ELSIF (-- standard error
3183: l_return_status = OKC_API.G_RET_STS_ERROR
3177: );
3178: IF (-- unexpected error
3179: l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
3180: ) THEN
3181: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3182: ELSIF (-- standard error
3183: l_return_status = OKC_API.G_RET_STS_ERROR
3184: ) THEN
3185: RAISE OKC_API.G_EXCEPTION_ERROR;
3179: l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
3180: ) THEN
3181: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3182: ELSIF (-- standard error
3183: l_return_status = OKC_API.G_RET_STS_ERROR
3184: ) THEN
3185: RAISE OKC_API.G_EXCEPTION_ERROR;
3186: END IF;
3187:
3181: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3182: ELSIF (-- standard error
3183: l_return_status = OKC_API.G_RET_STS_ERROR
3184: ) THEN
3185: RAISE OKC_API.G_EXCEPTION_ERROR;
3186: END IF;
3187:
3188: l_crjv_rec := null_out_defaults (p_crjv_rec);
3189:
3186: END IF;
3187:
3188: l_crjv_rec := null_out_defaults (p_crjv_rec);
3189:
3190: x_return_status := OKC_API.G_RET_STS_SUCCESS;
3191: x_true_false := false;
3192:
3193: /* is quote for renewal?
3194: */
3205: CLOSE renew_rel_for_quote;
3206: x_true_false := not(l_row_notfound);
3207: END IF;
3208: EXCEPTION
3209: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3210: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3211: (
3212: l_api_name
3213: ,G_PKG_NAME
3206: x_true_false := not(l_row_notfound);
3207: END IF;
3208: EXCEPTION
3209: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3210: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3211: (
3212: l_api_name
3213: ,G_PKG_NAME
3214: ,'OKC_API.G_RET_STS_ERROR'
3210: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3211: (
3212: l_api_name
3213: ,G_PKG_NAME
3214: ,'OKC_API.G_RET_STS_ERROR'
3215: ,x_msg_count
3216: ,x_msg_data
3217: ,'_PUB'
3218: );
3215: ,x_msg_count
3216: ,x_msg_data
3217: ,'_PUB'
3218: );
3219: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3220: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3221: (
3222: l_api_name
3223: ,G_PKG_NAME
3216: ,x_msg_data
3217: ,'_PUB'
3218: );
3219: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3220: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3221: (
3222: l_api_name
3223: ,G_PKG_NAME
3224: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
3220: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3221: (
3222: l_api_name
3223: ,G_PKG_NAME
3224: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
3225: ,x_msg_count
3226: ,x_msg_data
3227: ,'_PUB'
3228: );
3226: ,x_msg_data
3227: ,'_PUB'
3228: );
3229: WHEN OTHERS THEN
3230: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3231: (
3232: l_api_name
3233: ,G_PKG_NAME
3234: ,'OTHERS'
3235: ,x_msg_count
3236: ,x_msg_data
3237: ,'_PUB'
3238: );
3239: OKC_API.set_message
3240: (
3241: G_APP_NAME
3242: ,g_unexpected_error
3243: ,g_sqlcode_token
3270: ) is
3271:
3272: l_api_version CONSTANT NUMBER := 1;
3273: l_api_name CONSTANT VARCHAR2(30) := 'order_is_renewal';
3274: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3275: l_row_notfound boolean;
3276: l_crjv_rec crjv_rec_type;
3277: i number;
3278:
3323: ;
3324: r_quote_for_order quote_for_order%rowtype;
3325:
3326: BEGIN
3327: l_return_status := OKC_API.START_ACTIVITY
3328: (
3329: substr(l_api_name,1,26)
3330: ,p_init_msg_list
3331: ,'_PUB'
3331: ,'_PUB'
3332: ,x_return_status
3333: );
3334: IF (-- unexpected error
3335: l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
3336: ) THEN
3337: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3338: ELSIF (-- standard error
3339: l_return_status = OKC_API.G_RET_STS_ERROR
3333: );
3334: IF (-- unexpected error
3335: l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
3336: ) THEN
3337: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3338: ELSIF (-- standard error
3339: l_return_status = OKC_API.G_RET_STS_ERROR
3340: ) THEN
3341: RAISE OKC_API.G_EXCEPTION_ERROR;
3335: l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
3336: ) THEN
3337: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3338: ELSIF (-- standard error
3339: l_return_status = OKC_API.G_RET_STS_ERROR
3340: ) THEN
3341: RAISE OKC_API.G_EXCEPTION_ERROR;
3342: END IF;
3343:
3337: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3338: ELSIF (-- standard error
3339: l_return_status = OKC_API.G_RET_STS_ERROR
3340: ) THEN
3341: RAISE OKC_API.G_EXCEPTION_ERROR;
3342: END IF;
3343:
3344: l_crjv_rec := null_out_defaults (p_crjv_rec);
3345:
3342: END IF;
3343:
3344: l_crjv_rec := null_out_defaults (p_crjv_rec);
3345:
3346: x_return_status := OKC_API.G_RET_STS_SUCCESS;
3347: x_true_false := false;
3348:
3349: /* is order for renewal?
3350: */
3392: END IF; -- quote found
3393: end if; -- didn't find rel. for order
3394:
3395: EXCEPTION
3396: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3397: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3398: (
3399: l_api_name
3400: ,G_PKG_NAME
3393: end if; -- didn't find rel. for order
3394:
3395: EXCEPTION
3396: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3397: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3398: (
3399: l_api_name
3400: ,G_PKG_NAME
3401: ,'OKC_API.G_RET_STS_ERROR'
3397: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3398: (
3399: l_api_name
3400: ,G_PKG_NAME
3401: ,'OKC_API.G_RET_STS_ERROR'
3402: ,x_msg_count
3403: ,x_msg_data
3404: ,'_PUB'
3405: );
3402: ,x_msg_count
3403: ,x_msg_data
3404: ,'_PUB'
3405: );
3406: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3407: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3408: (
3409: l_api_name
3410: ,G_PKG_NAME
3403: ,x_msg_data
3404: ,'_PUB'
3405: );
3406: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3407: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3408: (
3409: l_api_name
3410: ,G_PKG_NAME
3411: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
3407: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3408: (
3409: l_api_name
3410: ,G_PKG_NAME
3411: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
3412: ,x_msg_count
3413: ,x_msg_data
3414: ,'_PUB'
3415: );
3413: ,x_msg_data
3414: ,'_PUB'
3415: );
3416: WHEN OTHERS THEN
3417: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3418: (
3419: l_api_name
3420: ,G_PKG_NAME
3421: ,'OTHERS'
3422: ,x_msg_count
3423: ,x_msg_data
3424: ,'_PUB'
3425: );
3426: OKC_API.set_message
3427: (
3428: G_APP_NAME
3429: ,g_unexpected_error
3430: ,g_sqlcode_token
3457: ) is
3458:
3459: l_api_version CONSTANT NUMBER := 1;
3460: l_api_name CONSTANT VARCHAR2(30) := 'quote_is_subject';
3461: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3462: l_row_notfound boolean;
3463: l_crjv_rec crjv_rec_type;
3464: i number;
3465:
3510: ;
3511: r_subject_rel_for_quote subject_rel_for_quote%rowtype;
3512:
3513: BEGIN
3514: l_return_status := OKC_API.START_ACTIVITY
3515: (
3516: substr(l_api_name,1,26)
3517: ,p_init_msg_list
3518: ,'_PUB'
3518: ,'_PUB'
3519: ,x_return_status
3520: );
3521: IF (-- unexpected error
3522: l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
3523: ) THEN
3524: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3525: ELSIF (-- standard error
3526: l_return_status = OKC_API.G_RET_STS_ERROR
3520: );
3521: IF (-- unexpected error
3522: l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
3523: ) THEN
3524: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3525: ELSIF (-- standard error
3526: l_return_status = OKC_API.G_RET_STS_ERROR
3527: ) THEN
3528: RAISE OKC_API.G_EXCEPTION_ERROR;
3522: l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
3523: ) THEN
3524: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3525: ELSIF (-- standard error
3526: l_return_status = OKC_API.G_RET_STS_ERROR
3527: ) THEN
3528: RAISE OKC_API.G_EXCEPTION_ERROR;
3529: END IF;
3530:
3524: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3525: ELSIF (-- standard error
3526: l_return_status = OKC_API.G_RET_STS_ERROR
3527: ) THEN
3528: RAISE OKC_API.G_EXCEPTION_ERROR;
3529: END IF;
3530:
3531: l_crjv_rec := null_out_defaults (p_crjv_rec);
3532:
3529: END IF;
3530:
3531: l_crjv_rec := null_out_defaults (p_crjv_rec);
3532:
3533: x_return_status := OKC_API.G_RET_STS_SUCCESS;
3534: x_true_false := false;
3535:
3536: /* is quote subject?
3537: */
3548: CLOSE subject_rel_for_quote;
3549: x_true_false := not(l_row_notfound);
3550: END IF;
3551: EXCEPTION
3552: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3553: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3554: (
3555: l_api_name
3556: ,G_PKG_NAME
3549: x_true_false := not(l_row_notfound);
3550: END IF;
3551: EXCEPTION
3552: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3553: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3554: (
3555: l_api_name
3556: ,G_PKG_NAME
3557: ,'OKC_API.G_RET_STS_ERROR'
3553: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3554: (
3555: l_api_name
3556: ,G_PKG_NAME
3557: ,'OKC_API.G_RET_STS_ERROR'
3558: ,x_msg_count
3559: ,x_msg_data
3560: ,'_PUB'
3561: );
3558: ,x_msg_count
3559: ,x_msg_data
3560: ,'_PUB'
3561: );
3562: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3563: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3564: (
3565: l_api_name
3566: ,G_PKG_NAME
3559: ,x_msg_data
3560: ,'_PUB'
3561: );
3562: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3563: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3564: (
3565: l_api_name
3566: ,G_PKG_NAME
3567: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
3563: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3564: (
3565: l_api_name
3566: ,G_PKG_NAME
3567: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
3568: ,x_msg_count
3569: ,x_msg_data
3570: ,'_PUB'
3571: );
3569: ,x_msg_data
3570: ,'_PUB'
3571: );
3572: WHEN OTHERS THEN
3573: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3574: (
3575: l_api_name
3576: ,G_PKG_NAME
3577: ,'OTHERS'
3578: ,x_msg_count
3579: ,x_msg_data
3580: ,'_PUB'
3581: );
3582: OKC_API.set_message
3583: (
3584: G_APP_NAME
3585: ,g_unexpected_error
3586: ,g_sqlcode_token
3613: ) is
3614:
3615: l_api_version CONSTANT NUMBER := 1;
3616: l_api_name CONSTANT VARCHAR2(30) := 'order_is_subject';
3617: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3618: l_row_notfound boolean;
3619: l_crjv_rec crjv_rec_type;
3620: i number;
3621:
3666: ;
3667: r_quote_for_order quote_for_order%rowtype;
3668:
3669: BEGIN
3670: l_return_status := OKC_API.START_ACTIVITY
3671: (
3672: substr(l_api_name,1,26)
3673: ,p_init_msg_list
3674: ,'_PUB'
3674: ,'_PUB'
3675: ,x_return_status
3676: );
3677: IF (-- unexpected error
3678: l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
3679: ) THEN
3680: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3681: ELSIF (-- standard error
3682: l_return_status = OKC_API.G_RET_STS_ERROR
3676: );
3677: IF (-- unexpected error
3678: l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
3679: ) THEN
3680: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3681: ELSIF (-- standard error
3682: l_return_status = OKC_API.G_RET_STS_ERROR
3683: ) THEN
3684: RAISE OKC_API.G_EXCEPTION_ERROR;
3678: l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
3679: ) THEN
3680: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3681: ELSIF (-- standard error
3682: l_return_status = OKC_API.G_RET_STS_ERROR
3683: ) THEN
3684: RAISE OKC_API.G_EXCEPTION_ERROR;
3685: END IF;
3686:
3680: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3681: ELSIF (-- standard error
3682: l_return_status = OKC_API.G_RET_STS_ERROR
3683: ) THEN
3684: RAISE OKC_API.G_EXCEPTION_ERROR;
3685: END IF;
3686:
3687: l_crjv_rec := null_out_defaults (p_crjv_rec);
3688:
3685: END IF;
3686:
3687: l_crjv_rec := null_out_defaults (p_crjv_rec);
3688:
3689: x_return_status := OKC_API.G_RET_STS_SUCCESS;
3690: x_true_false := false;
3691:
3692: /* is order subject?
3693: */
3735: END IF; -- quote found
3736: end if; -- didn't find rel. for order
3737:
3738: EXCEPTION
3739: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3740: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3741: (
3742: l_api_name
3743: ,G_PKG_NAME
3736: end if; -- didn't find rel. for order
3737:
3738: EXCEPTION
3739: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3740: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3741: (
3742: l_api_name
3743: ,G_PKG_NAME
3744: ,'OKC_API.G_RET_STS_ERROR'
3740: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3741: (
3742: l_api_name
3743: ,G_PKG_NAME
3744: ,'OKC_API.G_RET_STS_ERROR'
3745: ,x_msg_count
3746: ,x_msg_data
3747: ,'_PUB'
3748: );
3745: ,x_msg_count
3746: ,x_msg_data
3747: ,'_PUB'
3748: );
3749: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3750: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3751: (
3752: l_api_name
3753: ,G_PKG_NAME
3746: ,x_msg_data
3747: ,'_PUB'
3748: );
3749: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3750: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3751: (
3752: l_api_name
3753: ,G_PKG_NAME
3754: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
3750: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3751: (
3752: l_api_name
3753: ,G_PKG_NAME
3754: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
3755: ,x_msg_count
3756: ,x_msg_data
3757: ,'_PUB'
3758: );
3756: ,x_msg_data
3757: ,'_PUB'
3758: );
3759: WHEN OTHERS THEN
3760: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3761: (
3762: l_api_name
3763: ,G_PKG_NAME
3764: ,'OTHERS'
3765: ,x_msg_count
3766: ,x_msg_data
3767: ,'_PUB'
3768: );
3769: OKC_API.set_message
3770: (
3771: G_APP_NAME
3772: ,g_unexpected_error
3773: ,g_sqlcode_token
3798: ,p_crjv_rec IN crjv_rec_type
3799: ,x_true_false out nocopy boolean
3800: ) IS
3801: l_api_name varchar2(30) := 'quote_contract_is_ordered';
3802: l_return_status varchar2(1) := OKC_API.G_RET_STS_SUCCESS;
3803: l_row_notfound BOOLEAN := TRUE;
3804: l_crjv_rec crjv_rec_type;
3805:
3806: CURSOR renew_rel_for_quote -- finds contract header if quote is for contract renewal
3870: r_quote_contract_order quote_contract_order%rowtype;
3871: BEGIN
3872: l_crjv_rec := null_out_defaults (p_crjv_rec);
3873:
3874: x_return_status := OKC_API.G_RET_STS_SUCCESS;
3875: x_true_false := false;
3876:
3877: IF (-- quote to search for
3878: l_crjv_rec.object1_id1 IS NOT NULL
3904: CLOSE quote_contract_order;
3905: x_true_false := not(l_row_notfound);
3906: END IF;
3907: EXCEPTION
3908: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3909: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3910: (
3911: l_api_name
3912: ,G_PKG_NAME
3905: x_true_false := not(l_row_notfound);
3906: END IF;
3907: EXCEPTION
3908: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3909: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3910: (
3911: l_api_name
3912: ,G_PKG_NAME
3913: ,'OKC_API.G_RET_STS_ERROR'
3909: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3910: (
3911: l_api_name
3912: ,G_PKG_NAME
3913: ,'OKC_API.G_RET_STS_ERROR'
3914: ,x_msg_count
3915: ,x_msg_data
3916: ,'_PUB'
3917: );
3914: ,x_msg_count
3915: ,x_msg_data
3916: ,'_PUB'
3917: );
3918: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3919: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3920: (
3921: l_api_name
3922: ,G_PKG_NAME
3915: ,x_msg_data
3916: ,'_PUB'
3917: );
3918: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3919: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3920: (
3921: l_api_name
3922: ,G_PKG_NAME
3923: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
3919: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3920: (
3921: l_api_name
3922: ,G_PKG_NAME
3923: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
3924: ,x_msg_count
3925: ,x_msg_data
3926: ,'_PUB'
3927: );
3925: ,x_msg_data
3926: ,'_PUB'
3927: );
3928: WHEN OTHERS THEN
3929: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3930: (
3931: l_api_name
3932: ,G_PKG_NAME
3933: ,'OTHERS'
3934: ,x_msg_count
3935: ,x_msg_data
3936: ,'_PUB'
3937: );
3938: OKC_API.set_message
3939: (
3940: G_APP_NAME
3941: ,g_unexpected_error
3942: ,g_sqlcode_token
3995:
3996: If (
3997: l_not_found
3998: ) Then
3999: OKC_API.set_message
4000: (
4001: G_APP_NAME
4002: ,G_UNEXPECTED_ERROR
4003: ,'not found'
4060: ) Then
4061: IF (l_debug = 'Y') THEN
4062: okc_util.print_trace(6, 'temp: not found');
4063: END IF;
4064: OKC_API.set_message
4065: (
4066: G_APP_NAME
4067: ,G_UNEXPECTED_ERROR
4068: ,'not found'
4096: ) IS
4097:
4098: l_api_version CONSTANT NUMBER := 1;
4099: l_api_name CONSTANT VARCHAR2(30) := 'GET_OBJ_FROM_JTFV';
4100: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4101: i number;
4102:
4103: G_UNEXPECTED_ERROR CONSTANT varchar2(200) := 'OKC_UNEXPECTED_ERROR';
4104: G_SQLCODE_TOKEN CONSTANT varchar2(200) := 'ERROR_CODE';
4162: l_id NUMBER;
4163: l_object_version_number NUMBER := 1;
4164: BEGIN
4165: -- initialize return status
4166: x_return_status := OKC_API.G_RET_STS_SUCCESS;
4167:
4168: i := p_crjv_tbl.FIRST; j:=0;
4169: while i is not null
4170: LOOP
4168: i := p_crjv_tbl.FIRST; j:=0;
4169: while i is not null
4170: LOOP
4171: --IF ID is null or default..generate id
4172: If (p_crjv_tbl(i).id is null) or (p_crjv_tbl(i).id = OKC_API.G_MISS_NUM) Then
4173: l_id := get_seq_id;
4174: Else
4175: l_id := p_crjv_tbl(i).id;
4176: End If;
4275:
4276: EXCEPTION
4277: WHEN OTHERS THEN
4278: -- store SQL error message on message stack
4279: OKC_API.SET_MESSAGE(
4280: p_app_name => G_APP_NAME,
4281: p_msg_name => G_UNEXPECTED_ERROR,
4282: p_token1 => G_SQLCODE_TOKEN,
4283: p_token1_value => SQLCODE,
4283: p_token1_value => SQLCODE,
4284: p_token2 => G_SQLERRM_TOKEN,
4285: p_token2_value => SQLERRM);
4286: -- notify caller of an error as UNEXPECTED error
4287: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4288:
4289: -- RAISE;
4290: END INSERT_ROW_UPG;
4291: