[Home] [Help]
328: p_aelv_rec IN aelv_rec_type
329: ) RETURN aelv_rec_type IS
330: l_aelv_rec aelv_rec_type := p_aelv_rec;
331: BEGIN
332: IF (l_aelv_rec.object_version_number = Okc_Api.G_MISS_NUM) THEN
333: l_aelv_rec.object_version_number := NULL;
334: END IF;
335: IF (l_aelv_rec.AE_HEADER_ID = Okc_Api.G_MISS_NUM) THEN
336: l_aelv_rec.AE_HEADER_ID := NULL;
331: BEGIN
332: IF (l_aelv_rec.object_version_number = Okc_Api.G_MISS_NUM) THEN
333: l_aelv_rec.object_version_number := NULL;
334: END IF;
335: IF (l_aelv_rec.AE_HEADER_ID = Okc_Api.G_MISS_NUM) THEN
336: l_aelv_rec.AE_HEADER_ID := NULL;
337: END IF;
338: IF (l_aelv_rec.currency_conversion_type = Okc_Api.G_MISS_CHAR) THEN
339: l_aelv_rec.currency_conversion_type := NULL;
334: END IF;
335: IF (l_aelv_rec.AE_HEADER_ID = Okc_Api.G_MISS_NUM) THEN
336: l_aelv_rec.AE_HEADER_ID := NULL;
337: END IF;
338: IF (l_aelv_rec.currency_conversion_type = Okc_Api.G_MISS_CHAR) THEN
339: l_aelv_rec.currency_conversion_type := NULL;
340: END IF;
341: IF (l_aelv_rec.code_combination_id = Okc_Api.G_MISS_NUM) THEN
342: l_aelv_rec.code_combination_id := NULL;
337: END IF;
338: IF (l_aelv_rec.currency_conversion_type = Okc_Api.G_MISS_CHAR) THEN
339: l_aelv_rec.currency_conversion_type := NULL;
340: END IF;
341: IF (l_aelv_rec.code_combination_id = Okc_Api.G_MISS_NUM) THEN
342: l_aelv_rec.code_combination_id := NULL;
343: END IF;
344: IF (l_aelv_rec.org_id = Okc_Api.G_MISS_NUM) THEN
345: l_aelv_rec.org_id := NULL;
340: END IF;
341: IF (l_aelv_rec.code_combination_id = Okc_Api.G_MISS_NUM) THEN
342: l_aelv_rec.code_combination_id := NULL;
343: END IF;
344: IF (l_aelv_rec.org_id = Okc_Api.G_MISS_NUM) THEN
345: l_aelv_rec.org_id := NULL;
346: END IF;
347: IF (l_aelv_rec.AE_LINE_NUMBER = Okc_Api.G_MISS_NUM) THEN
348: l_aelv_rec.AE_LINE_NUMBER := NULL;
343: END IF;
344: IF (l_aelv_rec.org_id = Okc_Api.G_MISS_NUM) THEN
345: l_aelv_rec.org_id := NULL;
346: END IF;
347: IF (l_aelv_rec.AE_LINE_NUMBER = Okc_Api.G_MISS_NUM) THEN
348: l_aelv_rec.AE_LINE_NUMBER := NULL;
349: END IF;
350: IF (l_aelv_rec.AE_LINE_TYPE_CODE = Okc_Api.G_MISS_CHAR) THEN
351: l_aelv_rec.AE_LINE_TYPE_CODE := NULL;
346: END IF;
347: IF (l_aelv_rec.AE_LINE_NUMBER = Okc_Api.G_MISS_NUM) THEN
348: l_aelv_rec.AE_LINE_NUMBER := NULL;
349: END IF;
350: IF (l_aelv_rec.AE_LINE_TYPE_CODE = Okc_Api.G_MISS_CHAR) THEN
351: l_aelv_rec.AE_LINE_TYPE_CODE := NULL;
352: END IF;
353: IF (l_aelv_rec.currency_conversion_date = Okc_Api.G_MISS_DATE) THEN
354: l_aelv_rec.currency_conversion_date := NULL;
349: END IF;
350: IF (l_aelv_rec.AE_LINE_TYPE_CODE = Okc_Api.G_MISS_CHAR) THEN
351: l_aelv_rec.AE_LINE_TYPE_CODE := NULL;
352: END IF;
353: IF (l_aelv_rec.currency_conversion_date = Okc_Api.G_MISS_DATE) THEN
354: l_aelv_rec.currency_conversion_date := NULL;
355: END IF;
356: IF (l_aelv_rec.currency_conversion_rate = Okc_Api.G_MISS_NUM) THEN
357: l_aelv_rec.currency_conversion_rate := NULL;
352: END IF;
353: IF (l_aelv_rec.currency_conversion_date = Okc_Api.G_MISS_DATE) THEN
354: l_aelv_rec.currency_conversion_date := NULL;
355: END IF;
356: IF (l_aelv_rec.currency_conversion_rate = Okc_Api.G_MISS_NUM) THEN
357: l_aelv_rec.currency_conversion_rate := NULL;
358: END IF;
359: IF (l_aelv_rec.ENTERED_DR = Okc_Api.G_MISS_NUM) THEN
360: l_aelv_rec.ENTERED_DR := NULL;
355: END IF;
356: IF (l_aelv_rec.currency_conversion_rate = Okc_Api.G_MISS_NUM) THEN
357: l_aelv_rec.currency_conversion_rate := NULL;
358: END IF;
359: IF (l_aelv_rec.ENTERED_DR = Okc_Api.G_MISS_NUM) THEN
360: l_aelv_rec.ENTERED_DR := NULL;
361: END IF;
362: IF (l_aelv_rec.ENTERED_CR = Okc_Api.G_MISS_NUM) THEN
363: l_aelv_rec.ENTERED_CR := NULL;
358: END IF;
359: IF (l_aelv_rec.ENTERED_DR = Okc_Api.G_MISS_NUM) THEN
360: l_aelv_rec.ENTERED_DR := NULL;
361: END IF;
362: IF (l_aelv_rec.ENTERED_CR = Okc_Api.G_MISS_NUM) THEN
363: l_aelv_rec.ENTERED_CR := NULL;
364: END IF;
365: IF (l_aelv_rec.ACCOUNTED_DR = Okc_Api.G_MISS_NUM) THEN
366: l_aelv_rec.ACCOUNTED_DR := NULL;
361: END IF;
362: IF (l_aelv_rec.ENTERED_CR = Okc_Api.G_MISS_NUM) THEN
363: l_aelv_rec.ENTERED_CR := NULL;
364: END IF;
365: IF (l_aelv_rec.ACCOUNTED_DR = Okc_Api.G_MISS_NUM) THEN
366: l_aelv_rec.ACCOUNTED_DR := NULL;
367: END IF;
368: IF (l_aelv_rec.ACCOUNTED_CR = Okc_Api.G_MISS_NUM) THEN
369: l_aelv_rec.ACCOUNTED_CR := NULL;
364: END IF;
365: IF (l_aelv_rec.ACCOUNTED_DR = Okc_Api.G_MISS_NUM) THEN
366: l_aelv_rec.ACCOUNTED_DR := NULL;
367: END IF;
368: IF (l_aelv_rec.ACCOUNTED_CR = Okc_Api.G_MISS_NUM) THEN
369: l_aelv_rec.ACCOUNTED_CR := NULL;
370: END IF;
371: IF (l_aelv_rec.source_table = Okc_Api.G_MISS_CHAR) THEN
372: l_aelv_rec.source_table := NULL;
367: END IF;
368: IF (l_aelv_rec.ACCOUNTED_CR = Okc_Api.G_MISS_NUM) THEN
369: l_aelv_rec.ACCOUNTED_CR := NULL;
370: END IF;
371: IF (l_aelv_rec.source_table = Okc_Api.G_MISS_CHAR) THEN
372: l_aelv_rec.source_table := NULL;
373: END IF;
374: IF (l_aelv_rec.source_id = Okc_Api.G_MISS_NUM) THEN
375: l_aelv_rec.source_id := NULL;
370: END IF;
371: IF (l_aelv_rec.source_table = Okc_Api.G_MISS_CHAR) THEN
372: l_aelv_rec.source_table := NULL;
373: END IF;
374: IF (l_aelv_rec.source_id = Okc_Api.G_MISS_NUM) THEN
375: l_aelv_rec.source_id := NULL;
376: END IF;
377: IF (l_aelv_rec.reference1 = Okc_Api.G_MISS_CHAR) THEN
378: l_aelv_rec.reference1 := NULL;
373: END IF;
374: IF (l_aelv_rec.source_id = Okc_Api.G_MISS_NUM) THEN
375: l_aelv_rec.source_id := NULL;
376: END IF;
377: IF (l_aelv_rec.reference1 = Okc_Api.G_MISS_CHAR) THEN
378: l_aelv_rec.reference1 := NULL;
379: END IF;
380: IF (l_aelv_rec.reference2 = Okc_Api.G_MISS_CHAR) THEN
381: l_aelv_rec.reference2 := NULL;
376: END IF;
377: IF (l_aelv_rec.reference1 = Okc_Api.G_MISS_CHAR) THEN
378: l_aelv_rec.reference1 := NULL;
379: END IF;
380: IF (l_aelv_rec.reference2 = Okc_Api.G_MISS_CHAR) THEN
381: l_aelv_rec.reference2 := NULL;
382: END IF;
383: IF (l_aelv_rec.reference3 = Okc_Api.G_MISS_CHAR) THEN
384: l_aelv_rec.reference3 := NULL;
379: END IF;
380: IF (l_aelv_rec.reference2 = Okc_Api.G_MISS_CHAR) THEN
381: l_aelv_rec.reference2 := NULL;
382: END IF;
383: IF (l_aelv_rec.reference3 = Okc_Api.G_MISS_CHAR) THEN
384: l_aelv_rec.reference3 := NULL;
385: END IF;
386: IF (l_aelv_rec.reference4 = Okc_Api.G_MISS_CHAR) THEN
387: l_aelv_rec.reference4 := NULL;
382: END IF;
383: IF (l_aelv_rec.reference3 = Okc_Api.G_MISS_CHAR) THEN
384: l_aelv_rec.reference3 := NULL;
385: END IF;
386: IF (l_aelv_rec.reference4 = Okc_Api.G_MISS_CHAR) THEN
387: l_aelv_rec.reference4 := NULL;
388: END IF;
389: IF (l_aelv_rec.reference5 = Okc_Api.G_MISS_CHAR) THEN
390: l_aelv_rec.reference5 := NULL;
385: END IF;
386: IF (l_aelv_rec.reference4 = Okc_Api.G_MISS_CHAR) THEN
387: l_aelv_rec.reference4 := NULL;
388: END IF;
389: IF (l_aelv_rec.reference5 = Okc_Api.G_MISS_CHAR) THEN
390: l_aelv_rec.reference5 := NULL;
391: END IF;
392: IF (l_aelv_rec.reference6 = Okc_Api.G_MISS_CHAR) THEN
393: l_aelv_rec.reference6 := NULL;
388: END IF;
389: IF (l_aelv_rec.reference5 = Okc_Api.G_MISS_CHAR) THEN
390: l_aelv_rec.reference5 := NULL;
391: END IF;
392: IF (l_aelv_rec.reference6 = Okc_Api.G_MISS_CHAR) THEN
393: l_aelv_rec.reference6 := NULL;
394: END IF;
395: IF (l_aelv_rec.reference7 = Okc_Api.G_MISS_CHAR) THEN
396: l_aelv_rec.reference7 := NULL;
391: END IF;
392: IF (l_aelv_rec.reference6 = Okc_Api.G_MISS_CHAR) THEN
393: l_aelv_rec.reference6 := NULL;
394: END IF;
395: IF (l_aelv_rec.reference7 = Okc_Api.G_MISS_CHAR) THEN
396: l_aelv_rec.reference7 := NULL;
397: END IF;
398: IF (l_aelv_rec.reference8 = Okc_Api.G_MISS_CHAR) THEN
399: l_aelv_rec.reference8 := NULL;
394: END IF;
395: IF (l_aelv_rec.reference7 = Okc_Api.G_MISS_CHAR) THEN
396: l_aelv_rec.reference7 := NULL;
397: END IF;
398: IF (l_aelv_rec.reference8 = Okc_Api.G_MISS_CHAR) THEN
399: l_aelv_rec.reference8 := NULL;
400: END IF;
401: IF (l_aelv_rec.reference9 = Okc_Api.G_MISS_CHAR) THEN
402: l_aelv_rec.reference9 := NULL;
397: END IF;
398: IF (l_aelv_rec.reference8 = Okc_Api.G_MISS_CHAR) THEN
399: l_aelv_rec.reference8 := NULL;
400: END IF;
401: IF (l_aelv_rec.reference9 = Okc_Api.G_MISS_CHAR) THEN
402: l_aelv_rec.reference9 := NULL;
403: END IF;
404: IF (l_aelv_rec.reference10 = Okc_Api.G_MISS_CHAR) THEN
405: l_aelv_rec.reference10 := NULL;
400: END IF;
401: IF (l_aelv_rec.reference9 = Okc_Api.G_MISS_CHAR) THEN
402: l_aelv_rec.reference9 := NULL;
403: END IF;
404: IF (l_aelv_rec.reference10 = Okc_Api.G_MISS_CHAR) THEN
405: l_aelv_rec.reference10 := NULL;
406: END IF;
407: IF (l_aelv_rec.description = Okc_Api.G_MISS_CHAR) THEN
408: l_aelv_rec.description := NULL;
403: END IF;
404: IF (l_aelv_rec.reference10 = Okc_Api.G_MISS_CHAR) THEN
405: l_aelv_rec.reference10 := NULL;
406: END IF;
407: IF (l_aelv_rec.description = Okc_Api.G_MISS_CHAR) THEN
408: l_aelv_rec.description := NULL;
409: END IF;
410: IF (l_aelv_rec.third_party_id = Okc_Api.G_MISS_NUM) THEN
411: l_aelv_rec.third_party_id := NULL;
406: END IF;
407: IF (l_aelv_rec.description = Okc_Api.G_MISS_CHAR) THEN
408: l_aelv_rec.description := NULL;
409: END IF;
410: IF (l_aelv_rec.third_party_id = Okc_Api.G_MISS_NUM) THEN
411: l_aelv_rec.third_party_id := NULL;
412: END IF;
413: IF (l_aelv_rec.third_party_sub_id = Okc_Api.G_MISS_NUM) THEN
414: l_aelv_rec.third_party_sub_id := NULL;
409: END IF;
410: IF (l_aelv_rec.third_party_id = Okc_Api.G_MISS_NUM) THEN
411: l_aelv_rec.third_party_id := NULL;
412: END IF;
413: IF (l_aelv_rec.third_party_sub_id = Okc_Api.G_MISS_NUM) THEN
414: l_aelv_rec.third_party_sub_id := NULL;
415: END IF;
416: IF (l_aelv_rec.STAT_AMOUNT = Okc_Api.G_MISS_NUM) THEN
417: l_aelv_rec.STAT_AMOUNT := NULL;
412: END IF;
413: IF (l_aelv_rec.third_party_sub_id = Okc_Api.G_MISS_NUM) THEN
414: l_aelv_rec.third_party_sub_id := NULL;
415: END IF;
416: IF (l_aelv_rec.STAT_AMOUNT = Okc_Api.G_MISS_NUM) THEN
417: l_aelv_rec.STAT_AMOUNT := NULL;
418: END IF;
419: IF (l_aelv_rec.ussgl_transaction_code = Okc_Api.G_MISS_CHAR) THEN
420: l_aelv_rec.ussgl_transaction_code := NULL;
415: END IF;
416: IF (l_aelv_rec.STAT_AMOUNT = Okc_Api.G_MISS_NUM) THEN
417: l_aelv_rec.STAT_AMOUNT := NULL;
418: END IF;
419: IF (l_aelv_rec.ussgl_transaction_code = Okc_Api.G_MISS_CHAR) THEN
420: l_aelv_rec.ussgl_transaction_code := NULL;
421: END IF;
422: IF (l_aelv_rec.subledger_doc_sequence_id = Okc_Api.G_MISS_NUM) THEN
423: l_aelv_rec.subledger_doc_sequence_id := NULL;
418: END IF;
419: IF (l_aelv_rec.ussgl_transaction_code = Okc_Api.G_MISS_CHAR) THEN
420: l_aelv_rec.ussgl_transaction_code := NULL;
421: END IF;
422: IF (l_aelv_rec.subledger_doc_sequence_id = Okc_Api.G_MISS_NUM) THEN
423: l_aelv_rec.subledger_doc_sequence_id := NULL;
424: END IF;
425: IF (l_aelv_rec.accounting_error_code = Okc_Api.G_MISS_CHAR) THEN
426: l_aelv_rec.accounting_error_code := NULL;
421: END IF;
422: IF (l_aelv_rec.subledger_doc_sequence_id = Okc_Api.G_MISS_NUM) THEN
423: l_aelv_rec.subledger_doc_sequence_id := NULL;
424: END IF;
425: IF (l_aelv_rec.accounting_error_code = Okc_Api.G_MISS_CHAR) THEN
426: l_aelv_rec.accounting_error_code := NULL;
427: END IF;
428: IF (l_aelv_rec.gl_transfer_error_code = Okc_Api.G_MISS_CHAR) THEN
429: l_aelv_rec.gl_transfer_error_code := NULL;
424: END IF;
425: IF (l_aelv_rec.accounting_error_code = Okc_Api.G_MISS_CHAR) THEN
426: l_aelv_rec.accounting_error_code := NULL;
427: END IF;
428: IF (l_aelv_rec.gl_transfer_error_code = Okc_Api.G_MISS_CHAR) THEN
429: l_aelv_rec.gl_transfer_error_code := NULL;
430: END IF;
431: IF (l_aelv_rec.GL_SL_LINK_ID = Okc_Api.G_MISS_NUM) THEN
432: l_aelv_rec.GL_SL_LINK_ID := NULL;
427: END IF;
428: IF (l_aelv_rec.gl_transfer_error_code = Okc_Api.G_MISS_CHAR) THEN
429: l_aelv_rec.gl_transfer_error_code := NULL;
430: END IF;
431: IF (l_aelv_rec.GL_SL_LINK_ID = Okc_Api.G_MISS_NUM) THEN
432: l_aelv_rec.GL_SL_LINK_ID := NULL;
433: END IF;
434: IF (l_aelv_rec.taxable_ENTERED_DR = Okc_Api.G_MISS_NUM) THEN
435: l_aelv_rec.taxable_ENTERED_DR := NULL;
430: END IF;
431: IF (l_aelv_rec.GL_SL_LINK_ID = Okc_Api.G_MISS_NUM) THEN
432: l_aelv_rec.GL_SL_LINK_ID := NULL;
433: END IF;
434: IF (l_aelv_rec.taxable_ENTERED_DR = Okc_Api.G_MISS_NUM) THEN
435: l_aelv_rec.taxable_ENTERED_DR := NULL;
436: END IF;
437: IF (l_aelv_rec.taxable_ENTERED_CR = Okc_Api.G_MISS_NUM) THEN
438: l_aelv_rec.taxable_ENTERED_CR := NULL;
433: END IF;
434: IF (l_aelv_rec.taxable_ENTERED_DR = Okc_Api.G_MISS_NUM) THEN
435: l_aelv_rec.taxable_ENTERED_DR := NULL;
436: END IF;
437: IF (l_aelv_rec.taxable_ENTERED_CR = Okc_Api.G_MISS_NUM) THEN
438: l_aelv_rec.taxable_ENTERED_CR := NULL;
439: END IF;
440: IF (l_aelv_rec.taxable_ACCOUNTED_DR = Okc_Api.G_MISS_NUM) THEN
441: l_aelv_rec.taxable_ACCOUNTED_DR := NULL;
436: END IF;
437: IF (l_aelv_rec.taxable_ENTERED_CR = Okc_Api.G_MISS_NUM) THEN
438: l_aelv_rec.taxable_ENTERED_CR := NULL;
439: END IF;
440: IF (l_aelv_rec.taxable_ACCOUNTED_DR = Okc_Api.G_MISS_NUM) THEN
441: l_aelv_rec.taxable_ACCOUNTED_DR := NULL;
442: END IF;
443: IF (l_aelv_rec.taxable_ACCOUNTED_CR = Okc_Api.G_MISS_NUM) THEN
444: l_aelv_rec.taxable_ACCOUNTED_CR := NULL;
439: END IF;
440: IF (l_aelv_rec.taxable_ACCOUNTED_DR = Okc_Api.G_MISS_NUM) THEN
441: l_aelv_rec.taxable_ACCOUNTED_DR := NULL;
442: END IF;
443: IF (l_aelv_rec.taxable_ACCOUNTED_CR = Okc_Api.G_MISS_NUM) THEN
444: l_aelv_rec.taxable_ACCOUNTED_CR := NULL;
445: END IF;
446: IF (l_aelv_rec.applied_from_trx_hdr_table = Okc_Api.G_MISS_CHAR) THEN
447: l_aelv_rec.applied_from_trx_hdr_table := NULL;
442: END IF;
443: IF (l_aelv_rec.taxable_ACCOUNTED_CR = Okc_Api.G_MISS_NUM) THEN
444: l_aelv_rec.taxable_ACCOUNTED_CR := NULL;
445: END IF;
446: IF (l_aelv_rec.applied_from_trx_hdr_table = Okc_Api.G_MISS_CHAR) THEN
447: l_aelv_rec.applied_from_trx_hdr_table := NULL;
448: END IF;
449: IF (l_aelv_rec.applied_from_trx_hdr_id = Okc_Api.G_MISS_NUM) THEN
450: l_aelv_rec.applied_from_trx_hdr_id := NULL;
445: END IF;
446: IF (l_aelv_rec.applied_from_trx_hdr_table = Okc_Api.G_MISS_CHAR) THEN
447: l_aelv_rec.applied_from_trx_hdr_table := NULL;
448: END IF;
449: IF (l_aelv_rec.applied_from_trx_hdr_id = Okc_Api.G_MISS_NUM) THEN
450: l_aelv_rec.applied_from_trx_hdr_id := NULL;
451: END IF;
452: IF (l_aelv_rec.applied_to_trx_hdr_table = Okc_Api.G_MISS_CHAR) THEN
453: l_aelv_rec.applied_to_trx_hdr_table := NULL;
448: END IF;
449: IF (l_aelv_rec.applied_from_trx_hdr_id = Okc_Api.G_MISS_NUM) THEN
450: l_aelv_rec.applied_from_trx_hdr_id := NULL;
451: END IF;
452: IF (l_aelv_rec.applied_to_trx_hdr_table = Okc_Api.G_MISS_CHAR) THEN
453: l_aelv_rec.applied_to_trx_hdr_table := NULL;
454: END IF;
455: IF (l_aelv_rec.applied_to_trx_hdr_id = Okc_Api.G_MISS_NUM) THEN
456: l_aelv_rec.applied_to_trx_hdr_id := NULL;
451: END IF;
452: IF (l_aelv_rec.applied_to_trx_hdr_table = Okc_Api.G_MISS_CHAR) THEN
453: l_aelv_rec.applied_to_trx_hdr_table := NULL;
454: END IF;
455: IF (l_aelv_rec.applied_to_trx_hdr_id = Okc_Api.G_MISS_NUM) THEN
456: l_aelv_rec.applied_to_trx_hdr_id := NULL;
457: END IF;
458: IF (l_aelv_rec.tax_link_id = Okc_Api.G_MISS_NUM) THEN
459: l_aelv_rec.tax_link_id := NULL;
454: END IF;
455: IF (l_aelv_rec.applied_to_trx_hdr_id = Okc_Api.G_MISS_NUM) THEN
456: l_aelv_rec.applied_to_trx_hdr_id := NULL;
457: END IF;
458: IF (l_aelv_rec.tax_link_id = Okc_Api.G_MISS_NUM) THEN
459: l_aelv_rec.tax_link_id := NULL;
460: END IF;
461: IF (l_aelv_rec.currency_code = Okc_Api.G_MISS_CHAR) THEN
462: l_aelv_rec.currency_code := NULL;
457: END IF;
458: IF (l_aelv_rec.tax_link_id = Okc_Api.G_MISS_NUM) THEN
459: l_aelv_rec.tax_link_id := NULL;
460: END IF;
461: IF (l_aelv_rec.currency_code = Okc_Api.G_MISS_CHAR) THEN
462: l_aelv_rec.currency_code := NULL;
463: END IF;
464: /* commented to make sure concurrent manager columns are not nulled out nocopy as per pg. 104 in API developer's guide
465: IF (l_aelv_rec.program_id = OKC_API.G_MISS_NUM) THEN
461: IF (l_aelv_rec.currency_code = Okc_Api.G_MISS_CHAR) THEN
462: l_aelv_rec.currency_code := NULL;
463: END IF;
464: /* commented to make sure concurrent manager columns are not nulled out nocopy as per pg. 104 in API developer's guide
465: IF (l_aelv_rec.program_id = OKC_API.G_MISS_NUM) THEN
466: l_aelv_rec.program_id := NULL;
467: END IF;
468: IF (l_aelv_rec.program_application_id = OKC_API.G_MISS_NUM) THEN
469: l_aelv_rec.program_application_id := NULL;
464: /* commented to make sure concurrent manager columns are not nulled out nocopy as per pg. 104 in API developer's guide
465: IF (l_aelv_rec.program_id = OKC_API.G_MISS_NUM) THEN
466: l_aelv_rec.program_id := NULL;
467: END IF;
468: IF (l_aelv_rec.program_application_id = OKC_API.G_MISS_NUM) THEN
469: l_aelv_rec.program_application_id := NULL;
470: END IF;
471: IF (l_aelv_rec.program_update_date = OKC_API.G_MISS_DATE) THEN
472: l_aelv_rec.program_update_date := NULL;
467: END IF;
468: IF (l_aelv_rec.program_application_id = OKC_API.G_MISS_NUM) THEN
469: l_aelv_rec.program_application_id := NULL;
470: END IF;
471: IF (l_aelv_rec.program_update_date = OKC_API.G_MISS_DATE) THEN
472: l_aelv_rec.program_update_date := NULL;
473: END IF;
474: IF (l_aelv_rec.request_id = OKC_API.G_MISS_NUM) THEN
475: l_aelv_rec.request_id := NULL;
470: END IF;
471: IF (l_aelv_rec.program_update_date = OKC_API.G_MISS_DATE) THEN
472: l_aelv_rec.program_update_date := NULL;
473: END IF;
474: IF (l_aelv_rec.request_id = OKC_API.G_MISS_NUM) THEN
475: l_aelv_rec.request_id := NULL;
476: END IF;
477: */
478: IF (l_aelv_rec.created_by = Okc_Api.G_MISS_NUM) THEN
474: IF (l_aelv_rec.request_id = OKC_API.G_MISS_NUM) THEN
475: l_aelv_rec.request_id := NULL;
476: END IF;
477: */
478: IF (l_aelv_rec.created_by = Okc_Api.G_MISS_NUM) THEN
479: l_aelv_rec.created_by := NULL;
480: END IF;
481: IF (l_aelv_rec.creation_date = Okc_Api.G_MISS_DATE) THEN
482: l_aelv_rec.creation_date := NULL;
477: */
478: IF (l_aelv_rec.created_by = Okc_Api.G_MISS_NUM) THEN
479: l_aelv_rec.created_by := NULL;
480: END IF;
481: IF (l_aelv_rec.creation_date = Okc_Api.G_MISS_DATE) THEN
482: l_aelv_rec.creation_date := NULL;
483: END IF;
484: IF (l_aelv_rec.last_updated_by = Okc_Api.G_MISS_NUM) THEN
485: l_aelv_rec.last_updated_by := NULL;
480: END IF;
481: IF (l_aelv_rec.creation_date = Okc_Api.G_MISS_DATE) THEN
482: l_aelv_rec.creation_date := NULL;
483: END IF;
484: IF (l_aelv_rec.last_updated_by = Okc_Api.G_MISS_NUM) THEN
485: l_aelv_rec.last_updated_by := NULL;
486: END IF;
487: IF (l_aelv_rec.last_update_date = Okc_Api.G_MISS_DATE) THEN
488: l_aelv_rec.last_update_date := NULL;
483: END IF;
484: IF (l_aelv_rec.last_updated_by = Okc_Api.G_MISS_NUM) THEN
485: l_aelv_rec.last_updated_by := NULL;
486: END IF;
487: IF (l_aelv_rec.last_update_date = Okc_Api.G_MISS_DATE) THEN
488: l_aelv_rec.last_update_date := NULL;
489: END IF;
490: IF (l_aelv_rec.last_update_login = Okc_Api.G_MISS_NUM) THEN
491: l_aelv_rec.last_update_login := NULL;
486: END IF;
487: IF (l_aelv_rec.last_update_date = Okc_Api.G_MISS_DATE) THEN
488: l_aelv_rec.last_update_date := NULL;
489: END IF;
490: IF (l_aelv_rec.last_update_login = Okc_Api.G_MISS_NUM) THEN
491: l_aelv_rec.last_update_login := NULL;
492: END IF;
493: IF (l_aelv_rec.ACCOUNT_OVERLAY_SOURCE_ID = Okc_Api.G_MISS_NUM) THEN
494: l_aelv_rec.ACCOUNT_OVERLAY_SOURCE_ID := NULL;
489: END IF;
490: IF (l_aelv_rec.last_update_login = Okc_Api.G_MISS_NUM) THEN
491: l_aelv_rec.last_update_login := NULL;
492: END IF;
493: IF (l_aelv_rec.ACCOUNT_OVERLAY_SOURCE_ID = Okc_Api.G_MISS_NUM) THEN
494: l_aelv_rec.ACCOUNT_OVERLAY_SOURCE_ID := NULL;
495: END IF;
496: IF (l_aelv_rec.SUBLEDGER_DOC_SEQUENCE_VALUE = Okc_Api.G_MISS_NUM) THEN
497: l_aelv_rec.SUBLEDGER_DOC_SEQUENCE_VALUE := NULL;
492: END IF;
493: IF (l_aelv_rec.ACCOUNT_OVERLAY_SOURCE_ID = Okc_Api.G_MISS_NUM) THEN
494: l_aelv_rec.ACCOUNT_OVERLAY_SOURCE_ID := NULL;
495: END IF;
496: IF (l_aelv_rec.SUBLEDGER_DOC_SEQUENCE_VALUE = Okc_Api.G_MISS_NUM) THEN
497: l_aelv_rec.SUBLEDGER_DOC_SEQUENCE_VALUE := NULL;
498: END IF;
499: IF (l_aelv_rec.TAX_CODE_ID = Okc_Api.G_MISS_NUM) THEN
500: l_aelv_rec.TAX_CODE_ID := NULL;
495: END IF;
496: IF (l_aelv_rec.SUBLEDGER_DOC_SEQUENCE_VALUE = Okc_Api.G_MISS_NUM) THEN
497: l_aelv_rec.SUBLEDGER_DOC_SEQUENCE_VALUE := NULL;
498: END IF;
499: IF (l_aelv_rec.TAX_CODE_ID = Okc_Api.G_MISS_NUM) THEN
500: l_aelv_rec.TAX_CODE_ID := NULL;
501: END IF;
502: RETURN(l_aelv_rec);
503: END null_out_defaults;
511: --------------------------------------------
512: FUNCTION Validate_Attributes (
513: p_aelv_rec IN aelv_rec_type
514: ) RETURN VARCHAR2 IS
515: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
516: BEGIN
517: IF p_aelv_rec.ae_line_id = OKC_API.G_MISS_NUM OR
518: p_aelv_rec.ae_line_id IS NULL
519: THEN
513: p_aelv_rec IN aelv_rec_type
514: ) RETURN VARCHAR2 IS
515: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
516: BEGIN
517: IF p_aelv_rec.ae_line_id = OKC_API.G_MISS_NUM OR
518: p_aelv_rec.ae_line_id IS NULL
519: THEN
520: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
521: l_return_status := OKC_API.G_RET_STS_ERROR;
516: BEGIN
517: IF p_aelv_rec.ae_line_id = OKC_API.G_MISS_NUM OR
518: p_aelv_rec.ae_line_id IS NULL
519: THEN
520: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
521: l_return_status := OKC_API.G_RET_STS_ERROR;
522: ELSIF p_aelv_rec.object_version_number = OKC_API.G_MISS_NUM OR
523: p_aelv_rec.object_version_number IS NULL
524: THEN
517: IF p_aelv_rec.ae_line_id = OKC_API.G_MISS_NUM OR
518: p_aelv_rec.ae_line_id IS NULL
519: THEN
520: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
521: l_return_status := OKC_API.G_RET_STS_ERROR;
522: ELSIF p_aelv_rec.object_version_number = OKC_API.G_MISS_NUM OR
523: p_aelv_rec.object_version_number IS NULL
524: THEN
525: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
518: p_aelv_rec.ae_line_id IS NULL
519: THEN
520: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
521: l_return_status := OKC_API.G_RET_STS_ERROR;
522: ELSIF p_aelv_rec.object_version_number = OKC_API.G_MISS_NUM OR
523: p_aelv_rec.object_version_number IS NULL
524: THEN
525: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
526: l_return_status := OKC_API.G_RET_STS_ERROR;
521: l_return_status := OKC_API.G_RET_STS_ERROR;
522: ELSIF p_aelv_rec.object_version_number = OKC_API.G_MISS_NUM OR
523: p_aelv_rec.object_version_number IS NULL
524: THEN
525: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
526: l_return_status := OKC_API.G_RET_STS_ERROR;
527: ELSIF p_aelv_rec.AE_HEADER_ID = OKC_API.G_MISS_NUM OR
528: p_aelv_rec.AE_HEADER_ID IS NULL
529: THEN
522: ELSIF p_aelv_rec.object_version_number = OKC_API.G_MISS_NUM OR
523: p_aelv_rec.object_version_number IS NULL
524: THEN
525: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
526: l_return_status := OKC_API.G_RET_STS_ERROR;
527: ELSIF p_aelv_rec.AE_HEADER_ID = OKC_API.G_MISS_NUM OR
528: p_aelv_rec.AE_HEADER_ID IS NULL
529: THEN
530: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'AE_HEADER_ID');
523: p_aelv_rec.object_version_number IS NULL
524: THEN
525: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
526: l_return_status := OKC_API.G_RET_STS_ERROR;
527: ELSIF p_aelv_rec.AE_HEADER_ID = OKC_API.G_MISS_NUM OR
528: p_aelv_rec.AE_HEADER_ID IS NULL
529: THEN
530: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'AE_HEADER_ID');
531: l_return_status := OKC_API.G_RET_STS_ERROR;
526: l_return_status := OKC_API.G_RET_STS_ERROR;
527: ELSIF p_aelv_rec.AE_HEADER_ID = OKC_API.G_MISS_NUM OR
528: p_aelv_rec.AE_HEADER_ID IS NULL
529: THEN
530: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'AE_HEADER_ID');
531: l_return_status := OKC_API.G_RET_STS_ERROR;
532: ELSIF p_aelv_rec.code_combination_id = OKC_API.G_MISS_NUM OR
533: p_aelv_rec.code_combination_id IS NULL
534: THEN
527: ELSIF p_aelv_rec.AE_HEADER_ID = OKC_API.G_MISS_NUM OR
528: p_aelv_rec.AE_HEADER_ID IS NULL
529: THEN
530: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'AE_HEADER_ID');
531: l_return_status := OKC_API.G_RET_STS_ERROR;
532: ELSIF p_aelv_rec.code_combination_id = OKC_API.G_MISS_NUM OR
533: p_aelv_rec.code_combination_id IS NULL
534: THEN
535: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'code_combination_id');
528: p_aelv_rec.AE_HEADER_ID IS NULL
529: THEN
530: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'AE_HEADER_ID');
531: l_return_status := OKC_API.G_RET_STS_ERROR;
532: ELSIF p_aelv_rec.code_combination_id = OKC_API.G_MISS_NUM OR
533: p_aelv_rec.code_combination_id IS NULL
534: THEN
535: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'code_combination_id');
536: l_return_status := OKC_API.G_RET_STS_ERROR;
531: l_return_status := OKC_API.G_RET_STS_ERROR;
532: ELSIF p_aelv_rec.code_combination_id = OKC_API.G_MISS_NUM OR
533: p_aelv_rec.code_combination_id IS NULL
534: THEN
535: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'code_combination_id');
536: l_return_status := OKC_API.G_RET_STS_ERROR;
537: ELSIF p_aelv_rec.AE_LINE_NUMBER = OKC_API.G_MISS_NUM OR
538: p_aelv_rec.AE_LINE_NUMBER IS NULL
539: THEN
532: ELSIF p_aelv_rec.code_combination_id = OKC_API.G_MISS_NUM OR
533: p_aelv_rec.code_combination_id IS NULL
534: THEN
535: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'code_combination_id');
536: l_return_status := OKC_API.G_RET_STS_ERROR;
537: ELSIF p_aelv_rec.AE_LINE_NUMBER = OKC_API.G_MISS_NUM OR
538: p_aelv_rec.AE_LINE_NUMBER IS NULL
539: THEN
540: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'line_number');
533: p_aelv_rec.code_combination_id IS NULL
534: THEN
535: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'code_combination_id');
536: l_return_status := OKC_API.G_RET_STS_ERROR;
537: ELSIF p_aelv_rec.AE_LINE_NUMBER = OKC_API.G_MISS_NUM OR
538: p_aelv_rec.AE_LINE_NUMBER IS NULL
539: THEN
540: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'line_number');
541: l_return_status := OKC_API.G_RET_STS_ERROR;
536: l_return_status := OKC_API.G_RET_STS_ERROR;
537: ELSIF p_aelv_rec.AE_LINE_NUMBER = OKC_API.G_MISS_NUM OR
538: p_aelv_rec.AE_LINE_NUMBER IS NULL
539: THEN
540: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'line_number');
541: l_return_status := OKC_API.G_RET_STS_ERROR;
542: ELSIF p_aelv_rec.AE_LINE_TYPE_CODE = OKC_API.G_MISS_CHAR OR
543: p_aelv_rec.AE_LINE_TYPE_CODE IS NULL
544: THEN
537: ELSIF p_aelv_rec.AE_LINE_NUMBER = OKC_API.G_MISS_NUM OR
538: p_aelv_rec.AE_LINE_NUMBER IS NULL
539: THEN
540: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'line_number');
541: l_return_status := OKC_API.G_RET_STS_ERROR;
542: ELSIF p_aelv_rec.AE_LINE_TYPE_CODE = OKC_API.G_MISS_CHAR OR
543: p_aelv_rec.AE_LINE_TYPE_CODE IS NULL
544: THEN
545: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'line_type_code');
538: p_aelv_rec.AE_LINE_NUMBER IS NULL
539: THEN
540: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'line_number');
541: l_return_status := OKC_API.G_RET_STS_ERROR;
542: ELSIF p_aelv_rec.AE_LINE_TYPE_CODE = OKC_API.G_MISS_CHAR OR
543: p_aelv_rec.AE_LINE_TYPE_CODE IS NULL
544: THEN
545: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'line_type_code');
546: l_return_status := OKC_API.G_RET_STS_ERROR;
541: l_return_status := OKC_API.G_RET_STS_ERROR;
542: ELSIF p_aelv_rec.AE_LINE_TYPE_CODE = OKC_API.G_MISS_CHAR OR
543: p_aelv_rec.AE_LINE_TYPE_CODE IS NULL
544: THEN
545: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'line_type_code');
546: l_return_status := OKC_API.G_RET_STS_ERROR;
547: ELSIF p_aelv_rec.source_table = OKC_API.G_MISS_CHAR OR
548: p_aelv_rec.source_table IS NULL
549: THEN
542: ELSIF p_aelv_rec.AE_LINE_TYPE_CODE = OKC_API.G_MISS_CHAR OR
543: p_aelv_rec.AE_LINE_TYPE_CODE IS NULL
544: THEN
545: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'line_type_code');
546: l_return_status := OKC_API.G_RET_STS_ERROR;
547: ELSIF p_aelv_rec.source_table = OKC_API.G_MISS_CHAR OR
548: p_aelv_rec.source_table IS NULL
549: THEN
550: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'source_table');
543: p_aelv_rec.AE_LINE_TYPE_CODE IS NULL
544: THEN
545: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'line_type_code');
546: l_return_status := OKC_API.G_RET_STS_ERROR;
547: ELSIF p_aelv_rec.source_table = OKC_API.G_MISS_CHAR OR
548: p_aelv_rec.source_table IS NULL
549: THEN
550: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'source_table');
551: l_return_status := OKC_API.G_RET_STS_ERROR;
546: l_return_status := OKC_API.G_RET_STS_ERROR;
547: ELSIF p_aelv_rec.source_table = OKC_API.G_MISS_CHAR OR
548: p_aelv_rec.source_table IS NULL
549: THEN
550: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'source_table');
551: l_return_status := OKC_API.G_RET_STS_ERROR;
552: ELSIF p_aelv_rec.source_id = OKC_API.G_MISS_NUM OR
553: p_aelv_rec.source_id IS NULL
554: THEN
547: ELSIF p_aelv_rec.source_table = OKC_API.G_MISS_CHAR OR
548: p_aelv_rec.source_table IS NULL
549: THEN
550: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'source_table');
551: l_return_status := OKC_API.G_RET_STS_ERROR;
552: ELSIF p_aelv_rec.source_id = OKC_API.G_MISS_NUM OR
553: p_aelv_rec.source_id IS NULL
554: THEN
555: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'source_id');
548: p_aelv_rec.source_table IS NULL
549: THEN
550: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'source_table');
551: l_return_status := OKC_API.G_RET_STS_ERROR;
552: ELSIF p_aelv_rec.source_id = OKC_API.G_MISS_NUM OR
553: p_aelv_rec.source_id IS NULL
554: THEN
555: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'source_id');
556: l_return_status := OKC_API.G_RET_STS_ERROR;
551: l_return_status := OKC_API.G_RET_STS_ERROR;
552: ELSIF p_aelv_rec.source_id = OKC_API.G_MISS_NUM OR
553: p_aelv_rec.source_id IS NULL
554: THEN
555: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'source_id');
556: l_return_status := OKC_API.G_RET_STS_ERROR;
557: ELSIF p_aelv_rec.curr_code = OKC_API.G_MISS_CHAR OR
558: p_aelv_rec.curr_code IS NULL
559: THEN
552: ELSIF p_aelv_rec.source_id = OKC_API.G_MISS_NUM OR
553: p_aelv_rec.source_id IS NULL
554: THEN
555: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'source_id');
556: l_return_status := OKC_API.G_RET_STS_ERROR;
557: ELSIF p_aelv_rec.curr_code = OKC_API.G_MISS_CHAR OR
558: p_aelv_rec.curr_code IS NULL
559: THEN
560: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'curr_code');
553: p_aelv_rec.source_id IS NULL
554: THEN
555: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'source_id');
556: l_return_status := OKC_API.G_RET_STS_ERROR;
557: ELSIF p_aelv_rec.curr_code = OKC_API.G_MISS_CHAR OR
558: p_aelv_rec.curr_code IS NULL
559: THEN
560: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'curr_code');
561: l_return_status := OKC_API.G_RET_STS_ERROR;
556: l_return_status := OKC_API.G_RET_STS_ERROR;
557: ELSIF p_aelv_rec.curr_code = OKC_API.G_MISS_CHAR OR
558: p_aelv_rec.curr_code IS NULL
559: THEN
560: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'curr_code');
561: l_return_status := OKC_API.G_RET_STS_ERROR;
562: END IF;
563: RETURN(l_return_status);
564: END Validate_Attributes;
557: ELSIF p_aelv_rec.curr_code = OKC_API.G_MISS_CHAR OR
558: p_aelv_rec.curr_code IS NULL
559: THEN
560: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'curr_code');
561: l_return_status := OKC_API.G_RET_STS_ERROR;
562: END IF;
563: RETURN(l_return_status);
564: END Validate_Attributes;
565:
571: ----------------------------------------
572: FUNCTION Validate_Record (
573: p_aelv_rec IN aelv_rec_type
574: ) RETURN VARCHAR2 IS
575: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
576: BEGIN
577: RETURN (l_return_status);
578: END Validate_Record;
579:
594: ---------------------------------------------------------------------------
595: PROCEDURE Validate_ae_line_id (p_aelv_rec IN aelv_rec_type
596: ,x_return_status OUT NOCOPY VARCHAR2)
597: IS
598: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
599:
600: BEGIN
601: -- initialize return status
602: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
598: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
599:
600: BEGIN
601: -- initialize return status
602: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
603:
604: -- check for data before processing
605: IF (p_aelv_rec.ae_line_id IS NULL) OR
606: (p_aelv_rec.ae_line_id = Okc_Api.G_MISS_NUM) THEN
602: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
603:
604: -- check for data before processing
605: IF (p_aelv_rec.ae_line_id IS NULL) OR
606: (p_aelv_rec.ae_line_id = Okc_Api.G_MISS_NUM) THEN
607: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
608: ,p_msg_name => g_required_value
609: ,p_token1 => g_col_name_token
610: ,p_token1_value => 'id');
603:
604: -- check for data before processing
605: IF (p_aelv_rec.ae_line_id IS NULL) OR
606: (p_aelv_rec.ae_line_id = Okc_Api.G_MISS_NUM) THEN
607: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
608: ,p_msg_name => g_required_value
609: ,p_token1 => g_col_name_token
610: ,p_token1_value => 'id');
611: x_return_status := Okc_Api.G_RET_STS_ERROR;
607: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
608: ,p_msg_name => g_required_value
609: ,p_token1 => g_col_name_token
610: ,p_token1_value => 'id');
611: x_return_status := Okc_Api.G_RET_STS_ERROR;
612: RAISE G_EXCEPTION_HALT_VALIDATION;
613: END IF;
614:
615: EXCEPTION
619: NULL;
620:
621: WHEN OTHERS THEN
622: -- store SQL error message on message stack for caller
623: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
624: ,p_msg_name => g_unexpected_error
625: ,p_token1 => g_sqlcode_token
626: ,p_token1_value => SQLCODE
627: ,p_token2 => g_sqlerrm_token
627: ,p_token2 => g_sqlerrm_token
628: ,p_token2_value => SQLERRM);
629:
630: -- notify caller of an UNEXPECTED error
631: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
632:
633: END Validate_ae_line_id;
634:
635:
646: ---------------------------------------------------------------------------
647: PROCEDURE Validate_Object_Version_Number (p_aelv_rec IN aelv_rec_type
648: ,x_return_status OUT NOCOPY VARCHAR2)
649: IS
650: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
651:
652: BEGIN
653: -- initialize return status
654: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
650: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
651:
652: BEGIN
653: -- initialize return status
654: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
655:
656: -- check for data before processing
657: IF (p_aelv_rec.object_version_number IS NULL) OR
658: (p_aelv_rec.object_version_number = Okc_Api.G_MISS_NUM) THEN
654: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
655:
656: -- check for data before processing
657: IF (p_aelv_rec.object_version_number IS NULL) OR
658: (p_aelv_rec.object_version_number = Okc_Api.G_MISS_NUM) THEN
659: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
660: ,p_msg_name => g_required_value
661: ,p_token1 => g_col_name_token
662: ,p_token1_value => 'object_version_number');
655:
656: -- check for data before processing
657: IF (p_aelv_rec.object_version_number IS NULL) OR
658: (p_aelv_rec.object_version_number = Okc_Api.G_MISS_NUM) THEN
659: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
660: ,p_msg_name => g_required_value
661: ,p_token1 => g_col_name_token
662: ,p_token1_value => 'object_version_number');
663: x_return_status := Okc_Api.G_RET_STS_ERROR;
659: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
660: ,p_msg_name => g_required_value
661: ,p_token1 => g_col_name_token
662: ,p_token1_value => 'object_version_number');
663: x_return_status := Okc_Api.G_RET_STS_ERROR;
664: RAISE G_EXCEPTION_HALT_VALIDATION;
665: END IF;
666:
667: EXCEPTION
671: NULL;
672:
673: WHEN OTHERS THEN
674: -- store SQL error message on message stack for caller
675: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
676: ,p_msg_name => g_unexpected_error
677: ,p_token1 => g_sqlcode_token
678: ,p_token1_value => SQLCODE
679: ,p_token2 => g_sqlerrm_token
679: ,p_token2 => g_sqlerrm_token
680: ,p_token2_value => SQLERRM);
681:
682: -- notify caller of an UNEXPECTED error
683: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
684:
685: END Validate_Object_Version_Number;
686:
687: ---------------------------------------------------------------------------
698: ---------------------------------------------------------------------------
699: PROCEDURE Validate_AE_HEADER_ID (p_aelv_rec IN aelv_rec_type
700: ,x_return_status OUT NOCOPY VARCHAR2)
701: IS
702: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
703: item_not_found_error EXCEPTION;
704:
705: l_dummy VARCHAR2(1);
706: l_row_notfound BOOLEAN := TRUE;
711: WHERE OKL_AE_HEADERS.ae_header_id = p_ae_header_id;
712:
713: BEGIN
714: -- initialize return status
715: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
716:
717: -- check for data before processing
718: IF (p_aelv_rec.AE_HEADER_ID IS NULL) OR
719: (p_aelv_rec.AE_HEADER_ID = Okc_Api.G_MISS_NUM) THEN
715: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
716:
717: -- check for data before processing
718: IF (p_aelv_rec.AE_HEADER_ID IS NULL) OR
719: (p_aelv_rec.AE_HEADER_ID = Okc_Api.G_MISS_NUM) THEN
720: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
721: ,p_msg_name => g_required_value
722: ,p_token1 => g_col_name_token
723: ,p_token1_value => 'AE_HEADER_ID');
716:
717: -- check for data before processing
718: IF (p_aelv_rec.AE_HEADER_ID IS NULL) OR
719: (p_aelv_rec.AE_HEADER_ID = Okc_Api.G_MISS_NUM) THEN
720: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
721: ,p_msg_name => g_required_value
722: ,p_token1 => g_col_name_token
723: ,p_token1_value => 'AE_HEADER_ID');
724: x_return_status := Okc_Api.G_RET_STS_ERROR;
720: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
721: ,p_msg_name => g_required_value
722: ,p_token1 => g_col_name_token
723: ,p_token1_value => 'AE_HEADER_ID');
724: x_return_status := Okc_Api.G_RET_STS_ERROR;
725: RAISE G_EXCEPTION_HALT_VALIDATION;
726: ELSE
727: OPEN okl_aelv_fk_csr(p_aelv_rec.AE_HEADER_ID);
728: FETCH okl_aelv_fk_csr INTO l_dummy;
728: FETCH okl_aelv_fk_csr INTO l_dummy;
729: l_row_notfound := okl_aelv_fk_csr%NOTFOUND;
730: CLOSE okl_aelv_fk_csr;
731: IF (l_row_notfound) THEN
732: Okc_Api.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'AE_HEADER_ID');
733: RAISE item_not_found_error;
734: END IF;
735: END IF;
736:
740: -- with the next column
741: NULL;
742:
743: WHEN item_not_found_error THEN
744: x_return_status := Okc_Api.G_RET_STS_ERROR;
745:
746: WHEN OTHERS THEN
747: -- store SQL error message on message stack for caller
748: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
744: x_return_status := Okc_Api.G_RET_STS_ERROR;
745:
746: WHEN OTHERS THEN
747: -- store SQL error message on message stack for caller
748: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
749: ,p_msg_name => g_unexpected_error
750: ,p_token1 => g_sqlcode_token
751: ,p_token1_value => SQLCODE
752: ,p_token2 => g_sqlerrm_token
752: ,p_token2 => g_sqlerrm_token
753: ,p_token2_value => SQLERRM);
754:
755: -- notify caller of an UNEXPECTED error
756: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
757:
758: END Validate_AE_HEADER_ID;
759:
760:
772: ---------------------------------------------------------------------------
773: PROCEDURE Validate_Code_Combination_Id (p_aelv_rec IN aelv_rec_type
774: ,x_return_status OUT NOCOPY VARCHAR2)
775: IS
776: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
777: item_not_found_error EXCEPTION;
778:
779: l_dummy VARCHAR2(1) := okl_api.g_true;
780: BEGIN
778:
779: l_dummy VARCHAR2(1) := okl_api.g_true;
780: BEGIN
781: -- initialize return status
782: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
783:
784: -- check for data before processing
785: IF (p_aelv_rec.code_combination_id IS NULL) OR
786: (p_aelv_rec.code_combination_id = Okc_Api.G_MISS_NUM) THEN
782: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
783:
784: -- check for data before processing
785: IF (p_aelv_rec.code_combination_id IS NULL) OR
786: (p_aelv_rec.code_combination_id = Okc_Api.G_MISS_NUM) THEN
787: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
788: ,p_msg_name => g_required_value
789: ,p_token1 => g_col_name_token
790: ,p_token1_value => 'code_combination_id');
783:
784: -- check for data before processing
785: IF (p_aelv_rec.code_combination_id IS NULL) OR
786: (p_aelv_rec.code_combination_id = Okc_Api.G_MISS_NUM) THEN
787: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
788: ,p_msg_name => g_required_value
789: ,p_token1 => g_col_name_token
790: ,p_token1_value => 'code_combination_id');
791: x_return_status := Okc_Api.G_RET_STS_ERROR;
787: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
788: ,p_msg_name => g_required_value
789: ,p_token1 => g_col_name_token
790: ,p_token1_value => 'code_combination_id');
791: x_return_status := Okc_Api.G_RET_STS_ERROR;
792: RAISE G_EXCEPTION_HALT_VALIDATION;
793: ELSE
794: l_dummy := Okl_Accounting_Util.VALIDATE_GL_CCID (
795: p_aelv_rec.code_combination_id);
793: ELSE
794: l_dummy := Okl_Accounting_Util.VALIDATE_GL_CCID (
795: p_aelv_rec.code_combination_id);
796: IF l_dummy = okl_api.g_false THEN
797: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
798: p_msg_name => g_invalid_value,
799: p_token1 => g_col_name_token,
800: p_token1_value => 'CODE_COMBINATION_ID');
801: x_return_status := Okc_Api.G_RET_STS_ERROR;
797: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
798: p_msg_name => g_invalid_value,
799: p_token1 => g_col_name_token,
800: p_token1_value => 'CODE_COMBINATION_ID');
801: x_return_status := Okc_Api.G_RET_STS_ERROR;
802: RAISE G_EXCEPTION_HALT_VALIDATION;
803: END IF;
804: END IF;
805: EXCEPTION
808: -- with the next column
809: NULL;
810:
811: WHEN item_not_found_error THEN
812: x_return_status := Okc_Api.G_RET_STS_ERROR;
813:
814: WHEN OTHERS THEN
815: -- store SQL error message on message stack for caller
816: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
812: x_return_status := Okc_Api.G_RET_STS_ERROR;
813:
814: WHEN OTHERS THEN
815: -- store SQL error message on message stack for caller
816: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
817: ,p_msg_name => g_unexpected_error
818: ,p_token1 => g_sqlcode_token
819: ,p_token1_value => SQLCODE
820: ,p_token2 => g_sqlerrm_token
820: ,p_token2 => g_sqlerrm_token
821: ,p_token2_value => SQLERRM);
822:
823: -- notify caller of an UNEXPECTED error
824: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
825:
826: END Validate_Code_Combination_Id;
827:
828: ---------------------------------------------------------------------------
839: ---------------------------------------------------------------------------
840: PROCEDURE Validate_Curr_Cnvrsn_Type (p_aelv_rec IN aelv_rec_type
841: ,x_return_status OUT NOCOPY VARCHAR2)
842: IS
843: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
844: item_not_found_error EXCEPTION;
845:
846: l_dummy VARCHAR2(1);
847: l_row_notfound BOOLEAN := TRUE;
847: l_row_notfound BOOLEAN := TRUE;
848:
849: BEGIN
850: -- initialize return status
851: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
852:
853: -- check for data before processing
854: IF (p_aelv_rec.currency_conversion_type IS NOT NULL) AND
855: (p_aelv_rec.currency_conversion_type <> Okc_Api.G_MISS_CHAR) THEN
851: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
852:
853: -- check for data before processing
854: IF (p_aelv_rec.currency_conversion_type IS NOT NULL) AND
855: (p_aelv_rec.currency_conversion_type <> Okc_Api.G_MISS_CHAR) THEN
856: l_dummy := Okl_Accounting_Util.VALIDATE_CURRENCY_CON_TYPE(p_aelv_rec.currency_conversion_type);
857: IF (l_dummy = OKC_API.G_FALSE) THEN
858: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
859: ,p_msg_name => g_invalid_value
853: -- check for data before processing
854: IF (p_aelv_rec.currency_conversion_type IS NOT NULL) AND
855: (p_aelv_rec.currency_conversion_type <> Okc_Api.G_MISS_CHAR) THEN
856: l_dummy := Okl_Accounting_Util.VALIDATE_CURRENCY_CON_TYPE(p_aelv_rec.currency_conversion_type);
857: IF (l_dummy = OKC_API.G_FALSE) THEN
858: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
859: ,p_msg_name => g_invalid_value
860: ,p_token1 => g_col_name_token
861: ,p_token1_value => 'CURRENCY_CONVERSION_TYPE');
854: IF (p_aelv_rec.currency_conversion_type IS NOT NULL) AND
855: (p_aelv_rec.currency_conversion_type <> Okc_Api.G_MISS_CHAR) THEN
856: l_dummy := Okl_Accounting_Util.VALIDATE_CURRENCY_CON_TYPE(p_aelv_rec.currency_conversion_type);
857: IF (l_dummy = OKC_API.G_FALSE) THEN
858: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
859: ,p_msg_name => g_invalid_value
860: ,p_token1 => g_col_name_token
861: ,p_token1_value => 'CURRENCY_CONVERSION_TYPE');
862: x_return_status := Okc_Api.G_RET_STS_ERROR;
858: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
859: ,p_msg_name => g_invalid_value
860: ,p_token1 => g_col_name_token
861: ,p_token1_value => 'CURRENCY_CONVERSION_TYPE');
862: x_return_status := Okc_Api.G_RET_STS_ERROR;
863: RAISE G_EXCEPTION_HALT_VALIDATION;
864: END IF;
865: END IF;
866:
870: -- with the next column
871: NULL;
872:
873: WHEN item_not_found_error THEN
874: x_return_status := Okc_Api.G_RET_STS_ERROR;
875:
876: WHEN OTHERS THEN
877: -- store SQL error message on message stack for caller
878: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
874: x_return_status := Okc_Api.G_RET_STS_ERROR;
875:
876: WHEN OTHERS THEN
877: -- store SQL error message on message stack for caller
878: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
879: ,p_msg_name => g_unexpected_error
880: ,p_token1 => g_sqlcode_token
881: ,p_token1_value => SQLCODE
882: ,p_token2 => g_sqlerrm_token
882: ,p_token2 => g_sqlerrm_token
883: ,p_token2_value => SQLERRM);
884:
885: -- notify caller of an UNEXPECTED error
886: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
887:
888: END Validate_Curr_Cnvrsn_Type;
889:
890: ---------------------------------------------------------------------------
901: ---------------------------------------------------------------------------
902: PROCEDURE Validate_AE_LINE_NUMBER (p_aelv_rec IN aelv_rec_type
903: ,x_return_status OUT NOCOPY VARCHAR2)
904: IS
905: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
906:
907: BEGIN
908: -- initialize return status
909: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
905: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
906:
907: BEGIN
908: -- initialize return status
909: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
910:
911: -- check for data before processing
912: IF (p_aelv_rec.AE_LINE_NUMBER IS NULL) OR
913: (p_aelv_rec.AE_LINE_NUMBER = Okc_Api.G_MISS_NUM) THEN
909: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
910:
911: -- check for data before processing
912: IF (p_aelv_rec.AE_LINE_NUMBER IS NULL) OR
913: (p_aelv_rec.AE_LINE_NUMBER = Okc_Api.G_MISS_NUM) THEN
914: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
915: ,p_msg_name => g_required_value
916: ,p_token1 => g_col_name_token
917: ,p_token1_value => 'line_number');
910:
911: -- check for data before processing
912: IF (p_aelv_rec.AE_LINE_NUMBER IS NULL) OR
913: (p_aelv_rec.AE_LINE_NUMBER = Okc_Api.G_MISS_NUM) THEN
914: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
915: ,p_msg_name => g_required_value
916: ,p_token1 => g_col_name_token
917: ,p_token1_value => 'line_number');
918: x_return_status := Okc_Api.G_RET_STS_ERROR;
914: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
915: ,p_msg_name => g_required_value
916: ,p_token1 => g_col_name_token
917: ,p_token1_value => 'line_number');
918: x_return_status := Okc_Api.G_RET_STS_ERROR;
919: RAISE G_EXCEPTION_HALT_VALIDATION;
920: END IF;
921:
922: EXCEPTION
926: NULL;
927:
928: WHEN OTHERS THEN
929: -- store SQL error message on message stack for caller
930: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
931: ,p_msg_name => g_unexpected_error
932: ,p_token1 => g_sqlcode_token
933: ,p_token1_value => SQLCODE
934: ,p_token2 => g_sqlerrm_token
934: ,p_token2 => g_sqlerrm_token
935: ,p_token2_value => SQLERRM);
936:
937: -- notify caller of an UNEXPECTED error
938: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
939:
940: END Validate_AE_LINE_NUMBER;
941:
942: ---------------------------------------------------------------------------
954: PROCEDURE Validate_AE_LINE_TYPE_CODE(p_aelv_rec IN aelv_rec_type
955: ,x_return_status OUT NOCOPY VARCHAR2)
956: IS
957:
958: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
959: l_dummy VARCHAR2(1) := OKC_API.G_FALSE;
960:
961: BEGIN
962: -- initialize return status
955: ,x_return_status OUT NOCOPY VARCHAR2)
956: IS
957:
958: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
959: l_dummy VARCHAR2(1) := OKC_API.G_FALSE;
960:
961: BEGIN
962: -- initialize return status
963: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
959: l_dummy VARCHAR2(1) := OKC_API.G_FALSE;
960:
961: BEGIN
962: -- initialize return status
963: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
964:
965: -- check for data before processing
966: IF (p_aelv_rec.AE_LINE_TYPE_CODE IS NULL) OR
967: (p_aelv_rec.AE_LINE_TYPE_CODE = Okc_Api.G_MISS_CHAR) THEN
963: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
964:
965: -- check for data before processing
966: IF (p_aelv_rec.AE_LINE_TYPE_CODE IS NULL) OR
967: (p_aelv_rec.AE_LINE_TYPE_CODE = Okc_Api.G_MISS_CHAR) THEN
968: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
969: ,p_msg_name => g_required_value
970: ,p_token1 => g_col_name_token
971: ,p_token1_value => 'line_type_code');
964:
965: -- check for data before processing
966: IF (p_aelv_rec.AE_LINE_TYPE_CODE IS NULL) OR
967: (p_aelv_rec.AE_LINE_TYPE_CODE = Okc_Api.G_MISS_CHAR) THEN
968: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
969: ,p_msg_name => g_required_value
970: ,p_token1 => g_col_name_token
971: ,p_token1_value => 'line_type_code');
972: x_return_status := Okc_Api.G_RET_STS_ERROR;
968: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
969: ,p_msg_name => g_required_value
970: ,p_token1 => g_col_name_token
971: ,p_token1_value => 'line_type_code');
972: x_return_status := Okc_Api.G_RET_STS_ERROR;
973: RAISE G_EXCEPTION_HALT_VALIDATION;
974: END IF;
975:
976: -- check in fnd_lookups for validity
978: l_dummy
979: := Okl_Accounting_Util.VALIDATE_LOOKUP_CODE(p_lookup_type => 'OKL_ACCOUNTING_LINE_TYPE',
980: p_lookup_code => p_aelv_rec.AE_LINE_TYPE_CODE);
981:
982: IF (l_dummy = Okc_Api.G_FALSE) THEN
983: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
984: ,p_msg_name => g_invalid_value
985: ,p_token1 => g_col_name_token
986: ,p_token1_value => 'line_type_code');
979: := Okl_Accounting_Util.VALIDATE_LOOKUP_CODE(p_lookup_type => 'OKL_ACCOUNTING_LINE_TYPE',
980: p_lookup_code => p_aelv_rec.AE_LINE_TYPE_CODE);
981:
982: IF (l_dummy = Okc_Api.G_FALSE) THEN
983: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
984: ,p_msg_name => g_invalid_value
985: ,p_token1 => g_col_name_token
986: ,p_token1_value => 'line_type_code');
987: x_return_status := Okc_Api.G_RET_STS_ERROR;
983: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
984: ,p_msg_name => g_invalid_value
985: ,p_token1 => g_col_name_token
986: ,p_token1_value => 'line_type_code');
987: x_return_status := Okc_Api.G_RET_STS_ERROR;
988: RAISE G_EXCEPTION_HALT_VALIDATION;
989: END IF;
990:
991: EXCEPTION
995: NULL;
996:
997: WHEN OTHERS THEN
998: -- store SQL error message on message stack for caller
999: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
1000: p_msg_name => g_unexpected_error,
1001: p_token1 => g_sqlcode_token,
1002: p_token1_value => SQLCODE,
1003: p_token2 => g_sqlerrm_token,
1003: p_token2 => g_sqlerrm_token,
1004: p_token2_value => SQLERRM);
1005:
1006: -- notify caller of an UNEXPECTED error
1007: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
1008:
1009: END Validate_AE_LINE_TYPE_CODE;
1010:
1011: ---------------------------------------------------------------------------
1027: l_dummy VARCHAR2(1) ;
1028:
1029: BEGIN
1030: -- initialize return status
1031: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1032:
1033: -- check for data before processing
1034: IF (p_aelv_rec.source_table IS NULL) OR
1035: (p_aelv_rec.source_table = Okc_Api.G_MISS_CHAR) THEN
1031: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1032:
1033: -- check for data before processing
1034: IF (p_aelv_rec.source_table IS NULL) OR
1035: (p_aelv_rec.source_table = Okc_Api.G_MISS_CHAR) THEN
1036: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
1037: ,p_msg_name => g_required_value
1038: ,p_token1 => g_col_name_token
1039: ,p_token1_value => 'SOURCE_TABLE');
1032:
1033: -- check for data before processing
1034: IF (p_aelv_rec.source_table IS NULL) OR
1035: (p_aelv_rec.source_table = Okc_Api.G_MISS_CHAR) THEN
1036: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
1037: ,p_msg_name => g_required_value
1038: ,p_token1 => g_col_name_token
1039: ,p_token1_value => 'SOURCE_TABLE');
1040: x_return_status := Okc_Api.G_RET_STS_ERROR;
1036: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
1037: ,p_msg_name => g_required_value
1038: ,p_token1 => g_col_name_token
1039: ,p_token1_value => 'SOURCE_TABLE');
1040: x_return_status := Okc_Api.G_RET_STS_ERROR;
1041: END IF;
1042:
1043: IF (p_aelv_rec.source_id IS NULL) OR
1044: (p_aelv_rec.source_id = Okc_Api.G_MISS_NUM) THEN
1040: x_return_status := Okc_Api.G_RET_STS_ERROR;
1041: END IF;
1042:
1043: IF (p_aelv_rec.source_id IS NULL) OR
1044: (p_aelv_rec.source_id = Okc_Api.G_MISS_NUM) THEN
1045: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
1046: ,p_msg_name => g_required_value
1047: ,p_token1 => g_col_name_token
1048: ,p_token1_value => 'SOURCE_ID');
1041: END IF;
1042:
1043: IF (p_aelv_rec.source_id IS NULL) OR
1044: (p_aelv_rec.source_id = Okc_Api.G_MISS_NUM) THEN
1045: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
1046: ,p_msg_name => g_required_value
1047: ,p_token1 => g_col_name_token
1048: ,p_token1_value => 'SOURCE_ID');
1049: x_return_status := Okc_Api.G_RET_STS_ERROR;
1045: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
1046: ,p_msg_name => g_required_value
1047: ,p_token1 => g_col_name_token
1048: ,p_token1_value => 'SOURCE_ID');
1049: x_return_status := Okc_Api.G_RET_STS_ERROR;
1050: END IF;
1051:
1052: IF (x_return_Status = OKC_API.G_RET_STS_ERROR) THEN
1053: RAISE G_EXCEPTION_HALT_VALIDATION;
1048: ,p_token1_value => 'SOURCE_ID');
1049: x_return_status := Okc_Api.G_RET_STS_ERROR;
1050: END IF;
1051:
1052: IF (x_return_Status = OKC_API.G_RET_STS_ERROR) THEN
1053: RAISE G_EXCEPTION_HALT_VALIDATION;
1054: ELSE
1055: l_dummy
1056: := Okl_Accounting_Util.VALIDATE_SOURCE_ID_TABLE(p_source_id => p_aelv_rec.source_id,
1054: ELSE
1055: l_dummy
1056: := Okl_Accounting_Util.VALIDATE_SOURCE_ID_TABLE(p_source_id => p_aelv_rec.source_id,
1057: p_source_table => p_aelv_rec.source_table);
1058: IF l_dummy = OKC_API.G_FALSE THEN
1059: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
1060: p_msg_name => g_invalid_value,
1061: p_token1 => g_col_name_token,
1062: p_token1_value => 'source_id');
1055: l_dummy
1056: := Okl_Accounting_Util.VALIDATE_SOURCE_ID_TABLE(p_source_id => p_aelv_rec.source_id,
1057: p_source_table => p_aelv_rec.source_table);
1058: IF l_dummy = OKC_API.G_FALSE THEN
1059: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
1060: p_msg_name => g_invalid_value,
1061: p_token1 => g_col_name_token,
1062: p_token1_value => 'source_id');
1063: x_return_status := Okc_Api.G_RET_STS_ERROR;
1059: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
1060: p_msg_name => g_invalid_value,
1061: p_token1 => g_col_name_token,
1062: p_token1_value => 'source_id');
1063: x_return_status := Okc_Api.G_RET_STS_ERROR;
1064: RAISE G_EXCEPTION_HALT_VALIDATION;
1065: END IF;
1066: END IF;
1067:
1074: NULL;
1075:
1076: WHEN OTHERS THEN
1077: -- store SQL error message on message stack for caller
1078: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
1079: p_msg_name => g_unexpected_error,
1080: p_token1 => g_sqlcode_token,
1081: p_token1_value => SQLCODE,
1082: p_token2 => g_sqlerrm_token,
1082: p_token2 => g_sqlerrm_token,
1083: p_token2_value => SQLERRM);
1084:
1085: -- notify caller of an UNEXPECTED error
1086: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
1087:
1088: END Validate_Source_ID_Tbl;
1089:
1090:
1103: PROCEDURE Validate_Currency_Code(p_aelv_rec IN aelv_rec_type
1104: ,x_return_status OUT NOCOPY VARCHAR2)
1105: IS
1106:
1107: l_dummy VARCHAR2(1) := Okc_Api.G_FALSE;
1108:
1109: BEGIN
1110: -- initialize return status
1111: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1107: l_dummy VARCHAR2(1) := Okc_Api.G_FALSE;
1108:
1109: BEGIN
1110: -- initialize return status
1111: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1112:
1113: -- check for data before processing
1114: IF (p_aelv_rec.currency_code IS NULL) OR
1115: (p_aelv_rec.currency_code = Okc_Api.G_MISS_CHAR) THEN
1111: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1112:
1113: -- check for data before processing
1114: IF (p_aelv_rec.currency_code IS NULL) OR
1115: (p_aelv_rec.currency_code = Okc_Api.G_MISS_CHAR) THEN
1116: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
1117: ,p_msg_name => g_required_value
1118: ,p_token1 => g_col_name_token
1119: ,p_token1_value => 'currency_code');
1112:
1113: -- check for data before processing
1114: IF (p_aelv_rec.currency_code IS NULL) OR
1115: (p_aelv_rec.currency_code = Okc_Api.G_MISS_CHAR) THEN
1116: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
1117: ,p_msg_name => g_required_value
1118: ,p_token1 => g_col_name_token
1119: ,p_token1_value => 'currency_code');
1120: x_return_status := Okc_Api.G_RET_STS_ERROR;
1116: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
1117: ,p_msg_name => g_required_value
1118: ,p_token1 => g_col_name_token
1119: ,p_token1_value => 'currency_code');
1120: x_return_status := Okc_Api.G_RET_STS_ERROR;
1121: RAISE G_EXCEPTION_HALT_VALIDATION;
1122: ELSE
1123: l_dummy := Okl_Accounting_Util.VALIDATE_CURRENCY_CODE (p_aelv_rec.currency_code);
1124:
1121: RAISE G_EXCEPTION_HALT_VALIDATION;
1122: ELSE
1123: l_dummy := Okl_Accounting_Util.VALIDATE_CURRENCY_CODE (p_aelv_rec.currency_code);
1124:
1125: IF l_dummy = okc_api.g_false THEN
1126: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
1127: p_msg_name => g_invalid_value,
1128: p_token1 => g_col_name_token,
1129: p_token1_value => 'CURRENCY_CODE');
1122: ELSE
1123: l_dummy := Okl_Accounting_Util.VALIDATE_CURRENCY_CODE (p_aelv_rec.currency_code);
1124:
1125: IF l_dummy = okc_api.g_false THEN
1126: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
1127: p_msg_name => g_invalid_value,
1128: p_token1 => g_col_name_token,
1129: p_token1_value => 'CURRENCY_CODE');
1130: x_return_status := Okc_Api.G_RET_STS_ERROR;
1126: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
1127: p_msg_name => g_invalid_value,
1128: p_token1 => g_col_name_token,
1129: p_token1_value => 'CURRENCY_CODE');
1130: x_return_status := Okc_Api.G_RET_STS_ERROR;
1131: RAISE G_EXCEPTION_HALT_VALIDATION;
1132: END IF;
1133: END IF;
1134:
1139: NULL;
1140:
1141: WHEN OTHERS THEN
1142: -- store SQL error message on message stack for caller
1143: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
1144: p_msg_name => g_unexpected_error,
1145: p_token1 => g_sqlcode_token,
1146: p_token1_value => SQLCODE,
1147: p_token2 => g_sqlerrm_token,
1147: p_token2 => g_sqlerrm_token,
1148: p_token2_value => SQLERRM);
1149:
1150: -- notify caller of an UNEXPECTED error
1151: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
1152:
1153: END Validate_Currency_Code;
1154:
1155:
1167: ---------------------------------------------------------------------------
1168: PROCEDURE Validate_Accounting_Error_code (p_aelv_rec IN aelv_rec_type
1169: ,x_return_status OUT NOCOPY VARCHAR2)
1170: IS
1171: l_dummy VARCHAR2(1) := Okc_Api.G_FALSE;
1172:
1173: BEGIN
1174: -- initialize return status
1175: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1171: l_dummy VARCHAR2(1) := Okc_Api.G_FALSE;
1172:
1173: BEGIN
1174: -- initialize return status
1175: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1176:
1177: -- check for data before processing
1178: IF (p_aelv_rec.Accounting_Error_Code IS NOT NULL) AND
1179: (p_aelv_rec.Accounting_Error_code <> Okc_Api.G_MISS_CHAR) THEN
1175: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1176:
1177: -- check for data before processing
1178: IF (p_aelv_rec.Accounting_Error_Code IS NOT NULL) AND
1179: (p_aelv_rec.Accounting_Error_code <> Okc_Api.G_MISS_CHAR) THEN
1180:
1181: l_dummy
1182: := Okl_Accounting_Util.VALIDATE_LOOKUP_CODE(p_lookup_type => 'OKL_ACCOUNTING_ERROR_CODE',
1183: p_lookup_code => p_aelv_rec.accounting_error_code);
1181: l_dummy
1182: := Okl_Accounting_Util.VALIDATE_LOOKUP_CODE(p_lookup_type => 'OKL_ACCOUNTING_ERROR_CODE',
1183: p_lookup_code => p_aelv_rec.accounting_error_code);
1184:
1185: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
1186: ,p_msg_name => g_invalid_value
1187: ,p_token1 => g_col_name_token
1188: ,p_token1_value => 'ACCOUNTING_ERROR_CODE');
1189: x_return_status := Okc_Api.G_RET_STS_ERROR;
1185: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
1186: ,p_msg_name => g_invalid_value
1187: ,p_token1 => g_col_name_token
1188: ,p_token1_value => 'ACCOUNTING_ERROR_CODE');
1189: x_return_status := Okc_Api.G_RET_STS_ERROR;
1190: RAISE G_EXCEPTION_HALT_VALIDATION;
1191: END IF;
1192:
1193: EXCEPTION
1197: NULL;
1198:
1199: WHEN OTHERS THEN
1200: -- store SQL error message on message stack for caller
1201: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
1202: ,p_msg_name => g_unexpected_error
1203: ,p_token1 => g_sqlcode_token
1204: ,p_token1_value => SQLCODE
1205: ,p_token2 => g_sqlerrm_token
1205: ,p_token2 => g_sqlerrm_token
1206: ,p_token2_value => SQLERRM);
1207:
1208: -- notify caller of an UNEXPECTED error
1209: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
1210:
1211: END Validate_Accounting_Error_Code;
1212:
1213:
1225: ---------------------------------------------------------------------------
1226: PROCEDURE validate_GL_trans_Err_Code (p_aelv_rec IN aelv_rec_type
1227: ,x_return_status OUT NOCOPY VARCHAR2)
1228: IS
1229: l_dummy VARCHAR2(1) := Okc_Api.G_FALSE;
1230:
1231: BEGIN
1232: -- initialize return status
1233: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1229: l_dummy VARCHAR2(1) := Okc_Api.G_FALSE;
1230:
1231: BEGIN
1232: -- initialize return status
1233: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1234:
1235: -- check for data before processing
1236: IF (p_aelv_rec.GL_Transfer_Error_Code IS NOT NULL) AND
1237: (p_aelv_rec.GL_Transfer_Error_Code <> Okc_Api.G_MISS_CHAR) THEN
1233: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1234:
1235: -- check for data before processing
1236: IF (p_aelv_rec.GL_Transfer_Error_Code IS NOT NULL) AND
1237: (p_aelv_rec.GL_Transfer_Error_Code <> Okc_Api.G_MISS_CHAR) THEN
1238:
1239: l_dummy
1240: := Okl_Accounting_Util.VALIDATE_LOOKUP_CODE(p_lookup_type => 'OKL_ACCOUNTING_ERROR_CODE',
1241: p_lookup_code => p_aelv_rec.GL_Transfer_Error_Code);
1239: l_dummy
1240: := Okl_Accounting_Util.VALIDATE_LOOKUP_CODE(p_lookup_type => 'OKL_ACCOUNTING_ERROR_CODE',
1241: p_lookup_code => p_aelv_rec.GL_Transfer_Error_Code);
1242:
1243: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
1244: ,p_msg_name => g_invalid_value
1245: ,p_token1 => g_col_name_token
1246: ,p_token1_value => 'GL_TRANSFER_ERROR_CODE');
1247: x_return_status := Okc_Api.G_RET_STS_ERROR;
1243: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
1244: ,p_msg_name => g_invalid_value
1245: ,p_token1 => g_col_name_token
1246: ,p_token1_value => 'GL_TRANSFER_ERROR_CODE');
1247: x_return_status := Okc_Api.G_RET_STS_ERROR;
1248: RAISE G_EXCEPTION_HALT_VALIDATION;
1249: END IF;
1250: EXCEPTION
1251: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1254: NULL;
1255:
1256: WHEN OTHERS THEN
1257: -- store SQL error message on message stack for caller
1258: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
1259: ,p_msg_name => g_unexpected_error
1260: ,p_token1 => g_sqlcode_token
1261: ,p_token1_value => SQLCODE
1262: ,p_token2 => g_sqlerrm_token
1262: ,p_token2 => g_sqlerrm_token
1263: ,p_token2_value => SQLERRM);
1264:
1265: -- notify caller of an UNEXPECTED error
1266: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
1267:
1268: END validate_GL_trans_Err_Code;
1269:
1270:
1274: PROCEDURE Validate_Unique_Ael_Record(x_return_status OUT NOCOPY VARCHAR2,
1275: p_aelv_rec IN aelv_rec_type)
1276: IS
1277:
1278: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1279: l_unq_tbl OKC_UTIL.unq_tbl_type;
1280: l_aelv_status VARCHAR2(1);
1281: l_row_found BOOLEAN := FALSE;
1282:
1289:
1290: BEGIN
1291:
1292: -- initialize return status
1293: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1294:
1295: OPEN c1 ;
1296: FETCH c1 INTO l_aelv_status;
1297: l_row_found := c1%FOUND;
1296: FETCH c1 INTO l_aelv_status;
1297: l_row_found := c1%FOUND;
1298: CLOSE c1;
1299: IF l_row_found THEN
1300: OKC_API.set_message(G_APP_NAME,G_UNQS);
1301: x_return_status := OKC_API.G_RET_STS_ERROR;
1302: END IF;
1303:
1304:
1297: l_row_found := c1%FOUND;
1298: CLOSE c1;
1299: IF l_row_found THEN
1300: OKC_API.set_message(G_APP_NAME,G_UNQS);
1301: x_return_status := OKC_API.G_RET_STS_ERROR;
1302: END IF;
1303:
1304:
1305: EXCEPTION
1309: NULL;
1310:
1311: WHEN OTHERS THEN
1312: -- store SQL error message on message stack for caller
1313: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1314: p_msg_name => g_unexpected_error,
1315: p_token1 => g_sqlcode_token,
1316: p_token1_value => SQLCODE,
1317: p_token2 => g_sqlerrm_token,
1317: p_token2 => g_sqlerrm_token,
1318: p_token2_value => SQLERRM);
1319:
1320: -- notify caller of an UNEXPECTED error
1321: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1322:
1323: END Validate_Unique_Ael_Record;
1324:
1325:
1340: FUNCTION Validate_Attributes (
1341: p_aelv_rec IN aelv_rec_type
1342: ) RETURN VARCHAR2 IS
1343:
1344: x_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1345: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1346: BEGIN
1347:
1348:
1341: p_aelv_rec IN aelv_rec_type
1342: ) RETURN VARCHAR2 IS
1343:
1344: x_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1345: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1346: BEGIN
1347:
1348:
1349: -- call each column-level validation
1349: -- call each column-level validation
1350:
1351: -- Validate_ae_line_id
1352: Validate_ae_line_id(p_aelv_rec, x_return_status);
1353: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1354: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1355: -- need to exit
1356: l_return_status := x_return_status;
1357: RAISE G_EXCEPTION_HALT_VALIDATION;
1350:
1351: -- Validate_ae_line_id
1352: Validate_ae_line_id(p_aelv_rec, x_return_status);
1353: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1354: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1355: -- need to exit
1356: l_return_status := x_return_status;
1357: RAISE G_EXCEPTION_HALT_VALIDATION;
1358: ELSE
1362: END IF;
1363:
1364: -- Validate_Object_Version_Number
1365: Validate_Object_Version_Number(p_aelv_rec, x_return_status);
1366: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1367: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1368: -- need to exit
1369: l_return_status := x_return_status;
1370: RAISE G_EXCEPTION_HALT_VALIDATION;
1363:
1364: -- Validate_Object_Version_Number
1365: Validate_Object_Version_Number(p_aelv_rec, x_return_status);
1366: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1367: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1368: -- need to exit
1369: l_return_status := x_return_status;
1370: RAISE G_EXCEPTION_HALT_VALIDATION;
1371: ELSE
1375: END IF;
1376:
1377: -- Validate_AE_HEADER_ID
1378: Validate_AE_HEADER_ID(p_aelv_rec, x_return_status);
1379: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1380: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1381: -- need to exit
1382: l_return_status := x_return_status;
1383: RAISE G_EXCEPTION_HALT_VALIDATION;
1376:
1377: -- Validate_AE_HEADER_ID
1378: Validate_AE_HEADER_ID(p_aelv_rec, x_return_status);
1379: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1380: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1381: -- need to exit
1382: l_return_status := x_return_status;
1383: RAISE G_EXCEPTION_HALT_VALIDATION;
1384: ELSE
1394: 'ACCOUNT INVALID' but neverthless, we allow an invalid CCID to be present in
1395: the table. Therefore, this check needs to be removed from this place
1396:
1397: Validate_Code_Combination_Id(p_aelv_rec, x_return_status);
1398: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1399: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1400: -- need to exit
1401: l_return_status := x_return_status;
1402: RAISE G_EXCEPTION_HALT_VALIDATION;
1395: the table. Therefore, this check needs to be removed from this place
1396:
1397: Validate_Code_Combination_Id(p_aelv_rec, x_return_status);
1398: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1399: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1400: -- need to exit
1401: l_return_status := x_return_status;
1402: RAISE G_EXCEPTION_HALT_VALIDATION;
1403: ELSE
1409: */
1410:
1411: -- Validate_Curr_Cnvrsn_Type
1412: Validate_Curr_Cnvrsn_Type(p_aelv_rec, x_return_status);
1413: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1414: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1415: -- need to exit
1416: l_return_status := x_return_status;
1417: RAISE G_EXCEPTION_HALT_VALIDATION;
1410:
1411: -- Validate_Curr_Cnvrsn_Type
1412: Validate_Curr_Cnvrsn_Type(p_aelv_rec, x_return_status);
1413: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1414: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1415: -- need to exit
1416: l_return_status := x_return_status;
1417: RAISE G_EXCEPTION_HALT_VALIDATION;
1418: ELSE
1422: END IF;
1423:
1424: -- Validate_AE_LINE_NUMBER
1425: Validate_AE_LINE_NUMBER(p_aelv_rec, x_return_status);
1426: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1427: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1428: -- need to exit
1429: l_return_status := x_return_status;
1430: RAISE G_EXCEPTION_HALT_VALIDATION;
1423:
1424: -- Validate_AE_LINE_NUMBER
1425: Validate_AE_LINE_NUMBER(p_aelv_rec, x_return_status);
1426: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1427: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1428: -- need to exit
1429: l_return_status := x_return_status;
1430: RAISE G_EXCEPTION_HALT_VALIDATION;
1431: ELSE
1435: END IF;
1436:
1437: -- Validate_AE_LINE_TYPE_CODE
1438: Validate_AE_LINE_TYPE_CODE(p_aelv_rec, x_return_status);
1439: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1440: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1441: -- need to exit
1442: l_return_status := x_return_status;
1443: RAISE G_EXCEPTION_HALT_VALIDATION;
1436:
1437: -- Validate_AE_LINE_TYPE_CODE
1438: Validate_AE_LINE_TYPE_CODE(p_aelv_rec, x_return_status);
1439: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1440: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1441: -- need to exit
1442: l_return_status := x_return_status;
1443: RAISE G_EXCEPTION_HALT_VALIDATION;
1444: ELSE
1448: END IF;
1449:
1450: -- Validate_Source_Table and ID
1451: Validate_Source_ID_TBL(p_aelv_rec, x_return_status);
1452: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1453: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1454: -- need to exit
1455: l_return_status := x_return_status;
1456: RAISE G_EXCEPTION_HALT_VALIDATION;
1449:
1450: -- Validate_Source_Table and ID
1451: Validate_Source_ID_TBL(p_aelv_rec, x_return_status);
1452: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1453: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1454: -- need to exit
1455: l_return_status := x_return_status;
1456: RAISE G_EXCEPTION_HALT_VALIDATION;
1457: ELSE
1461: END IF;
1462:
1463: -- Validate_Curr_Code
1464: Validate_Currency_Code(p_aelv_rec, x_return_status);
1465: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1466: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1467: -- need to exit
1468: l_return_status := x_return_status;
1469: RAISE G_EXCEPTION_HALT_VALIDATION;
1462:
1463: -- Validate_Curr_Code
1464: Validate_Currency_Code(p_aelv_rec, x_return_status);
1465: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1466: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1467: -- need to exit
1468: l_return_status := x_return_status;
1469: RAISE G_EXCEPTION_HALT_VALIDATION;
1470: ELSE
1479: actual message. And therefore, this need not be validated against a lookup. This
1480: lookup will be dropped
1481:
1482: Validate_Accounting_Error_Code(p_aelv_rec, x_return_status);
1483: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1484: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1485: -- need to exit
1486: l_return_status := x_return_status;
1487: RAISE G_EXCEPTION_HALT_VALIDATION;
1480: lookup will be dropped
1481:
1482: Validate_Accounting_Error_Code(p_aelv_rec, x_return_status);
1483: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1484: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1485: -- need to exit
1486: l_return_status := x_return_status;
1487: RAISE G_EXCEPTION_HALT_VALIDATION;
1488: ELSE
1497: make sense to validate it here
1498:
1499: -- validate_GL_trans_Err_Code
1500: validate_GL_trans_Err_Code(p_aelv_rec, x_return_status);
1501: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1502: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1503: -- need to exit
1504: l_return_status := x_return_status;
1505: RAISE G_EXCEPTION_HALT_VALIDATION;
1498:
1499: -- validate_GL_trans_Err_Code
1500: validate_GL_trans_Err_Code(p_aelv_rec, x_return_status);
1501: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1502: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1503: -- need to exit
1504: l_return_status := x_return_status;
1505: RAISE G_EXCEPTION_HALT_VALIDATION;
1506: ELSE
1519: RETURN (l_return_status);
1520:
1521: WHEN OTHERS THEN
1522: -- store SQL error message on message stack for caller
1523: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
1524: p_msg_name => g_unexpected_error,
1525: p_token1 => g_sqlcode_token,
1526: p_token1_value => SQLCODE,
1527: p_token2 => g_sqlerrm_token,
1526: p_token1_value => SQLCODE,
1527: p_token2 => g_sqlerrm_token,
1528: p_token2_value => SQLERRM);
1529: -- notify caller of an UNEXPECTED error
1530: l_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
1531: RETURN(l_return_status);
1532:
1533: END Validate_Attributes;
1534:
1549:
1550: FUNCTION Validate_Record (
1551: p_aelv_rec IN aelv_rec_type
1552: ) RETURN VARCHAR2 IS
1553: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1554: BEGIN
1555:
1556: Validate_Unique_AeL_Record(x_return_status => l_return_Status, p_aelv_rec => p_aelv_rec);
1557: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1553: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1554: BEGIN
1555:
1556: Validate_Unique_AeL_Record(x_return_status => l_return_Status, p_aelv_rec => p_aelv_rec);
1557: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1558: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1559: RAISE G_EXCEPTION_HALT_VALIDATION;
1560: ELSE
1561: NULL;
1554: BEGIN
1555:
1556: Validate_Unique_AeL_Record(x_return_status => l_return_Status, p_aelv_rec => p_aelv_rec);
1557: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1558: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1559: RAISE G_EXCEPTION_HALT_VALIDATION;
1560: ELSE
1561: NULL;
1562: END IF;
1571: RETURN (l_return_status);
1572:
1573: WHEN OTHERS THEN
1574: -- store SQL error message on message stack for caller
1575: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
1576: p_msg_name => g_unexpected_error,
1577: p_token1 => g_sqlcode_token,
1578: p_token1_value => SQLCODE,
1579: p_token2 => g_sqlerrm_token,
1578: p_token1_value => SQLCODE,
1579: p_token2 => g_sqlerrm_token,
1580: p_token2_value => SQLERRM);
1581: -- notify caller of an UNEXPECTED error
1582: l_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
1583: RETURN(l_return_status);
1584: END Validate_Record;
1585:
1586: /*********************** END MANUAL CODE **********************************/
1722: -- validate_row for:OKL_AE_LINES_V --
1723: -------------------------------------
1724: PROCEDURE validate_row(
1725: p_api_version IN NUMBER,
1726: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
1727: x_return_status OUT NOCOPY VARCHAR2,
1728: x_msg_count OUT NOCOPY NUMBER,
1729: x_msg_data OUT NOCOPY VARCHAR2,
1730: p_aelv_rec IN aelv_rec_type) IS
1730: p_aelv_rec IN aelv_rec_type) IS
1731:
1732: l_api_version CONSTANT NUMBER := 1;
1733: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
1734: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1735: l_aelv_rec aelv_rec_type := p_aelv_rec;
1736: l_ael_rec ael_rec_type;
1737: BEGIN
1738: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
1734: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1735: l_aelv_rec aelv_rec_type := p_aelv_rec;
1736: l_ael_rec ael_rec_type;
1737: BEGIN
1738: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
1739: G_PKG_NAME,
1740: p_init_msg_list,
1741: l_api_version,
1742: p_api_version,
1741: l_api_version,
1742: p_api_version,
1743: '_PVT',
1744: x_return_status);
1745: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1746: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1747: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1748: RAISE Okc_Api.G_EXCEPTION_ERROR;
1749: END IF;
1742: p_api_version,
1743: '_PVT',
1744: x_return_status);
1745: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1746: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1747: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1748: RAISE Okc_Api.G_EXCEPTION_ERROR;
1749: END IF;
1750: --- Validate all non-missing attributes (Item Level Validation)
1743: '_PVT',
1744: x_return_status);
1745: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1746: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1747: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1748: RAISE Okc_Api.G_EXCEPTION_ERROR;
1749: END IF;
1750: --- Validate all non-missing attributes (Item Level Validation)
1751: l_return_status := Validate_Attributes(l_aelv_rec);
1744: x_return_status);
1745: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1746: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1747: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1748: RAISE Okc_Api.G_EXCEPTION_ERROR;
1749: END IF;
1750: --- Validate all non-missing attributes (Item Level Validation)
1751: l_return_status := Validate_Attributes(l_aelv_rec);
1752: --- If any errors happen abort API
1749: END IF;
1750: --- Validate all non-missing attributes (Item Level Validation)
1751: l_return_status := Validate_Attributes(l_aelv_rec);
1752: --- If any errors happen abort API
1753: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1754: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1755: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1756: RAISE Okc_Api.G_EXCEPTION_ERROR;
1757: END IF;
1750: --- Validate all non-missing attributes (Item Level Validation)
1751: l_return_status := Validate_Attributes(l_aelv_rec);
1752: --- If any errors happen abort API
1753: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1754: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1755: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1756: RAISE Okc_Api.G_EXCEPTION_ERROR;
1757: END IF;
1758: l_return_status := Validate_Record(l_aelv_rec);
1751: l_return_status := Validate_Attributes(l_aelv_rec);
1752: --- If any errors happen abort API
1753: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1754: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1755: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1756: RAISE Okc_Api.G_EXCEPTION_ERROR;
1757: END IF;
1758: l_return_status := Validate_Record(l_aelv_rec);
1759: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1752: --- If any errors happen abort API
1753: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1754: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1755: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1756: RAISE Okc_Api.G_EXCEPTION_ERROR;
1757: END IF;
1758: l_return_status := Validate_Record(l_aelv_rec);
1759: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1760: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1755: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1756: RAISE Okc_Api.G_EXCEPTION_ERROR;
1757: END IF;
1758: l_return_status := Validate_Record(l_aelv_rec);
1759: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1760: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1761: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1762: RAISE Okc_Api.G_EXCEPTION_ERROR;
1763: END IF;
1756: RAISE Okc_Api.G_EXCEPTION_ERROR;
1757: END IF;
1758: l_return_status := Validate_Record(l_aelv_rec);
1759: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1760: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1761: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1762: RAISE Okc_Api.G_EXCEPTION_ERROR;
1763: END IF;
1764: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1757: END IF;
1758: l_return_status := Validate_Record(l_aelv_rec);
1759: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1760: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1761: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1762: RAISE Okc_Api.G_EXCEPTION_ERROR;
1763: END IF;
1764: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1765: EXCEPTION
1758: l_return_status := Validate_Record(l_aelv_rec);
1759: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1760: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1761: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1762: RAISE Okc_Api.G_EXCEPTION_ERROR;
1763: END IF;
1764: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1765: EXCEPTION
1766: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1760: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1761: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1762: RAISE Okc_Api.G_EXCEPTION_ERROR;
1763: END IF;
1764: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1765: EXCEPTION
1766: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1767: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1768: (
1762: RAISE Okc_Api.G_EXCEPTION_ERROR;
1763: END IF;
1764: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1765: EXCEPTION
1766: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1767: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1768: (
1769: l_api_name,
1770: G_PKG_NAME,
1763: END IF;
1764: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1765: EXCEPTION
1766: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1767: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1768: (
1769: l_api_name,
1770: G_PKG_NAME,
1771: 'OKC_API.G_RET_STS_ERROR',
1767: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1768: (
1769: l_api_name,
1770: G_PKG_NAME,
1771: 'OKC_API.G_RET_STS_ERROR',
1772: x_msg_count,
1773: x_msg_data,
1774: '_PVT'
1775: );
1772: x_msg_count,
1773: x_msg_data,
1774: '_PVT'
1775: );
1776: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1777: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1778: (
1779: l_api_name,
1780: G_PKG_NAME,
1773: x_msg_data,
1774: '_PVT'
1775: );
1776: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1777: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1778: (
1779: l_api_name,
1780: G_PKG_NAME,
1781: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1777: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1778: (
1779: l_api_name,
1780: G_PKG_NAME,
1781: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1782: x_msg_count,
1783: x_msg_data,
1784: '_PVT'
1785: );
1783: x_msg_data,
1784: '_PVT'
1785: );
1786: WHEN OTHERS THEN
1787: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1788: (
1789: l_api_name,
1790: G_PKG_NAME,
1791: 'OTHERS',
1798: -- PL/SQL TBL validate_row for:AELV_TBL --
1799: ------------------------------------------
1800: PROCEDURE validate_row(
1801: p_api_version IN NUMBER,
1802: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
1803: x_return_status OUT NOCOPY VARCHAR2,
1804: x_msg_count OUT NOCOPY NUMBER,
1805: x_msg_data OUT NOCOPY VARCHAR2,
1806: p_aelv_tbl IN aelv_tbl_type) IS
1806: p_aelv_tbl IN aelv_tbl_type) IS
1807:
1808: l_api_version CONSTANT NUMBER := 1;
1809: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
1810: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1811: i NUMBER := 0;
1812: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1813:
1814: BEGIN
1808: l_api_version CONSTANT NUMBER := 1;
1809: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
1810: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1811: i NUMBER := 0;
1812: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1813:
1814: BEGIN
1815: Okc_Api.init_msg_list(p_init_msg_list);
1816: -- Make sure PL/SQL table has records in it before passing
1811: i NUMBER := 0;
1812: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1813:
1814: BEGIN
1815: Okc_Api.init_msg_list(p_init_msg_list);
1816: -- Make sure PL/SQL table has records in it before passing
1817: IF (p_aelv_tbl.COUNT > 0) THEN
1818: i := p_aelv_tbl.FIRST;
1819: LOOP
1818: i := p_aelv_tbl.FIRST;
1819: LOOP
1820: validate_row (
1821: p_api_version => p_api_version,
1822: p_init_msg_list => Okc_Api.G_FALSE,
1823: x_return_status => x_return_status,
1824: x_msg_count => x_msg_count,
1825: x_msg_data => x_msg_data,
1826: p_aelv_rec => p_aelv_tbl(i));
1825: x_msg_data => x_msg_data,
1826: p_aelv_rec => p_aelv_tbl(i));
1827:
1828: -- store the highest degree of error
1829: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
1830: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
1831: l_overall_status := x_return_status;
1832: END IF;
1833: END IF;
1826: p_aelv_rec => p_aelv_tbl(i));
1827:
1828: -- store the highest degree of error
1829: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
1830: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
1831: l_overall_status := x_return_status;
1832: END IF;
1833: END IF;
1834:
1839: x_return_status := l_overall_status;
1840:
1841: END IF;
1842: EXCEPTION
1843: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1844: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1845: (
1846: l_api_name,
1847: G_PKG_NAME,
1840:
1841: END IF;
1842: EXCEPTION
1843: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1844: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1845: (
1846: l_api_name,
1847: G_PKG_NAME,
1848: 'OKC_API.G_RET_STS_ERROR',
1844: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1845: (
1846: l_api_name,
1847: G_PKG_NAME,
1848: 'OKC_API.G_RET_STS_ERROR',
1849: x_msg_count,
1850: x_msg_data,
1851: '_PVT'
1852: );
1849: x_msg_count,
1850: x_msg_data,
1851: '_PVT'
1852: );
1853: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1854: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1855: (
1856: l_api_name,
1857: G_PKG_NAME,
1850: x_msg_data,
1851: '_PVT'
1852: );
1853: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1854: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1855: (
1856: l_api_name,
1857: G_PKG_NAME,
1858: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1854: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1855: (
1856: l_api_name,
1857: G_PKG_NAME,
1858: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1859: x_msg_count,
1860: x_msg_data,
1861: '_PVT'
1862: );
1860: x_msg_data,
1861: '_PVT'
1862: );
1863: WHEN OTHERS THEN
1864: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1865: (
1866: l_api_name,
1867: G_PKG_NAME,
1868: 'OTHERS',
1878: ---------------------------------
1879: -- insert_row for:OKL_AE_LINES --
1880: ---------------------------------
1881: PROCEDURE insert_row(
1882: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
1883: x_return_status OUT NOCOPY VARCHAR2,
1884: x_msg_count OUT NOCOPY NUMBER,
1885: x_msg_data OUT NOCOPY VARCHAR2,
1886: p_ael_rec IN ael_rec_type,
1887: x_ael_rec OUT NOCOPY ael_rec_type) IS
1888:
1889: l_api_version CONSTANT NUMBER := 1;
1890: l_api_name CONSTANT VARCHAR2(30) := 'LINES_insert_row';
1891: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1892: l_ael_rec ael_rec_type := p_ael_rec;
1893: l_def_ael_rec ael_rec_type;
1894: -------------------------------------
1895: -- Set_Attributes for:OKL_AE_LINES --
1897: FUNCTION Set_Attributes (
1898: p_ael_rec IN ael_rec_type,
1899: x_ael_rec OUT NOCOPY ael_rec_type
1900: ) RETURN VARCHAR2 IS
1901: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1902: BEGIN
1903: x_ael_rec := p_ael_rec;
1904: RETURN(l_return_status);
1905: END Set_Attributes;
1903: x_ael_rec := p_ael_rec;
1904: RETURN(l_return_status);
1905: END Set_Attributes;
1906: BEGIN
1907: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
1908: p_init_msg_list,
1909: '_PVT',
1910: x_return_status);
1911: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1907: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
1908: p_init_msg_list,
1909: '_PVT',
1910: x_return_status);
1911: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1912: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1913: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1914: RAISE Okc_Api.G_EXCEPTION_ERROR;
1915: END IF;
1908: p_init_msg_list,
1909: '_PVT',
1910: x_return_status);
1911: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1912: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1913: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1914: RAISE Okc_Api.G_EXCEPTION_ERROR;
1915: END IF;
1916: --- Setting item attributes
1909: '_PVT',
1910: x_return_status);
1911: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1912: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1913: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1914: RAISE Okc_Api.G_EXCEPTION_ERROR;
1915: END IF;
1916: --- Setting item attributes
1917: l_return_status := Set_Attributes(
1910: x_return_status);
1911: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1912: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1913: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1914: RAISE Okc_Api.G_EXCEPTION_ERROR;
1915: END IF;
1916: --- Setting item attributes
1917: l_return_status := Set_Attributes(
1918: p_ael_rec, -- IN
1917: l_return_status := Set_Attributes(
1918: p_ael_rec, -- IN
1919: l_ael_rec); -- OUT
1920: --- If any errors happen abort API
1921: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1922: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1923: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1924: RAISE Okc_Api.G_EXCEPTION_ERROR;
1925: END IF;
1918: p_ael_rec, -- IN
1919: l_ael_rec); -- OUT
1920: --- If any errors happen abort API
1921: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1922: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1923: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1924: RAISE Okc_Api.G_EXCEPTION_ERROR;
1925: END IF;
1926: INSERT INTO OKL_AE_LINES(
1919: l_ael_rec); -- OUT
1920: --- If any errors happen abort API
1921: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1922: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1923: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1924: RAISE Okc_Api.G_EXCEPTION_ERROR;
1925: END IF;
1926: INSERT INTO OKL_AE_LINES(
1927: ae_line_id,
1920: --- If any errors happen abort API
1921: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1922: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1923: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1924: RAISE Okc_Api.G_EXCEPTION_ERROR;
1925: END IF;
1926: INSERT INTO OKL_AE_LINES(
1927: ae_line_id,
1928: code_combination_id,
2040: l_ael_rec.SUBLEDGER_DOC_SEQUENCE_VALUE,
2041: l_ael_rec.TAX_CODE_ID);
2042: -- Set OUT values
2043: x_ael_rec := l_ael_rec;
2044: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2045: EXCEPTION
2046: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2047: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2048: (
2042: -- Set OUT values
2043: x_ael_rec := l_ael_rec;
2044: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2045: EXCEPTION
2046: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2047: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2048: (
2049: l_api_name,
2050: G_PKG_NAME,
2043: x_ael_rec := l_ael_rec;
2044: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2045: EXCEPTION
2046: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2047: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2048: (
2049: l_api_name,
2050: G_PKG_NAME,
2051: 'OKC_API.G_RET_STS_ERROR',
2047: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2048: (
2049: l_api_name,
2050: G_PKG_NAME,
2051: 'OKC_API.G_RET_STS_ERROR',
2052: x_msg_count,
2053: x_msg_data,
2054: '_PVT'
2055: );
2052: x_msg_count,
2053: x_msg_data,
2054: '_PVT'
2055: );
2056: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2057: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2058: (
2059: l_api_name,
2060: G_PKG_NAME,
2053: x_msg_data,
2054: '_PVT'
2055: );
2056: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2057: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2058: (
2059: l_api_name,
2060: G_PKG_NAME,
2061: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2057: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2058: (
2059: l_api_name,
2060: G_PKG_NAME,
2061: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2062: x_msg_count,
2063: x_msg_data,
2064: '_PVT'
2065: );
2063: x_msg_data,
2064: '_PVT'
2065: );
2066: WHEN OTHERS THEN
2067: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2068: (
2069: l_api_name,
2070: G_PKG_NAME,
2071: 'OTHERS',
2078: -- insert_row for:OKL_AE_LINES_V --
2079: -----------------------------------
2080: PROCEDURE insert_row(
2081: p_api_version IN NUMBER,
2082: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
2083: x_return_status OUT NOCOPY VARCHAR2,
2084: x_msg_count OUT NOCOPY NUMBER,
2085: x_msg_data OUT NOCOPY VARCHAR2,
2086: p_aelv_rec IN aelv_rec_type,
2087: x_aelv_rec OUT NOCOPY aelv_rec_type) IS
2088:
2089: l_api_version CONSTANT NUMBER := 1;
2090: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
2091: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2092: l_aelv_rec aelv_rec_type;
2093: l_def_aelv_rec aelv_rec_type;
2094: l_ael_rec ael_rec_type;
2095: lx_ael_rec ael_rec_type;
2114: FUNCTION Set_Attributes (
2115: p_aelv_rec IN aelv_rec_type,
2116: x_aelv_rec OUT NOCOPY aelv_rec_type
2117: ) RETURN VARCHAR2 IS
2118: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2119: BEGIN
2120: x_aelv_rec := p_aelv_rec;
2121: x_aelv_rec.OBJECT_VERSION_NUMBER := 1;
2122: x_aelv_rec.ORG_ID := MO_GLOBAL.GET_CURRENT_ORG_ID();
2131: FROM DUAL;
2132: RETURN(l_return_status);
2133: END Set_Attributes;
2134: BEGIN
2135: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
2136: G_PKG_NAME,
2137: p_init_msg_list,
2138: l_api_version,
2139: p_api_version,
2138: l_api_version,
2139: p_api_version,
2140: '_PVT',
2141: x_return_status);
2142: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2143: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2144: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2145: RAISE Okc_Api.G_EXCEPTION_ERROR;
2146: END IF;
2139: p_api_version,
2140: '_PVT',
2141: x_return_status);
2142: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2143: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2144: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2145: RAISE Okc_Api.G_EXCEPTION_ERROR;
2146: END IF;
2147: l_aelv_rec := null_out_defaults(p_aelv_rec);
2140: '_PVT',
2141: x_return_status);
2142: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2143: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2144: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2145: RAISE Okc_Api.G_EXCEPTION_ERROR;
2146: END IF;
2147: l_aelv_rec := null_out_defaults(p_aelv_rec);
2148: -- Set primary key value
2141: x_return_status);
2142: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2143: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2144: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2145: RAISE Okc_Api.G_EXCEPTION_ERROR;
2146: END IF;
2147: l_aelv_rec := null_out_defaults(p_aelv_rec);
2148: -- Set primary key value
2149: l_aelv_rec.ae_line_id := get_seq_id;
2151: l_return_status := Set_Attributes(
2152: l_aelv_rec, -- IN
2153: l_def_aelv_rec); -- OUT
2154: --- If any errors happen abort API
2155: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2156: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2157: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2158: RAISE Okc_Api.G_EXCEPTION_ERROR;
2159: END IF;
2152: l_aelv_rec, -- IN
2153: l_def_aelv_rec); -- OUT
2154: --- If any errors happen abort API
2155: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2156: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2157: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2158: RAISE Okc_Api.G_EXCEPTION_ERROR;
2159: END IF;
2160: l_def_aelv_rec := fill_who_columns(l_def_aelv_rec);
2153: l_def_aelv_rec); -- OUT
2154: --- If any errors happen abort API
2155: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2156: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2157: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2158: RAISE Okc_Api.G_EXCEPTION_ERROR;
2159: END IF;
2160: l_def_aelv_rec := fill_who_columns(l_def_aelv_rec);
2161: --- Validate all non-missing attributes (Item Level Validation)
2154: --- If any errors happen abort API
2155: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2156: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2157: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2158: RAISE Okc_Api.G_EXCEPTION_ERROR;
2159: END IF;
2160: l_def_aelv_rec := fill_who_columns(l_def_aelv_rec);
2161: --- Validate all non-missing attributes (Item Level Validation)
2162: l_return_status := Validate_Attributes(l_def_aelv_rec);
2160: l_def_aelv_rec := fill_who_columns(l_def_aelv_rec);
2161: --- Validate all non-missing attributes (Item Level Validation)
2162: l_return_status := Validate_Attributes(l_def_aelv_rec);
2163: --- If any errors happen abort API
2164: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2165: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2166: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2167: RAISE Okc_Api.G_EXCEPTION_ERROR;
2168: END IF;
2161: --- Validate all non-missing attributes (Item Level Validation)
2162: l_return_status := Validate_Attributes(l_def_aelv_rec);
2163: --- If any errors happen abort API
2164: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2165: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2166: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2167: RAISE Okc_Api.G_EXCEPTION_ERROR;
2168: END IF;
2169: l_return_status := Validate_Record(l_def_aelv_rec);
2162: l_return_status := Validate_Attributes(l_def_aelv_rec);
2163: --- If any errors happen abort API
2164: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2165: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2166: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2167: RAISE Okc_Api.G_EXCEPTION_ERROR;
2168: END IF;
2169: l_return_status := Validate_Record(l_def_aelv_rec);
2170: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2163: --- If any errors happen abort API
2164: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2165: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2166: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2167: RAISE Okc_Api.G_EXCEPTION_ERROR;
2168: END IF;
2169: l_return_status := Validate_Record(l_def_aelv_rec);
2170: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2171: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2166: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2167: RAISE Okc_Api.G_EXCEPTION_ERROR;
2168: END IF;
2169: l_return_status := Validate_Record(l_def_aelv_rec);
2170: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2171: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2172: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2173: RAISE Okc_Api.G_EXCEPTION_ERROR;
2174: END IF;
2167: RAISE Okc_Api.G_EXCEPTION_ERROR;
2168: END IF;
2169: l_return_status := Validate_Record(l_def_aelv_rec);
2170: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2171: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2172: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2173: RAISE Okc_Api.G_EXCEPTION_ERROR;
2174: END IF;
2175: --------------------------------------
2168: END IF;
2169: l_return_status := Validate_Record(l_def_aelv_rec);
2170: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2171: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2172: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2173: RAISE Okc_Api.G_EXCEPTION_ERROR;
2174: END IF;
2175: --------------------------------------
2176: -- Move VIEW record to "Child" records
2169: l_return_status := Validate_Record(l_def_aelv_rec);
2170: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2171: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2172: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2173: RAISE Okc_Api.G_EXCEPTION_ERROR;
2174: END IF;
2175: --------------------------------------
2176: -- Move VIEW record to "Child" records
2177: --------------------------------------
2186: x_msg_data,
2187: l_ael_rec,
2188: lx_ael_rec
2189: );
2190: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2191: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2192: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2193: RAISE Okc_Api.G_EXCEPTION_ERROR;
2194: END IF;
2187: l_ael_rec,
2188: lx_ael_rec
2189: );
2190: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2191: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2192: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2193: RAISE Okc_Api.G_EXCEPTION_ERROR;
2194: END IF;
2195: migrate(lx_ael_rec, l_def_aelv_rec);
2188: lx_ael_rec
2189: );
2190: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2191: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2192: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2193: RAISE Okc_Api.G_EXCEPTION_ERROR;
2194: END IF;
2195: migrate(lx_ael_rec, l_def_aelv_rec);
2196: -- Set OUT values
2189: );
2190: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2191: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2192: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2193: RAISE Okc_Api.G_EXCEPTION_ERROR;
2194: END IF;
2195: migrate(lx_ael_rec, l_def_aelv_rec);
2196: -- Set OUT values
2197: x_aelv_rec := l_def_aelv_rec;
2194: END IF;
2195: migrate(lx_ael_rec, l_def_aelv_rec);
2196: -- Set OUT values
2197: x_aelv_rec := l_def_aelv_rec;
2198: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2199: NULL;
2200: EXCEPTION
2201: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2202: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2197: x_aelv_rec := l_def_aelv_rec;
2198: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2199: NULL;
2200: EXCEPTION
2201: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2202: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2203: (
2204: l_api_name,
2205: G_PKG_NAME,
2198: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2199: NULL;
2200: EXCEPTION
2201: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2202: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2203: (
2204: l_api_name,
2205: G_PKG_NAME,
2206: 'OKC_API.G_RET_STS_ERROR',
2202: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2203: (
2204: l_api_name,
2205: G_PKG_NAME,
2206: 'OKC_API.G_RET_STS_ERROR',
2207: x_msg_count,
2208: x_msg_data,
2209: '_PVT'
2210: );
2207: x_msg_count,
2208: x_msg_data,
2209: '_PVT'
2210: );
2211: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2212: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2213: (
2214: l_api_name,
2215: G_PKG_NAME,
2208: x_msg_data,
2209: '_PVT'
2210: );
2211: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2212: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2213: (
2214: l_api_name,
2215: G_PKG_NAME,
2216: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2212: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2213: (
2214: l_api_name,
2215: G_PKG_NAME,
2216: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2217: x_msg_count,
2218: x_msg_data,
2219: '_PVT'
2220: );
2218: x_msg_data,
2219: '_PVT'
2220: );
2221: WHEN OTHERS THEN
2222: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2223: (
2224: l_api_name,
2225: G_PKG_NAME,
2226: 'OTHERS',
2233: -- PL/SQL TBL insert_row for:AELV_TBL --
2234: ----------------------------------------
2235: PROCEDURE insert_row(
2236: p_api_version IN NUMBER,
2237: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
2238: x_return_status OUT NOCOPY VARCHAR2,
2239: x_msg_count OUT NOCOPY NUMBER,
2240: x_msg_data OUT NOCOPY VARCHAR2,
2241: p_aelv_tbl IN aelv_tbl_type,
2242: x_aelv_tbl OUT NOCOPY aelv_tbl_type) IS
2243:
2244: l_api_version CONSTANT NUMBER := 1;
2245: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
2246: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2247: i NUMBER := 0;
2248: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2249:
2250: BEGIN
2244: l_api_version CONSTANT NUMBER := 1;
2245: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
2246: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2247: i NUMBER := 0;
2248: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2249:
2250: BEGIN
2251: Okc_Api.init_msg_list(p_init_msg_list);
2252: -- Make sure PL/SQL table has records in it before passing
2247: i NUMBER := 0;
2248: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2249:
2250: BEGIN
2251: Okc_Api.init_msg_list(p_init_msg_list);
2252: -- Make sure PL/SQL table has records in it before passing
2253: IF (p_aelv_tbl.COUNT > 0) THEN
2254: i := p_aelv_tbl.FIRST;
2255: LOOP
2254: i := p_aelv_tbl.FIRST;
2255: LOOP
2256: insert_row (
2257: p_api_version => p_api_version,
2258: p_init_msg_list => Okc_Api.G_FALSE,
2259: x_return_status => x_return_status,
2260: x_msg_count => x_msg_count,
2261: x_msg_data => x_msg_data,
2262: p_aelv_rec => p_aelv_tbl(i),
2262: p_aelv_rec => p_aelv_tbl(i),
2263: x_aelv_rec => x_aelv_tbl(i));
2264:
2265: -- store the highest degree of error
2266: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
2267: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
2268: l_overall_status := x_return_status;
2269: END IF;
2270: END IF;
2263: x_aelv_rec => x_aelv_tbl(i));
2264:
2265: -- store the highest degree of error
2266: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
2267: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
2268: l_overall_status := x_return_status;
2269: END IF;
2270: END IF;
2271:
2276: x_return_status := l_overall_status;
2277:
2278: END IF;
2279: EXCEPTION
2280: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2281: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2282: (
2283: l_api_name,
2284: G_PKG_NAME,
2277:
2278: END IF;
2279: EXCEPTION
2280: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2281: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2282: (
2283: l_api_name,
2284: G_PKG_NAME,
2285: 'OKC_API.G_RET_STS_ERROR',
2281: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2282: (
2283: l_api_name,
2284: G_PKG_NAME,
2285: 'OKC_API.G_RET_STS_ERROR',
2286: x_msg_count,
2287: x_msg_data,
2288: '_PVT'
2289: );
2286: x_msg_count,
2287: x_msg_data,
2288: '_PVT'
2289: );
2290: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2291: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2292: (
2293: l_api_name,
2294: G_PKG_NAME,
2287: x_msg_data,
2288: '_PVT'
2289: );
2290: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2291: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2292: (
2293: l_api_name,
2294: G_PKG_NAME,
2295: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2291: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2292: (
2293: l_api_name,
2294: G_PKG_NAME,
2295: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2296: x_msg_count,
2297: x_msg_data,
2298: '_PVT'
2299: );
2297: x_msg_data,
2298: '_PVT'
2299: );
2300: WHEN OTHERS THEN
2301: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2302: (
2303: l_api_name,
2304: G_PKG_NAME,
2305: 'OTHERS',
2315: -- PL/SQL TBL insert_row_perf for:AELV_TBL --
2316: ----------------------------------------
2317: PROCEDURE insert_row_perf(
2318: p_api_version IN NUMBER,
2319: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
2320: x_return_status OUT NOCOPY VARCHAR2,
2321: x_msg_count OUT NOCOPY NUMBER,
2322: x_msg_data OUT NOCOPY VARCHAR2,
2323: p_aelv_tbl IN aelv_tbl_type,
2583: -------------------------------
2584: -- lock_row for:OKL_AE_LINES --
2585: -------------------------------
2586: PROCEDURE lock_row(
2587: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
2588: x_return_status OUT NOCOPY VARCHAR2,
2589: x_msg_count OUT NOCOPY NUMBER,
2590: x_msg_data OUT NOCOPY VARCHAR2,
2591: p_ael_rec IN ael_rec_type) IS
2604: FROM OKL_AE_LINES
2605: WHERE ae_line_id = p_ael_rec.ae_line_id;
2606: l_api_version CONSTANT NUMBER := 1;
2607: l_api_name CONSTANT VARCHAR2(30) := 'LINES_lock_row';
2608: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2609: l_object_version_number OKL_AE_LINES.OBJECT_VERSION_NUMBER%TYPE;
2610: lc_object_version_number OKL_AE_LINES.OBJECT_VERSION_NUMBER%TYPE;
2611: l_row_notfound BOOLEAN := FALSE;
2612: lc_row_notfound BOOLEAN := FALSE;
2610: lc_object_version_number OKL_AE_LINES.OBJECT_VERSION_NUMBER%TYPE;
2611: l_row_notfound BOOLEAN := FALSE;
2612: lc_row_notfound BOOLEAN := FALSE;
2613: BEGIN
2614: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
2615: p_init_msg_list,
2616: '_PVT',
2617: x_return_status);
2618: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2614: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
2615: p_init_msg_list,
2616: '_PVT',
2617: x_return_status);
2618: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2619: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2620: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2621: RAISE Okc_Api.G_EXCEPTION_ERROR;
2622: END IF;
2615: p_init_msg_list,
2616: '_PVT',
2617: x_return_status);
2618: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2619: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2620: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2621: RAISE Okc_Api.G_EXCEPTION_ERROR;
2622: END IF;
2623: BEGIN
2616: '_PVT',
2617: x_return_status);
2618: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2619: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2620: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2621: RAISE Okc_Api.G_EXCEPTION_ERROR;
2622: END IF;
2623: BEGIN
2624: OPEN lock_csr(p_ael_rec);
2617: x_return_status);
2618: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2619: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2620: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2621: RAISE Okc_Api.G_EXCEPTION_ERROR;
2622: END IF;
2623: BEGIN
2624: OPEN lock_csr(p_ael_rec);
2625: FETCH lock_csr INTO l_object_version_number;
2629: WHEN E_Resource_Busy THEN
2630: IF (lock_csr%ISOPEN) THEN
2631: CLOSE lock_csr;
2632: END IF;
2633: Okc_Api.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
2634: RAISE App_Exceptions.RECORD_LOCK_EXCEPTION;
2635: END;
2636:
2637: IF ( l_row_notfound ) THEN
2640: lc_row_notfound := lchk_csr%NOTFOUND;
2641: CLOSE lchk_csr;
2642: END IF;
2643: IF (lc_row_notfound) THEN
2644: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2645: RAISE Okc_Api.G_EXCEPTION_ERROR;
2646: ELSIF lc_object_version_number > p_ael_rec.object_version_number THEN
2647: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2648: RAISE Okc_Api.G_EXCEPTION_ERROR;
2641: CLOSE lchk_csr;
2642: END IF;
2643: IF (lc_row_notfound) THEN
2644: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2645: RAISE Okc_Api.G_EXCEPTION_ERROR;
2646: ELSIF lc_object_version_number > p_ael_rec.object_version_number THEN
2647: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2648: RAISE Okc_Api.G_EXCEPTION_ERROR;
2649: ELSIF lc_object_version_number <> p_ael_rec.object_version_number THEN
2643: IF (lc_row_notfound) THEN
2644: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2645: RAISE Okc_Api.G_EXCEPTION_ERROR;
2646: ELSIF lc_object_version_number > p_ael_rec.object_version_number THEN
2647: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2648: RAISE Okc_Api.G_EXCEPTION_ERROR;
2649: ELSIF lc_object_version_number <> p_ael_rec.object_version_number THEN
2650: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2651: RAISE Okc_Api.G_EXCEPTION_ERROR;
2644: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2645: RAISE Okc_Api.G_EXCEPTION_ERROR;
2646: ELSIF lc_object_version_number > p_ael_rec.object_version_number THEN
2647: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2648: RAISE Okc_Api.G_EXCEPTION_ERROR;
2649: ELSIF lc_object_version_number <> p_ael_rec.object_version_number THEN
2650: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2651: RAISE Okc_Api.G_EXCEPTION_ERROR;
2652: ELSIF lc_object_version_number = -1 THEN
2646: ELSIF lc_object_version_number > p_ael_rec.object_version_number THEN
2647: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2648: RAISE Okc_Api.G_EXCEPTION_ERROR;
2649: ELSIF lc_object_version_number <> p_ael_rec.object_version_number THEN
2650: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2651: RAISE Okc_Api.G_EXCEPTION_ERROR;
2652: ELSIF lc_object_version_number = -1 THEN
2653: Okc_Api.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2654: RAISE Okc_Api.G_EXCEPTION_ERROR;
2647: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2648: RAISE Okc_Api.G_EXCEPTION_ERROR;
2649: ELSIF lc_object_version_number <> p_ael_rec.object_version_number THEN
2650: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2651: RAISE Okc_Api.G_EXCEPTION_ERROR;
2652: ELSIF lc_object_version_number = -1 THEN
2653: Okc_Api.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2654: RAISE Okc_Api.G_EXCEPTION_ERROR;
2655: END IF;
2649: ELSIF lc_object_version_number <> p_ael_rec.object_version_number THEN
2650: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2651: RAISE Okc_Api.G_EXCEPTION_ERROR;
2652: ELSIF lc_object_version_number = -1 THEN
2653: Okc_Api.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2654: RAISE Okc_Api.G_EXCEPTION_ERROR;
2655: END IF;
2656: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2657: EXCEPTION
2650: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2651: RAISE Okc_Api.G_EXCEPTION_ERROR;
2652: ELSIF lc_object_version_number = -1 THEN
2653: Okc_Api.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2654: RAISE Okc_Api.G_EXCEPTION_ERROR;
2655: END IF;
2656: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2657: EXCEPTION
2658: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2652: ELSIF lc_object_version_number = -1 THEN
2653: Okc_Api.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2654: RAISE Okc_Api.G_EXCEPTION_ERROR;
2655: END IF;
2656: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2657: EXCEPTION
2658: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2659: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2660: (
2654: RAISE Okc_Api.G_EXCEPTION_ERROR;
2655: END IF;
2656: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2657: EXCEPTION
2658: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2659: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2660: (
2661: l_api_name,
2662: G_PKG_NAME,
2655: END IF;
2656: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2657: EXCEPTION
2658: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2659: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2660: (
2661: l_api_name,
2662: G_PKG_NAME,
2663: 'OKC_API.G_RET_STS_ERROR',
2659: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2660: (
2661: l_api_name,
2662: G_PKG_NAME,
2663: 'OKC_API.G_RET_STS_ERROR',
2664: x_msg_count,
2665: x_msg_data,
2666: '_PVT'
2667: );
2664: x_msg_count,
2665: x_msg_data,
2666: '_PVT'
2667: );
2668: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2669: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2670: (
2671: l_api_name,
2672: G_PKG_NAME,
2665: x_msg_data,
2666: '_PVT'
2667: );
2668: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2669: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2670: (
2671: l_api_name,
2672: G_PKG_NAME,
2673: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2669: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2670: (
2671: l_api_name,
2672: G_PKG_NAME,
2673: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2674: x_msg_count,
2675: x_msg_data,
2676: '_PVT'
2677: );
2675: x_msg_data,
2676: '_PVT'
2677: );
2678: WHEN OTHERS THEN
2679: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2680: (
2681: l_api_name,
2682: G_PKG_NAME,
2683: 'OTHERS',
2690: -- lock_row for:OKL_AE_LINES_V --
2691: ---------------------------------
2692: PROCEDURE lock_row(
2693: p_api_version IN NUMBER,
2694: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
2695: x_return_status OUT NOCOPY VARCHAR2,
2696: x_msg_count OUT NOCOPY NUMBER,
2697: x_msg_data OUT NOCOPY VARCHAR2,
2698: p_aelv_rec IN aelv_rec_type) IS
2698: p_aelv_rec IN aelv_rec_type) IS
2699:
2700: l_api_version CONSTANT NUMBER := 1;
2701: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
2702: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2703: l_ael_rec ael_rec_type;
2704: BEGIN
2705: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
2706: G_PKG_NAME,
2701: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
2702: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2703: l_ael_rec ael_rec_type;
2704: BEGIN
2705: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
2706: G_PKG_NAME,
2707: p_init_msg_list,
2708: l_api_version,
2709: p_api_version,
2708: l_api_version,
2709: p_api_version,
2710: '_PVT',
2711: x_return_status);
2712: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2713: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2714: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2715: RAISE Okc_Api.G_EXCEPTION_ERROR;
2716: END IF;
2709: p_api_version,
2710: '_PVT',
2711: x_return_status);
2712: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2713: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2714: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2715: RAISE Okc_Api.G_EXCEPTION_ERROR;
2716: END IF;
2717: --------------------------------------
2710: '_PVT',
2711: x_return_status);
2712: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2713: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2714: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2715: RAISE Okc_Api.G_EXCEPTION_ERROR;
2716: END IF;
2717: --------------------------------------
2718: -- Move VIEW record to "Child" records
2711: x_return_status);
2712: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2713: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2714: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2715: RAISE Okc_Api.G_EXCEPTION_ERROR;
2716: END IF;
2717: --------------------------------------
2718: -- Move VIEW record to "Child" records
2719: --------------------------------------
2727: x_msg_count,
2728: x_msg_data,
2729: l_ael_rec
2730: );
2731: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2732: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2733: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2734: RAISE Okc_Api.G_EXCEPTION_ERROR;
2735: END IF;
2728: x_msg_data,
2729: l_ael_rec
2730: );
2731: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2732: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2733: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2734: RAISE Okc_Api.G_EXCEPTION_ERROR;
2735: END IF;
2736: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2729: l_ael_rec
2730: );
2731: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2732: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2733: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2734: RAISE Okc_Api.G_EXCEPTION_ERROR;
2735: END IF;
2736: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2737: EXCEPTION
2730: );
2731: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2732: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2733: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2734: RAISE Okc_Api.G_EXCEPTION_ERROR;
2735: END IF;
2736: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2737: EXCEPTION
2738: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2732: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2733: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2734: RAISE Okc_Api.G_EXCEPTION_ERROR;
2735: END IF;
2736: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2737: EXCEPTION
2738: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2739: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2740: (
2734: RAISE Okc_Api.G_EXCEPTION_ERROR;
2735: END IF;
2736: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2737: EXCEPTION
2738: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2739: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2740: (
2741: l_api_name,
2742: G_PKG_NAME,
2735: END IF;
2736: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2737: EXCEPTION
2738: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2739: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2740: (
2741: l_api_name,
2742: G_PKG_NAME,
2743: 'OKC_API.G_RET_STS_ERROR',
2739: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2740: (
2741: l_api_name,
2742: G_PKG_NAME,
2743: 'OKC_API.G_RET_STS_ERROR',
2744: x_msg_count,
2745: x_msg_data,
2746: '_PVT'
2747: );
2744: x_msg_count,
2745: x_msg_data,
2746: '_PVT'
2747: );
2748: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2749: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2750: (
2751: l_api_name,
2752: G_PKG_NAME,
2745: x_msg_data,
2746: '_PVT'
2747: );
2748: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2749: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2750: (
2751: l_api_name,
2752: G_PKG_NAME,
2753: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2749: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2750: (
2751: l_api_name,
2752: G_PKG_NAME,
2753: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2754: x_msg_count,
2755: x_msg_data,
2756: '_PVT'
2757: );
2755: x_msg_data,
2756: '_PVT'
2757: );
2758: WHEN OTHERS THEN
2759: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2760: (
2761: l_api_name,
2762: G_PKG_NAME,
2763: 'OTHERS',
2770: -- PL/SQL TBL lock_row for:AELV_TBL --
2771: --------------------------------------
2772: PROCEDURE lock_row(
2773: p_api_version IN NUMBER,
2774: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
2775: x_return_status OUT NOCOPY VARCHAR2,
2776: x_msg_count OUT NOCOPY NUMBER,
2777: x_msg_data OUT NOCOPY VARCHAR2,
2778: p_aelv_tbl IN aelv_tbl_type) IS
2778: p_aelv_tbl IN aelv_tbl_type) IS
2779:
2780: l_api_version CONSTANT NUMBER := 1;
2781: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
2782: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2783: i NUMBER := 0;
2784: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2785:
2786: BEGIN
2780: l_api_version CONSTANT NUMBER := 1;
2781: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
2782: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2783: i NUMBER := 0;
2784: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2785:
2786: BEGIN
2787: Okc_Api.init_msg_list(p_init_msg_list);
2788: -- Make sure PL/SQL table has records in it before passing
2783: i NUMBER := 0;
2784: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2785:
2786: BEGIN
2787: Okc_Api.init_msg_list(p_init_msg_list);
2788: -- Make sure PL/SQL table has records in it before passing
2789: IF (p_aelv_tbl.COUNT > 0) THEN
2790: i := p_aelv_tbl.FIRST;
2791: LOOP
2790: i := p_aelv_tbl.FIRST;
2791: LOOP
2792: lock_row (
2793: p_api_version => p_api_version,
2794: p_init_msg_list => Okc_Api.G_FALSE,
2795: x_return_status => x_return_status,
2796: x_msg_count => x_msg_count,
2797: x_msg_data => x_msg_data,
2798: p_aelv_rec => p_aelv_tbl(i));
2797: x_msg_data => x_msg_data,
2798: p_aelv_rec => p_aelv_tbl(i));
2799:
2800: -- store the highest degree of error
2801: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
2802: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
2803: l_overall_status := x_return_status;
2804: END IF;
2805: END IF;
2798: p_aelv_rec => p_aelv_tbl(i));
2799:
2800: -- store the highest degree of error
2801: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
2802: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
2803: l_overall_status := x_return_status;
2804: END IF;
2805: END IF;
2806:
2811: x_return_status := l_overall_status;
2812:
2813: END IF;
2814: EXCEPTION
2815: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2816: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2817: (
2818: l_api_name,
2819: G_PKG_NAME,
2812:
2813: END IF;
2814: EXCEPTION
2815: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2816: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2817: (
2818: l_api_name,
2819: G_PKG_NAME,
2820: 'OKC_API.G_RET_STS_ERROR',
2816: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2817: (
2818: l_api_name,
2819: G_PKG_NAME,
2820: 'OKC_API.G_RET_STS_ERROR',
2821: x_msg_count,
2822: x_msg_data,
2823: '_PVT'
2824: );
2821: x_msg_count,
2822: x_msg_data,
2823: '_PVT'
2824: );
2825: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2826: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2827: (
2828: l_api_name,
2829: G_PKG_NAME,
2822: x_msg_data,
2823: '_PVT'
2824: );
2825: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2826: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2827: (
2828: l_api_name,
2829: G_PKG_NAME,
2830: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2826: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2827: (
2828: l_api_name,
2829: G_PKG_NAME,
2830: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2831: x_msg_count,
2832: x_msg_data,
2833: '_PVT'
2834: );
2832: x_msg_data,
2833: '_PVT'
2834: );
2835: WHEN OTHERS THEN
2836: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2837: (
2838: l_api_name,
2839: G_PKG_NAME,
2840: 'OTHERS',
2850: ---------------------------------
2851: -- update_row for:OKL_AE_LINES --
2852: ---------------------------------
2853: PROCEDURE update_row(
2854: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
2855: x_return_status OUT NOCOPY VARCHAR2,
2856: x_msg_count OUT NOCOPY NUMBER,
2857: x_msg_data OUT NOCOPY VARCHAR2,
2858: p_ael_rec IN ael_rec_type,
2859: x_ael_rec OUT NOCOPY ael_rec_type) IS
2860:
2861: l_api_version CONSTANT NUMBER := 1;
2862: l_api_name CONSTANT VARCHAR2(30) := 'LINES_update_row';
2863: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2864: l_ael_rec ael_rec_type := p_ael_rec;
2865: l_def_ael_rec ael_rec_type;
2866: l_row_notfound BOOLEAN := TRUE;
2867: ----------------------------------
2872: x_ael_rec OUT NOCOPY ael_rec_type
2873: ) RETURN VARCHAR2 IS
2874: l_ael_rec ael_rec_type;
2875: l_row_notfound BOOLEAN := TRUE;
2876: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2877: BEGIN
2878: x_ael_rec := p_ael_rec;
2879: -- Get current database values
2880: l_ael_rec := get_rec(p_ael_rec, l_row_notfound);
2878: x_ael_rec := p_ael_rec;
2879: -- Get current database values
2880: l_ael_rec := get_rec(p_ael_rec, l_row_notfound);
2881: IF (l_row_notfound) THEN
2882: l_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
2883: END IF;
2884: IF (x_ael_rec.ae_line_id = Okc_Api.G_MISS_NUM)
2885: THEN
2886: x_ael_rec.ae_line_id := l_ael_rec.ae_line_id;
2880: l_ael_rec := get_rec(p_ael_rec, l_row_notfound);
2881: IF (l_row_notfound) THEN
2882: l_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
2883: END IF;
2884: IF (x_ael_rec.ae_line_id = Okc_Api.G_MISS_NUM)
2885: THEN
2886: x_ael_rec.ae_line_id := l_ael_rec.ae_line_id;
2887: END IF;
2888: IF (x_ael_rec.code_combination_id = Okc_Api.G_MISS_NUM)
2884: IF (x_ael_rec.ae_line_id = Okc_Api.G_MISS_NUM)
2885: THEN
2886: x_ael_rec.ae_line_id := l_ael_rec.ae_line_id;
2887: END IF;
2888: IF (x_ael_rec.code_combination_id = Okc_Api.G_MISS_NUM)
2889: THEN
2890: x_ael_rec.code_combination_id := l_ael_rec.code_combination_id;
2891: END IF;
2892: IF (x_ael_rec.AE_HEADER_ID = Okc_Api.G_MISS_NUM)
2888: IF (x_ael_rec.code_combination_id = Okc_Api.G_MISS_NUM)
2889: THEN
2890: x_ael_rec.code_combination_id := l_ael_rec.code_combination_id;
2891: END IF;
2892: IF (x_ael_rec.AE_HEADER_ID = Okc_Api.G_MISS_NUM)
2893: THEN
2894: x_ael_rec.AE_HEADER_ID := l_ael_rec.AE_HEADER_ID;
2895: END IF;
2896: IF (x_ael_rec.currency_conversion_type = Okc_Api.G_MISS_CHAR)
2892: IF (x_ael_rec.AE_HEADER_ID = Okc_Api.G_MISS_NUM)
2893: THEN
2894: x_ael_rec.AE_HEADER_ID := l_ael_rec.AE_HEADER_ID;
2895: END IF;
2896: IF (x_ael_rec.currency_conversion_type = Okc_Api.G_MISS_CHAR)
2897: THEN
2898: x_ael_rec.currency_conversion_type := l_ael_rec.currency_conversion_type;
2899: END IF;
2900: IF (x_ael_rec.org_id = Okc_Api.G_MISS_NUM)
2896: IF (x_ael_rec.currency_conversion_type = Okc_Api.G_MISS_CHAR)
2897: THEN
2898: x_ael_rec.currency_conversion_type := l_ael_rec.currency_conversion_type;
2899: END IF;
2900: IF (x_ael_rec.org_id = Okc_Api.G_MISS_NUM)
2901: THEN
2902: x_ael_rec.org_id := l_ael_rec.org_id;
2903: END IF;
2904: IF (x_ael_rec.AE_LINE_NUMBER = Okc_Api.G_MISS_NUM)
2900: IF (x_ael_rec.org_id = Okc_Api.G_MISS_NUM)
2901: THEN
2902: x_ael_rec.org_id := l_ael_rec.org_id;
2903: END IF;
2904: IF (x_ael_rec.AE_LINE_NUMBER = Okc_Api.G_MISS_NUM)
2905: THEN
2906: x_ael_rec.AE_LINE_NUMBER := l_ael_rec.AE_LINE_NUMBER;
2907: END IF;
2908: IF (x_ael_rec.AE_LINE_TYPE_CODE = Okc_Api.G_MISS_CHAR)
2904: IF (x_ael_rec.AE_LINE_NUMBER = Okc_Api.G_MISS_NUM)
2905: THEN
2906: x_ael_rec.AE_LINE_NUMBER := l_ael_rec.AE_LINE_NUMBER;
2907: END IF;
2908: IF (x_ael_rec.AE_LINE_TYPE_CODE = Okc_Api.G_MISS_CHAR)
2909: THEN
2910: x_ael_rec.AE_LINE_TYPE_CODE := l_ael_rec.AE_LINE_TYPE_CODE;
2911: END IF;
2912: IF (x_ael_rec.source_table = Okc_Api.G_MISS_CHAR)
2908: IF (x_ael_rec.AE_LINE_TYPE_CODE = Okc_Api.G_MISS_CHAR)
2909: THEN
2910: x_ael_rec.AE_LINE_TYPE_CODE := l_ael_rec.AE_LINE_TYPE_CODE;
2911: END IF;
2912: IF (x_ael_rec.source_table = Okc_Api.G_MISS_CHAR)
2913: THEN
2914: x_ael_rec.source_table := l_ael_rec.source_table;
2915: END IF;
2916: IF (x_ael_rec.source_id = Okc_Api.G_MISS_NUM)
2912: IF (x_ael_rec.source_table = Okc_Api.G_MISS_CHAR)
2913: THEN
2914: x_ael_rec.source_table := l_ael_rec.source_table;
2915: END IF;
2916: IF (x_ael_rec.source_id = Okc_Api.G_MISS_NUM)
2917: THEN
2918: x_ael_rec.source_id := l_ael_rec.source_id;
2919: END IF;
2920: IF (x_ael_rec.object_version_number = Okc_Api.G_MISS_NUM)
2916: IF (x_ael_rec.source_id = Okc_Api.G_MISS_NUM)
2917: THEN
2918: x_ael_rec.source_id := l_ael_rec.source_id;
2919: END IF;
2920: IF (x_ael_rec.object_version_number = Okc_Api.G_MISS_NUM)
2921: THEN
2922: x_ael_rec.object_version_number := l_ael_rec.object_version_number;
2923: END IF;
2924: IF (x_ael_rec.currency_code = Okc_Api.G_MISS_CHAR)
2920: IF (x_ael_rec.object_version_number = Okc_Api.G_MISS_NUM)
2921: THEN
2922: x_ael_rec.object_version_number := l_ael_rec.object_version_number;
2923: END IF;
2924: IF (x_ael_rec.currency_code = Okc_Api.G_MISS_CHAR)
2925: THEN
2926: x_ael_rec.currency_code := l_ael_rec.currency_code;
2927: END IF;
2928: IF (x_ael_rec.currency_conversion_date = Okc_Api.G_MISS_DATE)
2924: IF (x_ael_rec.currency_code = Okc_Api.G_MISS_CHAR)
2925: THEN
2926: x_ael_rec.currency_code := l_ael_rec.currency_code;
2927: END IF;
2928: IF (x_ael_rec.currency_conversion_date = Okc_Api.G_MISS_DATE)
2929: THEN
2930: x_ael_rec.currency_conversion_date := l_ael_rec.currency_conversion_date;
2931: END IF;
2932: IF (x_ael_rec.currency_conversion_rate = Okc_Api.G_MISS_NUM)
2928: IF (x_ael_rec.currency_conversion_date = Okc_Api.G_MISS_DATE)
2929: THEN
2930: x_ael_rec.currency_conversion_date := l_ael_rec.currency_conversion_date;
2931: END IF;
2932: IF (x_ael_rec.currency_conversion_rate = Okc_Api.G_MISS_NUM)
2933: THEN
2934: x_ael_rec.currency_conversion_rate := l_ael_rec.currency_conversion_rate;
2935: END IF;
2936: IF (x_ael_rec.ENTERED_DR = Okc_Api.G_MISS_NUM)
2932: IF (x_ael_rec.currency_conversion_rate = Okc_Api.G_MISS_NUM)
2933: THEN
2934: x_ael_rec.currency_conversion_rate := l_ael_rec.currency_conversion_rate;
2935: END IF;
2936: IF (x_ael_rec.ENTERED_DR = Okc_Api.G_MISS_NUM)
2937: THEN
2938: x_ael_rec.ENTERED_DR := l_ael_rec.ENTERED_DR;
2939: END IF;
2940: IF (x_ael_rec.ENTERED_CR = Okc_Api.G_MISS_NUM)
2936: IF (x_ael_rec.ENTERED_DR = Okc_Api.G_MISS_NUM)
2937: THEN
2938: x_ael_rec.ENTERED_DR := l_ael_rec.ENTERED_DR;
2939: END IF;
2940: IF (x_ael_rec.ENTERED_CR = Okc_Api.G_MISS_NUM)
2941: THEN
2942: x_ael_rec.ENTERED_CR := l_ael_rec.ENTERED_CR;
2943: END IF;
2944: IF (x_ael_rec.ACCOUNTED_DR = Okc_Api.G_MISS_NUM)
2940: IF (x_ael_rec.ENTERED_CR = Okc_Api.G_MISS_NUM)
2941: THEN
2942: x_ael_rec.ENTERED_CR := l_ael_rec.ENTERED_CR;
2943: END IF;
2944: IF (x_ael_rec.ACCOUNTED_DR = Okc_Api.G_MISS_NUM)
2945: THEN
2946: x_ael_rec.ACCOUNTED_DR := l_ael_rec.ACCOUNTED_DR;
2947: END IF;
2948: IF (x_ael_rec.ACCOUNTED_CR = Okc_Api.G_MISS_NUM)
2944: IF (x_ael_rec.ACCOUNTED_DR = Okc_Api.G_MISS_NUM)
2945: THEN
2946: x_ael_rec.ACCOUNTED_DR := l_ael_rec.ACCOUNTED_DR;
2947: END IF;
2948: IF (x_ael_rec.ACCOUNTED_CR = Okc_Api.G_MISS_NUM)
2949: THEN
2950: x_ael_rec.ACCOUNTED_CR := l_ael_rec.ACCOUNTED_CR;
2951: END IF;
2952: IF (x_ael_rec.reference1 = Okc_Api.G_MISS_CHAR)
2948: IF (x_ael_rec.ACCOUNTED_CR = Okc_Api.G_MISS_NUM)
2949: THEN
2950: x_ael_rec.ACCOUNTED_CR := l_ael_rec.ACCOUNTED_CR;
2951: END IF;
2952: IF (x_ael_rec.reference1 = Okc_Api.G_MISS_CHAR)
2953: THEN
2954: x_ael_rec.reference1 := l_ael_rec.reference1;
2955: END IF;
2956: IF (x_ael_rec.reference2 = Okc_Api.G_MISS_CHAR)
2952: IF (x_ael_rec.reference1 = Okc_Api.G_MISS_CHAR)
2953: THEN
2954: x_ael_rec.reference1 := l_ael_rec.reference1;
2955: END IF;
2956: IF (x_ael_rec.reference2 = Okc_Api.G_MISS_CHAR)
2957: THEN
2958: x_ael_rec.reference2 := l_ael_rec.reference2;
2959: END IF;
2960: IF (x_ael_rec.reference3 = Okc_Api.G_MISS_CHAR)
2956: IF (x_ael_rec.reference2 = Okc_Api.G_MISS_CHAR)
2957: THEN
2958: x_ael_rec.reference2 := l_ael_rec.reference2;
2959: END IF;
2960: IF (x_ael_rec.reference3 = Okc_Api.G_MISS_CHAR)
2961: THEN
2962: x_ael_rec.reference3 := l_ael_rec.reference3;
2963: END IF;
2964: IF (x_ael_rec.reference4 = Okc_Api.G_MISS_CHAR)
2960: IF (x_ael_rec.reference3 = Okc_Api.G_MISS_CHAR)
2961: THEN
2962: x_ael_rec.reference3 := l_ael_rec.reference3;
2963: END IF;
2964: IF (x_ael_rec.reference4 = Okc_Api.G_MISS_CHAR)
2965: THEN
2966: x_ael_rec.reference4 := l_ael_rec.reference4;
2967: END IF;
2968: IF (x_ael_rec.reference5 = Okc_Api.G_MISS_CHAR)
2964: IF (x_ael_rec.reference4 = Okc_Api.G_MISS_CHAR)
2965: THEN
2966: x_ael_rec.reference4 := l_ael_rec.reference4;
2967: END IF;
2968: IF (x_ael_rec.reference5 = Okc_Api.G_MISS_CHAR)
2969: THEN
2970: x_ael_rec.reference5 := l_ael_rec.reference5;
2971: END IF;
2972: IF (x_ael_rec.reference6 = Okc_Api.G_MISS_CHAR)
2968: IF (x_ael_rec.reference5 = Okc_Api.G_MISS_CHAR)
2969: THEN
2970: x_ael_rec.reference5 := l_ael_rec.reference5;
2971: END IF;
2972: IF (x_ael_rec.reference6 = Okc_Api.G_MISS_CHAR)
2973: THEN
2974: x_ael_rec.reference6 := l_ael_rec.reference6;
2975: END IF;
2976: IF (x_ael_rec.reference7 = Okc_Api.G_MISS_CHAR)
2972: IF (x_ael_rec.reference6 = Okc_Api.G_MISS_CHAR)
2973: THEN
2974: x_ael_rec.reference6 := l_ael_rec.reference6;
2975: END IF;
2976: IF (x_ael_rec.reference7 = Okc_Api.G_MISS_CHAR)
2977: THEN
2978: x_ael_rec.reference7 := l_ael_rec.reference7;
2979: END IF;
2980: IF (x_ael_rec.reference8 = Okc_Api.G_MISS_CHAR)
2976: IF (x_ael_rec.reference7 = Okc_Api.G_MISS_CHAR)
2977: THEN
2978: x_ael_rec.reference7 := l_ael_rec.reference7;
2979: END IF;
2980: IF (x_ael_rec.reference8 = Okc_Api.G_MISS_CHAR)
2981: THEN
2982: x_ael_rec.reference8 := l_ael_rec.reference8;
2983: END IF;
2984: IF (x_ael_rec.reference9 = Okc_Api.G_MISS_CHAR)
2980: IF (x_ael_rec.reference8 = Okc_Api.G_MISS_CHAR)
2981: THEN
2982: x_ael_rec.reference8 := l_ael_rec.reference8;
2983: END IF;
2984: IF (x_ael_rec.reference9 = Okc_Api.G_MISS_CHAR)
2985: THEN
2986: x_ael_rec.reference9 := l_ael_rec.reference9;
2987: END IF;
2988: IF (x_ael_rec.reference10 = Okc_Api.G_MISS_CHAR)
2984: IF (x_ael_rec.reference9 = Okc_Api.G_MISS_CHAR)
2985: THEN
2986: x_ael_rec.reference9 := l_ael_rec.reference9;
2987: END IF;
2988: IF (x_ael_rec.reference10 = Okc_Api.G_MISS_CHAR)
2989: THEN
2990: x_ael_rec.reference10 := l_ael_rec.reference10;
2991: END IF;
2992: IF (x_ael_rec.description = Okc_Api.G_MISS_CHAR)
2988: IF (x_ael_rec.reference10 = Okc_Api.G_MISS_CHAR)
2989: THEN
2990: x_ael_rec.reference10 := l_ael_rec.reference10;
2991: END IF;
2992: IF (x_ael_rec.description = Okc_Api.G_MISS_CHAR)
2993: THEN
2994: x_ael_rec.description := l_ael_rec.description;
2995: END IF;
2996: IF (x_ael_rec.third_party_id = Okc_Api.G_MISS_NUM)
2992: IF (x_ael_rec.description = Okc_Api.G_MISS_CHAR)
2993: THEN
2994: x_ael_rec.description := l_ael_rec.description;
2995: END IF;
2996: IF (x_ael_rec.third_party_id = Okc_Api.G_MISS_NUM)
2997: THEN
2998: x_ael_rec.third_party_id := l_ael_rec.third_party_id;
2999: END IF;
3000: IF (x_ael_rec.third_party_sub_id = Okc_Api.G_MISS_NUM)
2996: IF (x_ael_rec.third_party_id = Okc_Api.G_MISS_NUM)
2997: THEN
2998: x_ael_rec.third_party_id := l_ael_rec.third_party_id;
2999: END IF;
3000: IF (x_ael_rec.third_party_sub_id = Okc_Api.G_MISS_NUM)
3001: THEN
3002: x_ael_rec.third_party_sub_id := l_ael_rec.third_party_sub_id;
3003: END IF;
3004: IF (x_ael_rec.STAT_AMOUNT = Okc_Api.G_MISS_NUM)
3000: IF (x_ael_rec.third_party_sub_id = Okc_Api.G_MISS_NUM)
3001: THEN
3002: x_ael_rec.third_party_sub_id := l_ael_rec.third_party_sub_id;
3003: END IF;
3004: IF (x_ael_rec.STAT_AMOUNT = Okc_Api.G_MISS_NUM)
3005: THEN
3006: x_ael_rec.STAT_AMOUNT := l_ael_rec.STAT_AMOUNT;
3007: END IF;
3008: IF (x_ael_rec.ussgl_transaction_code = Okc_Api.G_MISS_CHAR)
3004: IF (x_ael_rec.STAT_AMOUNT = Okc_Api.G_MISS_NUM)
3005: THEN
3006: x_ael_rec.STAT_AMOUNT := l_ael_rec.STAT_AMOUNT;
3007: END IF;
3008: IF (x_ael_rec.ussgl_transaction_code = Okc_Api.G_MISS_CHAR)
3009: THEN
3010: x_ael_rec.ussgl_transaction_code := l_ael_rec.ussgl_transaction_code;
3011: END IF;
3012: IF (x_ael_rec.subledger_doc_sequence_id = Okc_Api.G_MISS_NUM)
3008: IF (x_ael_rec.ussgl_transaction_code = Okc_Api.G_MISS_CHAR)
3009: THEN
3010: x_ael_rec.ussgl_transaction_code := l_ael_rec.ussgl_transaction_code;
3011: END IF;
3012: IF (x_ael_rec.subledger_doc_sequence_id = Okc_Api.G_MISS_NUM)
3013: THEN
3014: x_ael_rec.subledger_doc_sequence_id := l_ael_rec.subledger_doc_sequence_id;
3015: END IF;
3016: IF (x_ael_rec.accounting_error_code = Okc_Api.G_MISS_CHAR)
3012: IF (x_ael_rec.subledger_doc_sequence_id = Okc_Api.G_MISS_NUM)
3013: THEN
3014: x_ael_rec.subledger_doc_sequence_id := l_ael_rec.subledger_doc_sequence_id;
3015: END IF;
3016: IF (x_ael_rec.accounting_error_code = Okc_Api.G_MISS_CHAR)
3017: THEN
3018: x_ael_rec.accounting_error_code := l_ael_rec.accounting_error_code;
3019: END IF;
3020: IF (x_ael_rec.gl_transfer_error_code = Okc_Api.G_MISS_CHAR)
3016: IF (x_ael_rec.accounting_error_code = Okc_Api.G_MISS_CHAR)
3017: THEN
3018: x_ael_rec.accounting_error_code := l_ael_rec.accounting_error_code;
3019: END IF;
3020: IF (x_ael_rec.gl_transfer_error_code = Okc_Api.G_MISS_CHAR)
3021: THEN
3022: x_ael_rec.gl_transfer_error_code := l_ael_rec.gl_transfer_error_code;
3023: END IF;
3024: IF (x_ael_rec.GL_SL_LINK_ID = Okc_Api.G_MISS_NUM)
3020: IF (x_ael_rec.gl_transfer_error_code = Okc_Api.G_MISS_CHAR)
3021: THEN
3022: x_ael_rec.gl_transfer_error_code := l_ael_rec.gl_transfer_error_code;
3023: END IF;
3024: IF (x_ael_rec.GL_SL_LINK_ID = Okc_Api.G_MISS_NUM)
3025: THEN
3026: x_ael_rec.GL_SL_LINK_ID := l_ael_rec.GL_SL_LINK_ID;
3027: END IF;
3028: IF (x_ael_rec.taxable_ENTERED_DR = Okc_Api.G_MISS_NUM)
3024: IF (x_ael_rec.GL_SL_LINK_ID = Okc_Api.G_MISS_NUM)
3025: THEN
3026: x_ael_rec.GL_SL_LINK_ID := l_ael_rec.GL_SL_LINK_ID;
3027: END IF;
3028: IF (x_ael_rec.taxable_ENTERED_DR = Okc_Api.G_MISS_NUM)
3029: THEN
3030: x_ael_rec.taxable_ENTERED_DR := l_ael_rec.taxable_ENTERED_DR;
3031: END IF;
3032: IF (x_ael_rec.taxable_ENTERED_CR = Okc_Api.G_MISS_NUM)
3028: IF (x_ael_rec.taxable_ENTERED_DR = Okc_Api.G_MISS_NUM)
3029: THEN
3030: x_ael_rec.taxable_ENTERED_DR := l_ael_rec.taxable_ENTERED_DR;
3031: END IF;
3032: IF (x_ael_rec.taxable_ENTERED_CR = Okc_Api.G_MISS_NUM)
3033: THEN
3034: x_ael_rec.taxable_ENTERED_CR := l_ael_rec.taxable_ENTERED_CR;
3035: END IF;
3036: IF (x_ael_rec.taxable_ACCOUNTED_DR = Okc_Api.G_MISS_NUM)
3032: IF (x_ael_rec.taxable_ENTERED_CR = Okc_Api.G_MISS_NUM)
3033: THEN
3034: x_ael_rec.taxable_ENTERED_CR := l_ael_rec.taxable_ENTERED_CR;
3035: END IF;
3036: IF (x_ael_rec.taxable_ACCOUNTED_DR = Okc_Api.G_MISS_NUM)
3037: THEN
3038: x_ael_rec.taxable_ACCOUNTED_DR := l_ael_rec.taxable_ACCOUNTED_DR;
3039: END IF;
3040: IF (x_ael_rec.taxable_ACCOUNTED_CR = Okc_Api.G_MISS_NUM)
3036: IF (x_ael_rec.taxable_ACCOUNTED_DR = Okc_Api.G_MISS_NUM)
3037: THEN
3038: x_ael_rec.taxable_ACCOUNTED_DR := l_ael_rec.taxable_ACCOUNTED_DR;
3039: END IF;
3040: IF (x_ael_rec.taxable_ACCOUNTED_CR = Okc_Api.G_MISS_NUM)
3041: THEN
3042: x_ael_rec.taxable_ACCOUNTED_CR := l_ael_rec.taxable_ACCOUNTED_CR;
3043: END IF;
3044: IF (x_ael_rec.applied_from_trx_hdr_table = Okc_Api.G_MISS_CHAR)
3040: IF (x_ael_rec.taxable_ACCOUNTED_CR = Okc_Api.G_MISS_NUM)
3041: THEN
3042: x_ael_rec.taxable_ACCOUNTED_CR := l_ael_rec.taxable_ACCOUNTED_CR;
3043: END IF;
3044: IF (x_ael_rec.applied_from_trx_hdr_table = Okc_Api.G_MISS_CHAR)
3045: THEN
3046: x_ael_rec.applied_from_trx_hdr_table := l_ael_rec.applied_from_trx_hdr_table;
3047: END IF;
3048: IF (x_ael_rec.applied_from_trx_hdr_id = Okc_Api.G_MISS_NUM)
3044: IF (x_ael_rec.applied_from_trx_hdr_table = Okc_Api.G_MISS_CHAR)
3045: THEN
3046: x_ael_rec.applied_from_trx_hdr_table := l_ael_rec.applied_from_trx_hdr_table;
3047: END IF;
3048: IF (x_ael_rec.applied_from_trx_hdr_id = Okc_Api.G_MISS_NUM)
3049: THEN
3050: x_ael_rec.applied_from_trx_hdr_id := l_ael_rec.applied_from_trx_hdr_id;
3051: END IF;
3052: IF (x_ael_rec.applied_to_trx_hdr_table = Okc_Api.G_MISS_CHAR)
3048: IF (x_ael_rec.applied_from_trx_hdr_id = Okc_Api.G_MISS_NUM)
3049: THEN
3050: x_ael_rec.applied_from_trx_hdr_id := l_ael_rec.applied_from_trx_hdr_id;
3051: END IF;
3052: IF (x_ael_rec.applied_to_trx_hdr_table = Okc_Api.G_MISS_CHAR)
3053: THEN
3054: x_ael_rec.applied_to_trx_hdr_table := l_ael_rec.applied_to_trx_hdr_table;
3055: END IF;
3056: IF (x_ael_rec.applied_to_trx_hdr_id = Okc_Api.G_MISS_NUM)
3052: IF (x_ael_rec.applied_to_trx_hdr_table = Okc_Api.G_MISS_CHAR)
3053: THEN
3054: x_ael_rec.applied_to_trx_hdr_table := l_ael_rec.applied_to_trx_hdr_table;
3055: END IF;
3056: IF (x_ael_rec.applied_to_trx_hdr_id = Okc_Api.G_MISS_NUM)
3057: THEN
3058: x_ael_rec.applied_to_trx_hdr_id := l_ael_rec.applied_to_trx_hdr_id;
3059: END IF;
3060: IF (x_ael_rec.tax_link_id = Okc_Api.G_MISS_NUM)
3056: IF (x_ael_rec.applied_to_trx_hdr_id = Okc_Api.G_MISS_NUM)
3057: THEN
3058: x_ael_rec.applied_to_trx_hdr_id := l_ael_rec.applied_to_trx_hdr_id;
3059: END IF;
3060: IF (x_ael_rec.tax_link_id = Okc_Api.G_MISS_NUM)
3061: THEN
3062: x_ael_rec.tax_link_id := l_ael_rec.tax_link_id;
3063: END IF;
3064: IF (x_ael_rec.program_id = Okc_Api.G_MISS_NUM)
3060: IF (x_ael_rec.tax_link_id = Okc_Api.G_MISS_NUM)
3061: THEN
3062: x_ael_rec.tax_link_id := l_ael_rec.tax_link_id;
3063: END IF;
3064: IF (x_ael_rec.program_id = Okc_Api.G_MISS_NUM)
3065: THEN
3066: x_ael_rec.program_id := l_ael_rec.program_id;
3067: END IF;
3068: IF (x_ael_rec.program_application_id = Okc_Api.G_MISS_NUM)
3064: IF (x_ael_rec.program_id = Okc_Api.G_MISS_NUM)
3065: THEN
3066: x_ael_rec.program_id := l_ael_rec.program_id;
3067: END IF;
3068: IF (x_ael_rec.program_application_id = Okc_Api.G_MISS_NUM)
3069: THEN
3070: x_ael_rec.program_application_id := l_ael_rec.program_application_id;
3071: END IF;
3072: IF (x_ael_rec.program_update_date = Okc_Api.G_MISS_DATE)
3068: IF (x_ael_rec.program_application_id = Okc_Api.G_MISS_NUM)
3069: THEN
3070: x_ael_rec.program_application_id := l_ael_rec.program_application_id;
3071: END IF;
3072: IF (x_ael_rec.program_update_date = Okc_Api.G_MISS_DATE)
3073: THEN
3074: x_ael_rec.program_update_date := l_ael_rec.program_update_date;
3075: END IF;
3076: IF (x_ael_rec.request_id = Okc_Api.G_MISS_NUM)
3072: IF (x_ael_rec.program_update_date = Okc_Api.G_MISS_DATE)
3073: THEN
3074: x_ael_rec.program_update_date := l_ael_rec.program_update_date;
3075: END IF;
3076: IF (x_ael_rec.request_id = Okc_Api.G_MISS_NUM)
3077: THEN
3078: x_ael_rec.request_id := l_ael_rec.request_id;
3079: END IF;
3080: IF (x_ael_rec.created_by = Okc_Api.G_MISS_NUM)
3076: IF (x_ael_rec.request_id = Okc_Api.G_MISS_NUM)
3077: THEN
3078: x_ael_rec.request_id := l_ael_rec.request_id;
3079: END IF;
3080: IF (x_ael_rec.created_by = Okc_Api.G_MISS_NUM)
3081: THEN
3082: x_ael_rec.created_by := l_ael_rec.created_by;
3083: END IF;
3084: IF (x_ael_rec.creation_date = Okc_Api.G_MISS_DATE)
3080: IF (x_ael_rec.created_by = Okc_Api.G_MISS_NUM)
3081: THEN
3082: x_ael_rec.created_by := l_ael_rec.created_by;
3083: END IF;
3084: IF (x_ael_rec.creation_date = Okc_Api.G_MISS_DATE)
3085: THEN
3086: x_ael_rec.creation_date := l_ael_rec.creation_date;
3087: END IF;
3088: IF (x_ael_rec.last_updated_by = Okc_Api.G_MISS_NUM)
3084: IF (x_ael_rec.creation_date = Okc_Api.G_MISS_DATE)
3085: THEN
3086: x_ael_rec.creation_date := l_ael_rec.creation_date;
3087: END IF;
3088: IF (x_ael_rec.last_updated_by = Okc_Api.G_MISS_NUM)
3089: THEN
3090: x_ael_rec.last_updated_by := l_ael_rec.last_updated_by;
3091: END IF;
3092: IF (x_ael_rec.last_update_date = Okc_Api.G_MISS_DATE)
3088: IF (x_ael_rec.last_updated_by = Okc_Api.G_MISS_NUM)
3089: THEN
3090: x_ael_rec.last_updated_by := l_ael_rec.last_updated_by;
3091: END IF;
3092: IF (x_ael_rec.last_update_date = Okc_Api.G_MISS_DATE)
3093: THEN
3094: x_ael_rec.last_update_date := l_ael_rec.last_update_date;
3095: END IF;
3096: IF (x_ael_rec.last_update_login = Okc_Api.G_MISS_NUM)
3092: IF (x_ael_rec.last_update_date = Okc_Api.G_MISS_DATE)
3093: THEN
3094: x_ael_rec.last_update_date := l_ael_rec.last_update_date;
3095: END IF;
3096: IF (x_ael_rec.last_update_login = Okc_Api.G_MISS_NUM)
3097: THEN
3098: x_ael_rec.last_update_login := l_ael_rec.last_update_login;
3099: END IF;
3100: IF (x_ael_rec.ACCOUNT_OVERLAY_SOURCE_ID = Okc_Api.G_MISS_NUM)
3096: IF (x_ael_rec.last_update_login = Okc_Api.G_MISS_NUM)
3097: THEN
3098: x_ael_rec.last_update_login := l_ael_rec.last_update_login;
3099: END IF;
3100: IF (x_ael_rec.ACCOUNT_OVERLAY_SOURCE_ID = Okc_Api.G_MISS_NUM)
3101: THEN
3102: x_ael_rec.ACCOUNT_OVERLAY_SOURCE_ID := l_ael_rec.ACCOUNT_OVERLAY_SOURCE_ID;
3103: END IF;
3104: IF (x_ael_rec.SUBLEDGER_DOC_SEQUENCE_VALUE = Okc_Api.G_MISS_NUM)
3100: IF (x_ael_rec.ACCOUNT_OVERLAY_SOURCE_ID = Okc_Api.G_MISS_NUM)
3101: THEN
3102: x_ael_rec.ACCOUNT_OVERLAY_SOURCE_ID := l_ael_rec.ACCOUNT_OVERLAY_SOURCE_ID;
3103: END IF;
3104: IF (x_ael_rec.SUBLEDGER_DOC_SEQUENCE_VALUE = Okc_Api.G_MISS_NUM)
3105: THEN
3106: x_ael_rec.SUBLEDGER_DOC_SEQUENCE_VALUE := l_ael_rec.SUBLEDGER_DOC_SEQUENCE_VALUE;
3107: END IF;
3108: IF (x_ael_rec.TAX_CODE_ID = Okc_Api.G_MISS_NUM)
3104: IF (x_ael_rec.SUBLEDGER_DOC_SEQUENCE_VALUE = Okc_Api.G_MISS_NUM)
3105: THEN
3106: x_ael_rec.SUBLEDGER_DOC_SEQUENCE_VALUE := l_ael_rec.SUBLEDGER_DOC_SEQUENCE_VALUE;
3107: END IF;
3108: IF (x_ael_rec.TAX_CODE_ID = Okc_Api.G_MISS_NUM)
3109: THEN
3110: x_ael_rec.TAX_CODE_ID := l_ael_rec.TAX_CODE_ID;
3111: END IF;
3112: RETURN(l_return_status);
3117: FUNCTION Set_Attributes (
3118: p_ael_rec IN ael_rec_type,
3119: x_ael_rec OUT NOCOPY ael_rec_type
3120: ) RETURN VARCHAR2 IS
3121: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3122: BEGIN
3123: x_ael_rec := p_ael_rec;
3124: RETURN(l_return_status);
3125: END Set_Attributes;
3123: x_ael_rec := p_ael_rec;
3124: RETURN(l_return_status);
3125: END Set_Attributes;
3126: BEGIN
3127: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
3128: p_init_msg_list,
3129: '_PVT',
3130: x_return_status);
3131: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3127: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
3128: p_init_msg_list,
3129: '_PVT',
3130: x_return_status);
3131: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3132: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3133: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3134: RAISE Okc_Api.G_EXCEPTION_ERROR;
3135: END IF;
3128: p_init_msg_list,
3129: '_PVT',
3130: x_return_status);
3131: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3132: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3133: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3134: RAISE Okc_Api.G_EXCEPTION_ERROR;
3135: END IF;
3136: --- Setting item attributes
3129: '_PVT',
3130: x_return_status);
3131: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3132: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3133: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3134: RAISE Okc_Api.G_EXCEPTION_ERROR;
3135: END IF;
3136: --- Setting item attributes
3137: l_return_status := Set_Attributes(
3130: x_return_status);
3131: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3132: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3133: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3134: RAISE Okc_Api.G_EXCEPTION_ERROR;
3135: END IF;
3136: --- Setting item attributes
3137: l_return_status := Set_Attributes(
3138: p_ael_rec, -- IN
3137: l_return_status := Set_Attributes(
3138: p_ael_rec, -- IN
3139: l_ael_rec); -- OUT
3140: --- If any errors happen abort API
3141: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3142: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3143: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3144: RAISE Okc_Api.G_EXCEPTION_ERROR;
3145: END IF;
3138: p_ael_rec, -- IN
3139: l_ael_rec); -- OUT
3140: --- If any errors happen abort API
3141: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3142: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3143: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3144: RAISE Okc_Api.G_EXCEPTION_ERROR;
3145: END IF;
3146: l_return_status := populate_new_record(l_ael_rec, l_def_ael_rec);
3139: l_ael_rec); -- OUT
3140: --- If any errors happen abort API
3141: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3142: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3143: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3144: RAISE Okc_Api.G_EXCEPTION_ERROR;
3145: END IF;
3146: l_return_status := populate_new_record(l_ael_rec, l_def_ael_rec);
3147: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3140: --- If any errors happen abort API
3141: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3142: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3143: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3144: RAISE Okc_Api.G_EXCEPTION_ERROR;
3145: END IF;
3146: l_return_status := populate_new_record(l_ael_rec, l_def_ael_rec);
3147: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3148: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3143: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3144: RAISE Okc_Api.G_EXCEPTION_ERROR;
3145: END IF;
3146: l_return_status := populate_new_record(l_ael_rec, l_def_ael_rec);
3147: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3148: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3149: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3150: RAISE Okc_Api.G_EXCEPTION_ERROR;
3151: END IF;
3144: RAISE Okc_Api.G_EXCEPTION_ERROR;
3145: END IF;
3146: l_return_status := populate_new_record(l_ael_rec, l_def_ael_rec);
3147: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3148: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3149: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3150: RAISE Okc_Api.G_EXCEPTION_ERROR;
3151: END IF;
3152: UPDATE OKL_AE_LINES
3145: END IF;
3146: l_return_status := populate_new_record(l_ael_rec, l_def_ael_rec);
3147: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3148: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3149: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3150: RAISE Okc_Api.G_EXCEPTION_ERROR;
3151: END IF;
3152: UPDATE OKL_AE_LINES
3153: SET CODE_COMBINATION_ID = l_def_ael_rec.code_combination_id,
3146: l_return_status := populate_new_record(l_ael_rec, l_def_ael_rec);
3147: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3148: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3149: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3150: RAISE Okc_Api.G_EXCEPTION_ERROR;
3151: END IF;
3152: UPDATE OKL_AE_LINES
3153: SET CODE_COMBINATION_ID = l_def_ael_rec.code_combination_id,
3154: AE_HEADER_ID = l_def_ael_rec.AE_HEADER_ID,
3208: TAX_CODE_ID = l_def_ael_rec.TAX_CODE_ID
3209: WHERE ae_line_id = l_def_ael_rec.ae_line_id;
3210:
3211: x_ael_rec := l_def_ael_rec;
3212: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3213: EXCEPTION
3214: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
3215: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3216: (
3210:
3211: x_ael_rec := l_def_ael_rec;
3212: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3213: EXCEPTION
3214: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
3215: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3216: (
3217: l_api_name,
3218: G_PKG_NAME,
3211: x_ael_rec := l_def_ael_rec;
3212: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3213: EXCEPTION
3214: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
3215: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3216: (
3217: l_api_name,
3218: G_PKG_NAME,
3219: 'OKC_API.G_RET_STS_ERROR',
3215: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3216: (
3217: l_api_name,
3218: G_PKG_NAME,
3219: 'OKC_API.G_RET_STS_ERROR',
3220: x_msg_count,
3221: x_msg_data,
3222: '_PVT'
3223: );
3220: x_msg_count,
3221: x_msg_data,
3222: '_PVT'
3223: );
3224: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3225: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
3226: (
3227: l_api_name,
3228: G_PKG_NAME,
3221: x_msg_data,
3222: '_PVT'
3223: );
3224: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3225: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
3226: (
3227: l_api_name,
3228: G_PKG_NAME,
3229: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3225: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
3226: (
3227: l_api_name,
3228: G_PKG_NAME,
3229: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3230: x_msg_count,
3231: x_msg_data,
3232: '_PVT'
3233: );
3231: x_msg_data,
3232: '_PVT'
3233: );
3234: WHEN OTHERS THEN
3235: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
3236: (
3237: l_api_name,
3238: G_PKG_NAME,
3239: 'OTHERS',
3246: -- update_row for:OKL_AE_LINES_V --
3247: -----------------------------------
3248: PROCEDURE update_row(
3249: p_api_version IN NUMBER,
3250: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
3251: x_return_status OUT NOCOPY VARCHAR2,
3252: x_msg_count OUT NOCOPY NUMBER,
3253: x_msg_data OUT NOCOPY VARCHAR2,
3254: p_aelv_rec IN aelv_rec_type,
3255: x_aelv_rec OUT NOCOPY aelv_rec_type) IS
3256:
3257: l_api_version CONSTANT NUMBER := 1;
3258: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
3259: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3260: l_aelv_rec aelv_rec_type := p_aelv_rec;
3261: l_def_aelv_rec aelv_rec_type;
3262: l_ael_rec ael_rec_type;
3263: lx_ael_rec ael_rec_type;
3282: x_aelv_rec OUT NOCOPY aelv_rec_type
3283: ) RETURN VARCHAR2 IS
3284: l_aelv_rec aelv_rec_type;
3285: l_row_notfound BOOLEAN := TRUE;
3286: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3287: BEGIN
3288: x_aelv_rec := p_aelv_rec;
3289: -- Get current database values
3290: l_aelv_rec := get_rec(p_aelv_rec, l_row_notfound);
3288: x_aelv_rec := p_aelv_rec;
3289: -- Get current database values
3290: l_aelv_rec := get_rec(p_aelv_rec, l_row_notfound);
3291: IF (l_row_notfound) THEN
3292: l_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
3293: END IF;
3294: IF (x_aelv_rec.ae_line_id = Okc_Api.G_MISS_NUM)
3295: THEN
3296: x_aelv_rec.ae_line_id := l_aelv_rec.ae_line_id;
3290: l_aelv_rec := get_rec(p_aelv_rec, l_row_notfound);
3291: IF (l_row_notfound) THEN
3292: l_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
3293: END IF;
3294: IF (x_aelv_rec.ae_line_id = Okc_Api.G_MISS_NUM)
3295: THEN
3296: x_aelv_rec.ae_line_id := l_aelv_rec.ae_line_id;
3297: END IF;
3298: IF (x_aelv_rec.object_version_number = Okc_Api.G_MISS_NUM)
3294: IF (x_aelv_rec.ae_line_id = Okc_Api.G_MISS_NUM)
3295: THEN
3296: x_aelv_rec.ae_line_id := l_aelv_rec.ae_line_id;
3297: END IF;
3298: IF (x_aelv_rec.object_version_number = Okc_Api.G_MISS_NUM)
3299: THEN
3300: x_aelv_rec.object_version_number := l_aelv_rec.object_version_number;
3301: END IF;
3302: IF (x_aelv_rec.AE_HEADER_ID = Okc_Api.G_MISS_NUM)
3298: IF (x_aelv_rec.object_version_number = Okc_Api.G_MISS_NUM)
3299: THEN
3300: x_aelv_rec.object_version_number := l_aelv_rec.object_version_number;
3301: END IF;
3302: IF (x_aelv_rec.AE_HEADER_ID = Okc_Api.G_MISS_NUM)
3303: THEN
3304: x_aelv_rec.AE_HEADER_ID := l_aelv_rec.AE_HEADER_ID;
3305: END IF;
3306: IF (x_aelv_rec.currency_conversion_type = Okc_Api.G_MISS_CHAR)
3302: IF (x_aelv_rec.AE_HEADER_ID = Okc_Api.G_MISS_NUM)
3303: THEN
3304: x_aelv_rec.AE_HEADER_ID := l_aelv_rec.AE_HEADER_ID;
3305: END IF;
3306: IF (x_aelv_rec.currency_conversion_type = Okc_Api.G_MISS_CHAR)
3307: THEN
3308: x_aelv_rec.currency_conversion_type := l_aelv_rec.currency_conversion_type;
3309: END IF;
3310: IF (x_aelv_rec.code_combination_id = Okc_Api.G_MISS_NUM)
3306: IF (x_aelv_rec.currency_conversion_type = Okc_Api.G_MISS_CHAR)
3307: THEN
3308: x_aelv_rec.currency_conversion_type := l_aelv_rec.currency_conversion_type;
3309: END IF;
3310: IF (x_aelv_rec.code_combination_id = Okc_Api.G_MISS_NUM)
3311: THEN
3312: x_aelv_rec.code_combination_id := l_aelv_rec.code_combination_id;
3313: END IF;
3314: IF (x_aelv_rec.org_id = Okc_Api.G_MISS_NUM)
3310: IF (x_aelv_rec.code_combination_id = Okc_Api.G_MISS_NUM)
3311: THEN
3312: x_aelv_rec.code_combination_id := l_aelv_rec.code_combination_id;
3313: END IF;
3314: IF (x_aelv_rec.org_id = Okc_Api.G_MISS_NUM)
3315: THEN
3316: x_aelv_rec.org_id := l_aelv_rec.org_id;
3317: END IF;
3318: IF (x_aelv_rec.AE_LINE_NUMBER = Okc_Api.G_MISS_NUM)
3314: IF (x_aelv_rec.org_id = Okc_Api.G_MISS_NUM)
3315: THEN
3316: x_aelv_rec.org_id := l_aelv_rec.org_id;
3317: END IF;
3318: IF (x_aelv_rec.AE_LINE_NUMBER = Okc_Api.G_MISS_NUM)
3319: THEN
3320: x_aelv_rec.AE_LINE_NUMBER := l_aelv_rec.AE_LINE_NUMBER;
3321: END IF;
3322: IF (x_aelv_rec.AE_LINE_TYPE_CODE = Okc_Api.G_MISS_CHAR)
3318: IF (x_aelv_rec.AE_LINE_NUMBER = Okc_Api.G_MISS_NUM)
3319: THEN
3320: x_aelv_rec.AE_LINE_NUMBER := l_aelv_rec.AE_LINE_NUMBER;
3321: END IF;
3322: IF (x_aelv_rec.AE_LINE_TYPE_CODE = Okc_Api.G_MISS_CHAR)
3323: THEN
3324: x_aelv_rec.AE_LINE_TYPE_CODE := l_aelv_rec.AE_LINE_TYPE_CODE;
3325: END IF;
3326: IF (x_aelv_rec.currency_conversion_date = Okc_Api.G_MISS_DATE)
3322: IF (x_aelv_rec.AE_LINE_TYPE_CODE = Okc_Api.G_MISS_CHAR)
3323: THEN
3324: x_aelv_rec.AE_LINE_TYPE_CODE := l_aelv_rec.AE_LINE_TYPE_CODE;
3325: END IF;
3326: IF (x_aelv_rec.currency_conversion_date = Okc_Api.G_MISS_DATE)
3327: THEN
3328: x_aelv_rec.currency_conversion_date := l_aelv_rec.currency_conversion_date;
3329: END IF;
3330: IF (x_aelv_rec.currency_conversion_rate = Okc_Api.G_MISS_NUM)
3326: IF (x_aelv_rec.currency_conversion_date = Okc_Api.G_MISS_DATE)
3327: THEN
3328: x_aelv_rec.currency_conversion_date := l_aelv_rec.currency_conversion_date;
3329: END IF;
3330: IF (x_aelv_rec.currency_conversion_rate = Okc_Api.G_MISS_NUM)
3331: THEN
3332: x_aelv_rec.currency_conversion_rate := l_aelv_rec.currency_conversion_rate;
3333: END IF;
3334: IF (x_aelv_rec.ENTERED_DR = Okc_Api.G_MISS_NUM)
3330: IF (x_aelv_rec.currency_conversion_rate = Okc_Api.G_MISS_NUM)
3331: THEN
3332: x_aelv_rec.currency_conversion_rate := l_aelv_rec.currency_conversion_rate;
3333: END IF;
3334: IF (x_aelv_rec.ENTERED_DR = Okc_Api.G_MISS_NUM)
3335: THEN
3336: x_aelv_rec.ENTERED_DR := l_aelv_rec.ENTERED_DR;
3337: END IF;
3338: IF (x_aelv_rec.ENTERED_CR = Okc_Api.G_MISS_NUM)
3334: IF (x_aelv_rec.ENTERED_DR = Okc_Api.G_MISS_NUM)
3335: THEN
3336: x_aelv_rec.ENTERED_DR := l_aelv_rec.ENTERED_DR;
3337: END IF;
3338: IF (x_aelv_rec.ENTERED_CR = Okc_Api.G_MISS_NUM)
3339: THEN
3340: x_aelv_rec.ENTERED_CR := l_aelv_rec.ENTERED_CR;
3341: END IF;
3342: IF (x_aelv_rec.ACCOUNTED_DR = Okc_Api.G_MISS_NUM)
3338: IF (x_aelv_rec.ENTERED_CR = Okc_Api.G_MISS_NUM)
3339: THEN
3340: x_aelv_rec.ENTERED_CR := l_aelv_rec.ENTERED_CR;
3341: END IF;
3342: IF (x_aelv_rec.ACCOUNTED_DR = Okc_Api.G_MISS_NUM)
3343: THEN
3344: x_aelv_rec.ACCOUNTED_DR := l_aelv_rec.ACCOUNTED_DR;
3345: END IF;
3346: IF (x_aelv_rec.ACCOUNTED_CR = Okc_Api.G_MISS_NUM)
3342: IF (x_aelv_rec.ACCOUNTED_DR = Okc_Api.G_MISS_NUM)
3343: THEN
3344: x_aelv_rec.ACCOUNTED_DR := l_aelv_rec.ACCOUNTED_DR;
3345: END IF;
3346: IF (x_aelv_rec.ACCOUNTED_CR = Okc_Api.G_MISS_NUM)
3347: THEN
3348: x_aelv_rec.ACCOUNTED_CR := l_aelv_rec.ACCOUNTED_CR;
3349: END IF;
3350: IF (x_aelv_rec.source_table = Okc_Api.G_MISS_CHAR)
3346: IF (x_aelv_rec.ACCOUNTED_CR = Okc_Api.G_MISS_NUM)
3347: THEN
3348: x_aelv_rec.ACCOUNTED_CR := l_aelv_rec.ACCOUNTED_CR;
3349: END IF;
3350: IF (x_aelv_rec.source_table = Okc_Api.G_MISS_CHAR)
3351: THEN
3352: x_aelv_rec.source_table := l_aelv_rec.source_table;
3353: END IF;
3354: IF (x_aelv_rec.source_id = Okc_Api.G_MISS_NUM)
3350: IF (x_aelv_rec.source_table = Okc_Api.G_MISS_CHAR)
3351: THEN
3352: x_aelv_rec.source_table := l_aelv_rec.source_table;
3353: END IF;
3354: IF (x_aelv_rec.source_id = Okc_Api.G_MISS_NUM)
3355: THEN
3356: x_aelv_rec.source_id := l_aelv_rec.source_id;
3357: END IF;
3358: IF (x_aelv_rec.reference1 = Okc_Api.G_MISS_CHAR)
3354: IF (x_aelv_rec.source_id = Okc_Api.G_MISS_NUM)
3355: THEN
3356: x_aelv_rec.source_id := l_aelv_rec.source_id;
3357: END IF;
3358: IF (x_aelv_rec.reference1 = Okc_Api.G_MISS_CHAR)
3359: THEN
3360: x_aelv_rec.reference1 := l_aelv_rec.reference1;
3361: END IF;
3362: IF (x_aelv_rec.reference2 = Okc_Api.G_MISS_CHAR)
3358: IF (x_aelv_rec.reference1 = Okc_Api.G_MISS_CHAR)
3359: THEN
3360: x_aelv_rec.reference1 := l_aelv_rec.reference1;
3361: END IF;
3362: IF (x_aelv_rec.reference2 = Okc_Api.G_MISS_CHAR)
3363: THEN
3364: x_aelv_rec.reference2 := l_aelv_rec.reference2;
3365: END IF;
3366: IF (x_aelv_rec.reference3 = Okc_Api.G_MISS_CHAR)
3362: IF (x_aelv_rec.reference2 = Okc_Api.G_MISS_CHAR)
3363: THEN
3364: x_aelv_rec.reference2 := l_aelv_rec.reference2;
3365: END IF;
3366: IF (x_aelv_rec.reference3 = Okc_Api.G_MISS_CHAR)
3367: THEN
3368: x_aelv_rec.reference3 := l_aelv_rec.reference3;
3369: END IF;
3370: IF (x_aelv_rec.reference4 = Okc_Api.G_MISS_CHAR)
3366: IF (x_aelv_rec.reference3 = Okc_Api.G_MISS_CHAR)
3367: THEN
3368: x_aelv_rec.reference3 := l_aelv_rec.reference3;
3369: END IF;
3370: IF (x_aelv_rec.reference4 = Okc_Api.G_MISS_CHAR)
3371: THEN
3372: x_aelv_rec.reference4 := l_aelv_rec.reference4;
3373: END IF;
3374: IF (x_aelv_rec.reference5 = Okc_Api.G_MISS_CHAR)
3370: IF (x_aelv_rec.reference4 = Okc_Api.G_MISS_CHAR)
3371: THEN
3372: x_aelv_rec.reference4 := l_aelv_rec.reference4;
3373: END IF;
3374: IF (x_aelv_rec.reference5 = Okc_Api.G_MISS_CHAR)
3375: THEN
3376: x_aelv_rec.reference5 := l_aelv_rec.reference5;
3377: END IF;
3378: IF (x_aelv_rec.reference6 = Okc_Api.G_MISS_CHAR)
3374: IF (x_aelv_rec.reference5 = Okc_Api.G_MISS_CHAR)
3375: THEN
3376: x_aelv_rec.reference5 := l_aelv_rec.reference5;
3377: END IF;
3378: IF (x_aelv_rec.reference6 = Okc_Api.G_MISS_CHAR)
3379: THEN
3380: x_aelv_rec.reference6 := l_aelv_rec.reference6;
3381: END IF;
3382: IF (x_aelv_rec.reference7 = Okc_Api.G_MISS_CHAR)
3378: IF (x_aelv_rec.reference6 = Okc_Api.G_MISS_CHAR)
3379: THEN
3380: x_aelv_rec.reference6 := l_aelv_rec.reference6;
3381: END IF;
3382: IF (x_aelv_rec.reference7 = Okc_Api.G_MISS_CHAR)
3383: THEN
3384: x_aelv_rec.reference7 := l_aelv_rec.reference7;
3385: END IF;
3386: IF (x_aelv_rec.reference8 = Okc_Api.G_MISS_CHAR)
3382: IF (x_aelv_rec.reference7 = Okc_Api.G_MISS_CHAR)
3383: THEN
3384: x_aelv_rec.reference7 := l_aelv_rec.reference7;
3385: END IF;
3386: IF (x_aelv_rec.reference8 = Okc_Api.G_MISS_CHAR)
3387: THEN
3388: x_aelv_rec.reference8 := l_aelv_rec.reference8;
3389: END IF;
3390: IF (x_aelv_rec.reference9 = Okc_Api.G_MISS_CHAR)
3386: IF (x_aelv_rec.reference8 = Okc_Api.G_MISS_CHAR)
3387: THEN
3388: x_aelv_rec.reference8 := l_aelv_rec.reference8;
3389: END IF;
3390: IF (x_aelv_rec.reference9 = Okc_Api.G_MISS_CHAR)
3391: THEN
3392: x_aelv_rec.reference9 := l_aelv_rec.reference9;
3393: END IF;
3394: IF (x_aelv_rec.reference10 = Okc_Api.G_MISS_CHAR)
3390: IF (x_aelv_rec.reference9 = Okc_Api.G_MISS_CHAR)
3391: THEN
3392: x_aelv_rec.reference9 := l_aelv_rec.reference9;
3393: END IF;
3394: IF (x_aelv_rec.reference10 = Okc_Api.G_MISS_CHAR)
3395: THEN
3396: x_aelv_rec.reference10 := l_aelv_rec.reference10;
3397: END IF;
3398: IF (x_aelv_rec.description = Okc_Api.G_MISS_CHAR)
3394: IF (x_aelv_rec.reference10 = Okc_Api.G_MISS_CHAR)
3395: THEN
3396: x_aelv_rec.reference10 := l_aelv_rec.reference10;
3397: END IF;
3398: IF (x_aelv_rec.description = Okc_Api.G_MISS_CHAR)
3399: THEN
3400: x_aelv_rec.description := l_aelv_rec.description;
3401: END IF;
3402: IF (x_aelv_rec.third_party_id = Okc_Api.G_MISS_NUM)
3398: IF (x_aelv_rec.description = Okc_Api.G_MISS_CHAR)
3399: THEN
3400: x_aelv_rec.description := l_aelv_rec.description;
3401: END IF;
3402: IF (x_aelv_rec.third_party_id = Okc_Api.G_MISS_NUM)
3403: THEN
3404: x_aelv_rec.third_party_id := l_aelv_rec.third_party_id;
3405: END IF;
3406: IF (x_aelv_rec.third_party_sub_id = Okc_Api.G_MISS_NUM)
3402: IF (x_aelv_rec.third_party_id = Okc_Api.G_MISS_NUM)
3403: THEN
3404: x_aelv_rec.third_party_id := l_aelv_rec.third_party_id;
3405: END IF;
3406: IF (x_aelv_rec.third_party_sub_id = Okc_Api.G_MISS_NUM)
3407: THEN
3408: x_aelv_rec.third_party_sub_id := l_aelv_rec.third_party_sub_id;
3409: END IF;
3410: IF (x_aelv_rec.STAT_AMOUNT = Okc_Api.G_MISS_NUM)
3406: IF (x_aelv_rec.third_party_sub_id = Okc_Api.G_MISS_NUM)
3407: THEN
3408: x_aelv_rec.third_party_sub_id := l_aelv_rec.third_party_sub_id;
3409: END IF;
3410: IF (x_aelv_rec.STAT_AMOUNT = Okc_Api.G_MISS_NUM)
3411: THEN
3412: x_aelv_rec.STAT_AMOUNT := l_aelv_rec.STAT_AMOUNT;
3413: END IF;
3414: IF (x_aelv_rec.ussgl_transaction_code = Okc_Api.G_MISS_CHAR)
3410: IF (x_aelv_rec.STAT_AMOUNT = Okc_Api.G_MISS_NUM)
3411: THEN
3412: x_aelv_rec.STAT_AMOUNT := l_aelv_rec.STAT_AMOUNT;
3413: END IF;
3414: IF (x_aelv_rec.ussgl_transaction_code = Okc_Api.G_MISS_CHAR)
3415: THEN
3416: x_aelv_rec.ussgl_transaction_code := l_aelv_rec.ussgl_transaction_code;
3417: END IF;
3418: IF (x_aelv_rec.subledger_doc_sequence_id = Okc_Api.G_MISS_NUM)
3414: IF (x_aelv_rec.ussgl_transaction_code = Okc_Api.G_MISS_CHAR)
3415: THEN
3416: x_aelv_rec.ussgl_transaction_code := l_aelv_rec.ussgl_transaction_code;
3417: END IF;
3418: IF (x_aelv_rec.subledger_doc_sequence_id = Okc_Api.G_MISS_NUM)
3419: THEN
3420: x_aelv_rec.subledger_doc_sequence_id := l_aelv_rec.subledger_doc_sequence_id;
3421: END IF;
3422: IF (x_aelv_rec.accounting_error_code = Okc_Api.G_MISS_CHAR)
3418: IF (x_aelv_rec.subledger_doc_sequence_id = Okc_Api.G_MISS_NUM)
3419: THEN
3420: x_aelv_rec.subledger_doc_sequence_id := l_aelv_rec.subledger_doc_sequence_id;
3421: END IF;
3422: IF (x_aelv_rec.accounting_error_code = Okc_Api.G_MISS_CHAR)
3423: THEN
3424: x_aelv_rec.accounting_error_code := l_aelv_rec.accounting_error_code;
3425: END IF;
3426: IF (x_aelv_rec.gl_transfer_error_code = Okc_Api.G_MISS_CHAR)
3422: IF (x_aelv_rec.accounting_error_code = Okc_Api.G_MISS_CHAR)
3423: THEN
3424: x_aelv_rec.accounting_error_code := l_aelv_rec.accounting_error_code;
3425: END IF;
3426: IF (x_aelv_rec.gl_transfer_error_code = Okc_Api.G_MISS_CHAR)
3427: THEN
3428: x_aelv_rec.gl_transfer_error_code := l_aelv_rec.gl_transfer_error_code;
3429: END IF;
3430: IF (x_aelv_rec.GL_SL_LINK_ID = Okc_Api.G_MISS_NUM)
3426: IF (x_aelv_rec.gl_transfer_error_code = Okc_Api.G_MISS_CHAR)
3427: THEN
3428: x_aelv_rec.gl_transfer_error_code := l_aelv_rec.gl_transfer_error_code;
3429: END IF;
3430: IF (x_aelv_rec.GL_SL_LINK_ID = Okc_Api.G_MISS_NUM)
3431: THEN
3432: x_aelv_rec.GL_SL_LINK_ID := l_aelv_rec.GL_SL_LINK_ID;
3433: END IF;
3434: IF (x_aelv_rec.taxable_ENTERED_DR = Okc_Api.G_MISS_NUM)
3430: IF (x_aelv_rec.GL_SL_LINK_ID = Okc_Api.G_MISS_NUM)
3431: THEN
3432: x_aelv_rec.GL_SL_LINK_ID := l_aelv_rec.GL_SL_LINK_ID;
3433: END IF;
3434: IF (x_aelv_rec.taxable_ENTERED_DR = Okc_Api.G_MISS_NUM)
3435: THEN
3436: x_aelv_rec.taxable_ENTERED_DR := l_aelv_rec.taxable_ENTERED_DR;
3437: END IF;
3438: IF (x_aelv_rec.taxable_ENTERED_CR = Okc_Api.G_MISS_NUM)
3434: IF (x_aelv_rec.taxable_ENTERED_DR = Okc_Api.G_MISS_NUM)
3435: THEN
3436: x_aelv_rec.taxable_ENTERED_DR := l_aelv_rec.taxable_ENTERED_DR;
3437: END IF;
3438: IF (x_aelv_rec.taxable_ENTERED_CR = Okc_Api.G_MISS_NUM)
3439: THEN
3440: x_aelv_rec.taxable_ENTERED_CR := l_aelv_rec.taxable_ENTERED_CR;
3441: END IF;
3442: IF (x_aelv_rec.taxable_ACCOUNTED_DR = Okc_Api.G_MISS_NUM)
3438: IF (x_aelv_rec.taxable_ENTERED_CR = Okc_Api.G_MISS_NUM)
3439: THEN
3440: x_aelv_rec.taxable_ENTERED_CR := l_aelv_rec.taxable_ENTERED_CR;
3441: END IF;
3442: IF (x_aelv_rec.taxable_ACCOUNTED_DR = Okc_Api.G_MISS_NUM)
3443: THEN
3444: x_aelv_rec.taxable_ACCOUNTED_DR := l_aelv_rec.taxable_ACCOUNTED_DR;
3445: END IF;
3446: IF (x_aelv_rec.taxable_ACCOUNTED_CR = Okc_Api.G_MISS_NUM)
3442: IF (x_aelv_rec.taxable_ACCOUNTED_DR = Okc_Api.G_MISS_NUM)
3443: THEN
3444: x_aelv_rec.taxable_ACCOUNTED_DR := l_aelv_rec.taxable_ACCOUNTED_DR;
3445: END IF;
3446: IF (x_aelv_rec.taxable_ACCOUNTED_CR = Okc_Api.G_MISS_NUM)
3447: THEN
3448: x_aelv_rec.taxable_ACCOUNTED_CR := l_aelv_rec.taxable_ACCOUNTED_CR;
3449: END IF;
3450: IF (x_aelv_rec.applied_from_trx_hdr_table = Okc_Api.G_MISS_CHAR)
3446: IF (x_aelv_rec.taxable_ACCOUNTED_CR = Okc_Api.G_MISS_NUM)
3447: THEN
3448: x_aelv_rec.taxable_ACCOUNTED_CR := l_aelv_rec.taxable_ACCOUNTED_CR;
3449: END IF;
3450: IF (x_aelv_rec.applied_from_trx_hdr_table = Okc_Api.G_MISS_CHAR)
3451: THEN
3452: x_aelv_rec.applied_from_trx_hdr_table := l_aelv_rec.applied_from_trx_hdr_table;
3453: END IF;
3454: IF (x_aelv_rec.applied_from_trx_hdr_id = Okc_Api.G_MISS_NUM)
3450: IF (x_aelv_rec.applied_from_trx_hdr_table = Okc_Api.G_MISS_CHAR)
3451: THEN
3452: x_aelv_rec.applied_from_trx_hdr_table := l_aelv_rec.applied_from_trx_hdr_table;
3453: END IF;
3454: IF (x_aelv_rec.applied_from_trx_hdr_id = Okc_Api.G_MISS_NUM)
3455: THEN
3456: x_aelv_rec.applied_from_trx_hdr_id := l_aelv_rec.applied_from_trx_hdr_id;
3457: END IF;
3458: IF (x_aelv_rec.applied_to_trx_hdr_table = Okc_Api.G_MISS_CHAR)
3454: IF (x_aelv_rec.applied_from_trx_hdr_id = Okc_Api.G_MISS_NUM)
3455: THEN
3456: x_aelv_rec.applied_from_trx_hdr_id := l_aelv_rec.applied_from_trx_hdr_id;
3457: END IF;
3458: IF (x_aelv_rec.applied_to_trx_hdr_table = Okc_Api.G_MISS_CHAR)
3459: THEN
3460: x_aelv_rec.applied_to_trx_hdr_table := l_aelv_rec.applied_to_trx_hdr_table;
3461: END IF;
3462: IF (x_aelv_rec.applied_to_trx_hdr_id = Okc_Api.G_MISS_NUM)
3458: IF (x_aelv_rec.applied_to_trx_hdr_table = Okc_Api.G_MISS_CHAR)
3459: THEN
3460: x_aelv_rec.applied_to_trx_hdr_table := l_aelv_rec.applied_to_trx_hdr_table;
3461: END IF;
3462: IF (x_aelv_rec.applied_to_trx_hdr_id = Okc_Api.G_MISS_NUM)
3463: THEN
3464: x_aelv_rec.applied_to_trx_hdr_id := l_aelv_rec.applied_to_trx_hdr_id;
3465: END IF;
3466: IF (x_aelv_rec.tax_link_id = Okc_Api.G_MISS_NUM)
3462: IF (x_aelv_rec.applied_to_trx_hdr_id = Okc_Api.G_MISS_NUM)
3463: THEN
3464: x_aelv_rec.applied_to_trx_hdr_id := l_aelv_rec.applied_to_trx_hdr_id;
3465: END IF;
3466: IF (x_aelv_rec.tax_link_id = Okc_Api.G_MISS_NUM)
3467: THEN
3468: x_aelv_rec.tax_link_id := l_aelv_rec.tax_link_id;
3469: END IF;
3470: IF (x_aelv_rec.currency_code = Okc_Api.G_MISS_CHAR)
3466: IF (x_aelv_rec.tax_link_id = Okc_Api.G_MISS_NUM)
3467: THEN
3468: x_aelv_rec.tax_link_id := l_aelv_rec.tax_link_id;
3469: END IF;
3470: IF (x_aelv_rec.currency_code = Okc_Api.G_MISS_CHAR)
3471: THEN
3472: x_aelv_rec.currency_code := l_aelv_rec.currency_code;
3473: END IF;
3474: IF (x_aelv_rec.program_id = Okc_Api.G_MISS_NUM)
3470: IF (x_aelv_rec.currency_code = Okc_Api.G_MISS_CHAR)
3471: THEN
3472: x_aelv_rec.currency_code := l_aelv_rec.currency_code;
3473: END IF;
3474: IF (x_aelv_rec.program_id = Okc_Api.G_MISS_NUM)
3475: THEN
3476: x_aelv_rec.program_id := l_aelv_rec.program_id;
3477: END IF;
3478: IF (x_aelv_rec.program_application_id = Okc_Api.G_MISS_NUM)
3474: IF (x_aelv_rec.program_id = Okc_Api.G_MISS_NUM)
3475: THEN
3476: x_aelv_rec.program_id := l_aelv_rec.program_id;
3477: END IF;
3478: IF (x_aelv_rec.program_application_id = Okc_Api.G_MISS_NUM)
3479: THEN
3480: x_aelv_rec.program_application_id := l_aelv_rec.program_application_id;
3481: END IF;
3482: IF (x_aelv_rec.program_update_date = Okc_Api.G_MISS_DATE)
3478: IF (x_aelv_rec.program_application_id = Okc_Api.G_MISS_NUM)
3479: THEN
3480: x_aelv_rec.program_application_id := l_aelv_rec.program_application_id;
3481: END IF;
3482: IF (x_aelv_rec.program_update_date = Okc_Api.G_MISS_DATE)
3483: THEN
3484: x_aelv_rec.program_update_date := l_aelv_rec.program_update_date;
3485: END IF;
3486: IF (x_aelv_rec.request_id = Okc_Api.G_MISS_NUM)
3482: IF (x_aelv_rec.program_update_date = Okc_Api.G_MISS_DATE)
3483: THEN
3484: x_aelv_rec.program_update_date := l_aelv_rec.program_update_date;
3485: END IF;
3486: IF (x_aelv_rec.request_id = Okc_Api.G_MISS_NUM)
3487: THEN
3488: x_aelv_rec.request_id := l_aelv_rec.request_id;
3489: END IF;
3490: IF (x_aelv_rec.created_by = Okc_Api.G_MISS_NUM)
3486: IF (x_aelv_rec.request_id = Okc_Api.G_MISS_NUM)
3487: THEN
3488: x_aelv_rec.request_id := l_aelv_rec.request_id;
3489: END IF;
3490: IF (x_aelv_rec.created_by = Okc_Api.G_MISS_NUM)
3491: THEN
3492: x_aelv_rec.created_by := l_aelv_rec.created_by;
3493: END IF;
3494: IF (x_aelv_rec.creation_date = Okc_Api.G_MISS_DATE)
3490: IF (x_aelv_rec.created_by = Okc_Api.G_MISS_NUM)
3491: THEN
3492: x_aelv_rec.created_by := l_aelv_rec.created_by;
3493: END IF;
3494: IF (x_aelv_rec.creation_date = Okc_Api.G_MISS_DATE)
3495: THEN
3496: x_aelv_rec.creation_date := l_aelv_rec.creation_date;
3497: END IF;
3498: IF (x_aelv_rec.last_updated_by = Okc_Api.G_MISS_NUM)
3494: IF (x_aelv_rec.creation_date = Okc_Api.G_MISS_DATE)
3495: THEN
3496: x_aelv_rec.creation_date := l_aelv_rec.creation_date;
3497: END IF;
3498: IF (x_aelv_rec.last_updated_by = Okc_Api.G_MISS_NUM)
3499: THEN
3500: x_aelv_rec.last_updated_by := l_aelv_rec.last_updated_by;
3501: END IF;
3502: IF (x_aelv_rec.last_update_date = Okc_Api.G_MISS_DATE)
3498: IF (x_aelv_rec.last_updated_by = Okc_Api.G_MISS_NUM)
3499: THEN
3500: x_aelv_rec.last_updated_by := l_aelv_rec.last_updated_by;
3501: END IF;
3502: IF (x_aelv_rec.last_update_date = Okc_Api.G_MISS_DATE)
3503: THEN
3504: x_aelv_rec.last_update_date := l_aelv_rec.last_update_date;
3505: END IF;
3506: IF (x_aelv_rec.last_update_login = Okc_Api.G_MISS_NUM)
3502: IF (x_aelv_rec.last_update_date = Okc_Api.G_MISS_DATE)
3503: THEN
3504: x_aelv_rec.last_update_date := l_aelv_rec.last_update_date;
3505: END IF;
3506: IF (x_aelv_rec.last_update_login = Okc_Api.G_MISS_NUM)
3507: THEN
3508: x_aelv_rec.last_update_login := l_aelv_rec.last_update_login;
3509: END IF;
3510: IF (x_aelv_rec.ACCOUNT_OVERLAY_SOURCE_ID = Okc_Api.G_MISS_NUM)
3506: IF (x_aelv_rec.last_update_login = Okc_Api.G_MISS_NUM)
3507: THEN
3508: x_aelv_rec.last_update_login := l_aelv_rec.last_update_login;
3509: END IF;
3510: IF (x_aelv_rec.ACCOUNT_OVERLAY_SOURCE_ID = Okc_Api.G_MISS_NUM)
3511: THEN
3512: x_aelv_rec.ACCOUNT_OVERLAY_SOURCE_ID := l_aelv_rec.ACCOUNT_OVERLAY_SOURCE_ID;
3513: END IF;
3514: IF (x_aelv_rec.SUBLEDGER_DOC_SEQUENCE_VALUE = Okc_Api.G_MISS_NUM)
3510: IF (x_aelv_rec.ACCOUNT_OVERLAY_SOURCE_ID = Okc_Api.G_MISS_NUM)
3511: THEN
3512: x_aelv_rec.ACCOUNT_OVERLAY_SOURCE_ID := l_aelv_rec.ACCOUNT_OVERLAY_SOURCE_ID;
3513: END IF;
3514: IF (x_aelv_rec.SUBLEDGER_DOC_SEQUENCE_VALUE = Okc_Api.G_MISS_NUM)
3515: THEN
3516: x_aelv_rec.SUBLEDGER_DOC_SEQUENCE_VALUE := l_aelv_rec.SUBLEDGER_DOC_SEQUENCE_VALUE;
3517: END IF;
3518: IF (x_aelv_rec.TAX_CODE_ID = Okc_Api.G_MISS_NUM)
3514: IF (x_aelv_rec.SUBLEDGER_DOC_SEQUENCE_VALUE = Okc_Api.G_MISS_NUM)
3515: THEN
3516: x_aelv_rec.SUBLEDGER_DOC_SEQUENCE_VALUE := l_aelv_rec.SUBLEDGER_DOC_SEQUENCE_VALUE;
3517: END IF;
3518: IF (x_aelv_rec.TAX_CODE_ID = Okc_Api.G_MISS_NUM)
3519: THEN
3520: x_aelv_rec.TAX_CODE_ID := l_aelv_rec.TAX_CODE_ID;
3521: END IF;
3522:
3528: FUNCTION Set_Attributes (
3529: p_aelv_rec IN aelv_rec_type,
3530: x_aelv_rec OUT NOCOPY aelv_rec_type
3531: ) RETURN VARCHAR2 IS
3532: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3533: BEGIN
3534: x_aelv_rec := p_aelv_rec;
3535:
3536: SELECT NVL(DECODE(Fnd_Global.CONC_REQUEST_ID,-1,NULL,Fnd_Global.CONC_REQUEST_ID),
3549:
3550: RETURN(l_return_status);
3551: END Set_Attributes;
3552: BEGIN
3553: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
3554: G_PKG_NAME,
3555: p_init_msg_list,
3556: l_api_version,
3557: p_api_version,
3556: l_api_version,
3557: p_api_version,
3558: '_PVT',
3559: x_return_status);
3560: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3561: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3562: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3563: RAISE Okc_Api.G_EXCEPTION_ERROR;
3564: END IF;
3557: p_api_version,
3558: '_PVT',
3559: x_return_status);
3560: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3561: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3562: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3563: RAISE Okc_Api.G_EXCEPTION_ERROR;
3564: END IF;
3565: --- Setting item attributes
3558: '_PVT',
3559: x_return_status);
3560: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3561: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3562: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3563: RAISE Okc_Api.G_EXCEPTION_ERROR;
3564: END IF;
3565: --- Setting item attributes
3566: l_return_status := Set_Attributes(
3559: x_return_status);
3560: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3561: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3562: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3563: RAISE Okc_Api.G_EXCEPTION_ERROR;
3564: END IF;
3565: --- Setting item attributes
3566: l_return_status := Set_Attributes(
3567: p_aelv_rec, -- IN
3566: l_return_status := Set_Attributes(
3567: p_aelv_rec, -- IN
3568: l_aelv_rec); -- OUT
3569: --- If any errors happen abort API
3570: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3571: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3572: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3573: RAISE Okc_Api.G_EXCEPTION_ERROR;
3574: END IF;
3567: p_aelv_rec, -- IN
3568: l_aelv_rec); -- OUT
3569: --- If any errors happen abort API
3570: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3571: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3572: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3573: RAISE Okc_Api.G_EXCEPTION_ERROR;
3574: END IF;
3575: l_return_status := populate_new_record(l_aelv_rec, l_def_aelv_rec);
3568: l_aelv_rec); -- OUT
3569: --- If any errors happen abort API
3570: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3571: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3572: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3573: RAISE Okc_Api.G_EXCEPTION_ERROR;
3574: END IF;
3575: l_return_status := populate_new_record(l_aelv_rec, l_def_aelv_rec);
3576: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3569: --- If any errors happen abort API
3570: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3571: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3572: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3573: RAISE Okc_Api.G_EXCEPTION_ERROR;
3574: END IF;
3575: l_return_status := populate_new_record(l_aelv_rec, l_def_aelv_rec);
3576: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3577: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3572: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3573: RAISE Okc_Api.G_EXCEPTION_ERROR;
3574: END IF;
3575: l_return_status := populate_new_record(l_aelv_rec, l_def_aelv_rec);
3576: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3577: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3578: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3579: RAISE Okc_Api.G_EXCEPTION_ERROR;
3580: END IF;
3573: RAISE Okc_Api.G_EXCEPTION_ERROR;
3574: END IF;
3575: l_return_status := populate_new_record(l_aelv_rec, l_def_aelv_rec);
3576: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3577: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3578: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3579: RAISE Okc_Api.G_EXCEPTION_ERROR;
3580: END IF;
3581: l_def_aelv_rec := fill_who_columns(l_def_aelv_rec);
3574: END IF;
3575: l_return_status := populate_new_record(l_aelv_rec, l_def_aelv_rec);
3576: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3577: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3578: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3579: RAISE Okc_Api.G_EXCEPTION_ERROR;
3580: END IF;
3581: l_def_aelv_rec := fill_who_columns(l_def_aelv_rec);
3582: --- Validate all non-missing attributes (Item Level Validation)
3575: l_return_status := populate_new_record(l_aelv_rec, l_def_aelv_rec);
3576: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3577: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3578: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3579: RAISE Okc_Api.G_EXCEPTION_ERROR;
3580: END IF;
3581: l_def_aelv_rec := fill_who_columns(l_def_aelv_rec);
3582: --- Validate all non-missing attributes (Item Level Validation)
3583: l_return_status := Validate_Attributes(l_def_aelv_rec);
3581: l_def_aelv_rec := fill_who_columns(l_def_aelv_rec);
3582: --- Validate all non-missing attributes (Item Level Validation)
3583: l_return_status := Validate_Attributes(l_def_aelv_rec);
3584: --- If any errors happen abort API
3585: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3586: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3587: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3588: RAISE Okc_Api.G_EXCEPTION_ERROR;
3589: END IF;
3582: --- Validate all non-missing attributes (Item Level Validation)
3583: l_return_status := Validate_Attributes(l_def_aelv_rec);
3584: --- If any errors happen abort API
3585: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3586: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3587: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3588: RAISE Okc_Api.G_EXCEPTION_ERROR;
3589: END IF;
3590: l_return_status := Validate_Record(l_def_aelv_rec);
3583: l_return_status := Validate_Attributes(l_def_aelv_rec);
3584: --- If any errors happen abort API
3585: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3586: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3587: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3588: RAISE Okc_Api.G_EXCEPTION_ERROR;
3589: END IF;
3590: l_return_status := Validate_Record(l_def_aelv_rec);
3591: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3584: --- If any errors happen abort API
3585: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3586: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3587: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3588: RAISE Okc_Api.G_EXCEPTION_ERROR;
3589: END IF;
3590: l_return_status := Validate_Record(l_def_aelv_rec);
3591: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3592: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3587: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3588: RAISE Okc_Api.G_EXCEPTION_ERROR;
3589: END IF;
3590: l_return_status := Validate_Record(l_def_aelv_rec);
3591: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3592: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3593: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3594: RAISE Okc_Api.G_EXCEPTION_ERROR;
3595: END IF;
3588: RAISE Okc_Api.G_EXCEPTION_ERROR;
3589: END IF;
3590: l_return_status := Validate_Record(l_def_aelv_rec);
3591: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3592: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3593: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3594: RAISE Okc_Api.G_EXCEPTION_ERROR;
3595: END IF;
3596:
3589: END IF;
3590: l_return_status := Validate_Record(l_def_aelv_rec);
3591: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3592: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3593: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3594: RAISE Okc_Api.G_EXCEPTION_ERROR;
3595: END IF;
3596:
3597: --------------------------------------
3590: l_return_status := Validate_Record(l_def_aelv_rec);
3591: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3592: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3593: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3594: RAISE Okc_Api.G_EXCEPTION_ERROR;
3595: END IF;
3596:
3597: --------------------------------------
3598: -- Move VIEW record to "Child" records
3608: x_msg_data,
3609: l_ael_rec,
3610: lx_ael_rec
3611: );
3612: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3613: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3614: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3615: RAISE Okc_Api.G_EXCEPTION_ERROR;
3616: END IF;
3609: l_ael_rec,
3610: lx_ael_rec
3611: );
3612: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3613: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3614: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3615: RAISE Okc_Api.G_EXCEPTION_ERROR;
3616: END IF;
3617: migrate(lx_ael_rec, l_def_aelv_rec);
3610: lx_ael_rec
3611: );
3612: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3613: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3614: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3615: RAISE Okc_Api.G_EXCEPTION_ERROR;
3616: END IF;
3617: migrate(lx_ael_rec, l_def_aelv_rec);
3618: x_aelv_rec := l_def_aelv_rec;
3611: );
3612: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3613: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3614: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3615: RAISE Okc_Api.G_EXCEPTION_ERROR;
3616: END IF;
3617: migrate(lx_ael_rec, l_def_aelv_rec);
3618: x_aelv_rec := l_def_aelv_rec;
3619: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3615: RAISE Okc_Api.G_EXCEPTION_ERROR;
3616: END IF;
3617: migrate(lx_ael_rec, l_def_aelv_rec);
3618: x_aelv_rec := l_def_aelv_rec;
3619: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3620: EXCEPTION
3621: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
3622: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3623: (
3617: migrate(lx_ael_rec, l_def_aelv_rec);
3618: x_aelv_rec := l_def_aelv_rec;
3619: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3620: EXCEPTION
3621: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
3622: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3623: (
3624: l_api_name,
3625: G_PKG_NAME,
3618: x_aelv_rec := l_def_aelv_rec;
3619: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3620: EXCEPTION
3621: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
3622: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3623: (
3624: l_api_name,
3625: G_PKG_NAME,
3626: 'OKC_API.G_RET_STS_ERROR',
3622: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3623: (
3624: l_api_name,
3625: G_PKG_NAME,
3626: 'OKC_API.G_RET_STS_ERROR',
3627: x_msg_count,
3628: x_msg_data,
3629: '_PVT'
3630: );
3627: x_msg_count,
3628: x_msg_data,
3629: '_PVT'
3630: );
3631: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3632: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
3633: (
3634: l_api_name,
3635: G_PKG_NAME,
3628: x_msg_data,
3629: '_PVT'
3630: );
3631: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3632: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
3633: (
3634: l_api_name,
3635: G_PKG_NAME,
3636: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3632: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
3633: (
3634: l_api_name,
3635: G_PKG_NAME,
3636: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3637: x_msg_count,
3638: x_msg_data,
3639: '_PVT'
3640: );
3638: x_msg_data,
3639: '_PVT'
3640: );
3641: WHEN OTHERS THEN
3642: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
3643: (
3644: l_api_name,
3645: G_PKG_NAME,
3646: 'OTHERS',
3653: -- PL/SQL TBL update_row for:AELV_TBL --
3654: ----------------------------------------
3655: PROCEDURE update_row(
3656: p_api_version IN NUMBER,
3657: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
3658: x_return_status OUT NOCOPY VARCHAR2,
3659: x_msg_count OUT NOCOPY NUMBER,
3660: x_msg_data OUT NOCOPY VARCHAR2,
3661: p_aelv_tbl IN aelv_tbl_type,
3662: x_aelv_tbl OUT NOCOPY aelv_tbl_type) IS
3663:
3664: l_api_version CONSTANT NUMBER := 1;
3665: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
3666: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3667: i NUMBER := 0;
3668: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3669:
3670: BEGIN
3664: l_api_version CONSTANT NUMBER := 1;
3665: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
3666: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3667: i NUMBER := 0;
3668: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3669:
3670: BEGIN
3671: Okc_Api.init_msg_list(p_init_msg_list);
3672: -- Make sure PL/SQL table has records in it before passing
3667: i NUMBER := 0;
3668: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3669:
3670: BEGIN
3671: Okc_Api.init_msg_list(p_init_msg_list);
3672: -- Make sure PL/SQL table has records in it before passing
3673: IF (p_aelv_tbl.COUNT > 0) THEN
3674: i := p_aelv_tbl.FIRST;
3675: LOOP
3674: i := p_aelv_tbl.FIRST;
3675: LOOP
3676: update_row (
3677: p_api_version => p_api_version,
3678: p_init_msg_list => Okc_Api.G_FALSE,
3679: x_return_status => x_return_status,
3680: x_msg_count => x_msg_count,
3681: x_msg_data => x_msg_data,
3682: p_aelv_rec => p_aelv_tbl(i),
3682: p_aelv_rec => p_aelv_tbl(i),
3683: x_aelv_rec => x_aelv_tbl(i));
3684:
3685: -- store the highest degree of error
3686: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
3687: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
3688: l_overall_status := x_return_status;
3689: END IF;
3690: END IF;
3683: x_aelv_rec => x_aelv_tbl(i));
3684:
3685: -- store the highest degree of error
3686: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
3687: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
3688: l_overall_status := x_return_status;
3689: END IF;
3690: END IF;
3691:
3696: x_return_status := l_overall_status;
3697:
3698: END IF;
3699: EXCEPTION
3700: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
3701: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3702: (
3703: l_api_name,
3704: G_PKG_NAME,
3697:
3698: END IF;
3699: EXCEPTION
3700: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
3701: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3702: (
3703: l_api_name,
3704: G_PKG_NAME,
3705: 'OKC_API.G_RET_STS_ERROR',
3701: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3702: (
3703: l_api_name,
3704: G_PKG_NAME,
3705: 'OKC_API.G_RET_STS_ERROR',
3706: x_msg_count,
3707: x_msg_data,
3708: '_PVT'
3709: );
3706: x_msg_count,
3707: x_msg_data,
3708: '_PVT'
3709: );
3710: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3711: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
3712: (
3713: l_api_name,
3714: G_PKG_NAME,
3707: x_msg_data,
3708: '_PVT'
3709: );
3710: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3711: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
3712: (
3713: l_api_name,
3714: G_PKG_NAME,
3715: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3711: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
3712: (
3713: l_api_name,
3714: G_PKG_NAME,
3715: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3716: x_msg_count,
3717: x_msg_data,
3718: '_PVT'
3719: );
3717: x_msg_data,
3718: '_PVT'
3719: );
3720: WHEN OTHERS THEN
3721: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
3722: (
3723: l_api_name,
3724: G_PKG_NAME,
3725: 'OTHERS',
3735: ---------------------------------
3736: -- delete_row for:OKL_AE_LINES --
3737: ---------------------------------
3738: PROCEDURE delete_row(
3739: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
3740: x_return_status OUT NOCOPY VARCHAR2,
3741: x_msg_count OUT NOCOPY NUMBER,
3742: x_msg_data OUT NOCOPY VARCHAR2,
3743: p_ael_rec IN ael_rec_type) IS
3743: p_ael_rec IN ael_rec_type) IS
3744:
3745: l_api_version CONSTANT NUMBER := 1;
3746: l_api_name CONSTANT VARCHAR2(30) := 'LINES_delete_row';
3747: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3748: l_ael_rec ael_rec_type:= p_ael_rec;
3749: l_row_notfound BOOLEAN := TRUE;
3750: BEGIN
3751: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
3747: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3748: l_ael_rec ael_rec_type:= p_ael_rec;
3749: l_row_notfound BOOLEAN := TRUE;
3750: BEGIN
3751: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
3752: p_init_msg_list,
3753: '_PVT',
3754: x_return_status);
3755: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3751: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
3752: p_init_msg_list,
3753: '_PVT',
3754: x_return_status);
3755: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3756: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3757: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3758: RAISE Okc_Api.G_EXCEPTION_ERROR;
3759: END IF;
3752: p_init_msg_list,
3753: '_PVT',
3754: x_return_status);
3755: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3756: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3757: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3758: RAISE Okc_Api.G_EXCEPTION_ERROR;
3759: END IF;
3760: DELETE FROM OKL_AE_LINES
3753: '_PVT',
3754: x_return_status);
3755: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3756: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3757: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3758: RAISE Okc_Api.G_EXCEPTION_ERROR;
3759: END IF;
3760: DELETE FROM OKL_AE_LINES
3761: WHERE ae_line_id = l_ael_rec.ae_line_id;
3754: x_return_status);
3755: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3756: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3757: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3758: RAISE Okc_Api.G_EXCEPTION_ERROR;
3759: END IF;
3760: DELETE FROM OKL_AE_LINES
3761: WHERE ae_line_id = l_ael_rec.ae_line_id;
3762:
3759: END IF;
3760: DELETE FROM OKL_AE_LINES
3761: WHERE ae_line_id = l_ael_rec.ae_line_id;
3762:
3763: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3764: EXCEPTION
3765: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
3766: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3767: (
3761: WHERE ae_line_id = l_ael_rec.ae_line_id;
3762:
3763: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3764: EXCEPTION
3765: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
3766: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3767: (
3768: l_api_name,
3769: G_PKG_NAME,
3762:
3763: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3764: EXCEPTION
3765: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
3766: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3767: (
3768: l_api_name,
3769: G_PKG_NAME,
3770: 'OKC_API.G_RET_STS_ERROR',
3766: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3767: (
3768: l_api_name,
3769: G_PKG_NAME,
3770: 'OKC_API.G_RET_STS_ERROR',
3771: x_msg_count,
3772: x_msg_data,
3773: '_PVT'
3774: );
3771: x_msg_count,
3772: x_msg_data,
3773: '_PVT'
3774: );
3775: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3776: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
3777: (
3778: l_api_name,
3779: G_PKG_NAME,
3772: x_msg_data,
3773: '_PVT'
3774: );
3775: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3776: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
3777: (
3778: l_api_name,
3779: G_PKG_NAME,
3780: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3776: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
3777: (
3778: l_api_name,
3779: G_PKG_NAME,
3780: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3781: x_msg_count,
3782: x_msg_data,
3783: '_PVT'
3784: );
3782: x_msg_data,
3783: '_PVT'
3784: );
3785: WHEN OTHERS THEN
3786: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
3787: (
3788: l_api_name,
3789: G_PKG_NAME,
3790: 'OTHERS',
3797: -- delete_row for:OKL_AE_LINES_V --
3798: -----------------------------------
3799: PROCEDURE delete_row(
3800: p_api_version IN NUMBER,
3801: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
3802: x_return_status OUT NOCOPY VARCHAR2,
3803: x_msg_count OUT NOCOPY NUMBER,
3804: x_msg_data OUT NOCOPY VARCHAR2,
3805: p_aelv_rec IN aelv_rec_type) IS
3805: p_aelv_rec IN aelv_rec_type) IS
3806:
3807: l_api_version CONSTANT NUMBER := 1;
3808: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
3809: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3810: l_aelv_rec aelv_rec_type := p_aelv_rec;
3811: l_ael_rec ael_rec_type;
3812: BEGIN
3813: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
3809: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3810: l_aelv_rec aelv_rec_type := p_aelv_rec;
3811: l_ael_rec ael_rec_type;
3812: BEGIN
3813: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
3814: G_PKG_NAME,
3815: p_init_msg_list,
3816: l_api_version,
3817: p_api_version,
3816: l_api_version,
3817: p_api_version,
3818: '_PVT',
3819: x_return_status);
3820: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3821: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3822: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3823: RAISE Okc_Api.G_EXCEPTION_ERROR;
3824: END IF;
3817: p_api_version,
3818: '_PVT',
3819: x_return_status);
3820: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3821: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3822: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3823: RAISE Okc_Api.G_EXCEPTION_ERROR;
3824: END IF;
3825: --------------------------------------
3818: '_PVT',
3819: x_return_status);
3820: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3821: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3822: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3823: RAISE Okc_Api.G_EXCEPTION_ERROR;
3824: END IF;
3825: --------------------------------------
3826: -- Move VIEW record to "Child" records
3819: x_return_status);
3820: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3821: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3822: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3823: RAISE Okc_Api.G_EXCEPTION_ERROR;
3824: END IF;
3825: --------------------------------------
3826: -- Move VIEW record to "Child" records
3827: --------------------------------------
3835: x_msg_count,
3836: x_msg_data,
3837: l_ael_rec
3838: );
3839: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3840: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3841: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3842: RAISE Okc_Api.G_EXCEPTION_ERROR;
3843: END IF;
3836: x_msg_data,
3837: l_ael_rec
3838: );
3839: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3840: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3841: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3842: RAISE Okc_Api.G_EXCEPTION_ERROR;
3843: END IF;
3844: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3837: l_ael_rec
3838: );
3839: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3840: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3841: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3842: RAISE Okc_Api.G_EXCEPTION_ERROR;
3843: END IF;
3844: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3845: EXCEPTION
3838: );
3839: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3840: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3841: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3842: RAISE Okc_Api.G_EXCEPTION_ERROR;
3843: END IF;
3844: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3845: EXCEPTION
3846: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
3840: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3841: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3842: RAISE Okc_Api.G_EXCEPTION_ERROR;
3843: END IF;
3844: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3845: EXCEPTION
3846: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
3847: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3848: (
3842: RAISE Okc_Api.G_EXCEPTION_ERROR;
3843: END IF;
3844: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3845: EXCEPTION
3846: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
3847: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3848: (
3849: l_api_name,
3850: G_PKG_NAME,
3843: END IF;
3844: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3845: EXCEPTION
3846: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
3847: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3848: (
3849: l_api_name,
3850: G_PKG_NAME,
3851: 'OKC_API.G_RET_STS_ERROR',
3847: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3848: (
3849: l_api_name,
3850: G_PKG_NAME,
3851: 'OKC_API.G_RET_STS_ERROR',
3852: x_msg_count,
3853: x_msg_data,
3854: '_PVT'
3855: );
3852: x_msg_count,
3853: x_msg_data,
3854: '_PVT'
3855: );
3856: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3857: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
3858: (
3859: l_api_name,
3860: G_PKG_NAME,
3853: x_msg_data,
3854: '_PVT'
3855: );
3856: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3857: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
3858: (
3859: l_api_name,
3860: G_PKG_NAME,
3861: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3857: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
3858: (
3859: l_api_name,
3860: G_PKG_NAME,
3861: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3862: x_msg_count,
3863: x_msg_data,
3864: '_PVT'
3865: );
3863: x_msg_data,
3864: '_PVT'
3865: );
3866: WHEN OTHERS THEN
3867: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
3868: (
3869: l_api_name,
3870: G_PKG_NAME,
3871: 'OTHERS',
3879: -- PL/SQL TBL delete_row for:AELV_TBL --
3880: ----------------------------------------
3881: PROCEDURE delete_row(
3882: p_api_version IN NUMBER,
3883: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
3884: x_return_status OUT NOCOPY VARCHAR2,
3885: x_msg_count OUT NOCOPY NUMBER,
3886: x_msg_data OUT NOCOPY VARCHAR2,
3887: p_aelv_tbl IN aelv_tbl_type) IS
3887: p_aelv_tbl IN aelv_tbl_type) IS
3888:
3889: l_api_version CONSTANT NUMBER := 1;
3890: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
3891: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3892: i NUMBER := 0;
3893: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3894:
3895: BEGIN
3889: l_api_version CONSTANT NUMBER := 1;
3890: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
3891: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3892: i NUMBER := 0;
3893: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3894:
3895: BEGIN
3896: Okc_Api.init_msg_list(p_init_msg_list);
3897: -- Make sure PL/SQL table has records in it before passing
3892: i NUMBER := 0;
3893: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3894:
3895: BEGIN
3896: Okc_Api.init_msg_list(p_init_msg_list);
3897: -- Make sure PL/SQL table has records in it before passing
3898: IF (p_aelv_tbl.COUNT > 0) THEN
3899: i := p_aelv_tbl.FIRST;
3900: LOOP
3899: i := p_aelv_tbl.FIRST;
3900: LOOP
3901: delete_row (
3902: p_api_version => p_api_version,
3903: p_init_msg_list => Okc_Api.G_FALSE,
3904: x_return_status => x_return_status,
3905: x_msg_count => x_msg_count,
3906: x_msg_data => x_msg_data,
3907: p_aelv_rec => p_aelv_tbl(i));
3907: p_aelv_rec => p_aelv_tbl(i));
3908:
3909: -- store the highest degree of error
3910:
3911: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
3912: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
3913: l_overall_status := x_return_status;
3914: END IF;
3915: END IF;
3908:
3909: -- store the highest degree of error
3910:
3911: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
3912: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
3913: l_overall_status := x_return_status;
3914: END IF;
3915: END IF;
3916:
3921: x_return_status := l_overall_status;
3922:
3923: END IF;
3924: EXCEPTION
3925: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
3926: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3927: (
3928: l_api_name,
3929: G_PKG_NAME,
3922:
3923: END IF;
3924: EXCEPTION
3925: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
3926: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3927: (
3928: l_api_name,
3929: G_PKG_NAME,
3930: 'OKC_API.G_RET_STS_ERROR',
3926: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3927: (
3928: l_api_name,
3929: G_PKG_NAME,
3930: 'OKC_API.G_RET_STS_ERROR',
3931: x_msg_count,
3932: x_msg_data,
3933: '_PVT'
3934: );
3931: x_msg_count,
3932: x_msg_data,
3933: '_PVT'
3934: );
3935: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3936: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
3937: (
3938: l_api_name,
3939: G_PKG_NAME,
3932: x_msg_data,
3933: '_PVT'
3934: );
3935: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3936: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
3937: (
3938: l_api_name,
3939: G_PKG_NAME,
3940: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3936: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
3937: (
3938: l_api_name,
3939: G_PKG_NAME,
3940: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3941: x_msg_count,
3942: x_msg_data,
3943: '_PVT'
3944: );
3942: x_msg_data,
3943: '_PVT'
3944: );
3945: WHEN OTHERS THEN
3946: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
3947: (
3948: l_api_name,
3949: G_PKG_NAME,
3950: 'OTHERS',