157: ) RETURN asev_rec_type IS
158: l_asev_rec asev_rec_type;
159: l_row_notfound BOOLEAN := TRUE;
160: BEGIN
161: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
162: l_asev_rec := get_rec(p_asev_rec, l_row_notfound);
163: IF (l_row_notfound) THEN
164: Okc_Api.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
165: x_return_status := Okc_Api.G_RET_STS_ERROR;
160: BEGIN
161: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
162: l_asev_rec := get_rec(p_asev_rec, l_row_notfound);
163: IF (l_row_notfound) THEN
164: Okc_Api.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
165: x_return_status := Okc_Api.G_RET_STS_ERROR;
166: END IF;
167: RETURN(l_asev_rec);
168: END get_rec;
161: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
162: l_asev_rec := get_rec(p_asev_rec, l_row_notfound);
163: IF (l_row_notfound) THEN
164: Okc_Api.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
165: x_return_status := Okc_Api.G_RET_STS_ERROR;
166: END IF;
167: RETURN(l_asev_rec);
168: END get_rec;
169: -----------------------------------------------------------
298: ) RETURN ase_rec_type IS
299: l_ase_rec ase_rec_type;
300: l_row_notfound BOOLEAN := TRUE;
301: BEGIN
302: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
303: l_ase_rec := get_rec(p_ase_rec, l_row_notfound);
304: IF (l_row_notfound) THEN
305: Okc_Api.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
306: x_return_status := Okc_Api.G_RET_STS_ERROR;
301: BEGIN
302: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
303: l_ase_rec := get_rec(p_ase_rec, l_row_notfound);
304: IF (l_row_notfound) THEN
305: Okc_Api.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
306: x_return_status := Okc_Api.G_RET_STS_ERROR;
307: END IF;
308: RETURN(l_ase_rec);
309: END get_rec;
302: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
303: l_ase_rec := get_rec(p_ase_rec, l_row_notfound);
304: IF (l_row_notfound) THEN
305: Okc_Api.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
306: x_return_status := Okc_Api.G_RET_STS_ERROR;
307: END IF;
308: RETURN(l_ase_rec);
309: END get_rec;
310: -----------------------------------------------------------
325: ) RETURN asev_rec_type IS
326: l_asev_rec asev_rec_type := p_asev_rec;
327: BEGIN
328: -- udhenuko Bug#5042061 Modified G_MISS_NUM to G_MISS_CHAR
329: IF (l_asev_rec.id = Okc_Api.G_MISS_CHAR ) THEN
330: l_asev_rec.id := NULL;
331: END IF;
332: IF (l_asev_rec.source_table = Okc_Api.G_MISS_CHAR ) THEN
333: l_asev_rec.source_table := NULL;
328: -- udhenuko Bug#5042061 Modified G_MISS_NUM to G_MISS_CHAR
329: IF (l_asev_rec.id = Okc_Api.G_MISS_CHAR ) THEN
330: l_asev_rec.id := NULL;
331: END IF;
332: IF (l_asev_rec.source_table = Okc_Api.G_MISS_CHAR ) THEN
333: l_asev_rec.source_table := NULL;
334: END IF;
335: IF (l_asev_rec.source_id = Okc_Api.G_MISS_NUM ) THEN
336: l_asev_rec.source_id := NULL;
331: END IF;
332: IF (l_asev_rec.source_table = Okc_Api.G_MISS_CHAR ) THEN
333: l_asev_rec.source_table := NULL;
334: END IF;
335: IF (l_asev_rec.source_id = Okc_Api.G_MISS_NUM ) THEN
336: l_asev_rec.source_id := NULL;
337: END IF;
338: IF (l_asev_rec.pdt_id = Okc_Api.G_MISS_NUM ) THEN
339: l_asev_rec.pdt_id := NULL;
334: END IF;
335: IF (l_asev_rec.source_id = Okc_Api.G_MISS_NUM ) THEN
336: l_asev_rec.source_id := NULL;
337: END IF;
338: IF (l_asev_rec.pdt_id = Okc_Api.G_MISS_NUM ) THEN
339: l_asev_rec.pdt_id := NULL;
340: END IF;
341: IF (l_asev_rec.try_id = Okc_Api.G_MISS_NUM ) THEN
342: l_asev_rec.try_id := NULL;
337: END IF;
338: IF (l_asev_rec.pdt_id = Okc_Api.G_MISS_NUM ) THEN
339: l_asev_rec.pdt_id := NULL;
340: END IF;
341: IF (l_asev_rec.try_id = Okc_Api.G_MISS_NUM ) THEN
342: l_asev_rec.try_id := NULL;
343: END IF;
344: IF (l_asev_rec.sty_id = Okc_Api.G_MISS_NUM ) THEN
345: l_asev_rec.sty_id := NULL;
340: END IF;
341: IF (l_asev_rec.try_id = Okc_Api.G_MISS_NUM ) THEN
342: l_asev_rec.try_id := NULL;
343: END IF;
344: IF (l_asev_rec.sty_id = Okc_Api.G_MISS_NUM ) THEN
345: l_asev_rec.sty_id := NULL;
346: END IF;
347: IF (l_asev_rec.memo_yn = Okc_Api.G_MISS_CHAR ) THEN
348: l_asev_rec.memo_yn := NULL;
343: END IF;
344: IF (l_asev_rec.sty_id = Okc_Api.G_MISS_NUM ) THEN
345: l_asev_rec.sty_id := NULL;
346: END IF;
347: IF (l_asev_rec.memo_yn = Okc_Api.G_MISS_CHAR ) THEN
348: l_asev_rec.memo_yn := NULL;
349: END IF;
350: IF (l_asev_rec.factor_investor_flag = Okc_Api.G_MISS_CHAR ) THEN
351: l_asev_rec.factor_investor_flag := NULL;
346: END IF;
347: IF (l_asev_rec.memo_yn = Okc_Api.G_MISS_CHAR ) THEN
348: l_asev_rec.memo_yn := NULL;
349: END IF;
350: IF (l_asev_rec.factor_investor_flag = Okc_Api.G_MISS_CHAR ) THEN
351: l_asev_rec.factor_investor_flag := NULL;
352: END IF;
353: IF (l_asev_rec.factor_investor_code = Okc_Api.G_MISS_CHAR ) THEN
354: l_asev_rec.factor_investor_code := NULL;
349: END IF;
350: IF (l_asev_rec.factor_investor_flag = Okc_Api.G_MISS_CHAR ) THEN
351: l_asev_rec.factor_investor_flag := NULL;
352: END IF;
353: IF (l_asev_rec.factor_investor_code = Okc_Api.G_MISS_CHAR ) THEN
354: l_asev_rec.factor_investor_code := NULL;
355: END IF;
356: IF (l_asev_rec.amount = Okc_Api.G_MISS_NUM ) THEN
357: l_asev_rec.amount := NULL;
352: END IF;
353: IF (l_asev_rec.factor_investor_code = Okc_Api.G_MISS_CHAR ) THEN
354: l_asev_rec.factor_investor_code := NULL;
355: END IF;
356: IF (l_asev_rec.amount = Okc_Api.G_MISS_NUM ) THEN
357: l_asev_rec.amount := NULL;
358: END IF;
359: IF (l_asev_rec.formula_used = Okc_Api.G_MISS_CHAR ) THEN
360: l_asev_rec.formula_used := NULL;
355: END IF;
356: IF (l_asev_rec.amount = Okc_Api.G_MISS_NUM ) THEN
357: l_asev_rec.amount := NULL;
358: END IF;
359: IF (l_asev_rec.formula_used = Okc_Api.G_MISS_CHAR ) THEN
360: l_asev_rec.formula_used := NULL;
361: END IF;
362: IF (l_asev_rec.entered_date = Okc_Api.G_MISS_DATE ) THEN
363: l_asev_rec.entered_date := NULL;
358: END IF;
359: IF (l_asev_rec.formula_used = Okc_Api.G_MISS_CHAR ) THEN
360: l_asev_rec.formula_used := NULL;
361: END IF;
362: IF (l_asev_rec.entered_date = Okc_Api.G_MISS_DATE ) THEN
363: l_asev_rec.entered_date := NULL;
364: END IF;
365: IF (l_asev_rec.accounting_date = Okc_Api.G_MISS_DATE ) THEN
366: l_asev_rec.accounting_date := NULL;
361: END IF;
362: IF (l_asev_rec.entered_date = Okc_Api.G_MISS_DATE ) THEN
363: l_asev_rec.entered_date := NULL;
364: END IF;
365: IF (l_asev_rec.accounting_date = Okc_Api.G_MISS_DATE ) THEN
366: l_asev_rec.accounting_date := NULL;
367: END IF;
368: IF (l_asev_rec.gl_reversal_flag = Okc_Api.G_MISS_CHAR ) THEN
369: l_asev_rec.gl_reversal_flag := NULL;
364: END IF;
365: IF (l_asev_rec.accounting_date = Okc_Api.G_MISS_DATE ) THEN
366: l_asev_rec.accounting_date := NULL;
367: END IF;
368: IF (l_asev_rec.gl_reversal_flag = Okc_Api.G_MISS_CHAR ) THEN
369: l_asev_rec.gl_reversal_flag := NULL;
370: END IF;
371: IF (l_asev_rec.post_to_gl = Okc_Api.G_MISS_CHAR ) THEN
372: l_asev_rec.post_to_gl := NULL;
367: END IF;
368: IF (l_asev_rec.gl_reversal_flag = Okc_Api.G_MISS_CHAR ) THEN
369: l_asev_rec.gl_reversal_flag := NULL;
370: END IF;
371: IF (l_asev_rec.post_to_gl = Okc_Api.G_MISS_CHAR ) THEN
372: l_asev_rec.post_to_gl := NULL;
373: END IF;
374: IF (l_asev_rec.currency_code = Okc_Api.G_MISS_CHAR ) THEN
375: l_asev_rec.currency_code := NULL;
370: END IF;
371: IF (l_asev_rec.post_to_gl = Okc_Api.G_MISS_CHAR ) THEN
372: l_asev_rec.post_to_gl := NULL;
373: END IF;
374: IF (l_asev_rec.currency_code = Okc_Api.G_MISS_CHAR ) THEN
375: l_asev_rec.currency_code := NULL;
376: END IF;
377: IF (l_asev_rec.currency_conversion_type = Okc_Api.G_MISS_CHAR ) THEN
378: l_asev_rec.currency_conversion_type := NULL;
373: END IF;
374: IF (l_asev_rec.currency_code = Okc_Api.G_MISS_CHAR ) THEN
375: l_asev_rec.currency_code := NULL;
376: END IF;
377: IF (l_asev_rec.currency_conversion_type = Okc_Api.G_MISS_CHAR ) THEN
378: l_asev_rec.currency_conversion_type := NULL;
379: END IF;
380: IF (l_asev_rec.currency_conversion_date = Okc_Api.G_MISS_DATE ) THEN
381: l_asev_rec.currency_conversion_date := NULL;
376: END IF;
377: IF (l_asev_rec.currency_conversion_type = Okc_Api.G_MISS_CHAR ) THEN
378: l_asev_rec.currency_conversion_type := NULL;
379: END IF;
380: IF (l_asev_rec.currency_conversion_date = Okc_Api.G_MISS_DATE ) THEN
381: l_asev_rec.currency_conversion_date := NULL;
382: END IF;
383: IF (l_asev_rec.currency_conversion_rate = Okc_Api.G_MISS_NUM ) THEN
384: l_asev_rec.currency_conversion_rate := NULL;
379: END IF;
380: IF (l_asev_rec.currency_conversion_date = Okc_Api.G_MISS_DATE ) THEN
381: l_asev_rec.currency_conversion_date := NULL;
382: END IF;
383: IF (l_asev_rec.currency_conversion_rate = Okc_Api.G_MISS_NUM ) THEN
384: l_asev_rec.currency_conversion_rate := NULL;
385: END IF;
386: IF (l_asev_rec.khr_id = Okc_Api.G_MISS_NUM ) THEN
387: l_asev_rec.khr_id := NULL;
382: END IF;
383: IF (l_asev_rec.currency_conversion_rate = Okc_Api.G_MISS_NUM ) THEN
384: l_asev_rec.currency_conversion_rate := NULL;
385: END IF;
386: IF (l_asev_rec.khr_id = Okc_Api.G_MISS_NUM ) THEN
387: l_asev_rec.khr_id := NULL;
388: END IF;
389: IF (l_asev_rec.kle_id = Okc_Api.G_MISS_NUM ) THEN
390: l_asev_rec.kle_id := NULL;
385: END IF;
386: IF (l_asev_rec.khr_id = Okc_Api.G_MISS_NUM ) THEN
387: l_asev_rec.khr_id := NULL;
388: END IF;
389: IF (l_asev_rec.kle_id = Okc_Api.G_MISS_NUM ) THEN
390: l_asev_rec.kle_id := NULL;
391: END IF;
392: IF (l_asev_rec.pay_vendor_sites_pk = Okc_Api.G_MISS_CHAR ) THEN
393: l_asev_rec.pay_vendor_sites_pk := NULL;
388: END IF;
389: IF (l_asev_rec.kle_id = Okc_Api.G_MISS_NUM ) THEN
390: l_asev_rec.kle_id := NULL;
391: END IF;
392: IF (l_asev_rec.pay_vendor_sites_pk = Okc_Api.G_MISS_CHAR ) THEN
393: l_asev_rec.pay_vendor_sites_pk := NULL;
394: END IF;
395: IF (l_asev_rec.rec_site_uses_pk = Okc_Api.G_MISS_CHAR ) THEN
396: l_asev_rec.rec_site_uses_pk := NULL;
391: END IF;
392: IF (l_asev_rec.pay_vendor_sites_pk = Okc_Api.G_MISS_CHAR ) THEN
393: l_asev_rec.pay_vendor_sites_pk := NULL;
394: END IF;
395: IF (l_asev_rec.rec_site_uses_pk = Okc_Api.G_MISS_CHAR ) THEN
396: l_asev_rec.rec_site_uses_pk := NULL;
397: END IF;
398: IF (l_asev_rec.asset_category_id_pk1 = Okc_Api.G_MISS_CHAR ) THEN
399: l_asev_rec.asset_category_id_pk1 := NULL;
394: END IF;
395: IF (l_asev_rec.rec_site_uses_pk = Okc_Api.G_MISS_CHAR ) THEN
396: l_asev_rec.rec_site_uses_pk := NULL;
397: END IF;
398: IF (l_asev_rec.asset_category_id_pk1 = Okc_Api.G_MISS_CHAR ) THEN
399: l_asev_rec.asset_category_id_pk1 := NULL;
400: END IF;
401: IF (l_asev_rec.asset_book_pk2 = Okc_Api.G_MISS_CHAR ) THEN
402: l_asev_rec.asset_book_pk2 := NULL;
397: END IF;
398: IF (l_asev_rec.asset_category_id_pk1 = Okc_Api.G_MISS_CHAR ) THEN
399: l_asev_rec.asset_category_id_pk1 := NULL;
400: END IF;
401: IF (l_asev_rec.asset_book_pk2 = Okc_Api.G_MISS_CHAR ) THEN
402: l_asev_rec.asset_book_pk2 := NULL;
403: END IF;
404: IF (l_asev_rec.pay_financial_options_pk = Okc_Api.G_MISS_CHAR ) THEN
405: l_asev_rec.pay_financial_options_pk := NULL;
400: END IF;
401: IF (l_asev_rec.asset_book_pk2 = Okc_Api.G_MISS_CHAR ) THEN
402: l_asev_rec.asset_book_pk2 := NULL;
403: END IF;
404: IF (l_asev_rec.pay_financial_options_pk = Okc_Api.G_MISS_CHAR ) THEN
405: l_asev_rec.pay_financial_options_pk := NULL;
406: END IF;
407: IF (l_asev_rec.jtf_sales_reps_pk = Okc_Api.G_MISS_CHAR ) THEN
408: l_asev_rec.jtf_sales_reps_pk := NULL;
403: END IF;
404: IF (l_asev_rec.pay_financial_options_pk = Okc_Api.G_MISS_CHAR ) THEN
405: l_asev_rec.pay_financial_options_pk := NULL;
406: END IF;
407: IF (l_asev_rec.jtf_sales_reps_pk = Okc_Api.G_MISS_CHAR ) THEN
408: l_asev_rec.jtf_sales_reps_pk := NULL;
409: END IF;
410: IF (l_asev_rec.inventory_item_id_pk1 = Okc_Api.G_MISS_CHAR ) THEN
411: l_asev_rec.inventory_item_id_pk1 := NULL;
406: END IF;
407: IF (l_asev_rec.jtf_sales_reps_pk = Okc_Api.G_MISS_CHAR ) THEN
408: l_asev_rec.jtf_sales_reps_pk := NULL;
409: END IF;
410: IF (l_asev_rec.inventory_item_id_pk1 = Okc_Api.G_MISS_CHAR ) THEN
411: l_asev_rec.inventory_item_id_pk1 := NULL;
412: END IF;
413: IF (l_asev_rec.inventory_org_id_pk2 = Okc_Api.G_MISS_CHAR ) THEN
414: l_asev_rec.inventory_org_id_pk2 := NULL;
409: END IF;
410: IF (l_asev_rec.inventory_item_id_pk1 = Okc_Api.G_MISS_CHAR ) THEN
411: l_asev_rec.inventory_item_id_pk1 := NULL;
412: END IF;
413: IF (l_asev_rec.inventory_org_id_pk2 = Okc_Api.G_MISS_CHAR ) THEN
414: l_asev_rec.inventory_org_id_pk2 := NULL;
415: END IF;
416: IF (l_asev_rec.rec_trx_types_pk = Okc_Api.G_MISS_CHAR ) THEN
417: l_asev_rec.rec_trx_types_pk := NULL;
412: END IF;
413: IF (l_asev_rec.inventory_org_id_pk2 = Okc_Api.G_MISS_CHAR ) THEN
414: l_asev_rec.inventory_org_id_pk2 := NULL;
415: END IF;
416: IF (l_asev_rec.rec_trx_types_pk = Okc_Api.G_MISS_CHAR ) THEN
417: l_asev_rec.rec_trx_types_pk := NULL;
418: END IF;
419: IF (l_asev_rec.avl_id = Okc_Api.G_MISS_NUM ) THEN
420: l_asev_rec.avl_id := NULL;
415: END IF;
416: IF (l_asev_rec.rec_trx_types_pk = Okc_Api.G_MISS_CHAR ) THEN
417: l_asev_rec.rec_trx_types_pk := NULL;
418: END IF;
419: IF (l_asev_rec.avl_id = Okc_Api.G_MISS_NUM ) THEN
420: l_asev_rec.avl_id := NULL;
421: END IF;
422: IF (l_asev_rec.local_product_yn = Okc_Api.G_MISS_CHAR ) THEN
423: l_asev_rec.local_product_yn := NULL;
418: END IF;
419: IF (l_asev_rec.avl_id = Okc_Api.G_MISS_NUM ) THEN
420: l_asev_rec.avl_id := NULL;
421: END IF;
422: IF (l_asev_rec.local_product_yn = Okc_Api.G_MISS_CHAR ) THEN
423: l_asev_rec.local_product_yn := NULL;
424: END IF;
425: IF (l_asev_rec.internal_status = Okc_Api.G_MISS_CHAR ) THEN
426: l_asev_rec.internal_status := NULL;
421: END IF;
422: IF (l_asev_rec.local_product_yn = Okc_Api.G_MISS_CHAR ) THEN
423: l_asev_rec.local_product_yn := NULL;
424: END IF;
425: IF (l_asev_rec.internal_status = Okc_Api.G_MISS_CHAR ) THEN
426: l_asev_rec.internal_status := NULL;
427: END IF;
428: IF (l_asev_rec.custom_status = Okc_Api.G_MISS_CHAR ) THEN
429: l_asev_rec.custom_status := NULL;
424: END IF;
425: IF (l_asev_rec.internal_status = Okc_Api.G_MISS_CHAR ) THEN
426: l_asev_rec.internal_status := NULL;
427: END IF;
428: IF (l_asev_rec.custom_status = Okc_Api.G_MISS_CHAR ) THEN
429: l_asev_rec.custom_status := NULL;
430: END IF;
431: IF (l_asev_rec.source_indicator_flag = Okc_Api.G_MISS_CHAR ) THEN
432: l_asev_rec.source_indicator_flag := NULL;
427: END IF;
428: IF (l_asev_rec.custom_status = Okc_Api.G_MISS_CHAR ) THEN
429: l_asev_rec.custom_status := NULL;
430: END IF;
431: IF (l_asev_rec.source_indicator_flag = Okc_Api.G_MISS_CHAR ) THEN
432: l_asev_rec.source_indicator_flag := NULL;
433: END IF;
434: IF (l_asev_rec.org_id = Okc_Api.G_MISS_NUM ) THEN
435: l_asev_rec.org_id := NULL;
430: END IF;
431: IF (l_asev_rec.source_indicator_flag = Okc_Api.G_MISS_CHAR ) THEN
432: l_asev_rec.source_indicator_flag := NULL;
433: END IF;
434: IF (l_asev_rec.org_id = Okc_Api.G_MISS_NUM ) THEN
435: l_asev_rec.org_id := NULL;
436: END IF;
437: IF (l_asev_rec.program_id = Okc_Api.G_MISS_NUM ) THEN
438: l_asev_rec.program_id := NULL;
433: END IF;
434: IF (l_asev_rec.org_id = Okc_Api.G_MISS_NUM ) THEN
435: l_asev_rec.org_id := NULL;
436: END IF;
437: IF (l_asev_rec.program_id = Okc_Api.G_MISS_NUM ) THEN
438: l_asev_rec.program_id := NULL;
439: END IF;
440: IF (l_asev_rec.program_application_id = Okc_Api.G_MISS_NUM ) THEN
441: l_asev_rec.program_application_id := NULL;
436: END IF;
437: IF (l_asev_rec.program_id = Okc_Api.G_MISS_NUM ) THEN
438: l_asev_rec.program_id := NULL;
439: END IF;
440: IF (l_asev_rec.program_application_id = Okc_Api.G_MISS_NUM ) THEN
441: l_asev_rec.program_application_id := NULL;
442: END IF;
443: IF (l_asev_rec.request_id = Okc_Api.G_MISS_NUM ) THEN
444: l_asev_rec.request_id := NULL;
439: END IF;
440: IF (l_asev_rec.program_application_id = Okc_Api.G_MISS_NUM ) THEN
441: l_asev_rec.program_application_id := NULL;
442: END IF;
443: IF (l_asev_rec.request_id = Okc_Api.G_MISS_NUM ) THEN
444: l_asev_rec.request_id := NULL;
445: END IF;
446: IF (l_asev_rec.program_update_date = Okc_Api.G_MISS_DATE ) THEN
447: l_asev_rec.program_update_date := NULL;
442: END IF;
443: IF (l_asev_rec.request_id = Okc_Api.G_MISS_NUM ) THEN
444: l_asev_rec.request_id := NULL;
445: END IF;
446: IF (l_asev_rec.program_update_date = Okc_Api.G_MISS_DATE ) THEN
447: l_asev_rec.program_update_date := NULL;
448: END IF;
449: IF (l_asev_rec.created_by = Okc_Api.G_MISS_NUM ) THEN
450: l_asev_rec.created_by := NULL;
445: END IF;
446: IF (l_asev_rec.program_update_date = Okc_Api.G_MISS_DATE ) THEN
447: l_asev_rec.program_update_date := NULL;
448: END IF;
449: IF (l_asev_rec.created_by = Okc_Api.G_MISS_NUM ) THEN
450: l_asev_rec.created_by := NULL;
451: END IF;
452: IF (l_asev_rec.creation_date = Okc_Api.G_MISS_DATE ) THEN
453: l_asev_rec.creation_date := NULL;
448: END IF;
449: IF (l_asev_rec.created_by = Okc_Api.G_MISS_NUM ) THEN
450: l_asev_rec.created_by := NULL;
451: END IF;
452: IF (l_asev_rec.creation_date = Okc_Api.G_MISS_DATE ) THEN
453: l_asev_rec.creation_date := NULL;
454: END IF;
455: IF (l_asev_rec.last_updated_by = Okc_Api.G_MISS_NUM ) THEN
456: l_asev_rec.last_updated_by := NULL;
451: END IF;
452: IF (l_asev_rec.creation_date = Okc_Api.G_MISS_DATE ) THEN
453: l_asev_rec.creation_date := NULL;
454: END IF;
455: IF (l_asev_rec.last_updated_by = Okc_Api.G_MISS_NUM ) THEN
456: l_asev_rec.last_updated_by := NULL;
457: END IF;
458: IF (l_asev_rec.last_update_date = Okc_Api.G_MISS_DATE ) THEN
459: l_asev_rec.last_update_date := NULL;
454: END IF;
455: IF (l_asev_rec.last_updated_by = Okc_Api.G_MISS_NUM ) THEN
456: l_asev_rec.last_updated_by := NULL;
457: END IF;
458: IF (l_asev_rec.last_update_date = Okc_Api.G_MISS_DATE ) THEN
459: l_asev_rec.last_update_date := NULL;
460: END IF;
461: IF (l_asev_rec.last_update_login = Okc_Api.G_MISS_NUM ) THEN
462: l_asev_rec.last_update_login := NULL;
457: END IF;
458: IF (l_asev_rec.last_update_date = Okc_Api.G_MISS_DATE ) THEN
459: l_asev_rec.last_update_date := NULL;
460: END IF;
461: IF (l_asev_rec.last_update_login = Okc_Api.G_MISS_NUM ) THEN
462: l_asev_rec.last_update_login := NULL;
463: END IF;
464: RETURN(l_asev_rec);
465: END null_out_defaults;
469: PROCEDURE validate_id(
470: p_asev_rec IN asev_rec_type,
471: x_return_status OUT NOCOPY VARCHAR2) IS
472: BEGIN
473: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
474: -- udhenuko Bug#5042061 Modified G_MISS_NUM to G_MISS_CHAR
475: IF (p_asev_rec.id = Okc_Api.G_MISS_CHAR OR
476: p_asev_rec.id IS NULL)
477: THEN
471: x_return_status OUT NOCOPY VARCHAR2) IS
472: BEGIN
473: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
474: -- udhenuko Bug#5042061 Modified G_MISS_NUM to G_MISS_CHAR
475: IF (p_asev_rec.id = Okc_Api.G_MISS_CHAR OR
476: p_asev_rec.id IS NULL)
477: THEN
478: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'id');
479: x_return_status := Okc_Api.G_RET_STS_ERROR;
474: -- udhenuko Bug#5042061 Modified G_MISS_NUM to G_MISS_CHAR
475: IF (p_asev_rec.id = Okc_Api.G_MISS_CHAR OR
476: p_asev_rec.id IS NULL)
477: THEN
478: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'id');
479: x_return_status := Okc_Api.G_RET_STS_ERROR;
480: RAISE G_EXCEPTION_HALT_VALIDATION;
481: END IF;
482: EXCEPTION
475: IF (p_asev_rec.id = Okc_Api.G_MISS_CHAR OR
476: p_asev_rec.id IS NULL)
477: THEN
478: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'id');
479: x_return_status := Okc_Api.G_RET_STS_ERROR;
480: RAISE G_EXCEPTION_HALT_VALIDATION;
481: END IF;
482: EXCEPTION
483: WHEN G_EXCEPTION_HALT_VALIDATION THEN
482: EXCEPTION
483: WHEN G_EXCEPTION_HALT_VALIDATION THEN
484: NULL;
485: WHEN OTHERS THEN
486: Okc_Api.SET_MESSAGE( p_app_name => G_APP_NAME
487: ,p_msg_name => G_UNEXPECTED_ERROR
488: ,p_token1 => G_SQLCODE_TOKEN
489: ,p_token1_value => SQLCODE
490: ,p_token2 => G_SQLERRM_TOKEN
488: ,p_token1 => G_SQLCODE_TOKEN
489: ,p_token1_value => SQLCODE
490: ,p_token2 => G_SQLERRM_TOKEN
491: ,p_token2_value => SQLERRM);
492: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
493: END validate_id;
494: -------------------------------------------
495: -- Validate_Attributes for: SOURCE_TABLE --
496: -------------------------------------------
497: PROCEDURE validate_source_table(
498: p_asev_rec IN asev_rec_type,
499: x_return_status OUT NOCOPY VARCHAR2) IS
500:
501: l_dummy VARCHAR2(1) := Okc_Api.G_FALSE;
502: BEGIN
503: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
504: IF (p_asev_rec.source_table = Okc_Api.G_MISS_CHAR OR
505: p_asev_rec.source_table IS NULL)
499: x_return_status OUT NOCOPY VARCHAR2) IS
500:
501: l_dummy VARCHAR2(1) := Okc_Api.G_FALSE;
502: BEGIN
503: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
504: IF (p_asev_rec.source_table = Okc_Api.G_MISS_CHAR OR
505: p_asev_rec.source_table IS NULL)
506: THEN
507: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'source_table');
500:
501: l_dummy VARCHAR2(1) := Okc_Api.G_FALSE;
502: BEGIN
503: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
504: IF (p_asev_rec.source_table = Okc_Api.G_MISS_CHAR OR
505: p_asev_rec.source_table IS NULL)
506: THEN
507: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'source_table');
508: x_return_status := Okc_Api.G_RET_STS_ERROR;
503: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
504: IF (p_asev_rec.source_table = Okc_Api.G_MISS_CHAR OR
505: p_asev_rec.source_table IS NULL)
506: THEN
507: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'source_table');
508: x_return_status := Okc_Api.G_RET_STS_ERROR;
509: RAISE G_EXCEPTION_HALT_VALIDATION;
510: END IF;
511:
504: IF (p_asev_rec.source_table = Okc_Api.G_MISS_CHAR OR
505: p_asev_rec.source_table IS NULL)
506: THEN
507: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'source_table');
508: x_return_status := Okc_Api.G_RET_STS_ERROR;
509: RAISE G_EXCEPTION_HALT_VALIDATION;
510: END IF;
511:
512: l_dummy := Okl_Accounting_Util.VALIDATE_SOURCE_ID_TABLE
512: l_dummy := Okl_Accounting_Util.VALIDATE_SOURCE_ID_TABLE
513: (p_source_id => p_asev_rec.source_id,
514: p_source_table => p_asev_rec.source_table);
515:
516: IF (l_dummy = Okc_Api.G_FALSE) THEN
517: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
518: p_msg_name => g_invalid_value,
519: p_token1 => g_col_name_token,
520: p_token1_value => 'source_table');
513: (p_source_id => p_asev_rec.source_id,
514: p_source_table => p_asev_rec.source_table);
515:
516: IF (l_dummy = Okc_Api.G_FALSE) THEN
517: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
518: p_msg_name => g_invalid_value,
519: p_token1 => g_col_name_token,
520: p_token1_value => 'source_table');
521: x_return_status := Okc_Api.G_RET_STS_ERROR;
517: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
518: p_msg_name => g_invalid_value,
519: p_token1 => g_col_name_token,
520: p_token1_value => 'source_table');
521: x_return_status := Okc_Api.G_RET_STS_ERROR;
522: RAISE G_EXCEPTION_HALT_VALIDATION;
523: END IF;
524:
525:
526: EXCEPTION
527: WHEN G_EXCEPTION_HALT_VALIDATION THEN
528: NULL;
529: WHEN OTHERS THEN
530: Okc_Api.SET_MESSAGE( p_app_name => G_APP_NAME
531: ,p_msg_name => G_UNEXPECTED_ERROR
532: ,p_token1 => G_SQLCODE_TOKEN
533: ,p_token1_value => SQLCODE
534: ,p_token2 => G_SQLERRM_TOKEN
532: ,p_token1 => G_SQLCODE_TOKEN
533: ,p_token1_value => SQLCODE
534: ,p_token2 => G_SQLERRM_TOKEN
535: ,p_token2_value => SQLERRM);
536: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
537: END validate_source_table;
538: ----------------------------------------
539: -- Validate_Attributes for: SOURCE_ID --
540: ----------------------------------------
541: PROCEDURE validate_source_id(
542: p_asev_rec IN asev_rec_type,
543: x_return_status OUT NOCOPY VARCHAR2) IS
544: BEGIN
545: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
546: IF (p_asev_rec.source_id = Okc_Api.G_MISS_NUM OR
547: p_asev_rec.source_id IS NULL)
548: THEN
549: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'source_id');
542: p_asev_rec IN asev_rec_type,
543: x_return_status OUT NOCOPY VARCHAR2) IS
544: BEGIN
545: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
546: IF (p_asev_rec.source_id = Okc_Api.G_MISS_NUM OR
547: p_asev_rec.source_id IS NULL)
548: THEN
549: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'source_id');
550: x_return_status := Okc_Api.G_RET_STS_ERROR;
545: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
546: IF (p_asev_rec.source_id = Okc_Api.G_MISS_NUM OR
547: p_asev_rec.source_id IS NULL)
548: THEN
549: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'source_id');
550: x_return_status := Okc_Api.G_RET_STS_ERROR;
551: RAISE G_EXCEPTION_HALT_VALIDATION;
552: END IF;
553: EXCEPTION
546: IF (p_asev_rec.source_id = Okc_Api.G_MISS_NUM OR
547: p_asev_rec.source_id IS NULL)
548: THEN
549: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'source_id');
550: x_return_status := Okc_Api.G_RET_STS_ERROR;
551: RAISE G_EXCEPTION_HALT_VALIDATION;
552: END IF;
553: EXCEPTION
554: WHEN G_EXCEPTION_HALT_VALIDATION THEN
553: EXCEPTION
554: WHEN G_EXCEPTION_HALT_VALIDATION THEN
555: NULL;
556: WHEN OTHERS THEN
557: Okc_Api.SET_MESSAGE( p_app_name => G_APP_NAME
558: ,p_msg_name => G_UNEXPECTED_ERROR
559: ,p_token1 => G_SQLCODE_TOKEN
560: ,p_token1_value => SQLCODE
561: ,p_token2 => G_SQLERRM_TOKEN
559: ,p_token1 => G_SQLCODE_TOKEN
560: ,p_token1_value => SQLCODE
561: ,p_token2 => G_SQLERRM_TOKEN
562: ,p_token2_value => SQLERRM);
563: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
564: END validate_source_id;
565: -------------------------------------
566: -- Validate_Attributes for: PDT_ID --
567: -------------------------------------
568: PROCEDURE validate_pdt_id(
569: p_asev_rec IN asev_rec_type,
570: x_return_status OUT NOCOPY VARCHAR2) IS
571:
572: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
573: l_dummy VARCHAR2(1);
574: l_row_notfound BOOLEAN := TRUE;
575:
576: CURSOR pdt_csr (v_pdt_id IN NUMBER) IS
579: WHERE ID = v_pdt_id;
580:
581:
582: BEGIN
583: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
584: IF (p_asev_rec.pdt_id = Okc_Api.G_MISS_NUM OR
585: p_asev_rec.pdt_id IS NULL)
586: THEN
587: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'pdt_id');
580:
581:
582: BEGIN
583: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
584: IF (p_asev_rec.pdt_id = Okc_Api.G_MISS_NUM OR
585: p_asev_rec.pdt_id IS NULL)
586: THEN
587: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'pdt_id');
588: x_return_status := Okc_Api.G_RET_STS_ERROR;
583: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
584: IF (p_asev_rec.pdt_id = Okc_Api.G_MISS_NUM OR
585: p_asev_rec.pdt_id IS NULL)
586: THEN
587: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'pdt_id');
588: x_return_status := Okc_Api.G_RET_STS_ERROR;
589: RAISE G_EXCEPTION_HALT_VALIDATION;
590: END IF;
591:
584: IF (p_asev_rec.pdt_id = Okc_Api.G_MISS_NUM OR
585: p_asev_rec.pdt_id IS NULL)
586: THEN
587: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'pdt_id');
588: x_return_status := Okc_Api.G_RET_STS_ERROR;
589: RAISE G_EXCEPTION_HALT_VALIDATION;
590: END IF;
591:
592: IF (p_asev_rec.pdt_id IS NOT NULL) AND
589: RAISE G_EXCEPTION_HALT_VALIDATION;
590: END IF;
591:
592: IF (p_asev_rec.pdt_id IS NOT NULL) AND
593: (p_asev_rec.pdt_id <> Okc_Api.G_MISS_NUM) THEN
594:
595: OPEN pdt_csr(p_asev_rec.PDT_ID);
596: FETCH pdt_csr INTO l_dummy;
597: l_row_notfound := pdt_csr%NOTFOUND;
596: FETCH pdt_csr INTO l_dummy;
597: l_row_notfound := pdt_csr%NOTFOUND;
598: CLOSE pdt_csr;
599: IF (l_row_notfound) THEN
600: Okc_Api.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'PDT_ID');
601: x_return_status := Okc_Api.G_RET_STS_ERROR;
602: RAISE G_EXCEPTION_HALT_VALIDATION;
603: END IF;
604: END IF;
597: l_row_notfound := pdt_csr%NOTFOUND;
598: CLOSE pdt_csr;
599: IF (l_row_notfound) THEN
600: Okc_Api.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'PDT_ID');
601: x_return_status := Okc_Api.G_RET_STS_ERROR;
602: RAISE G_EXCEPTION_HALT_VALIDATION;
603: END IF;
604: END IF;
605:
607: EXCEPTION
608: WHEN G_EXCEPTION_HALT_VALIDATION THEN
609: NULL;
610: WHEN OTHERS THEN
611: Okc_Api.SET_MESSAGE( p_app_name => G_APP_NAME
612: ,p_msg_name => G_UNEXPECTED_ERROR
613: ,p_token1 => G_SQLCODE_TOKEN
614: ,p_token1_value => SQLCODE
615: ,p_token2 => G_SQLERRM_TOKEN
613: ,p_token1 => G_SQLCODE_TOKEN
614: ,p_token1_value => SQLCODE
615: ,p_token2 => G_SQLERRM_TOKEN
616: ,p_token2_value => SQLERRM);
617: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
618: END validate_pdt_id;
619: -------------------------------------
620: -- Validate_Attributes for: TRY_ID --
621: -------------------------------------
631: WHERE ID = v_try_id;
632:
633:
634: BEGIN
635: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
636: IF (p_asev_rec.try_id = Okc_Api.G_MISS_NUM OR
637: p_asev_rec.try_id IS NULL)
638: THEN
639: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'try_id');
632:
633:
634: BEGIN
635: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
636: IF (p_asev_rec.try_id = Okc_Api.G_MISS_NUM OR
637: p_asev_rec.try_id IS NULL)
638: THEN
639: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'try_id');
640: x_return_status := Okc_Api.G_RET_STS_ERROR;
635: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
636: IF (p_asev_rec.try_id = Okc_Api.G_MISS_NUM OR
637: p_asev_rec.try_id IS NULL)
638: THEN
639: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'try_id');
640: x_return_status := Okc_Api.G_RET_STS_ERROR;
641: RAISE G_EXCEPTION_HALT_VALIDATION;
642: END IF;
643:
636: IF (p_asev_rec.try_id = Okc_Api.G_MISS_NUM OR
637: p_asev_rec.try_id IS NULL)
638: THEN
639: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'try_id');
640: x_return_status := Okc_Api.G_RET_STS_ERROR;
641: RAISE G_EXCEPTION_HALT_VALIDATION;
642: END IF;
643:
644: OPEN try_csr(p_asev_rec.TRY_ID);
643:
644: OPEN try_csr(p_asev_rec.TRY_ID);
645: FETCH try_csr INTO l_dummy;
646: IF (try_csr%NOTFOUND) THEN
647: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
648: ,p_msg_name => g_invalid_value
649: ,p_token1 => g_col_name_token
650: ,p_token1_value => 'TRY_ID');
651: x_return_status := Okc_Api.G_RET_STS_ERROR;
647: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
648: ,p_msg_name => g_invalid_value
649: ,p_token1 => g_col_name_token
650: ,p_token1_value => 'TRY_ID');
651: x_return_status := Okc_Api.G_RET_STS_ERROR;
652: CLOSE try_csr;
653: RAISE G_EXCEPTION_HALT_VALIDATION;
654: END IF;
655: CLOSE try_csr;
658: EXCEPTION
659: WHEN G_EXCEPTION_HALT_VALIDATION THEN
660: NULL;
661: WHEN OTHERS THEN
662: Okc_Api.SET_MESSAGE( p_app_name => G_APP_NAME
663: ,p_msg_name => G_UNEXPECTED_ERROR
664: ,p_token1 => G_SQLCODE_TOKEN
665: ,p_token1_value => SQLCODE
666: ,p_token2 => G_SQLERRM_TOKEN
664: ,p_token1 => G_SQLCODE_TOKEN
665: ,p_token1_value => SQLCODE
666: ,p_token2 => G_SQLERRM_TOKEN
667: ,p_token2_value => SQLERRM);
668: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
669: END validate_try_id;
670:
671:
672:
672:
673: PROCEDURE Validate_Sty_Id (p_asev_rec IN asev_rec_type
674: ,x_return_status OUT NOCOPY VARCHAR2)
675: IS
676: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
677: l_dummy VARCHAR2(1);
678: l_row_notfound BOOLEAN := TRUE;
679:
680: CURSOR sty_csr (p_id IN NUMBER) IS
684:
685:
686: BEGIN
687: -- initialize return status
688: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
689:
690: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
691: IF (p_asev_rec.sty_id = Okc_Api.G_MISS_NUM OR
692: p_asev_rec.sty_id IS NULL)
686: BEGIN
687: -- initialize return status
688: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
689:
690: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
691: IF (p_asev_rec.sty_id = Okc_Api.G_MISS_NUM OR
692: p_asev_rec.sty_id IS NULL)
693: THEN
694: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'sty_id');
687: -- initialize return status
688: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
689:
690: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
691: IF (p_asev_rec.sty_id = Okc_Api.G_MISS_NUM OR
692: p_asev_rec.sty_id IS NULL)
693: THEN
694: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'sty_id');
695: x_return_status := Okc_Api.G_RET_STS_ERROR;
690: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
691: IF (p_asev_rec.sty_id = Okc_Api.G_MISS_NUM OR
692: p_asev_rec.sty_id IS NULL)
693: THEN
694: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'sty_id');
695: x_return_status := Okc_Api.G_RET_STS_ERROR;
696: RAISE G_EXCEPTION_HALT_VALIDATION;
697: END IF;
698:
691: IF (p_asev_rec.sty_id = Okc_Api.G_MISS_NUM OR
692: p_asev_rec.sty_id IS NULL)
693: THEN
694: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'sty_id');
695: x_return_status := Okc_Api.G_RET_STS_ERROR;
696: RAISE G_EXCEPTION_HALT_VALIDATION;
697: END IF;
698:
699: OPEN sty_csr(p_asev_rec.sty_id);
698:
699: OPEN sty_csr(p_asev_rec.sty_id);
700: FETCH sty_csr INTO l_dummy;
701: IF (sty_csr%NOTFOUND) THEN
702: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
703: ,p_msg_name => g_invalid_value
704: ,p_token1 => g_col_name_token
705: ,p_token1_value => 'sty_id');
706: x_return_status := Okc_Api.G_RET_STS_ERROR;
702: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
703: ,p_msg_name => g_invalid_value
704: ,p_token1 => g_col_name_token
705: ,p_token1_value => 'sty_id');
706: x_return_status := Okc_Api.G_RET_STS_ERROR;
707: CLOSE sty_csr;
708: x_return_status := Okc_Api.G_RET_STS_ERROR;
709: RAISE G_EXCEPTION_HALT_VALIDATION;
710: END IF;
704: ,p_token1 => g_col_name_token
705: ,p_token1_value => 'sty_id');
706: x_return_status := Okc_Api.G_RET_STS_ERROR;
707: CLOSE sty_csr;
708: x_return_status := Okc_Api.G_RET_STS_ERROR;
709: RAISE G_EXCEPTION_HALT_VALIDATION;
710: END IF;
711: CLOSE sty_csr;
712:
719: NULL;
720:
721: WHEN OTHERS THEN
722: -- store SQL error message on message stack for caller
723: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
724: ,p_msg_name => g_unexpected_error
725: ,p_token1 => g_sqlcode_token
726: ,p_token1_value => SQLCODE
727: ,p_token2 => g_sqlerrm_token
727: ,p_token2 => g_sqlerrm_token
728: ,p_token2_value => SQLERRM);
729:
730: -- notify caller of an UNEXPECTED error
731: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
732:
733: END Validate_Sty_Id;
734:
735:
736: PROCEDURE Validate_Gl_Reversal_Flag (p_asev_rec IN asev_rec_type,
737: x_return_status OUT NOCOPY VARCHAR2)
738: IS
739:
740: l_dummy VARCHAR2(1) := Okc_Api.G_FALSE;
741: l_app_id NUMBER := 0;
742: l_view_app_id NUMBER := 0;
743:
744:
743:
744:
745: BEGIN
746:
747: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
748:
749: IF (p_asev_rec.GL_REVERSAL_FLAG IS NOT NULL) AND
750: (p_asev_rec.GL_REVERSAL_FLAG <> Okc_Api.G_MISS_CHAR) THEN
751: l_dummy := Okl_Accounting_Util.VALIDATE_LOOKUP_CODE
746:
747: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
748:
749: IF (p_asev_rec.GL_REVERSAL_FLAG IS NOT NULL) AND
750: (p_asev_rec.GL_REVERSAL_FLAG <> Okc_Api.G_MISS_CHAR) THEN
751: l_dummy := Okl_Accounting_Util.VALIDATE_LOOKUP_CODE
752: (p_lookup_type => 'YES_NO',
753: p_lookup_code => p_asev_rec.gl_reversal_flag,
754: p_app_id => l_app_id,
753: p_lookup_code => p_asev_rec.gl_reversal_flag,
754: p_app_id => l_app_id,
755: p_view_app_id => l_view_app_id);
756:
757: IF (l_dummy = Okc_Api.G_FALSE) THEN
758: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
759: ,p_msg_name => g_invalid_value
760: ,p_token1 => g_col_name_token
761: ,p_token1_value => 'GL_REVERSAL_FLAG');
754: p_app_id => l_app_id,
755: p_view_app_id => l_view_app_id);
756:
757: IF (l_dummy = Okc_Api.G_FALSE) THEN
758: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
759: ,p_msg_name => g_invalid_value
760: ,p_token1 => g_col_name_token
761: ,p_token1_value => 'GL_REVERSAL_FLAG');
762: x_return_status := Okc_Api.G_RET_STS_ERROR;
758: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
759: ,p_msg_name => g_invalid_value
760: ,p_token1 => g_col_name_token
761: ,p_token1_value => 'GL_REVERSAL_FLAG');
762: x_return_status := Okc_Api.G_RET_STS_ERROR;
763: RAISE G_EXCEPTION_HALT_VALIDATION;
764: END IF;
765:
766: END IF;
772: NULL;
773:
774: WHEN OTHERS THEN
775: -- store SQL error message on message stack for caller
776: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
777: p_msg_name => g_unexpected_error,
778: p_token1 => g_sqlcode_token,
779: p_token1_value => SQLCODE,
780: p_token2 => g_sqlerrm_token,
780: p_token2 => g_sqlerrm_token,
781: p_token2_value => SQLERRM);
782:
783: -- notify caller of an UNEXPECTED error
784: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
785:
786: END Validate_GL_REVERSAL_FLAG;
787:
788:
801: PROCEDURE Validate_POST_TO_GL (p_asev_rec IN asev_rec_type,
802: x_return_status OUT NOCOPY VARCHAR2)
803: IS
804:
805: l_dummy VARCHAR2(1) := Okc_Api.G_FALSE;
806: l_app_id NUMBER := 0;
807: l_view_app_id NUMBER := 0;
808:
809:
808:
809:
810: BEGIN
811:
812: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
813:
814: IF (p_asev_rec.POST_TO_GL IS NOT NULL) AND
815: (p_asev_rec.POST_TO_GL <> Okc_Api.G_MISS_CHAR) THEN
816: l_dummy := Okl_Accounting_Util.VALIDATE_LOOKUP_CODE
811:
812: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
813:
814: IF (p_asev_rec.POST_TO_GL IS NOT NULL) AND
815: (p_asev_rec.POST_TO_GL <> Okc_Api.G_MISS_CHAR) THEN
816: l_dummy := Okl_Accounting_Util.VALIDATE_LOOKUP_CODE
817: (p_lookup_type => 'YES_NO',
818: p_lookup_code => p_asev_rec.POST_TO_GL,
819: p_app_id => l_app_id,
818: p_lookup_code => p_asev_rec.POST_TO_GL,
819: p_app_id => l_app_id,
820: p_view_app_id => l_view_app_id);
821:
822: IF (l_dummy = Okc_Api.G_FALSE) THEN
823: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
824: ,p_msg_name => g_invalid_value
825: ,p_token1 => g_col_name_token
826: ,p_token1_value => 'POST_TO_GL');
819: p_app_id => l_app_id,
820: p_view_app_id => l_view_app_id);
821:
822: IF (l_dummy = Okc_Api.G_FALSE) THEN
823: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
824: ,p_msg_name => g_invalid_value
825: ,p_token1 => g_col_name_token
826: ,p_token1_value => 'POST_TO_GL');
827: x_return_status := Okc_Api.G_RET_STS_ERROR;
823: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
824: ,p_msg_name => g_invalid_value
825: ,p_token1 => g_col_name_token
826: ,p_token1_value => 'POST_TO_GL');
827: x_return_status := Okc_Api.G_RET_STS_ERROR;
828: RAISE G_EXCEPTION_HALT_VALIDATION;
829: END IF;
830:
831: END IF;
837: NULL;
838:
839: WHEN OTHERS THEN
840: -- store SQL error message on message stack for caller
841: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
842: p_msg_name => g_unexpected_error,
843: p_token1 => g_sqlcode_token,
844: p_token1_value => SQLCODE,
845: p_token2 => g_sqlerrm_token,
845: p_token2 => g_sqlerrm_token,
846: p_token2_value => SQLERRM);
847:
848: -- notify caller of an UNEXPECTED error
849: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
850:
851: END Validate_POST_TO_GL;
852:
853:
865: ---------------------------------------------------------------------------
866: PROCEDURE Validate_Khr_Id (p_asev_rec IN asev_rec_type
867: ,x_return_status OUT NOCOPY VARCHAR2)
868: IS
869: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
870: l_dummy VARCHAR2(1);
871: l_row_notfound BOOLEAN := TRUE;
872:
873: CURSOR okl_asev_fk_csr (p_id IN NUMBER) IS
877:
878:
879: BEGIN
880:
881: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
882:
883: IF (p_asev_rec.khr_id IS NOT NULL) AND
884: (p_asev_rec.khr_id <> Okc_Api.G_MISS_NUM) THEN
885:
880:
881: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
882:
883: IF (p_asev_rec.khr_id IS NOT NULL) AND
884: (p_asev_rec.khr_id <> Okc_Api.G_MISS_NUM) THEN
885:
886: OPEN okl_asev_fk_csr(p_asev_rec.KHR_ID);
887: FETCH okl_asev_fk_csr INTO l_dummy;
888: l_row_notfound := okl_asev_fk_csr%NOTFOUND;
888: l_row_notfound := okl_asev_fk_csr%NOTFOUND;
889: CLOSE okl_asev_fk_csr;
890:
891: IF (l_row_notfound) THEN
892: Okc_Api.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'KHR_ID');
893: x_return_status := Okc_Api.G_RET_STS_ERROR;
894: RAISE G_EXCEPTION_HALT_VALIDATION;
895: END IF;
896: END IF;
889: CLOSE okl_asev_fk_csr;
890:
891: IF (l_row_notfound) THEN
892: Okc_Api.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'KHR_ID');
893: x_return_status := Okc_Api.G_RET_STS_ERROR;
894: RAISE G_EXCEPTION_HALT_VALIDATION;
895: END IF;
896: END IF;
897:
903:
904:
905: WHEN OTHERS THEN
906: -- store SQL error message on message stack for caller
907: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
908: ,p_msg_name => g_unexpected_error
909: ,p_token1 => g_sqlcode_token
910: ,p_token1_value => SQLCODE
911: ,p_token2 => g_sqlerrm_token
911: ,p_token2 => g_sqlerrm_token
912: ,p_token2_value => SQLERRM);
913:
914: -- notify caller of an UNEXPECTED error
915: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
916:
917: END Validate_Khr_Id;
918:
919:
932: PROCEDURE Validate_Internal_Status(p_asev_rec IN asev_rec_type
933: ,x_return_status OUT NOCOPY VARCHAR2)
934: IS
935:
936: l_dummy VARCHAR2(1) := Okc_Api.G_FALSE;
937:
938: BEGIN
939: -- initialize return status
940: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
936: l_dummy VARCHAR2(1) := Okc_Api.G_FALSE;
937:
938: BEGIN
939: -- initialize return status
940: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
941:
942: -- check for data before processing
943: IF (p_asev_rec.internal_status IS NULL) OR
944: (p_asev_rec.internal_status = Okc_Api.G_MISS_CHAR) THEN
940: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
941:
942: -- check for data before processing
943: IF (p_asev_rec.internal_status IS NULL) OR
944: (p_asev_rec.internal_status = Okc_Api.G_MISS_CHAR) THEN
945: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
946: p_msg_name => g_required_value,
947: p_token1 => g_col_name_token,
948: p_token1_value => 'internal_status');
941:
942: -- check for data before processing
943: IF (p_asev_rec.internal_status IS NULL) OR
944: (p_asev_rec.internal_status = Okc_Api.G_MISS_CHAR) THEN
945: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
946: p_msg_name => g_required_value,
947: p_token1 => g_col_name_token,
948: p_token1_value => 'internal_status');
949:
946: p_msg_name => g_required_value,
947: p_token1 => g_col_name_token,
948: p_token1_value => 'internal_status');
949:
950: x_return_status := Okc_Api.G_RET_STS_ERROR;
951: RAISE G_EXCEPTION_HALT_VALIDATION;
952: END IF;
953:
954: l_dummy := Okl_Accounting_Util.VALIDATE_LOOKUP_CODE
955: (p_lookup_type => 'OKL_ACCT_SOURCES_STATUS',
956: p_lookup_code => p_asev_rec.internal_status);
957:
958: IF (l_dummy = Okl_Api.G_FALSE) THEN
959: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
960: ,p_msg_name => g_invalid_value
961: ,p_token1 => g_col_name_token
962: ,p_token1_value => 'internal_status');
963: x_return_status := Okc_Api.G_RET_STS_ERROR;
959: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
960: ,p_msg_name => g_invalid_value
961: ,p_token1 => g_col_name_token
962: ,p_token1_value => 'internal_status');
963: x_return_status := Okc_Api.G_RET_STS_ERROR;
964: RAISE G_EXCEPTION_HALT_VALIDATION;
965:
966: END IF;
967:
973: NULL;
974:
975: WHEN OTHERS THEN
976: -- store SQL error message on message stack for caller
977: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
978: p_msg_name => g_unexpected_error,
979: p_token1 => g_sqlcode_token,
980: p_token1_value => SQLCODE,
981: p_token2 => g_sqlerrm_token,
981: p_token2 => g_sqlerrm_token,
982: p_token2_value => SQLERRM);
983:
984: -- notify caller of an UNEXPECTED error
985: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
986:
987: END Validate_Internal_Status;
988:
989:
1002: PROCEDURE Validate_Custom_Status(p_asev_rec IN asev_rec_type
1003: ,x_return_status OUT NOCOPY VARCHAR2)
1004: IS
1005:
1006: l_dummy VARCHAR2(1) := Okc_Api.G_FALSE;
1007:
1008: BEGIN
1009: -- initialize return status
1010: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1006: l_dummy VARCHAR2(1) := Okc_Api.G_FALSE;
1007:
1008: BEGIN
1009: -- initialize return status
1010: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1011:
1012: -- check for data before processing
1013: IF (p_asev_rec.custom_status IS NULL) OR
1014: (p_asev_rec.custom_status = Okc_Api.G_MISS_CHAR) THEN
1010: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1011:
1012: -- check for data before processing
1013: IF (p_asev_rec.custom_status IS NULL) OR
1014: (p_asev_rec.custom_status = Okc_Api.G_MISS_CHAR) THEN
1015: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
1016: p_msg_name => g_required_value,
1017: p_token1 => g_col_name_token,
1018: p_token1_value => 'custom_status');
1011:
1012: -- check for data before processing
1013: IF (p_asev_rec.custom_status IS NULL) OR
1014: (p_asev_rec.custom_status = Okc_Api.G_MISS_CHAR) THEN
1015: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
1016: p_msg_name => g_required_value,
1017: p_token1 => g_col_name_token,
1018: p_token1_value => 'custom_status');
1019:
1016: p_msg_name => g_required_value,
1017: p_token1 => g_col_name_token,
1018: p_token1_value => 'custom_status');
1019:
1020: x_return_status := Okc_Api.G_RET_STS_ERROR;
1021: RAISE G_EXCEPTION_HALT_VALIDATION;
1022: END IF;
1023:
1024: l_dummy := Okl_Accounting_Util.VALIDATE_LOOKUP_CODE
1025: (p_lookup_type => 'OKL_ACCT_SOURCES_CUSTOM_STATUS',
1026: p_lookup_code => p_asev_rec.custom_status);
1027:
1028: IF (l_dummy = Okl_Api.G_FALSE) THEN
1029: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
1030: ,p_msg_name => g_invalid_value
1031: ,p_token1 => g_col_name_token
1032: ,p_token1_value => 'custom_status');
1033: x_return_status := Okc_Api.G_RET_STS_ERROR;
1029: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
1030: ,p_msg_name => g_invalid_value
1031: ,p_token1 => g_col_name_token
1032: ,p_token1_value => 'custom_status');
1033: x_return_status := Okc_Api.G_RET_STS_ERROR;
1034: RAISE G_EXCEPTION_HALT_VALIDATION;
1035:
1036: END IF;
1037:
1043: NULL;
1044:
1045: WHEN OTHERS THEN
1046: -- store SQL error message on message stack for caller
1047: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
1048: p_msg_name => g_unexpected_error,
1049: p_token1 => g_sqlcode_token,
1050: p_token1_value => SQLCODE,
1051: p_token2 => g_sqlerrm_token,
1051: p_token2 => g_sqlerrm_token,
1052: p_token2_value => SQLERRM);
1053:
1054: -- notify caller of an UNEXPECTED error
1055: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
1056:
1057: END Validate_Custom_Status;
1058:
1059:
1072: PROCEDURE Validate_Source_Indicator_Flag(p_asev_rec IN asev_rec_type
1073: ,x_return_status OUT NOCOPY VARCHAR2)
1074: IS
1075:
1076: l_dummy VARCHAR2(1) := Okc_Api.G_FALSE;
1077:
1078: BEGIN
1079: -- initialize return status
1080: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1076: l_dummy VARCHAR2(1) := Okc_Api.G_FALSE;
1077:
1078: BEGIN
1079: -- initialize return status
1080: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1081:
1082: -- check for data before processing
1083: IF (p_asev_rec.source_indicator_flag IS NULL) OR
1084: (p_asev_rec.source_indicator_flag = Okc_Api.G_MISS_CHAR) THEN
1080: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1081:
1082: -- check for data before processing
1083: IF (p_asev_rec.source_indicator_flag IS NULL) OR
1084: (p_asev_rec.source_indicator_flag = Okc_Api.G_MISS_CHAR) THEN
1085: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
1086: p_msg_name => g_required_value,
1087: p_token1 => g_col_name_token,
1088: p_token1_value => 'source_indicator_flag');
1081:
1082: -- check for data before processing
1083: IF (p_asev_rec.source_indicator_flag IS NULL) OR
1084: (p_asev_rec.source_indicator_flag = Okc_Api.G_MISS_CHAR) THEN
1085: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
1086: p_msg_name => g_required_value,
1087: p_token1 => g_col_name_token,
1088: p_token1_value => 'source_indicator_flag');
1089:
1086: p_msg_name => g_required_value,
1087: p_token1 => g_col_name_token,
1088: p_token1_value => 'source_indicator_flag');
1089:
1090: x_return_status := Okc_Api.G_RET_STS_ERROR;
1091: RAISE G_EXCEPTION_HALT_VALIDATION;
1092: END IF;
1093:
1094: l_dummy := Okl_Accounting_Util.VALIDATE_LOOKUP_CODE
1095: (p_lookup_type => 'OKL_ACCT_SOURCES_INDICATOR',
1096: p_lookup_code => p_asev_rec.source_indicator_flag);
1097:
1098: IF (l_dummy = Okl_Api.G_FALSE) THEN
1099: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
1100: ,p_msg_name => g_invalid_value
1101: ,p_token1 => g_col_name_token
1102: ,p_token1_value => 'source_indicator_flag');
1103: x_return_status := Okc_Api.G_RET_STS_ERROR;
1099: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
1100: ,p_msg_name => g_invalid_value
1101: ,p_token1 => g_col_name_token
1102: ,p_token1_value => 'source_indicator_flag');
1103: x_return_status := Okc_Api.G_RET_STS_ERROR;
1104: RAISE G_EXCEPTION_HALT_VALIDATION;
1105:
1106: END IF;
1107:
1113: NULL;
1114:
1115: WHEN OTHERS THEN
1116: -- store SQL error message on message stack for caller
1117: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
1118: p_msg_name => g_unexpected_error,
1119: p_token1 => g_sqlcode_token,
1120: p_token1_value => SQLCODE,
1121: p_token2 => g_sqlerrm_token,
1121: p_token2 => g_sqlerrm_token,
1122: p_token2_value => SQLERRM);
1123:
1124: -- notify caller of an UNEXPECTED error
1125: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
1126:
1127: END Validate_Source_Indicator_Flag;
1128:
1129: ---------------------------------------------------------------------------
1144: l_fetch_flag VARCHAR2(1);
1145:
1146: BEGIN
1147:
1148: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1149:
1150: IF (p_asev_rec.avl_id IS NOT NULL) AND
1151: (p_asev_rec.avl_id <> Okc_Api.G_MISS_NUM) THEN
1152: OPEN tmpl_csr(p_asev_rec.avl_id);
1147:
1148: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1149:
1150: IF (p_asev_rec.avl_id IS NOT NULL) AND
1151: (p_asev_rec.avl_id <> Okc_Api.G_MISS_NUM) THEN
1152: OPEN tmpl_csr(p_asev_rec.avl_id);
1153: FETCH tmpl_csr INTO l_dummy;
1154:
1155: IF (tmpl_csr%NOTFOUND) THEN
1153: FETCH tmpl_csr INTO l_dummy;
1154:
1155: IF (tmpl_csr%NOTFOUND) THEN
1156:
1157: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
1158: p_msg_name => g_invalid_value,
1159: p_token1 => g_col_name_token,
1160: p_token1_value => 'avl_id');
1161: x_return_status := Okc_Api.G_RET_STS_ERROR;
1157: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
1158: p_msg_name => g_invalid_value,
1159: p_token1 => g_col_name_token,
1160: p_token1_value => 'avl_id');
1161: x_return_status := Okc_Api.G_RET_STS_ERROR;
1162: CLOSE tmpl_csr;
1163: RAISE G_EXCEPTION_HALT_VALIDATION;
1164: END IF;
1165:
1171: EXCEPTION
1172: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1173: NULL;
1174: WHEN OTHERS THEN
1175: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
1176: p_msg_name => g_required_value,
1177: p_token1 => g_sqlcode_token,
1178: p_token1_value => SQLCODE,
1179: p_token2 => g_sqlerrm_token,
1177: p_token1 => g_sqlcode_token,
1178: p_token1_value => SQLCODE,
1179: p_token2 => g_sqlerrm_token,
1180: p_token2_value => SQLERRM);
1181: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
1182: END validate_template_id;
1183:
1184:
1185:
1189: PROCEDURE validate_curr_code(
1190: p_asev_rec IN asev_rec_type,
1191: x_return_status OUT NOCOPY VARCHAR2
1192: ) IS
1193: l_dummy VARCHAR2(1) := Okc_Api.G_FALSE;
1194:
1195: BEGIN
1196: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1197:
1192: ) IS
1193: l_dummy VARCHAR2(1) := Okc_Api.G_FALSE;
1194:
1195: BEGIN
1196: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1197:
1198: IF (p_asev_rec.currency_code IS NOT NULL) AND
1199: (p_asev_rec.currency_code <> Okc_Api.G_MISS_CHAR) THEN
1200: l_dummy := Okl_Accounting_Util.VALIDATE_CURRENCY_CODE (p_asev_rec.currency_code);
1195: BEGIN
1196: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1197:
1198: IF (p_asev_rec.currency_code IS NOT NULL) AND
1199: (p_asev_rec.currency_code <> Okc_Api.G_MISS_CHAR) THEN
1200: l_dummy := Okl_Accounting_Util.VALIDATE_CURRENCY_CODE (p_asev_rec.currency_code);
1201:
1202: IF (l_dummy = Okl_Api.g_false) THEN
1203: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
1199: (p_asev_rec.currency_code <> Okc_Api.G_MISS_CHAR) THEN
1200: l_dummy := Okl_Accounting_Util.VALIDATE_CURRENCY_CODE (p_asev_rec.currency_code);
1201:
1202: IF (l_dummy = Okl_Api.g_false) THEN
1203: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
1204: p_msg_name => g_invalid_value,
1205: p_token1 => g_col_name_token,
1206: p_token1_value => 'CURRENCY_CODE');
1207:
1204: p_msg_name => g_invalid_value,
1205: p_token1 => g_col_name_token,
1206: p_token1_value => 'CURRENCY_CODE');
1207:
1208: x_return_status := Okc_Api.G_RET_STS_ERROR;
1209: RAISE G_EXCEPTION_HALT_VALIDATION;
1210: END IF;
1211: END IF;
1212:
1213: EXCEPTION
1214: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1215: NULL;
1216: WHEN OTHERS THEN
1217: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
1218: p_msg_name => g_required_value,
1219: p_token1 => g_sqlcode_token,
1220: p_token1_value => SQLCODE,
1221: p_token2 => g_sqlerrm_token,
1219: p_token1 => g_sqlcode_token,
1220: p_token1_value => SQLCODE,
1221: p_token2 => g_sqlerrm_token,
1222: p_token2_value => SQLERRM);
1223: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
1224: END validate_curr_code;
1225:
1226:
1227: ---------------------------------------------------------------------------
1232: ------------------------------------------------
1233: FUNCTION Validate_Attributes (
1234: p_asev_rec IN asev_rec_type
1235: ) RETURN VARCHAR2 IS
1236: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1237: x_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1238: BEGIN
1239: -----------------------------
1240: -- Column Level Validation --
1233: FUNCTION Validate_Attributes (
1234: p_asev_rec IN asev_rec_type
1235: ) RETURN VARCHAR2 IS
1236: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1237: x_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1238: BEGIN
1239: -----------------------------
1240: -- Column Level Validation --
1241: -----------------------------
1242: -- ***
1243: -- id
1244: -- ***
1245: validate_id(p_asev_rec, x_return_status);
1246: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1247: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1248: l_return_status := x_return_Status;
1249: RAISE G_EXCEPTION_HALT_VALIDATION;
1250: ELSE
1243: -- id
1244: -- ***
1245: validate_id(p_asev_rec, x_return_status);
1246: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1247: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1248: l_return_status := x_return_Status;
1249: RAISE G_EXCEPTION_HALT_VALIDATION;
1250: ELSE
1251: l_return_status := x_return_status;
1256: -- ***
1257: -- source_table
1258: -- ***
1259: validate_source_table(p_asev_rec, x_return_status);
1260: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1261: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1262: l_return_status := x_return_Status;
1263: RAISE G_EXCEPTION_HALT_VALIDATION;
1264: ELSE
1257: -- source_table
1258: -- ***
1259: validate_source_table(p_asev_rec, x_return_status);
1260: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1261: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1262: l_return_status := x_return_Status;
1263: RAISE G_EXCEPTION_HALT_VALIDATION;
1264: ELSE
1265: l_return_status := x_return_status;
1269: -- ***
1270: -- source_id
1271: -- ***
1272: validate_source_id(p_asev_rec, x_return_status);
1273: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1274: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1275: l_return_status := x_return_Status;
1276: RAISE G_EXCEPTION_HALT_VALIDATION;
1277: ELSE
1270: -- source_id
1271: -- ***
1272: validate_source_id(p_asev_rec, x_return_status);
1273: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1274: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1275: l_return_status := x_return_Status;
1276: RAISE G_EXCEPTION_HALT_VALIDATION;
1277: ELSE
1278: l_return_status := x_return_status;
1282: -- ***
1283: -- pdt_id
1284: -- ***
1285: validate_pdt_id(p_asev_rec, x_return_status);
1286: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1287: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1288: l_return_status := x_return_Status;
1289: RAISE G_EXCEPTION_HALT_VALIDATION;
1290: ELSE
1283: -- pdt_id
1284: -- ***
1285: validate_pdt_id(p_asev_rec, x_return_status);
1286: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1287: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1288: l_return_status := x_return_Status;
1289: RAISE G_EXCEPTION_HALT_VALIDATION;
1290: ELSE
1291: l_return_status := x_return_status;
1295: -- ***
1296: -- try_id
1297: -- ***
1298: validate_try_id(p_asev_rec, x_return_status);
1299: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1300: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1301: l_return_status := x_return_Status;
1302: RAISE G_EXCEPTION_HALT_VALIDATION;
1303: ELSE
1296: -- try_id
1297: -- ***
1298: validate_try_id(p_asev_rec, x_return_status);
1299: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1300: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1301: l_return_status := x_return_Status;
1302: RAISE G_EXCEPTION_HALT_VALIDATION;
1303: ELSE
1304: l_return_status := x_return_status;
1308: -- ***
1309: -- Validate_Sty_Id
1310: -- ***
1311: Validate_Sty_Id(p_asev_rec, x_return_status);
1312: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1313: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1314: l_return_status := x_return_Status;
1315: RAISE G_EXCEPTION_HALT_VALIDATION;
1316: ELSE
1309: -- Validate_Sty_Id
1310: -- ***
1311: Validate_Sty_Id(p_asev_rec, x_return_status);
1312: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1313: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1314: l_return_status := x_return_Status;
1315: RAISE G_EXCEPTION_HALT_VALIDATION;
1316: ELSE
1317: l_return_status := x_return_status;
1320: -- ***
1321: -- Validate_Gl_Reversal_Flag
1322: -- ***
1323: Validate_Gl_Reversal_Flag(p_asev_rec, x_return_status);
1324: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1325: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1326: l_return_status := x_return_Status;
1327: RAISE G_EXCEPTION_HALT_VALIDATION;
1328: ELSE
1321: -- Validate_Gl_Reversal_Flag
1322: -- ***
1323: Validate_Gl_Reversal_Flag(p_asev_rec, x_return_status);
1324: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1325: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1326: l_return_status := x_return_Status;
1327: RAISE G_EXCEPTION_HALT_VALIDATION;
1328: ELSE
1329: l_return_status := x_return_status;
1332: -- ***
1333: -- Validate_post_to_gl
1334: -- ***
1335: Validate_post_to_gl(p_asev_rec, x_return_status);
1336: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1337: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1338: l_return_status := x_return_Status;
1339: RAISE G_EXCEPTION_HALT_VALIDATION;
1340: ELSE
1333: -- Validate_post_to_gl
1334: -- ***
1335: Validate_post_to_gl(p_asev_rec, x_return_status);
1336: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1337: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1338: l_return_status := x_return_Status;
1339: RAISE G_EXCEPTION_HALT_VALIDATION;
1340: ELSE
1341: l_return_status := x_return_status;
1344: -- ***
1345: -- Validate_Khr_Id
1346: -- ***
1347: Validate_Khr_Id(p_asev_rec, x_return_status);
1348: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1349: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1350: l_return_status := x_return_Status;
1351: RAISE G_EXCEPTION_HALT_VALIDATION;
1352: ELSE
1345: -- Validate_Khr_Id
1346: -- ***
1347: Validate_Khr_Id(p_asev_rec, x_return_status);
1348: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1349: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1350: l_return_status := x_return_Status;
1351: RAISE G_EXCEPTION_HALT_VALIDATION;
1352: ELSE
1353: l_return_status := x_return_status;
1356: -- ***
1357: -- Validate_Internal_Status
1358: -- ***
1359: Validate_Internal_Status(p_asev_rec, x_return_status);
1360: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1361: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1362: l_return_status := x_return_Status;
1363: RAISE G_EXCEPTION_HALT_VALIDATION;
1364: ELSE
1357: -- Validate_Internal_Status
1358: -- ***
1359: Validate_Internal_Status(p_asev_rec, x_return_status);
1360: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1361: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1362: l_return_status := x_return_Status;
1363: RAISE G_EXCEPTION_HALT_VALIDATION;
1364: ELSE
1365: l_return_status := x_return_status;
1368: -- ***
1369: -- Validate_Custom_Status
1370: -- ***
1371: Validate_Custom_Status(p_asev_rec, x_return_status);
1372: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1373: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1374: l_return_status := x_return_Status;
1375: RAISE G_EXCEPTION_HALT_VALIDATION;
1376: ELSE
1369: -- Validate_Custom_Status
1370: -- ***
1371: Validate_Custom_Status(p_asev_rec, x_return_status);
1372: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1373: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1374: l_return_status := x_return_Status;
1375: RAISE G_EXCEPTION_HALT_VALIDATION;
1376: ELSE
1377: l_return_status := x_return_status;
1380: -- ***
1381: -- Validate_Source_Indicator_Flag
1382: -- ***
1383: Validate_Source_Indicator_Flag(p_asev_rec, x_return_status);
1384: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1385: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1386: l_return_status := x_return_Status;
1387: RAISE G_EXCEPTION_HALT_VALIDATION;
1388: ELSE
1381: -- Validate_Source_Indicator_Flag
1382: -- ***
1383: Validate_Source_Indicator_Flag(p_asev_rec, x_return_status);
1384: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1385: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1386: l_return_status := x_return_Status;
1387: RAISE G_EXCEPTION_HALT_VALIDATION;
1388: ELSE
1389: l_return_status := x_return_status;
1392: -- ***
1393: -- validate_template_id
1394: -- ***
1395: validate_template_id(p_asev_rec, x_return_status);
1396: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1397: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1398: l_return_status := x_return_Status;
1399: RAISE G_EXCEPTION_HALT_VALIDATION;
1400: ELSE
1393: -- validate_template_id
1394: -- ***
1395: validate_template_id(p_asev_rec, x_return_status);
1396: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1397: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1398: l_return_status := x_return_Status;
1399: RAISE G_EXCEPTION_HALT_VALIDATION;
1400: ELSE
1401: l_return_status := x_return_status;
1404: -- ***
1405: -- validate_curr_code
1406: -- ***
1407: validate_curr_code(p_asev_rec, x_return_status);
1408: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1409: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1410: l_return_status := x_return_Status;
1411: RAISE G_EXCEPTION_HALT_VALIDATION;
1412: ELSE
1405: -- validate_curr_code
1406: -- ***
1407: validate_curr_code(p_asev_rec, x_return_status);
1408: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1409: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1410: l_return_status := x_return_Status;
1411: RAISE G_EXCEPTION_HALT_VALIDATION;
1412: ELSE
1413: l_return_status := x_return_status;
1420: EXCEPTION
1421: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1422: RETURN(l_return_status);
1423: WHEN OTHERS THEN
1424: Okc_Api.SET_MESSAGE( p_app_name => G_APP_NAME
1425: ,p_msg_name => G_UNEXPECTED_ERROR
1426: ,p_token1 => G_SQLCODE_TOKEN
1427: ,p_token1_value => SQLCODE
1428: ,p_token2 => G_SQLERRM_TOKEN
1426: ,p_token1 => G_SQLCODE_TOKEN
1427: ,p_token1_value => SQLCODE
1428: ,p_token2 => G_SQLERRM_TOKEN
1429: ,p_token2_value => SQLERRM);
1430: l_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
1431: RETURN(l_return_status);
1432: END Validate_Attributes;
1433: ---------------------------------------------------------------------------
1434: -- PROCEDURE Validate_Record
1442: FUNCTION Validate_Record (
1443: p_asev_rec IN asev_rec_type,
1444: p_db_asev_rec IN asev_rec_type
1445: ) RETURN VARCHAR2 IS
1446: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1447: BEGIN
1448: RETURN (l_return_status);
1449: END Validate_Record;
1450: */
1453:
1454: FUNCTION Validate_Record (
1455: p_asev_rec IN asev_rec_type
1456: ) RETURN VARCHAR2 IS
1457: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1458: BEGIN
1459: RETURN (l_return_status);
1460: END Validate_Record;
1461:
1579: p_asev_rec IN asev_rec_type) IS
1580:
1581: l_api_version CONSTANT NUMBER := 1;
1582: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
1583: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1584: l_asev_rec asev_rec_type := p_asev_rec;
1585: l_ase_rec ase_rec_type;
1586: l_ase_rec ase_rec_type;
1587: BEGIN
1584: l_asev_rec asev_rec_type := p_asev_rec;
1585: l_ase_rec ase_rec_type;
1586: l_ase_rec ase_rec_type;
1587: BEGIN
1588: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
1589: G_PKG_NAME,
1590: p_init_msg_list,
1591: l_api_version,
1592: p_api_version,
1591: l_api_version,
1592: p_api_version,
1593: '_PVT',
1594: x_return_status);
1595: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1596: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1597: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1598: RAISE Okc_Api.G_EXCEPTION_ERROR;
1599: END IF;
1592: p_api_version,
1593: '_PVT',
1594: x_return_status);
1595: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1596: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1597: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1598: RAISE Okc_Api.G_EXCEPTION_ERROR;
1599: END IF;
1600: --- Validate all non-missing attributes (Item Level Validation)
1593: '_PVT',
1594: x_return_status);
1595: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1596: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1597: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1598: RAISE Okc_Api.G_EXCEPTION_ERROR;
1599: END IF;
1600: --- Validate all non-missing attributes (Item Level Validation)
1601: l_return_status := Validate_Attributes(l_asev_rec);
1594: x_return_status);
1595: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1596: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1597: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1598: RAISE Okc_Api.G_EXCEPTION_ERROR;
1599: END IF;
1600: --- Validate all non-missing attributes (Item Level Validation)
1601: l_return_status := Validate_Attributes(l_asev_rec);
1602: --- If any errors happen abort API
1599: END IF;
1600: --- Validate all non-missing attributes (Item Level Validation)
1601: l_return_status := Validate_Attributes(l_asev_rec);
1602: --- If any errors happen abort API
1603: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1604: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1605: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1606: RAISE Okc_Api.G_EXCEPTION_ERROR;
1607: END IF;
1600: --- Validate all non-missing attributes (Item Level Validation)
1601: l_return_status := Validate_Attributes(l_asev_rec);
1602: --- If any errors happen abort API
1603: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1604: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1605: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1606: RAISE Okc_Api.G_EXCEPTION_ERROR;
1607: END IF;
1608: l_return_status := Validate_Record(l_asev_rec);
1601: l_return_status := Validate_Attributes(l_asev_rec);
1602: --- If any errors happen abort API
1603: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1604: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1605: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1606: RAISE Okc_Api.G_EXCEPTION_ERROR;
1607: END IF;
1608: l_return_status := Validate_Record(l_asev_rec);
1609: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1602: --- If any errors happen abort API
1603: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1604: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1605: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1606: RAISE Okc_Api.G_EXCEPTION_ERROR;
1607: END IF;
1608: l_return_status := Validate_Record(l_asev_rec);
1609: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1610: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1605: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1606: RAISE Okc_Api.G_EXCEPTION_ERROR;
1607: END IF;
1608: l_return_status := Validate_Record(l_asev_rec);
1609: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1610: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1611: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1612: RAISE Okc_Api.G_EXCEPTION_ERROR;
1613: END IF;
1606: RAISE Okc_Api.G_EXCEPTION_ERROR;
1607: END IF;
1608: l_return_status := Validate_Record(l_asev_rec);
1609: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1610: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1611: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1612: RAISE Okc_Api.G_EXCEPTION_ERROR;
1613: END IF;
1614: x_return_status := l_return_status;
1607: END IF;
1608: l_return_status := Validate_Record(l_asev_rec);
1609: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1610: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1611: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1612: RAISE Okc_Api.G_EXCEPTION_ERROR;
1613: END IF;
1614: x_return_status := l_return_status;
1615: EXCEPTION
1608: l_return_status := Validate_Record(l_asev_rec);
1609: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1610: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1611: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1612: RAISE Okc_Api.G_EXCEPTION_ERROR;
1613: END IF;
1614: x_return_status := l_return_status;
1615: EXCEPTION
1616: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1612: RAISE Okc_Api.G_EXCEPTION_ERROR;
1613: END IF;
1614: x_return_status := l_return_status;
1615: EXCEPTION
1616: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1617: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1618: (
1619: l_api_name,
1620: G_PKG_NAME,
1613: END IF;
1614: x_return_status := l_return_status;
1615: EXCEPTION
1616: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1617: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1618: (
1619: l_api_name,
1620: G_PKG_NAME,
1621: 'OKC_API.G_RET_STS_ERROR',
1617: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1618: (
1619: l_api_name,
1620: G_PKG_NAME,
1621: 'OKC_API.G_RET_STS_ERROR',
1622: x_msg_count,
1623: x_msg_data,
1624: '_PVT'
1625: );
1622: x_msg_count,
1623: x_msg_data,
1624: '_PVT'
1625: );
1626: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1627: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1628: (
1629: l_api_name,
1630: G_PKG_NAME,
1623: x_msg_data,
1624: '_PVT'
1625: );
1626: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1627: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1628: (
1629: l_api_name,
1630: G_PKG_NAME,
1631: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1627: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1628: (
1629: l_api_name,
1630: G_PKG_NAME,
1631: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1632: x_msg_count,
1633: x_msg_data,
1634: '_PVT'
1635: );
1633: x_msg_data,
1634: '_PVT'
1635: );
1636: WHEN OTHERS THEN
1637: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1638: (
1639: l_api_name,
1640: G_PKG_NAME,
1641: 'OTHERS',
1656: p_asev_tbl IN asev_tbl_type) IS
1657:
1658: l_api_version CONSTANT NUMBER := 1;
1659: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
1660: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1661: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1662: i NUMBER := 0;
1663: BEGIN
1664:
1657:
1658: l_api_version CONSTANT NUMBER := 1;
1659: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
1660: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1661: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1662: i NUMBER := 0;
1663: BEGIN
1664:
1665: Okc_Api.init_msg_list(p_init_msg_list);
1661: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1662: i NUMBER := 0;
1663: BEGIN
1664:
1665: Okc_Api.init_msg_list(p_init_msg_list);
1666: -- Make sure PL/SQL table has records in it before passing
1667: IF (p_asev_tbl.COUNT > 0) THEN
1668: i := p_asev_tbl.FIRST;
1669: LOOP
1668: i := p_asev_tbl.FIRST;
1669: LOOP
1670: validate_row (
1671: p_api_version => p_api_version,
1672: p_init_msg_list => Okc_Api.G_FALSE,
1673: x_return_status => x_return_status,
1674: x_msg_count => x_msg_count,
1675: x_msg_data => x_msg_data,
1676: p_asev_rec => p_asev_tbl(i));
1674: x_msg_count => x_msg_count,
1675: x_msg_data => x_msg_data,
1676: p_asev_rec => p_asev_tbl(i));
1677:
1678: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1679: IF (l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1680: l_overall_status := x_return_status;
1681: END IF;
1682: END IF;
1675: x_msg_data => x_msg_data,
1676: p_asev_rec => p_asev_tbl(i));
1677:
1678: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1679: IF (l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1680: l_overall_status := x_return_status;
1681: END IF;
1682: END IF;
1683: EXIT WHEN (i = p_asev_tbl.LAST);
1686: END IF;
1687: x_return_status := l_overall_status;
1688:
1689: EXCEPTION
1690: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1691: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1692: (
1693: l_api_name,
1694: G_PKG_NAME,
1687: x_return_status := l_overall_status;
1688:
1689: EXCEPTION
1690: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1691: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1692: (
1693: l_api_name,
1694: G_PKG_NAME,
1695: 'OKC_API.G_RET_STS_ERROR',
1691: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1692: (
1693: l_api_name,
1694: G_PKG_NAME,
1695: 'OKC_API.G_RET_STS_ERROR',
1696: x_msg_count,
1697: x_msg_data,
1698: '_PVT'
1699: );
1696: x_msg_count,
1697: x_msg_data,
1698: '_PVT'
1699: );
1700: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1701: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1702: (
1703: l_api_name,
1704: G_PKG_NAME,
1697: x_msg_data,
1698: '_PVT'
1699: );
1700: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1701: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1702: (
1703: l_api_name,
1704: G_PKG_NAME,
1705: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1701: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1702: (
1703: l_api_name,
1704: G_PKG_NAME,
1705: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1706: x_msg_count,
1707: x_msg_data,
1708: '_PVT'
1709: );
1707: x_msg_data,
1708: '_PVT'
1709: );
1710: WHEN OTHERS THEN
1711: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1712: (
1713: l_api_name,
1714: G_PKG_NAME,
1715: 'OTHERS',
1734: x_ase_rec OUT NOCOPY ase_rec_type) IS
1735:
1736: l_api_version CONSTANT NUMBER := 1;
1737: l_api_name CONSTANT VARCHAR2(30) := 'B_insert_row';
1738: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1739: l_ase_rec ase_rec_type := p_ase_rec;
1740: l_def_ase_rec ase_rec_type;
1741: -----------------------------------------
1742: -- Set_Attributes for:OKL_ACCT_SOURCES --
1744: FUNCTION Set_Attributes (
1745: p_ase_rec IN ase_rec_type,
1746: x_ase_rec OUT NOCOPY ase_rec_type
1747: ) RETURN VARCHAR2 IS
1748: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1749: BEGIN
1750: x_ase_rec := p_ase_rec;
1751: RETURN(l_return_status);
1752: END Set_Attributes;
1750: x_ase_rec := p_ase_rec;
1751: RETURN(l_return_status);
1752: END Set_Attributes;
1753: BEGIN
1754: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
1755: p_init_msg_list,
1756: '_PVT',
1757: x_return_status);
1758: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1754: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
1755: p_init_msg_list,
1756: '_PVT',
1757: x_return_status);
1758: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1759: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1760: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1761: RAISE Okc_Api.G_EXCEPTION_ERROR;
1762: END IF;
1755: p_init_msg_list,
1756: '_PVT',
1757: x_return_status);
1758: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1759: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1760: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1761: RAISE Okc_Api.G_EXCEPTION_ERROR;
1762: END IF;
1763: --- Setting item atributes
1756: '_PVT',
1757: x_return_status);
1758: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1759: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1760: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1761: RAISE Okc_Api.G_EXCEPTION_ERROR;
1762: END IF;
1763: --- Setting item atributes
1764: l_return_status := Set_Attributes(
1757: x_return_status);
1758: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1759: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1760: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1761: RAISE Okc_Api.G_EXCEPTION_ERROR;
1762: END IF;
1763: --- Setting item atributes
1764: l_return_status := Set_Attributes(
1765: p_ase_rec, -- IN
1764: l_return_status := Set_Attributes(
1765: p_ase_rec, -- IN
1766: l_ase_rec); -- OUT
1767: --- If any errors happen abort API
1768: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1769: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1770: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1771: RAISE Okc_Api.G_EXCEPTION_ERROR;
1772: END IF;
1765: p_ase_rec, -- IN
1766: l_ase_rec); -- OUT
1767: --- If any errors happen abort API
1768: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1769: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1770: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1771: RAISE Okc_Api.G_EXCEPTION_ERROR;
1772: END IF;
1773: INSERT INTO OKL_ACCT_SOURCES(
1766: l_ase_rec); -- OUT
1767: --- If any errors happen abort API
1768: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1769: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1770: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1771: RAISE Okc_Api.G_EXCEPTION_ERROR;
1772: END IF;
1773: INSERT INTO OKL_ACCT_SOURCES(
1774: id,
1767: --- If any errors happen abort API
1768: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1769: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1770: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1771: RAISE Okc_Api.G_EXCEPTION_ERROR;
1772: END IF;
1773: INSERT INTO OKL_ACCT_SOURCES(
1774: id,
1775: source_table,
1864: l_ase_rec.last_update_login);
1865: -- Set OUT values
1866: x_ase_rec := l_ase_rec;
1867: x_return_status := l_return_status;
1868: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1869: EXCEPTION
1870: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1871: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1872: (
1866: x_ase_rec := l_ase_rec;
1867: x_return_status := l_return_status;
1868: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1869: EXCEPTION
1870: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1871: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1872: (
1873: l_api_name,
1874: G_PKG_NAME,
1867: x_return_status := l_return_status;
1868: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1869: EXCEPTION
1870: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1871: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1872: (
1873: l_api_name,
1874: G_PKG_NAME,
1875: 'OKC_API.G_RET_STS_ERROR',
1871: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1872: (
1873: l_api_name,
1874: G_PKG_NAME,
1875: 'OKC_API.G_RET_STS_ERROR',
1876: x_msg_count,
1877: x_msg_data,
1878: '_PVT'
1879: );
1876: x_msg_count,
1877: x_msg_data,
1878: '_PVT'
1879: );
1880: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1881: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1882: (
1883: l_api_name,
1884: G_PKG_NAME,
1877: x_msg_data,
1878: '_PVT'
1879: );
1880: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1881: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1882: (
1883: l_api_name,
1884: G_PKG_NAME,
1885: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1881: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1882: (
1883: l_api_name,
1884: G_PKG_NAME,
1885: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1886: x_msg_count,
1887: x_msg_data,
1888: '_PVT'
1889: );
1887: x_msg_data,
1888: '_PVT'
1889: );
1890: WHEN OTHERS THEN
1891: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1892: (
1893: l_api_name,
1894: G_PKG_NAME,
1895: 'OTHERS',
1911: x_asev_rec OUT NOCOPY asev_rec_type) IS
1912:
1913: l_api_version CONSTANT NUMBER := 1;
1914: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
1915: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1916: l_asev_rec asev_rec_type := p_asev_rec;
1917: l_def_asev_rec asev_rec_type;
1918: l_ase_rec ase_rec_type;
1919: lx_ase_rec ase_rec_type;
1938: FUNCTION Set_Attributes (
1939: p_asev_rec IN asev_rec_type,
1940: x_asev_rec OUT NOCOPY asev_rec_type
1941: ) RETURN VARCHAR2 IS
1942: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1943:
1944: l_request_id NUMBER := Fnd_Global.CONC_REQUEST_ID;
1945: l_prog_app_id NUMBER := Fnd_Global.PROG_APPL_ID;
1946: l_program_id NUMBER := Fnd_Global.CONC_PROGRAM_ID;
1963:
1964: RETURN(l_return_status);
1965: END Set_Attributes;
1966: BEGIN
1967: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
1968: G_PKG_NAME,
1969: p_init_msg_list,
1970: l_api_version,
1971: p_api_version,
1970: l_api_version,
1971: p_api_version,
1972: '_PVT',
1973: x_return_status);
1974: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1975: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1976: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1977: RAISE Okc_Api.G_EXCEPTION_ERROR;
1978: END IF;
1971: p_api_version,
1972: '_PVT',
1973: x_return_status);
1974: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1975: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1976: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1977: RAISE Okc_Api.G_EXCEPTION_ERROR;
1978: END IF;
1979: l_asev_rec := null_out_defaults(p_asev_rec);
1972: '_PVT',
1973: x_return_status);
1974: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1975: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1976: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1977: RAISE Okc_Api.G_EXCEPTION_ERROR;
1978: END IF;
1979: l_asev_rec := null_out_defaults(p_asev_rec);
1980: -- Set primary key value
1973: x_return_status);
1974: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1975: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1976: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1977: RAISE Okc_Api.G_EXCEPTION_ERROR;
1978: END IF;
1979: l_asev_rec := null_out_defaults(p_asev_rec);
1980: -- Set primary key value
1981: l_asev_rec.ID := get_seq_id;
1983: l_return_Status := Set_Attributes(
1984: l_asev_rec, -- IN
1985: l_def_asev_rec); -- OUT
1986: --- If any errors happen abort API
1987: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1988: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1989: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1990: RAISE Okc_Api.G_EXCEPTION_ERROR;
1991: END IF;
1984: l_asev_rec, -- IN
1985: l_def_asev_rec); -- OUT
1986: --- If any errors happen abort API
1987: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1988: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1989: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1990: RAISE Okc_Api.G_EXCEPTION_ERROR;
1991: END IF;
1992: l_def_asev_rec := fill_who_columns(l_def_asev_rec);
1985: l_def_asev_rec); -- OUT
1986: --- If any errors happen abort API
1987: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1988: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1989: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1990: RAISE Okc_Api.G_EXCEPTION_ERROR;
1991: END IF;
1992: l_def_asev_rec := fill_who_columns(l_def_asev_rec);
1993: --- Validate all non-missing attributes (Item Level Validation)
1986: --- If any errors happen abort API
1987: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1988: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1989: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1990: RAISE Okc_Api.G_EXCEPTION_ERROR;
1991: END IF;
1992: l_def_asev_rec := fill_who_columns(l_def_asev_rec);
1993: --- Validate all non-missing attributes (Item Level Validation)
1994: l_return_status := Validate_Attributes(l_def_asev_rec);
1992: l_def_asev_rec := fill_who_columns(l_def_asev_rec);
1993: --- Validate all non-missing attributes (Item Level Validation)
1994: l_return_status := Validate_Attributes(l_def_asev_rec);
1995: --- If any errors happen abort API
1996: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1997: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1998: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1999: RAISE Okc_Api.G_EXCEPTION_ERROR;
2000: END IF;
1993: --- Validate all non-missing attributes (Item Level Validation)
1994: l_return_status := Validate_Attributes(l_def_asev_rec);
1995: --- If any errors happen abort API
1996: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1997: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1998: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1999: RAISE Okc_Api.G_EXCEPTION_ERROR;
2000: END IF;
2001: l_return_status := Validate_Record(l_def_asev_rec);
1994: l_return_status := Validate_Attributes(l_def_asev_rec);
1995: --- If any errors happen abort API
1996: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1997: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1998: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1999: RAISE Okc_Api.G_EXCEPTION_ERROR;
2000: END IF;
2001: l_return_status := Validate_Record(l_def_asev_rec);
2002: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1995: --- If any errors happen abort API
1996: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1997: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1998: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1999: RAISE Okc_Api.G_EXCEPTION_ERROR;
2000: END IF;
2001: l_return_status := Validate_Record(l_def_asev_rec);
2002: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2003: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1998: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1999: RAISE Okc_Api.G_EXCEPTION_ERROR;
2000: END IF;
2001: l_return_status := Validate_Record(l_def_asev_rec);
2002: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2003: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2004: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2005: RAISE Okc_Api.G_EXCEPTION_ERROR;
2006: END IF;
1999: RAISE Okc_Api.G_EXCEPTION_ERROR;
2000: END IF;
2001: l_return_status := Validate_Record(l_def_asev_rec);
2002: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2003: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2004: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2005: RAISE Okc_Api.G_EXCEPTION_ERROR;
2006: END IF;
2007: -----------------------------------------
2000: END IF;
2001: l_return_status := Validate_Record(l_def_asev_rec);
2002: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2003: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2004: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2005: RAISE Okc_Api.G_EXCEPTION_ERROR;
2006: END IF;
2007: -----------------------------------------
2008: -- Move VIEW record to "Child" records --
2001: l_return_status := Validate_Record(l_def_asev_rec);
2002: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2003: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2004: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2005: RAISE Okc_Api.G_EXCEPTION_ERROR;
2006: END IF;
2007: -----------------------------------------
2008: -- Move VIEW record to "Child" records --
2009: -----------------------------------------
2018: x_msg_data,
2019: l_ase_rec,
2020: lx_ase_rec
2021: );
2022: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2023: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2024: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2025: RAISE Okc_Api.G_EXCEPTION_ERROR;
2026: END IF;
2019: l_ase_rec,
2020: lx_ase_rec
2021: );
2022: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2023: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2024: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2025: RAISE Okc_Api.G_EXCEPTION_ERROR;
2026: END IF;
2027: migrate(lx_ase_rec, l_def_asev_rec);
2020: lx_ase_rec
2021: );
2022: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2023: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2024: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2025: RAISE Okc_Api.G_EXCEPTION_ERROR;
2026: END IF;
2027: migrate(lx_ase_rec, l_def_asev_rec);
2028: -- Set OUT values
2021: );
2022: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2023: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2024: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2025: RAISE Okc_Api.G_EXCEPTION_ERROR;
2026: END IF;
2027: migrate(lx_ase_rec, l_def_asev_rec);
2028: -- Set OUT values
2029: x_asev_rec := l_def_asev_rec;
2027: migrate(lx_ase_rec, l_def_asev_rec);
2028: -- Set OUT values
2029: x_asev_rec := l_def_asev_rec;
2030: x_return_status := l_return_status;
2031: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2032: EXCEPTION
2033: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2034: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2035: (
2029: x_asev_rec := l_def_asev_rec;
2030: x_return_status := l_return_status;
2031: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2032: EXCEPTION
2033: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2034: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2035: (
2036: l_api_name,
2037: G_PKG_NAME,
2030: x_return_status := l_return_status;
2031: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2032: EXCEPTION
2033: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2034: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2035: (
2036: l_api_name,
2037: G_PKG_NAME,
2038: 'OKC_API.G_RET_STS_ERROR',
2034: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2035: (
2036: l_api_name,
2037: G_PKG_NAME,
2038: 'OKC_API.G_RET_STS_ERROR',
2039: x_msg_count,
2040: x_msg_data,
2041: '_PVT'
2042: );
2039: x_msg_count,
2040: x_msg_data,
2041: '_PVT'
2042: );
2043: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2044: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2045: (
2046: l_api_name,
2047: G_PKG_NAME,
2040: x_msg_data,
2041: '_PVT'
2042: );
2043: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2044: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2045: (
2046: l_api_name,
2047: G_PKG_NAME,
2048: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2044: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2045: (
2046: l_api_name,
2047: G_PKG_NAME,
2048: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2049: x_msg_count,
2050: x_msg_data,
2051: '_PVT'
2052: );
2050: x_msg_data,
2051: '_PVT'
2052: );
2053: WHEN OTHERS THEN
2054: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2055: (
2056: l_api_name,
2057: G_PKG_NAME,
2058: 'OTHERS',
2074: x_asev_tbl OUT NOCOPY asev_tbl_type) IS
2075:
2076: l_api_version CONSTANT NUMBER := 1;
2077: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row_bulk';
2078: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2079:
2080: l_tabsize NUMBER := p_asev_tbl.COUNT;
2081: --Modified by kthiruva on 07-Oct-2005
2082: --The id column in the Okl_Acct_Sources table is VARCHAR2(240)
2140: l_program_id NUMBER := Fnd_Global.CONC_PROGRAM_ID;
2141: l_prog_update_date DATE;
2142:
2143: BEGIN
2144: x_return_Status := OKC_API.G_RET_STS_SUCCESS;
2145: i := p_asev_tbl.FIRST;
2146: j:=0;
2147: --Assigning the values for the who columns
2148: l_created_by := FND_GLOBAL.USER_ID;
2308: ,in_last_update_date(i)
2309: ,in_last_update_login(i));
2310:
2311: x_return_status := l_return_status;
2312: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2313: EXCEPTION
2314: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2315: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2316: (
2310:
2311: x_return_status := l_return_status;
2312: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2313: EXCEPTION
2314: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2315: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2316: (
2317: l_api_name,
2318: G_PKG_NAME,
2311: x_return_status := l_return_status;
2312: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2313: EXCEPTION
2314: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2315: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2316: (
2317: l_api_name,
2318: G_PKG_NAME,
2319: 'OKC_API.G_RET_STS_ERROR',
2315: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2316: (
2317: l_api_name,
2318: G_PKG_NAME,
2319: 'OKC_API.G_RET_STS_ERROR',
2320: x_msg_count,
2321: x_msg_data,
2322: '_PVT'
2323: );
2320: x_msg_count,
2321: x_msg_data,
2322: '_PVT'
2323: );
2324: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2325: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2326: (
2327: l_api_name,
2328: G_PKG_NAME,
2321: x_msg_data,
2322: '_PVT'
2323: );
2324: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2325: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2326: (
2327: l_api_name,
2328: G_PKG_NAME,
2329: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2325: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2326: (
2327: l_api_name,
2328: G_PKG_NAME,
2329: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2330: x_msg_count,
2331: x_msg_data,
2332: '_PVT'
2333: );
2331: x_msg_data,
2332: '_PVT'
2333: );
2334: WHEN OTHERS THEN
2335: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2336: (
2337: l_api_name,
2338: G_PKG_NAME,
2339: 'OTHERS',
2359: x_asev_tbl OUT NOCOPY asev_tbl_type) IS
2360:
2361: l_api_version CONSTANT NUMBER := 1;
2362: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
2363: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2364: l_overall_Status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2365: i NUMBER := 0;
2366:
2367: BEGIN
2360:
2361: l_api_version CONSTANT NUMBER := 1;
2362: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
2363: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2364: l_overall_Status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2365: i NUMBER := 0;
2366:
2367: BEGIN
2368: -- Make sure PL/SQL table has records in it before passing
2370: i := p_asev_tbl.FIRST;
2371: LOOP
2372: insert_row (
2373: p_api_version => p_api_version,
2374: p_init_msg_list => Okc_Api.G_FALSE,
2375: x_return_status => x_return_status,
2376: x_msg_count => x_msg_count,
2377: x_msg_data => x_msg_data,
2378: p_asev_rec => p_asev_tbl(i),
2377: x_msg_data => x_msg_data,
2378: p_asev_rec => p_asev_tbl(i),
2379: x_asev_rec => x_asev_tbl(i));
2380:
2381: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
2382: IF (l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2383: l_overall_status := x_return_status;
2384: END IF;
2385: END IF;
2378: p_asev_rec => p_asev_tbl(i),
2379: x_asev_rec => x_asev_tbl(i));
2380:
2381: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
2382: IF (l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2383: l_overall_status := x_return_status;
2384: END IF;
2385: END IF;
2386:
2390: END IF;
2391: x_return_status := l_overall_Status;
2392:
2393: EXCEPTION
2394: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2395: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2396: (
2397: l_api_name,
2398: G_PKG_NAME,
2391: x_return_status := l_overall_Status;
2392:
2393: EXCEPTION
2394: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2395: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2396: (
2397: l_api_name,
2398: G_PKG_NAME,
2399: 'OKC_API.G_RET_STS_ERROR',
2395: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2396: (
2397: l_api_name,
2398: G_PKG_NAME,
2399: 'OKC_API.G_RET_STS_ERROR',
2400: x_msg_count,
2401: x_msg_data,
2402: '_PVT'
2403: );
2400: x_msg_count,
2401: x_msg_data,
2402: '_PVT'
2403: );
2404: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2405: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2406: (
2407: l_api_name,
2408: G_PKG_NAME,
2401: x_msg_data,
2402: '_PVT'
2403: );
2404: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2405: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2406: (
2407: l_api_name,
2408: G_PKG_NAME,
2409: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2405: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2406: (
2407: l_api_name,
2408: G_PKG_NAME,
2409: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2410: x_msg_count,
2411: x_msg_data,
2412: '_PVT'
2413: );
2411: x_msg_data,
2412: '_PVT'
2413: );
2414: WHEN OTHERS THEN
2415: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2416: (
2417: l_api_name,
2418: G_PKG_NAME,
2419: 'OTHERS',
2445: FOR UPDATE NOWAIT;
2446:
2447: l_api_version CONSTANT NUMBER := 1;
2448: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
2449: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2450: l_lock_var lock_csr%ROWTYPE;
2451: l_row_notfound BOOLEAN := FALSE;
2452: lc_row_notfound BOOLEAN := FALSE;
2453: BEGIN
2450: l_lock_var lock_csr%ROWTYPE;
2451: l_row_notfound BOOLEAN := FALSE;
2452: lc_row_notfound BOOLEAN := FALSE;
2453: BEGIN
2454: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
2455: p_init_msg_list,
2456: '_PVT',
2457: x_return_status);
2458: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2454: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
2455: p_init_msg_list,
2456: '_PVT',
2457: x_return_status);
2458: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2459: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2460: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2461: RAISE Okc_Api.G_EXCEPTION_ERROR;
2462: END IF;
2455: p_init_msg_list,
2456: '_PVT',
2457: x_return_status);
2458: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2459: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2460: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2461: RAISE Okc_Api.G_EXCEPTION_ERROR;
2462: END IF;
2463: BEGIN
2456: '_PVT',
2457: x_return_status);
2458: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2459: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2460: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2461: RAISE Okc_Api.G_EXCEPTION_ERROR;
2462: END IF;
2463: BEGIN
2464: OPEN lock_csr(p_ase_rec);
2457: x_return_status);
2458: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2459: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2460: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2461: RAISE Okc_Api.G_EXCEPTION_ERROR;
2462: END IF;
2463: BEGIN
2464: OPEN lock_csr(p_ase_rec);
2465: FETCH lock_csr INTO l_lock_var;
2469: WHEN E_Resource_Busy THEN
2470: IF (lock_csr%ISOPEN) THEN
2471: CLOSE lock_csr;
2472: END IF;
2473: Okc_Api.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
2474: RAISE App_Exceptions.RECORD_LOCK_EXCEPTION;
2475: END;
2476:
2477: IF ( l_row_notfound ) THEN
2474: RAISE App_Exceptions.RECORD_LOCK_EXCEPTION;
2475: END;
2476:
2477: IF ( l_row_notfound ) THEN
2478: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2479: RAISE Okc_Api.G_EXCEPTION_ERROR;
2480: ELSE
2481: IF (l_lock_var.id <> p_ase_rec.id) THEN
2482: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2475: END;
2476:
2477: IF ( l_row_notfound ) THEN
2478: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2479: RAISE Okc_Api.G_EXCEPTION_ERROR;
2480: ELSE
2481: IF (l_lock_var.id <> p_ase_rec.id) THEN
2482: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2483: RAISE Okc_Api.G_EXCEPTION_ERROR;
2478: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2479: RAISE Okc_Api.G_EXCEPTION_ERROR;
2480: ELSE
2481: IF (l_lock_var.id <> p_ase_rec.id) THEN
2482: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2483: RAISE Okc_Api.G_EXCEPTION_ERROR;
2484: END IF;
2485: IF (l_lock_var.source_table <> p_ase_rec.source_table) THEN
2486: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2479: RAISE Okc_Api.G_EXCEPTION_ERROR;
2480: ELSE
2481: IF (l_lock_var.id <> p_ase_rec.id) THEN
2482: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2483: RAISE Okc_Api.G_EXCEPTION_ERROR;
2484: END IF;
2485: IF (l_lock_var.source_table <> p_ase_rec.source_table) THEN
2486: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2487: RAISE Okc_Api.G_EXCEPTION_ERROR;
2482: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2483: RAISE Okc_Api.G_EXCEPTION_ERROR;
2484: END IF;
2485: IF (l_lock_var.source_table <> p_ase_rec.source_table) THEN
2486: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2487: RAISE Okc_Api.G_EXCEPTION_ERROR;
2488: END IF;
2489: IF (l_lock_var.source_id <> p_ase_rec.source_id) THEN
2490: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2483: RAISE Okc_Api.G_EXCEPTION_ERROR;
2484: END IF;
2485: IF (l_lock_var.source_table <> p_ase_rec.source_table) THEN
2486: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2487: RAISE Okc_Api.G_EXCEPTION_ERROR;
2488: END IF;
2489: IF (l_lock_var.source_id <> p_ase_rec.source_id) THEN
2490: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2491: RAISE Okc_Api.G_EXCEPTION_ERROR;
2486: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2487: RAISE Okc_Api.G_EXCEPTION_ERROR;
2488: END IF;
2489: IF (l_lock_var.source_id <> p_ase_rec.source_id) THEN
2490: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2491: RAISE Okc_Api.G_EXCEPTION_ERROR;
2492: END IF;
2493: IF (l_lock_var.pdt_id <> p_ase_rec.pdt_id) THEN
2494: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2487: RAISE Okc_Api.G_EXCEPTION_ERROR;
2488: END IF;
2489: IF (l_lock_var.source_id <> p_ase_rec.source_id) THEN
2490: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2491: RAISE Okc_Api.G_EXCEPTION_ERROR;
2492: END IF;
2493: IF (l_lock_var.pdt_id <> p_ase_rec.pdt_id) THEN
2494: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2495: RAISE Okc_Api.G_EXCEPTION_ERROR;
2490: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2491: RAISE Okc_Api.G_EXCEPTION_ERROR;
2492: END IF;
2493: IF (l_lock_var.pdt_id <> p_ase_rec.pdt_id) THEN
2494: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2495: RAISE Okc_Api.G_EXCEPTION_ERROR;
2496: END IF;
2497: IF (l_lock_var.try_id <> p_ase_rec.try_id) THEN
2498: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2491: RAISE Okc_Api.G_EXCEPTION_ERROR;
2492: END IF;
2493: IF (l_lock_var.pdt_id <> p_ase_rec.pdt_id) THEN
2494: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2495: RAISE Okc_Api.G_EXCEPTION_ERROR;
2496: END IF;
2497: IF (l_lock_var.try_id <> p_ase_rec.try_id) THEN
2498: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2499: RAISE Okc_Api.G_EXCEPTION_ERROR;
2494: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2495: RAISE Okc_Api.G_EXCEPTION_ERROR;
2496: END IF;
2497: IF (l_lock_var.try_id <> p_ase_rec.try_id) THEN
2498: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2499: RAISE Okc_Api.G_EXCEPTION_ERROR;
2500: END IF;
2501: IF (l_lock_var.sty_id <> p_ase_rec.sty_id) THEN
2502: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2495: RAISE Okc_Api.G_EXCEPTION_ERROR;
2496: END IF;
2497: IF (l_lock_var.try_id <> p_ase_rec.try_id) THEN
2498: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2499: RAISE Okc_Api.G_EXCEPTION_ERROR;
2500: END IF;
2501: IF (l_lock_var.sty_id <> p_ase_rec.sty_id) THEN
2502: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2503: RAISE Okc_Api.G_EXCEPTION_ERROR;
2498: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2499: RAISE Okc_Api.G_EXCEPTION_ERROR;
2500: END IF;
2501: IF (l_lock_var.sty_id <> p_ase_rec.sty_id) THEN
2502: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2503: RAISE Okc_Api.G_EXCEPTION_ERROR;
2504: END IF;
2505: IF (l_lock_var.memo_yn <> p_ase_rec.memo_yn) THEN
2506: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2499: RAISE Okc_Api.G_EXCEPTION_ERROR;
2500: END IF;
2501: IF (l_lock_var.sty_id <> p_ase_rec.sty_id) THEN
2502: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2503: RAISE Okc_Api.G_EXCEPTION_ERROR;
2504: END IF;
2505: IF (l_lock_var.memo_yn <> p_ase_rec.memo_yn) THEN
2506: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2507: RAISE Okc_Api.G_EXCEPTION_ERROR;
2502: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2503: RAISE Okc_Api.G_EXCEPTION_ERROR;
2504: END IF;
2505: IF (l_lock_var.memo_yn <> p_ase_rec.memo_yn) THEN
2506: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2507: RAISE Okc_Api.G_EXCEPTION_ERROR;
2508: END IF;
2509: IF (l_lock_var.factor_investor_flag <> p_ase_rec.factor_investor_flag) THEN
2510: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2503: RAISE Okc_Api.G_EXCEPTION_ERROR;
2504: END IF;
2505: IF (l_lock_var.memo_yn <> p_ase_rec.memo_yn) THEN
2506: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2507: RAISE Okc_Api.G_EXCEPTION_ERROR;
2508: END IF;
2509: IF (l_lock_var.factor_investor_flag <> p_ase_rec.factor_investor_flag) THEN
2510: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2511: RAISE Okc_Api.G_EXCEPTION_ERROR;
2506: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2507: RAISE Okc_Api.G_EXCEPTION_ERROR;
2508: END IF;
2509: IF (l_lock_var.factor_investor_flag <> p_ase_rec.factor_investor_flag) THEN
2510: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2511: RAISE Okc_Api.G_EXCEPTION_ERROR;
2512: END IF;
2513: IF (l_lock_var.factor_investor_code <> p_ase_rec.factor_investor_code) THEN
2514: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2507: RAISE Okc_Api.G_EXCEPTION_ERROR;
2508: END IF;
2509: IF (l_lock_var.factor_investor_flag <> p_ase_rec.factor_investor_flag) THEN
2510: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2511: RAISE Okc_Api.G_EXCEPTION_ERROR;
2512: END IF;
2513: IF (l_lock_var.factor_investor_code <> p_ase_rec.factor_investor_code) THEN
2514: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2515: RAISE Okc_Api.G_EXCEPTION_ERROR;
2510: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2511: RAISE Okc_Api.G_EXCEPTION_ERROR;
2512: END IF;
2513: IF (l_lock_var.factor_investor_code <> p_ase_rec.factor_investor_code) THEN
2514: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2515: RAISE Okc_Api.G_EXCEPTION_ERROR;
2516: END IF;
2517: IF (l_lock_var.amount <> p_ase_rec.amount) THEN
2518: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2511: RAISE Okc_Api.G_EXCEPTION_ERROR;
2512: END IF;
2513: IF (l_lock_var.factor_investor_code <> p_ase_rec.factor_investor_code) THEN
2514: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2515: RAISE Okc_Api.G_EXCEPTION_ERROR;
2516: END IF;
2517: IF (l_lock_var.amount <> p_ase_rec.amount) THEN
2518: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2519: RAISE Okc_Api.G_EXCEPTION_ERROR;
2514: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2515: RAISE Okc_Api.G_EXCEPTION_ERROR;
2516: END IF;
2517: IF (l_lock_var.amount <> p_ase_rec.amount) THEN
2518: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2519: RAISE Okc_Api.G_EXCEPTION_ERROR;
2520: END IF;
2521: IF (l_lock_var.formula_used <> p_ase_rec.formula_used) THEN
2522: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2515: RAISE Okc_Api.G_EXCEPTION_ERROR;
2516: END IF;
2517: IF (l_lock_var.amount <> p_ase_rec.amount) THEN
2518: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2519: RAISE Okc_Api.G_EXCEPTION_ERROR;
2520: END IF;
2521: IF (l_lock_var.formula_used <> p_ase_rec.formula_used) THEN
2522: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2523: RAISE Okc_Api.G_EXCEPTION_ERROR;
2518: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2519: RAISE Okc_Api.G_EXCEPTION_ERROR;
2520: END IF;
2521: IF (l_lock_var.formula_used <> p_ase_rec.formula_used) THEN
2522: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2523: RAISE Okc_Api.G_EXCEPTION_ERROR;
2524: END IF;
2525: IF (l_lock_var.entered_date <> p_ase_rec.entered_date) THEN
2526: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2519: RAISE Okc_Api.G_EXCEPTION_ERROR;
2520: END IF;
2521: IF (l_lock_var.formula_used <> p_ase_rec.formula_used) THEN
2522: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2523: RAISE Okc_Api.G_EXCEPTION_ERROR;
2524: END IF;
2525: IF (l_lock_var.entered_date <> p_ase_rec.entered_date) THEN
2526: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2527: RAISE Okc_Api.G_EXCEPTION_ERROR;
2522: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2523: RAISE Okc_Api.G_EXCEPTION_ERROR;
2524: END IF;
2525: IF (l_lock_var.entered_date <> p_ase_rec.entered_date) THEN
2526: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2527: RAISE Okc_Api.G_EXCEPTION_ERROR;
2528: END IF;
2529: IF (l_lock_var.accounting_date <> p_ase_rec.accounting_date) THEN
2530: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2523: RAISE Okc_Api.G_EXCEPTION_ERROR;
2524: END IF;
2525: IF (l_lock_var.entered_date <> p_ase_rec.entered_date) THEN
2526: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2527: RAISE Okc_Api.G_EXCEPTION_ERROR;
2528: END IF;
2529: IF (l_lock_var.accounting_date <> p_ase_rec.accounting_date) THEN
2530: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2531: RAISE Okc_Api.G_EXCEPTION_ERROR;
2526: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2527: RAISE Okc_Api.G_EXCEPTION_ERROR;
2528: END IF;
2529: IF (l_lock_var.accounting_date <> p_ase_rec.accounting_date) THEN
2530: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2531: RAISE Okc_Api.G_EXCEPTION_ERROR;
2532: END IF;
2533: IF (l_lock_var.gl_reversal_flag <> p_ase_rec.gl_reversal_flag) THEN
2534: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2527: RAISE Okc_Api.G_EXCEPTION_ERROR;
2528: END IF;
2529: IF (l_lock_var.accounting_date <> p_ase_rec.accounting_date) THEN
2530: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2531: RAISE Okc_Api.G_EXCEPTION_ERROR;
2532: END IF;
2533: IF (l_lock_var.gl_reversal_flag <> p_ase_rec.gl_reversal_flag) THEN
2534: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2535: RAISE Okc_Api.G_EXCEPTION_ERROR;
2530: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2531: RAISE Okc_Api.G_EXCEPTION_ERROR;
2532: END IF;
2533: IF (l_lock_var.gl_reversal_flag <> p_ase_rec.gl_reversal_flag) THEN
2534: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2535: RAISE Okc_Api.G_EXCEPTION_ERROR;
2536: END IF;
2537: IF (l_lock_var.post_to_gl <> p_ase_rec.post_to_gl) THEN
2538: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2531: RAISE Okc_Api.G_EXCEPTION_ERROR;
2532: END IF;
2533: IF (l_lock_var.gl_reversal_flag <> p_ase_rec.gl_reversal_flag) THEN
2534: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2535: RAISE Okc_Api.G_EXCEPTION_ERROR;
2536: END IF;
2537: IF (l_lock_var.post_to_gl <> p_ase_rec.post_to_gl) THEN
2538: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2539: RAISE Okc_Api.G_EXCEPTION_ERROR;
2534: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2535: RAISE Okc_Api.G_EXCEPTION_ERROR;
2536: END IF;
2537: IF (l_lock_var.post_to_gl <> p_ase_rec.post_to_gl) THEN
2538: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2539: RAISE Okc_Api.G_EXCEPTION_ERROR;
2540: END IF;
2541: IF (l_lock_var.currency_code <> p_ase_rec.currency_code) THEN
2542: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2535: RAISE Okc_Api.G_EXCEPTION_ERROR;
2536: END IF;
2537: IF (l_lock_var.post_to_gl <> p_ase_rec.post_to_gl) THEN
2538: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2539: RAISE Okc_Api.G_EXCEPTION_ERROR;
2540: END IF;
2541: IF (l_lock_var.currency_code <> p_ase_rec.currency_code) THEN
2542: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2543: RAISE Okc_Api.G_EXCEPTION_ERROR;
2538: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2539: RAISE Okc_Api.G_EXCEPTION_ERROR;
2540: END IF;
2541: IF (l_lock_var.currency_code <> p_ase_rec.currency_code) THEN
2542: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2543: RAISE Okc_Api.G_EXCEPTION_ERROR;
2544: END IF;
2545: IF (l_lock_var.currency_conversion_type <> p_ase_rec.currency_conversion_type) THEN
2546: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2539: RAISE Okc_Api.G_EXCEPTION_ERROR;
2540: END IF;
2541: IF (l_lock_var.currency_code <> p_ase_rec.currency_code) THEN
2542: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2543: RAISE Okc_Api.G_EXCEPTION_ERROR;
2544: END IF;
2545: IF (l_lock_var.currency_conversion_type <> p_ase_rec.currency_conversion_type) THEN
2546: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2547: RAISE Okc_Api.G_EXCEPTION_ERROR;
2542: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2543: RAISE Okc_Api.G_EXCEPTION_ERROR;
2544: END IF;
2545: IF (l_lock_var.currency_conversion_type <> p_ase_rec.currency_conversion_type) THEN
2546: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2547: RAISE Okc_Api.G_EXCEPTION_ERROR;
2548: END IF;
2549: IF (l_lock_var.currency_conversion_date <> p_ase_rec.currency_conversion_date) THEN
2550: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2543: RAISE Okc_Api.G_EXCEPTION_ERROR;
2544: END IF;
2545: IF (l_lock_var.currency_conversion_type <> p_ase_rec.currency_conversion_type) THEN
2546: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2547: RAISE Okc_Api.G_EXCEPTION_ERROR;
2548: END IF;
2549: IF (l_lock_var.currency_conversion_date <> p_ase_rec.currency_conversion_date) THEN
2550: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2551: RAISE Okc_Api.G_EXCEPTION_ERROR;
2546: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2547: RAISE Okc_Api.G_EXCEPTION_ERROR;
2548: END IF;
2549: IF (l_lock_var.currency_conversion_date <> p_ase_rec.currency_conversion_date) THEN
2550: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2551: RAISE Okc_Api.G_EXCEPTION_ERROR;
2552: END IF;
2553: IF (l_lock_var.currency_conversion_rate <> p_ase_rec.currency_conversion_rate) THEN
2554: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2547: RAISE Okc_Api.G_EXCEPTION_ERROR;
2548: END IF;
2549: IF (l_lock_var.currency_conversion_date <> p_ase_rec.currency_conversion_date) THEN
2550: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2551: RAISE Okc_Api.G_EXCEPTION_ERROR;
2552: END IF;
2553: IF (l_lock_var.currency_conversion_rate <> p_ase_rec.currency_conversion_rate) THEN
2554: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2555: RAISE Okc_Api.G_EXCEPTION_ERROR;
2550: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2551: RAISE Okc_Api.G_EXCEPTION_ERROR;
2552: END IF;
2553: IF (l_lock_var.currency_conversion_rate <> p_ase_rec.currency_conversion_rate) THEN
2554: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2555: RAISE Okc_Api.G_EXCEPTION_ERROR;
2556: END IF;
2557: IF (l_lock_var.khr_id <> p_ase_rec.khr_id) THEN
2558: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2551: RAISE Okc_Api.G_EXCEPTION_ERROR;
2552: END IF;
2553: IF (l_lock_var.currency_conversion_rate <> p_ase_rec.currency_conversion_rate) THEN
2554: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2555: RAISE Okc_Api.G_EXCEPTION_ERROR;
2556: END IF;
2557: IF (l_lock_var.khr_id <> p_ase_rec.khr_id) THEN
2558: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2559: RAISE Okc_Api.G_EXCEPTION_ERROR;
2554: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2555: RAISE Okc_Api.G_EXCEPTION_ERROR;
2556: END IF;
2557: IF (l_lock_var.khr_id <> p_ase_rec.khr_id) THEN
2558: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2559: RAISE Okc_Api.G_EXCEPTION_ERROR;
2560: END IF;
2561: IF (l_lock_var.kle_id <> p_ase_rec.kle_id) THEN
2562: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2555: RAISE Okc_Api.G_EXCEPTION_ERROR;
2556: END IF;
2557: IF (l_lock_var.khr_id <> p_ase_rec.khr_id) THEN
2558: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2559: RAISE Okc_Api.G_EXCEPTION_ERROR;
2560: END IF;
2561: IF (l_lock_var.kle_id <> p_ase_rec.kle_id) THEN
2562: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2563: RAISE Okc_Api.G_EXCEPTION_ERROR;
2558: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2559: RAISE Okc_Api.G_EXCEPTION_ERROR;
2560: END IF;
2561: IF (l_lock_var.kle_id <> p_ase_rec.kle_id) THEN
2562: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2563: RAISE Okc_Api.G_EXCEPTION_ERROR;
2564: END IF;
2565: IF (l_lock_var.pay_vendor_sites_pk <> p_ase_rec.pay_vendor_sites_pk) THEN
2566: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2559: RAISE Okc_Api.G_EXCEPTION_ERROR;
2560: END IF;
2561: IF (l_lock_var.kle_id <> p_ase_rec.kle_id) THEN
2562: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2563: RAISE Okc_Api.G_EXCEPTION_ERROR;
2564: END IF;
2565: IF (l_lock_var.pay_vendor_sites_pk <> p_ase_rec.pay_vendor_sites_pk) THEN
2566: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2567: RAISE Okc_Api.G_EXCEPTION_ERROR;
2562: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2563: RAISE Okc_Api.G_EXCEPTION_ERROR;
2564: END IF;
2565: IF (l_lock_var.pay_vendor_sites_pk <> p_ase_rec.pay_vendor_sites_pk) THEN
2566: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2567: RAISE Okc_Api.G_EXCEPTION_ERROR;
2568: END IF;
2569: IF (l_lock_var.rec_site_uses_pk <> p_ase_rec.rec_site_uses_pk) THEN
2570: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2563: RAISE Okc_Api.G_EXCEPTION_ERROR;
2564: END IF;
2565: IF (l_lock_var.pay_vendor_sites_pk <> p_ase_rec.pay_vendor_sites_pk) THEN
2566: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2567: RAISE Okc_Api.G_EXCEPTION_ERROR;
2568: END IF;
2569: IF (l_lock_var.rec_site_uses_pk <> p_ase_rec.rec_site_uses_pk) THEN
2570: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2571: RAISE Okc_Api.G_EXCEPTION_ERROR;
2566: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2567: RAISE Okc_Api.G_EXCEPTION_ERROR;
2568: END IF;
2569: IF (l_lock_var.rec_site_uses_pk <> p_ase_rec.rec_site_uses_pk) THEN
2570: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2571: RAISE Okc_Api.G_EXCEPTION_ERROR;
2572: END IF;
2573: IF (l_lock_var.asset_category_id_pk1 <> p_ase_rec.asset_category_id_pk1) THEN
2574: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2567: RAISE Okc_Api.G_EXCEPTION_ERROR;
2568: END IF;
2569: IF (l_lock_var.rec_site_uses_pk <> p_ase_rec.rec_site_uses_pk) THEN
2570: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2571: RAISE Okc_Api.G_EXCEPTION_ERROR;
2572: END IF;
2573: IF (l_lock_var.asset_category_id_pk1 <> p_ase_rec.asset_category_id_pk1) THEN
2574: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2575: RAISE Okc_Api.G_EXCEPTION_ERROR;
2570: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2571: RAISE Okc_Api.G_EXCEPTION_ERROR;
2572: END IF;
2573: IF (l_lock_var.asset_category_id_pk1 <> p_ase_rec.asset_category_id_pk1) THEN
2574: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2575: RAISE Okc_Api.G_EXCEPTION_ERROR;
2576: END IF;
2577: IF (l_lock_var.asset_book_pk2 <> p_ase_rec.asset_book_pk2) THEN
2578: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2571: RAISE Okc_Api.G_EXCEPTION_ERROR;
2572: END IF;
2573: IF (l_lock_var.asset_category_id_pk1 <> p_ase_rec.asset_category_id_pk1) THEN
2574: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2575: RAISE Okc_Api.G_EXCEPTION_ERROR;
2576: END IF;
2577: IF (l_lock_var.asset_book_pk2 <> p_ase_rec.asset_book_pk2) THEN
2578: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2579: RAISE Okc_Api.G_EXCEPTION_ERROR;
2574: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2575: RAISE Okc_Api.G_EXCEPTION_ERROR;
2576: END IF;
2577: IF (l_lock_var.asset_book_pk2 <> p_ase_rec.asset_book_pk2) THEN
2578: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2579: RAISE Okc_Api.G_EXCEPTION_ERROR;
2580: END IF;
2581: IF (l_lock_var.pay_financial_options_pk <> p_ase_rec.pay_financial_options_pk) THEN
2582: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2575: RAISE Okc_Api.G_EXCEPTION_ERROR;
2576: END IF;
2577: IF (l_lock_var.asset_book_pk2 <> p_ase_rec.asset_book_pk2) THEN
2578: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2579: RAISE Okc_Api.G_EXCEPTION_ERROR;
2580: END IF;
2581: IF (l_lock_var.pay_financial_options_pk <> p_ase_rec.pay_financial_options_pk) THEN
2582: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2583: RAISE Okc_Api.G_EXCEPTION_ERROR;
2578: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2579: RAISE Okc_Api.G_EXCEPTION_ERROR;
2580: END IF;
2581: IF (l_lock_var.pay_financial_options_pk <> p_ase_rec.pay_financial_options_pk) THEN
2582: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2583: RAISE Okc_Api.G_EXCEPTION_ERROR;
2584: END IF;
2585: IF (l_lock_var.jtf_sales_reps_pk <> p_ase_rec.jtf_sales_reps_pk) THEN
2586: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2579: RAISE Okc_Api.G_EXCEPTION_ERROR;
2580: END IF;
2581: IF (l_lock_var.pay_financial_options_pk <> p_ase_rec.pay_financial_options_pk) THEN
2582: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2583: RAISE Okc_Api.G_EXCEPTION_ERROR;
2584: END IF;
2585: IF (l_lock_var.jtf_sales_reps_pk <> p_ase_rec.jtf_sales_reps_pk) THEN
2586: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2587: RAISE Okc_Api.G_EXCEPTION_ERROR;
2582: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2583: RAISE Okc_Api.G_EXCEPTION_ERROR;
2584: END IF;
2585: IF (l_lock_var.jtf_sales_reps_pk <> p_ase_rec.jtf_sales_reps_pk) THEN
2586: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2587: RAISE Okc_Api.G_EXCEPTION_ERROR;
2588: END IF;
2589: IF (l_lock_var.inventory_item_id_pk1 <> p_ase_rec.inventory_item_id_pk1) THEN
2590: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2583: RAISE Okc_Api.G_EXCEPTION_ERROR;
2584: END IF;
2585: IF (l_lock_var.jtf_sales_reps_pk <> p_ase_rec.jtf_sales_reps_pk) THEN
2586: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2587: RAISE Okc_Api.G_EXCEPTION_ERROR;
2588: END IF;
2589: IF (l_lock_var.inventory_item_id_pk1 <> p_ase_rec.inventory_item_id_pk1) THEN
2590: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2591: RAISE Okc_Api.G_EXCEPTION_ERROR;
2586: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2587: RAISE Okc_Api.G_EXCEPTION_ERROR;
2588: END IF;
2589: IF (l_lock_var.inventory_item_id_pk1 <> p_ase_rec.inventory_item_id_pk1) THEN
2590: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2591: RAISE Okc_Api.G_EXCEPTION_ERROR;
2592: END IF;
2593: IF (l_lock_var.inventory_org_id_pk2 <> p_ase_rec.inventory_org_id_pk2) THEN
2594: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2587: RAISE Okc_Api.G_EXCEPTION_ERROR;
2588: END IF;
2589: IF (l_lock_var.inventory_item_id_pk1 <> p_ase_rec.inventory_item_id_pk1) THEN
2590: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2591: RAISE Okc_Api.G_EXCEPTION_ERROR;
2592: END IF;
2593: IF (l_lock_var.inventory_org_id_pk2 <> p_ase_rec.inventory_org_id_pk2) THEN
2594: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2595: RAISE Okc_Api.G_EXCEPTION_ERROR;
2590: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2591: RAISE Okc_Api.G_EXCEPTION_ERROR;
2592: END IF;
2593: IF (l_lock_var.inventory_org_id_pk2 <> p_ase_rec.inventory_org_id_pk2) THEN
2594: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2595: RAISE Okc_Api.G_EXCEPTION_ERROR;
2596: END IF;
2597: IF (l_lock_var.rec_trx_types_pk <> p_ase_rec.rec_trx_types_pk) THEN
2598: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2591: RAISE Okc_Api.G_EXCEPTION_ERROR;
2592: END IF;
2593: IF (l_lock_var.inventory_org_id_pk2 <> p_ase_rec.inventory_org_id_pk2) THEN
2594: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2595: RAISE Okc_Api.G_EXCEPTION_ERROR;
2596: END IF;
2597: IF (l_lock_var.rec_trx_types_pk <> p_ase_rec.rec_trx_types_pk) THEN
2598: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2599: RAISE Okc_Api.G_EXCEPTION_ERROR;
2594: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2595: RAISE Okc_Api.G_EXCEPTION_ERROR;
2596: END IF;
2597: IF (l_lock_var.rec_trx_types_pk <> p_ase_rec.rec_trx_types_pk) THEN
2598: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2599: RAISE Okc_Api.G_EXCEPTION_ERROR;
2600: END IF;
2601: IF (l_lock_var.avl_id <> p_ase_rec.avl_id) THEN
2602: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2595: RAISE Okc_Api.G_EXCEPTION_ERROR;
2596: END IF;
2597: IF (l_lock_var.rec_trx_types_pk <> p_ase_rec.rec_trx_types_pk) THEN
2598: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2599: RAISE Okc_Api.G_EXCEPTION_ERROR;
2600: END IF;
2601: IF (l_lock_var.avl_id <> p_ase_rec.avl_id) THEN
2602: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2603: RAISE Okc_Api.G_EXCEPTION_ERROR;
2598: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2599: RAISE Okc_Api.G_EXCEPTION_ERROR;
2600: END IF;
2601: IF (l_lock_var.avl_id <> p_ase_rec.avl_id) THEN
2602: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2603: RAISE Okc_Api.G_EXCEPTION_ERROR;
2604: END IF;
2605: IF (l_lock_var.local_product_yn <> p_ase_rec.local_product_yn) THEN
2606: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2599: RAISE Okc_Api.G_EXCEPTION_ERROR;
2600: END IF;
2601: IF (l_lock_var.avl_id <> p_ase_rec.avl_id) THEN
2602: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2603: RAISE Okc_Api.G_EXCEPTION_ERROR;
2604: END IF;
2605: IF (l_lock_var.local_product_yn <> p_ase_rec.local_product_yn) THEN
2606: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2607: RAISE Okc_Api.G_EXCEPTION_ERROR;
2602: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2603: RAISE Okc_Api.G_EXCEPTION_ERROR;
2604: END IF;
2605: IF (l_lock_var.local_product_yn <> p_ase_rec.local_product_yn) THEN
2606: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2607: RAISE Okc_Api.G_EXCEPTION_ERROR;
2608: END IF;
2609: IF (l_lock_var.internal_status <> p_ase_rec.internal_status) THEN
2610: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2603: RAISE Okc_Api.G_EXCEPTION_ERROR;
2604: END IF;
2605: IF (l_lock_var.local_product_yn <> p_ase_rec.local_product_yn) THEN
2606: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2607: RAISE Okc_Api.G_EXCEPTION_ERROR;
2608: END IF;
2609: IF (l_lock_var.internal_status <> p_ase_rec.internal_status) THEN
2610: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2611: RAISE Okc_Api.G_EXCEPTION_ERROR;
2606: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2607: RAISE Okc_Api.G_EXCEPTION_ERROR;
2608: END IF;
2609: IF (l_lock_var.internal_status <> p_ase_rec.internal_status) THEN
2610: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2611: RAISE Okc_Api.G_EXCEPTION_ERROR;
2612: END IF;
2613: IF (l_lock_var.custom_status <> p_ase_rec.custom_status) THEN
2614: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2607: RAISE Okc_Api.G_EXCEPTION_ERROR;
2608: END IF;
2609: IF (l_lock_var.internal_status <> p_ase_rec.internal_status) THEN
2610: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2611: RAISE Okc_Api.G_EXCEPTION_ERROR;
2612: END IF;
2613: IF (l_lock_var.custom_status <> p_ase_rec.custom_status) THEN
2614: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2615: RAISE Okc_Api.G_EXCEPTION_ERROR;
2610: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2611: RAISE Okc_Api.G_EXCEPTION_ERROR;
2612: END IF;
2613: IF (l_lock_var.custom_status <> p_ase_rec.custom_status) THEN
2614: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2615: RAISE Okc_Api.G_EXCEPTION_ERROR;
2616: END IF;
2617: IF (l_lock_var.source_indicator_flag <> p_ase_rec.source_indicator_flag) THEN
2618: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2611: RAISE Okc_Api.G_EXCEPTION_ERROR;
2612: END IF;
2613: IF (l_lock_var.custom_status <> p_ase_rec.custom_status) THEN
2614: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2615: RAISE Okc_Api.G_EXCEPTION_ERROR;
2616: END IF;
2617: IF (l_lock_var.source_indicator_flag <> p_ase_rec.source_indicator_flag) THEN
2618: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2619: RAISE Okc_Api.G_EXCEPTION_ERROR;
2614: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2615: RAISE Okc_Api.G_EXCEPTION_ERROR;
2616: END IF;
2617: IF (l_lock_var.source_indicator_flag <> p_ase_rec.source_indicator_flag) THEN
2618: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2619: RAISE Okc_Api.G_EXCEPTION_ERROR;
2620: END IF;
2621: IF (l_lock_var.org_id <> p_ase_rec.org_id) THEN
2622: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2615: RAISE Okc_Api.G_EXCEPTION_ERROR;
2616: END IF;
2617: IF (l_lock_var.source_indicator_flag <> p_ase_rec.source_indicator_flag) THEN
2618: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2619: RAISE Okc_Api.G_EXCEPTION_ERROR;
2620: END IF;
2621: IF (l_lock_var.org_id <> p_ase_rec.org_id) THEN
2622: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2623: RAISE Okc_Api.G_EXCEPTION_ERROR;
2618: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2619: RAISE Okc_Api.G_EXCEPTION_ERROR;
2620: END IF;
2621: IF (l_lock_var.org_id <> p_ase_rec.org_id) THEN
2622: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2623: RAISE Okc_Api.G_EXCEPTION_ERROR;
2624: END IF;
2625: IF (l_lock_var.program_id <> p_ase_rec.program_id) THEN
2626: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2619: RAISE Okc_Api.G_EXCEPTION_ERROR;
2620: END IF;
2621: IF (l_lock_var.org_id <> p_ase_rec.org_id) THEN
2622: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2623: RAISE Okc_Api.G_EXCEPTION_ERROR;
2624: END IF;
2625: IF (l_lock_var.program_id <> p_ase_rec.program_id) THEN
2626: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2627: RAISE Okc_Api.G_EXCEPTION_ERROR;
2622: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2623: RAISE Okc_Api.G_EXCEPTION_ERROR;
2624: END IF;
2625: IF (l_lock_var.program_id <> p_ase_rec.program_id) THEN
2626: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2627: RAISE Okc_Api.G_EXCEPTION_ERROR;
2628: END IF;
2629: IF (l_lock_var.program_application_id <> p_ase_rec.program_application_id) THEN
2630: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2623: RAISE Okc_Api.G_EXCEPTION_ERROR;
2624: END IF;
2625: IF (l_lock_var.program_id <> p_ase_rec.program_id) THEN
2626: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2627: RAISE Okc_Api.G_EXCEPTION_ERROR;
2628: END IF;
2629: IF (l_lock_var.program_application_id <> p_ase_rec.program_application_id) THEN
2630: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2631: RAISE Okc_Api.G_EXCEPTION_ERROR;
2626: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2627: RAISE Okc_Api.G_EXCEPTION_ERROR;
2628: END IF;
2629: IF (l_lock_var.program_application_id <> p_ase_rec.program_application_id) THEN
2630: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2631: RAISE Okc_Api.G_EXCEPTION_ERROR;
2632: END IF;
2633: IF (l_lock_var.request_id <> p_ase_rec.request_id) THEN
2634: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2627: RAISE Okc_Api.G_EXCEPTION_ERROR;
2628: END IF;
2629: IF (l_lock_var.program_application_id <> p_ase_rec.program_application_id) THEN
2630: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2631: RAISE Okc_Api.G_EXCEPTION_ERROR;
2632: END IF;
2633: IF (l_lock_var.request_id <> p_ase_rec.request_id) THEN
2634: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2635: RAISE Okc_Api.G_EXCEPTION_ERROR;
2630: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2631: RAISE Okc_Api.G_EXCEPTION_ERROR;
2632: END IF;
2633: IF (l_lock_var.request_id <> p_ase_rec.request_id) THEN
2634: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2635: RAISE Okc_Api.G_EXCEPTION_ERROR;
2636: END IF;
2637: IF (l_lock_var.program_update_date <> p_ase_rec.program_update_date) THEN
2638: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2631: RAISE Okc_Api.G_EXCEPTION_ERROR;
2632: END IF;
2633: IF (l_lock_var.request_id <> p_ase_rec.request_id) THEN
2634: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2635: RAISE Okc_Api.G_EXCEPTION_ERROR;
2636: END IF;
2637: IF (l_lock_var.program_update_date <> p_ase_rec.program_update_date) THEN
2638: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2639: RAISE Okc_Api.G_EXCEPTION_ERROR;
2634: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2635: RAISE Okc_Api.G_EXCEPTION_ERROR;
2636: END IF;
2637: IF (l_lock_var.program_update_date <> p_ase_rec.program_update_date) THEN
2638: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2639: RAISE Okc_Api.G_EXCEPTION_ERROR;
2640: END IF;
2641: IF (l_lock_var.created_by <> p_ase_rec.created_by) THEN
2642: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2635: RAISE Okc_Api.G_EXCEPTION_ERROR;
2636: END IF;
2637: IF (l_lock_var.program_update_date <> p_ase_rec.program_update_date) THEN
2638: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2639: RAISE Okc_Api.G_EXCEPTION_ERROR;
2640: END IF;
2641: IF (l_lock_var.created_by <> p_ase_rec.created_by) THEN
2642: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2643: RAISE Okc_Api.G_EXCEPTION_ERROR;
2638: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2639: RAISE Okc_Api.G_EXCEPTION_ERROR;
2640: END IF;
2641: IF (l_lock_var.created_by <> p_ase_rec.created_by) THEN
2642: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2643: RAISE Okc_Api.G_EXCEPTION_ERROR;
2644: END IF;
2645: IF (l_lock_var.creation_date <> p_ase_rec.creation_date) THEN
2646: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2639: RAISE Okc_Api.G_EXCEPTION_ERROR;
2640: END IF;
2641: IF (l_lock_var.created_by <> p_ase_rec.created_by) THEN
2642: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2643: RAISE Okc_Api.G_EXCEPTION_ERROR;
2644: END IF;
2645: IF (l_lock_var.creation_date <> p_ase_rec.creation_date) THEN
2646: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2647: RAISE Okc_Api.G_EXCEPTION_ERROR;
2642: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2643: RAISE Okc_Api.G_EXCEPTION_ERROR;
2644: END IF;
2645: IF (l_lock_var.creation_date <> p_ase_rec.creation_date) THEN
2646: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2647: RAISE Okc_Api.G_EXCEPTION_ERROR;
2648: END IF;
2649: IF (l_lock_var.last_updated_by <> p_ase_rec.last_updated_by) THEN
2650: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2643: RAISE Okc_Api.G_EXCEPTION_ERROR;
2644: END IF;
2645: IF (l_lock_var.creation_date <> p_ase_rec.creation_date) THEN
2646: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2647: RAISE Okc_Api.G_EXCEPTION_ERROR;
2648: END IF;
2649: IF (l_lock_var.last_updated_by <> p_ase_rec.last_updated_by) THEN
2650: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2651: RAISE Okc_Api.G_EXCEPTION_ERROR;
2646: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2647: RAISE Okc_Api.G_EXCEPTION_ERROR;
2648: END IF;
2649: IF (l_lock_var.last_updated_by <> p_ase_rec.last_updated_by) THEN
2650: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2651: RAISE Okc_Api.G_EXCEPTION_ERROR;
2652: END IF;
2653: IF (l_lock_var.last_update_date <> p_ase_rec.last_update_date) THEN
2654: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2647: RAISE Okc_Api.G_EXCEPTION_ERROR;
2648: END IF;
2649: IF (l_lock_var.last_updated_by <> p_ase_rec.last_updated_by) THEN
2650: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2651: RAISE Okc_Api.G_EXCEPTION_ERROR;
2652: END IF;
2653: IF (l_lock_var.last_update_date <> p_ase_rec.last_update_date) THEN
2654: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2655: RAISE Okc_Api.G_EXCEPTION_ERROR;
2650: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2651: RAISE Okc_Api.G_EXCEPTION_ERROR;
2652: END IF;
2653: IF (l_lock_var.last_update_date <> p_ase_rec.last_update_date) THEN
2654: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2655: RAISE Okc_Api.G_EXCEPTION_ERROR;
2656: END IF;
2657: IF (l_lock_var.last_update_login <> p_ase_rec.last_update_login) THEN
2658: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2651: RAISE Okc_Api.G_EXCEPTION_ERROR;
2652: END IF;
2653: IF (l_lock_var.last_update_date <> p_ase_rec.last_update_date) THEN
2654: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2655: RAISE Okc_Api.G_EXCEPTION_ERROR;
2656: END IF;
2657: IF (l_lock_var.last_update_login <> p_ase_rec.last_update_login) THEN
2658: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2659: RAISE Okc_Api.G_EXCEPTION_ERROR;
2654: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2655: RAISE Okc_Api.G_EXCEPTION_ERROR;
2656: END IF;
2657: IF (l_lock_var.last_update_login <> p_ase_rec.last_update_login) THEN
2658: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2659: RAISE Okc_Api.G_EXCEPTION_ERROR;
2660: END IF;
2661: END IF;
2662: x_return_status := l_return_status;
2655: RAISE Okc_Api.G_EXCEPTION_ERROR;
2656: END IF;
2657: IF (l_lock_var.last_update_login <> p_ase_rec.last_update_login) THEN
2658: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2659: RAISE Okc_Api.G_EXCEPTION_ERROR;
2660: END IF;
2661: END IF;
2662: x_return_status := l_return_status;
2663: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2659: RAISE Okc_Api.G_EXCEPTION_ERROR;
2660: END IF;
2661: END IF;
2662: x_return_status := l_return_status;
2663: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2664: EXCEPTION
2665: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2666: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2667: (
2661: END IF;
2662: x_return_status := l_return_status;
2663: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2664: EXCEPTION
2665: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2666: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2667: (
2668: l_api_name,
2669: G_PKG_NAME,
2662: x_return_status := l_return_status;
2663: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2664: EXCEPTION
2665: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2666: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2667: (
2668: l_api_name,
2669: G_PKG_NAME,
2670: 'OKC_API.G_RET_STS_ERROR',
2666: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2667: (
2668: l_api_name,
2669: G_PKG_NAME,
2670: 'OKC_API.G_RET_STS_ERROR',
2671: x_msg_count,
2672: x_msg_data,
2673: '_PVT'
2674: );
2671: x_msg_count,
2672: x_msg_data,
2673: '_PVT'
2674: );
2675: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2676: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2677: (
2678: l_api_name,
2679: G_PKG_NAME,
2672: x_msg_data,
2673: '_PVT'
2674: );
2675: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2676: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2677: (
2678: l_api_name,
2679: G_PKG_NAME,
2680: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2676: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2677: (
2678: l_api_name,
2679: G_PKG_NAME,
2680: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2681: x_msg_count,
2682: x_msg_data,
2683: '_PVT'
2684: );
2682: x_msg_data,
2683: '_PVT'
2684: );
2685: WHEN OTHERS THEN
2686: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2687: (
2688: l_api_name,
2689: G_PKG_NAME,
2690: 'OTHERS',
2705: p_asev_rec IN asev_rec_type) IS
2706:
2707: l_api_version CONSTANT NUMBER := 1;
2708: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
2709: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2710: l_ase_rec ase_rec_type;
2711: BEGIN
2712: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
2713: G_PKG_NAME,
2708: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
2709: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2710: l_ase_rec ase_rec_type;
2711: BEGIN
2712: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
2713: G_PKG_NAME,
2714: p_init_msg_list,
2715: l_api_version,
2716: p_api_version,
2715: l_api_version,
2716: p_api_version,
2717: '_PVT',
2718: x_return_status);
2719: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2720: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2721: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2722: RAISE Okc_Api.G_EXCEPTION_ERROR;
2723: END IF;
2716: p_api_version,
2717: '_PVT',
2718: x_return_status);
2719: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2720: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2721: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2722: RAISE Okc_Api.G_EXCEPTION_ERROR;
2723: END IF;
2724: -----------------------------------------
2717: '_PVT',
2718: x_return_status);
2719: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2720: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2721: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2722: RAISE Okc_Api.G_EXCEPTION_ERROR;
2723: END IF;
2724: -----------------------------------------
2725: -- Move VIEW record to "Child" records --
2718: x_return_status);
2719: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2720: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2721: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2722: RAISE Okc_Api.G_EXCEPTION_ERROR;
2723: END IF;
2724: -----------------------------------------
2725: -- Move VIEW record to "Child" records --
2726: -----------------------------------------
2734: x_msg_count,
2735: x_msg_data,
2736: l_ase_rec
2737: );
2738: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2739: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2740: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2741: RAISE Okc_Api.G_EXCEPTION_ERROR;
2742: END IF;
2735: x_msg_data,
2736: l_ase_rec
2737: );
2738: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2739: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2740: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2741: RAISE Okc_Api.G_EXCEPTION_ERROR;
2742: END IF;
2743: x_return_status := l_return_status;
2736: l_ase_rec
2737: );
2738: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2739: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2740: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2741: RAISE Okc_Api.G_EXCEPTION_ERROR;
2742: END IF;
2743: x_return_status := l_return_status;
2744: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2737: );
2738: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2739: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2740: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2741: RAISE Okc_Api.G_EXCEPTION_ERROR;
2742: END IF;
2743: x_return_status := l_return_status;
2744: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2745: EXCEPTION
2740: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2741: RAISE Okc_Api.G_EXCEPTION_ERROR;
2742: END IF;
2743: x_return_status := l_return_status;
2744: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2745: EXCEPTION
2746: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2747: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2748: (
2742: END IF;
2743: x_return_status := l_return_status;
2744: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2745: EXCEPTION
2746: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2747: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2748: (
2749: l_api_name,
2750: G_PKG_NAME,
2743: x_return_status := l_return_status;
2744: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2745: EXCEPTION
2746: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2747: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2748: (
2749: l_api_name,
2750: G_PKG_NAME,
2751: 'OKC_API.G_RET_STS_ERROR',
2747: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2748: (
2749: l_api_name,
2750: G_PKG_NAME,
2751: 'OKC_API.G_RET_STS_ERROR',
2752: x_msg_count,
2753: x_msg_data,
2754: '_PVT'
2755: );
2752: x_msg_count,
2753: x_msg_data,
2754: '_PVT'
2755: );
2756: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2757: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2758: (
2759: l_api_name,
2760: G_PKG_NAME,
2753: x_msg_data,
2754: '_PVT'
2755: );
2756: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2757: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2758: (
2759: l_api_name,
2760: G_PKG_NAME,
2761: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2757: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2758: (
2759: l_api_name,
2760: G_PKG_NAME,
2761: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2762: x_msg_count,
2763: x_msg_data,
2764: '_PVT'
2765: );
2763: x_msg_data,
2764: '_PVT'
2765: );
2766: WHEN OTHERS THEN
2767: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2768: (
2769: l_api_name,
2770: G_PKG_NAME,
2771: 'OTHERS',
2786: p_asev_tbl IN asev_tbl_type) IS
2787:
2788: l_api_version CONSTANT NUMBER := 1;
2789: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
2790: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2791: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2792: i NUMBER := 0;
2793:
2794: BEGIN
2787:
2788: l_api_version CONSTANT NUMBER := 1;
2789: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
2790: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2791: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2792: i NUMBER := 0;
2793:
2794: BEGIN
2795: Okc_Api.init_msg_list(p_init_msg_list);
2791: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2792: i NUMBER := 0;
2793:
2794: BEGIN
2795: Okc_Api.init_msg_list(p_init_msg_list);
2796: -- Make sure PL/SQL table has recrods in it before passing
2797: IF (p_asev_tbl.COUNT > 0) THEN
2798: i := p_asev_tbl.FIRST;
2799: LOOP
2798: i := p_asev_tbl.FIRST;
2799: LOOP
2800: lock_row(
2801: p_api_version => p_api_version,
2802: p_init_msg_list => Okc_Api.G_FALSE,
2803: x_return_status => x_return_status,
2804: x_msg_count => x_msg_count,
2805: x_msg_data => x_msg_data,
2806: p_asev_rec => p_asev_tbl(i));
2804: x_msg_count => x_msg_count,
2805: x_msg_data => x_msg_data,
2806: p_asev_rec => p_asev_tbl(i));
2807:
2808: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
2809: IF (l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2810: l_overall_status := x_return_status;
2811: END IF;
2812: END IF;
2805: x_msg_data => x_msg_data,
2806: p_asev_rec => p_asev_tbl(i));
2807:
2808: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
2809: IF (l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2810: l_overall_status := x_return_status;
2811: END IF;
2812: END IF;
2813: EXIT WHEN (i = p_asev_tbl.LAST);
2815: END LOOP;
2816: END IF;
2817: x_return_status := l_overall_status;
2818: EXCEPTION
2819: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2820: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2821: (
2822: l_api_name,
2823: G_PKG_NAME,
2816: END IF;
2817: x_return_status := l_overall_status;
2818: EXCEPTION
2819: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2820: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2821: (
2822: l_api_name,
2823: G_PKG_NAME,
2824: 'OKC_API.G_RET_STS_ERROR',
2820: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2821: (
2822: l_api_name,
2823: G_PKG_NAME,
2824: 'OKC_API.G_RET_STS_ERROR',
2825: x_msg_count,
2826: x_msg_data,
2827: '_PVT'
2828: );
2825: x_msg_count,
2826: x_msg_data,
2827: '_PVT'
2828: );
2829: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2830: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2831: (
2832: l_api_name,
2833: G_PKG_NAME,
2826: x_msg_data,
2827: '_PVT'
2828: );
2829: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2830: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2831: (
2832: l_api_name,
2833: G_PKG_NAME,
2834: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2830: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2831: (
2832: l_api_name,
2833: G_PKG_NAME,
2834: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2835: x_msg_count,
2836: x_msg_data,
2837: '_PVT'
2838: );
2836: x_msg_data,
2837: '_PVT'
2838: );
2839: WHEN OTHERS THEN
2840: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2841: (
2842: l_api_name,
2843: G_PKG_NAME,
2844: 'OTHERS',
2862: x_ase_rec OUT NOCOPY ase_rec_type) IS
2863:
2864: l_api_version CONSTANT NUMBER := 1;
2865: l_api_name CONSTANT VARCHAR2(30) := 'B_update_row';
2866: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2867: l_ase_rec ase_rec_type := p_ase_rec;
2868: l_def_ase_rec ase_rec_type;
2869: l_row_notfound BOOLEAN := TRUE;
2870: ----------------------------------
2875: x_ase_rec OUT NOCOPY ase_rec_type
2876: ) RETURN VARCHAR2 IS
2877: l_ase_rec ase_rec_type;
2878: l_row_notfound BOOLEAN := TRUE;
2879: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2880: BEGIN
2881: x_ase_rec := p_ase_rec;
2882: -- Get current database values
2883: l_ase_rec := get_rec(p_ase_rec, l_return_status);
2880: BEGIN
2881: x_ase_rec := p_ase_rec;
2882: -- Get current database values
2883: l_ase_rec := get_rec(p_ase_rec, l_return_status);
2884: IF (l_return_status = Okc_Api.G_RET_STS_SUCCESS) THEN
2885: -- smadhava Bug#5032013 Modified G_MISS_NUM to G_MISS_CHAR
2886: IF (x_ase_rec.id = Okc_Api.G_MISS_CHAR)
2887: THEN
2888: x_ase_rec.id := l_ase_rec.id;
2882: -- Get current database values
2883: l_ase_rec := get_rec(p_ase_rec, l_return_status);
2884: IF (l_return_status = Okc_Api.G_RET_STS_SUCCESS) THEN
2885: -- smadhava Bug#5032013 Modified G_MISS_NUM to G_MISS_CHAR
2886: IF (x_ase_rec.id = Okc_Api.G_MISS_CHAR)
2887: THEN
2888: x_ase_rec.id := l_ase_rec.id;
2889: END IF;
2890: IF (x_ase_rec.source_table = Okc_Api.G_MISS_CHAR)
2886: IF (x_ase_rec.id = Okc_Api.G_MISS_CHAR)
2887: THEN
2888: x_ase_rec.id := l_ase_rec.id;
2889: END IF;
2890: IF (x_ase_rec.source_table = Okc_Api.G_MISS_CHAR)
2891: THEN
2892: x_ase_rec.source_table := l_ase_rec.source_table;
2893: END IF;
2894: IF (x_ase_rec.source_id = Okc_Api.G_MISS_NUM)
2890: IF (x_ase_rec.source_table = Okc_Api.G_MISS_CHAR)
2891: THEN
2892: x_ase_rec.source_table := l_ase_rec.source_table;
2893: END IF;
2894: IF (x_ase_rec.source_id = Okc_Api.G_MISS_NUM)
2895: THEN
2896: x_ase_rec.source_id := l_ase_rec.source_id;
2897: END IF;
2898: IF (x_ase_rec.pdt_id = Okc_Api.G_MISS_NUM)
2894: IF (x_ase_rec.source_id = Okc_Api.G_MISS_NUM)
2895: THEN
2896: x_ase_rec.source_id := l_ase_rec.source_id;
2897: END IF;
2898: IF (x_ase_rec.pdt_id = Okc_Api.G_MISS_NUM)
2899: THEN
2900: x_ase_rec.pdt_id := l_ase_rec.pdt_id;
2901: END IF;
2902: IF (x_ase_rec.try_id = Okc_Api.G_MISS_NUM)
2898: IF (x_ase_rec.pdt_id = Okc_Api.G_MISS_NUM)
2899: THEN
2900: x_ase_rec.pdt_id := l_ase_rec.pdt_id;
2901: END IF;
2902: IF (x_ase_rec.try_id = Okc_Api.G_MISS_NUM)
2903: THEN
2904: x_ase_rec.try_id := l_ase_rec.try_id;
2905: END IF;
2906: IF (x_ase_rec.sty_id = Okc_Api.G_MISS_NUM)
2902: IF (x_ase_rec.try_id = Okc_Api.G_MISS_NUM)
2903: THEN
2904: x_ase_rec.try_id := l_ase_rec.try_id;
2905: END IF;
2906: IF (x_ase_rec.sty_id = Okc_Api.G_MISS_NUM)
2907: THEN
2908: x_ase_rec.sty_id := l_ase_rec.sty_id;
2909: END IF;
2910: IF (x_ase_rec.memo_yn = Okc_Api.G_MISS_CHAR)
2906: IF (x_ase_rec.sty_id = Okc_Api.G_MISS_NUM)
2907: THEN
2908: x_ase_rec.sty_id := l_ase_rec.sty_id;
2909: END IF;
2910: IF (x_ase_rec.memo_yn = Okc_Api.G_MISS_CHAR)
2911: THEN
2912: x_ase_rec.memo_yn := l_ase_rec.memo_yn;
2913: END IF;
2914: IF (x_ase_rec.factor_investor_flag = Okc_Api.G_MISS_CHAR)
2910: IF (x_ase_rec.memo_yn = Okc_Api.G_MISS_CHAR)
2911: THEN
2912: x_ase_rec.memo_yn := l_ase_rec.memo_yn;
2913: END IF;
2914: IF (x_ase_rec.factor_investor_flag = Okc_Api.G_MISS_CHAR)
2915: THEN
2916: x_ase_rec.factor_investor_flag := l_ase_rec.factor_investor_flag;
2917: END IF;
2918: IF (x_ase_rec.factor_investor_code = Okc_Api.G_MISS_CHAR)
2914: IF (x_ase_rec.factor_investor_flag = Okc_Api.G_MISS_CHAR)
2915: THEN
2916: x_ase_rec.factor_investor_flag := l_ase_rec.factor_investor_flag;
2917: END IF;
2918: IF (x_ase_rec.factor_investor_code = Okc_Api.G_MISS_CHAR)
2919: THEN
2920: x_ase_rec.factor_investor_code := l_ase_rec.factor_investor_code;
2921: END IF;
2922: IF (x_ase_rec.amount = Okc_Api.G_MISS_NUM)
2918: IF (x_ase_rec.factor_investor_code = Okc_Api.G_MISS_CHAR)
2919: THEN
2920: x_ase_rec.factor_investor_code := l_ase_rec.factor_investor_code;
2921: END IF;
2922: IF (x_ase_rec.amount = Okc_Api.G_MISS_NUM)
2923: THEN
2924: x_ase_rec.amount := l_ase_rec.amount;
2925: END IF;
2926: IF (x_ase_rec.formula_used = Okc_Api.G_MISS_CHAR)
2922: IF (x_ase_rec.amount = Okc_Api.G_MISS_NUM)
2923: THEN
2924: x_ase_rec.amount := l_ase_rec.amount;
2925: END IF;
2926: IF (x_ase_rec.formula_used = Okc_Api.G_MISS_CHAR)
2927: THEN
2928: x_ase_rec.formula_used := l_ase_rec.formula_used;
2929: END IF;
2930: IF (x_ase_rec.entered_date = Okc_Api.G_MISS_DATE)
2926: IF (x_ase_rec.formula_used = Okc_Api.G_MISS_CHAR)
2927: THEN
2928: x_ase_rec.formula_used := l_ase_rec.formula_used;
2929: END IF;
2930: IF (x_ase_rec.entered_date = Okc_Api.G_MISS_DATE)
2931: THEN
2932: x_ase_rec.entered_date := l_ase_rec.entered_date;
2933: END IF;
2934: IF (x_ase_rec.accounting_date = Okc_Api.G_MISS_DATE)
2930: IF (x_ase_rec.entered_date = Okc_Api.G_MISS_DATE)
2931: THEN
2932: x_ase_rec.entered_date := l_ase_rec.entered_date;
2933: END IF;
2934: IF (x_ase_rec.accounting_date = Okc_Api.G_MISS_DATE)
2935: THEN
2936: x_ase_rec.accounting_date := l_ase_rec.accounting_date;
2937: END IF;
2938: IF (x_ase_rec.gl_reversal_flag = Okc_Api.G_MISS_CHAR)
2934: IF (x_ase_rec.accounting_date = Okc_Api.G_MISS_DATE)
2935: THEN
2936: x_ase_rec.accounting_date := l_ase_rec.accounting_date;
2937: END IF;
2938: IF (x_ase_rec.gl_reversal_flag = Okc_Api.G_MISS_CHAR)
2939: THEN
2940: x_ase_rec.gl_reversal_flag := l_ase_rec.gl_reversal_flag;
2941: END IF;
2942: IF (x_ase_rec.post_to_gl = Okc_Api.G_MISS_CHAR)
2938: IF (x_ase_rec.gl_reversal_flag = Okc_Api.G_MISS_CHAR)
2939: THEN
2940: x_ase_rec.gl_reversal_flag := l_ase_rec.gl_reversal_flag;
2941: END IF;
2942: IF (x_ase_rec.post_to_gl = Okc_Api.G_MISS_CHAR)
2943: THEN
2944: x_ase_rec.post_to_gl := l_ase_rec.post_to_gl;
2945: END IF;
2946: IF (x_ase_rec.currency_code = Okc_Api.G_MISS_CHAR)
2942: IF (x_ase_rec.post_to_gl = Okc_Api.G_MISS_CHAR)
2943: THEN
2944: x_ase_rec.post_to_gl := l_ase_rec.post_to_gl;
2945: END IF;
2946: IF (x_ase_rec.currency_code = Okc_Api.G_MISS_CHAR)
2947: THEN
2948: x_ase_rec.currency_code := l_ase_rec.currency_code;
2949: END IF;
2950: IF (x_ase_rec.currency_conversion_type = Okc_Api.G_MISS_CHAR)
2946: IF (x_ase_rec.currency_code = Okc_Api.G_MISS_CHAR)
2947: THEN
2948: x_ase_rec.currency_code := l_ase_rec.currency_code;
2949: END IF;
2950: IF (x_ase_rec.currency_conversion_type = Okc_Api.G_MISS_CHAR)
2951: THEN
2952: x_ase_rec.currency_conversion_type := l_ase_rec.currency_conversion_type;
2953: END IF;
2954: IF (x_ase_rec.currency_conversion_date = Okc_Api.G_MISS_DATE)
2950: IF (x_ase_rec.currency_conversion_type = Okc_Api.G_MISS_CHAR)
2951: THEN
2952: x_ase_rec.currency_conversion_type := l_ase_rec.currency_conversion_type;
2953: END IF;
2954: IF (x_ase_rec.currency_conversion_date = Okc_Api.G_MISS_DATE)
2955: THEN
2956: x_ase_rec.currency_conversion_date := l_ase_rec.currency_conversion_date;
2957: END IF;
2958: IF (x_ase_rec.currency_conversion_rate = Okc_Api.G_MISS_NUM)
2954: IF (x_ase_rec.currency_conversion_date = Okc_Api.G_MISS_DATE)
2955: THEN
2956: x_ase_rec.currency_conversion_date := l_ase_rec.currency_conversion_date;
2957: END IF;
2958: IF (x_ase_rec.currency_conversion_rate = Okc_Api.G_MISS_NUM)
2959: THEN
2960: x_ase_rec.currency_conversion_rate := l_ase_rec.currency_conversion_rate;
2961: END IF;
2962: IF (x_ase_rec.khr_id = Okc_Api.G_MISS_NUM)
2958: IF (x_ase_rec.currency_conversion_rate = Okc_Api.G_MISS_NUM)
2959: THEN
2960: x_ase_rec.currency_conversion_rate := l_ase_rec.currency_conversion_rate;
2961: END IF;
2962: IF (x_ase_rec.khr_id = Okc_Api.G_MISS_NUM)
2963: THEN
2964: x_ase_rec.khr_id := l_ase_rec.khr_id;
2965: END IF;
2966: IF (x_ase_rec.kle_id = Okc_Api.G_MISS_NUM)
2962: IF (x_ase_rec.khr_id = Okc_Api.G_MISS_NUM)
2963: THEN
2964: x_ase_rec.khr_id := l_ase_rec.khr_id;
2965: END IF;
2966: IF (x_ase_rec.kle_id = Okc_Api.G_MISS_NUM)
2967: THEN
2968: x_ase_rec.kle_id := l_ase_rec.kle_id;
2969: END IF;
2970: IF (x_ase_rec.pay_vendor_sites_pk = Okc_Api.G_MISS_CHAR)
2966: IF (x_ase_rec.kle_id = Okc_Api.G_MISS_NUM)
2967: THEN
2968: x_ase_rec.kle_id := l_ase_rec.kle_id;
2969: END IF;
2970: IF (x_ase_rec.pay_vendor_sites_pk = Okc_Api.G_MISS_CHAR)
2971: THEN
2972: x_ase_rec.pay_vendor_sites_pk := l_ase_rec.pay_vendor_sites_pk;
2973: END IF;
2974: IF (x_ase_rec.rec_site_uses_pk = Okc_Api.G_MISS_CHAR)
2970: IF (x_ase_rec.pay_vendor_sites_pk = Okc_Api.G_MISS_CHAR)
2971: THEN
2972: x_ase_rec.pay_vendor_sites_pk := l_ase_rec.pay_vendor_sites_pk;
2973: END IF;
2974: IF (x_ase_rec.rec_site_uses_pk = Okc_Api.G_MISS_CHAR)
2975: THEN
2976: x_ase_rec.rec_site_uses_pk := l_ase_rec.rec_site_uses_pk;
2977: END IF;
2978: IF (x_ase_rec.asset_category_id_pk1 = Okc_Api.G_MISS_CHAR)
2974: IF (x_ase_rec.rec_site_uses_pk = Okc_Api.G_MISS_CHAR)
2975: THEN
2976: x_ase_rec.rec_site_uses_pk := l_ase_rec.rec_site_uses_pk;
2977: END IF;
2978: IF (x_ase_rec.asset_category_id_pk1 = Okc_Api.G_MISS_CHAR)
2979: THEN
2980: x_ase_rec.asset_category_id_pk1 := l_ase_rec.asset_category_id_pk1;
2981: END IF;
2982: IF (x_ase_rec.asset_book_pk2 = Okc_Api.G_MISS_CHAR)
2978: IF (x_ase_rec.asset_category_id_pk1 = Okc_Api.G_MISS_CHAR)
2979: THEN
2980: x_ase_rec.asset_category_id_pk1 := l_ase_rec.asset_category_id_pk1;
2981: END IF;
2982: IF (x_ase_rec.asset_book_pk2 = Okc_Api.G_MISS_CHAR)
2983: THEN
2984: x_ase_rec.asset_book_pk2 := l_ase_rec.asset_book_pk2;
2985: END IF;
2986: IF (x_ase_rec.pay_financial_options_pk = Okc_Api.G_MISS_CHAR)
2982: IF (x_ase_rec.asset_book_pk2 = Okc_Api.G_MISS_CHAR)
2983: THEN
2984: x_ase_rec.asset_book_pk2 := l_ase_rec.asset_book_pk2;
2985: END IF;
2986: IF (x_ase_rec.pay_financial_options_pk = Okc_Api.G_MISS_CHAR)
2987: THEN
2988: x_ase_rec.pay_financial_options_pk := l_ase_rec.pay_financial_options_pk;
2989: END IF;
2990: IF (x_ase_rec.jtf_sales_reps_pk = Okc_Api.G_MISS_CHAR)
2986: IF (x_ase_rec.pay_financial_options_pk = Okc_Api.G_MISS_CHAR)
2987: THEN
2988: x_ase_rec.pay_financial_options_pk := l_ase_rec.pay_financial_options_pk;
2989: END IF;
2990: IF (x_ase_rec.jtf_sales_reps_pk = Okc_Api.G_MISS_CHAR)
2991: THEN
2992: x_ase_rec.jtf_sales_reps_pk := l_ase_rec.jtf_sales_reps_pk;
2993: END IF;
2994: IF (x_ase_rec.inventory_item_id_pk1 = Okc_Api.G_MISS_CHAR)
2990: IF (x_ase_rec.jtf_sales_reps_pk = Okc_Api.G_MISS_CHAR)
2991: THEN
2992: x_ase_rec.jtf_sales_reps_pk := l_ase_rec.jtf_sales_reps_pk;
2993: END IF;
2994: IF (x_ase_rec.inventory_item_id_pk1 = Okc_Api.G_MISS_CHAR)
2995: THEN
2996: x_ase_rec.inventory_item_id_pk1 := l_ase_rec.inventory_item_id_pk1;
2997: END IF;
2998: IF (x_ase_rec.inventory_org_id_pk2 = Okc_Api.G_MISS_CHAR)
2994: IF (x_ase_rec.inventory_item_id_pk1 = Okc_Api.G_MISS_CHAR)
2995: THEN
2996: x_ase_rec.inventory_item_id_pk1 := l_ase_rec.inventory_item_id_pk1;
2997: END IF;
2998: IF (x_ase_rec.inventory_org_id_pk2 = Okc_Api.G_MISS_CHAR)
2999: THEN
3000: x_ase_rec.inventory_org_id_pk2 := l_ase_rec.inventory_org_id_pk2;
3001: END IF;
3002: IF (x_ase_rec.rec_trx_types_pk = Okc_Api.G_MISS_CHAR)
2998: IF (x_ase_rec.inventory_org_id_pk2 = Okc_Api.G_MISS_CHAR)
2999: THEN
3000: x_ase_rec.inventory_org_id_pk2 := l_ase_rec.inventory_org_id_pk2;
3001: END IF;
3002: IF (x_ase_rec.rec_trx_types_pk = Okc_Api.G_MISS_CHAR)
3003: THEN
3004: x_ase_rec.rec_trx_types_pk := l_ase_rec.rec_trx_types_pk;
3005: END IF;
3006: IF (x_ase_rec.avl_id = Okc_Api.G_MISS_NUM)
3002: IF (x_ase_rec.rec_trx_types_pk = Okc_Api.G_MISS_CHAR)
3003: THEN
3004: x_ase_rec.rec_trx_types_pk := l_ase_rec.rec_trx_types_pk;
3005: END IF;
3006: IF (x_ase_rec.avl_id = Okc_Api.G_MISS_NUM)
3007: THEN
3008: x_ase_rec.avl_id := l_ase_rec.avl_id;
3009: END IF;
3010: IF (x_ase_rec.local_product_yn = Okc_Api.G_MISS_CHAR)
3006: IF (x_ase_rec.avl_id = Okc_Api.G_MISS_NUM)
3007: THEN
3008: x_ase_rec.avl_id := l_ase_rec.avl_id;
3009: END IF;
3010: IF (x_ase_rec.local_product_yn = Okc_Api.G_MISS_CHAR)
3011: THEN
3012: x_ase_rec.local_product_yn := l_ase_rec.local_product_yn;
3013: END IF;
3014: IF (x_ase_rec.internal_status = Okc_Api.G_MISS_CHAR)
3010: IF (x_ase_rec.local_product_yn = Okc_Api.G_MISS_CHAR)
3011: THEN
3012: x_ase_rec.local_product_yn := l_ase_rec.local_product_yn;
3013: END IF;
3014: IF (x_ase_rec.internal_status = Okc_Api.G_MISS_CHAR)
3015: THEN
3016: x_ase_rec.internal_status := l_ase_rec.internal_status;
3017: END IF;
3018: IF (x_ase_rec.custom_status = Okc_Api.G_MISS_CHAR)
3014: IF (x_ase_rec.internal_status = Okc_Api.G_MISS_CHAR)
3015: THEN
3016: x_ase_rec.internal_status := l_ase_rec.internal_status;
3017: END IF;
3018: IF (x_ase_rec.custom_status = Okc_Api.G_MISS_CHAR)
3019: THEN
3020: x_ase_rec.custom_status := l_ase_rec.custom_status;
3021: END IF;
3022: IF (x_ase_rec.source_indicator_flag = Okc_Api.G_MISS_CHAR)
3018: IF (x_ase_rec.custom_status = Okc_Api.G_MISS_CHAR)
3019: THEN
3020: x_ase_rec.custom_status := l_ase_rec.custom_status;
3021: END IF;
3022: IF (x_ase_rec.source_indicator_flag = Okc_Api.G_MISS_CHAR)
3023: THEN
3024: x_ase_rec.source_indicator_flag := l_ase_rec.source_indicator_flag;
3025: END IF;
3026: IF (x_ase_rec.org_id = Okc_Api.G_MISS_NUM)
3022: IF (x_ase_rec.source_indicator_flag = Okc_Api.G_MISS_CHAR)
3023: THEN
3024: x_ase_rec.source_indicator_flag := l_ase_rec.source_indicator_flag;
3025: END IF;
3026: IF (x_ase_rec.org_id = Okc_Api.G_MISS_NUM)
3027: THEN
3028: x_ase_rec.org_id := l_ase_rec.org_id;
3029: END IF;
3030: IF (x_ase_rec.program_id = Okc_Api.G_MISS_NUM)
3026: IF (x_ase_rec.org_id = Okc_Api.G_MISS_NUM)
3027: THEN
3028: x_ase_rec.org_id := l_ase_rec.org_id;
3029: END IF;
3030: IF (x_ase_rec.program_id = Okc_Api.G_MISS_NUM)
3031: THEN
3032: x_ase_rec.program_id := l_ase_rec.program_id;
3033: END IF;
3034: IF (x_ase_rec.program_application_id = Okc_Api.G_MISS_NUM)
3030: IF (x_ase_rec.program_id = Okc_Api.G_MISS_NUM)
3031: THEN
3032: x_ase_rec.program_id := l_ase_rec.program_id;
3033: END IF;
3034: IF (x_ase_rec.program_application_id = Okc_Api.G_MISS_NUM)
3035: THEN
3036: x_ase_rec.program_application_id := l_ase_rec.program_application_id;
3037: END IF;
3038: IF (x_ase_rec.request_id = Okc_Api.G_MISS_NUM)
3034: IF (x_ase_rec.program_application_id = Okc_Api.G_MISS_NUM)
3035: THEN
3036: x_ase_rec.program_application_id := l_ase_rec.program_application_id;
3037: END IF;
3038: IF (x_ase_rec.request_id = Okc_Api.G_MISS_NUM)
3039: THEN
3040: x_ase_rec.request_id := l_ase_rec.request_id;
3041: END IF;
3042: IF (x_ase_rec.program_update_date = Okc_Api.G_MISS_DATE)
3038: IF (x_ase_rec.request_id = Okc_Api.G_MISS_NUM)
3039: THEN
3040: x_ase_rec.request_id := l_ase_rec.request_id;
3041: END IF;
3042: IF (x_ase_rec.program_update_date = Okc_Api.G_MISS_DATE)
3043: THEN
3044: x_ase_rec.program_update_date := l_ase_rec.program_update_date;
3045: END IF;
3046: IF (x_ase_rec.created_by = Okc_Api.G_MISS_NUM)
3042: IF (x_ase_rec.program_update_date = Okc_Api.G_MISS_DATE)
3043: THEN
3044: x_ase_rec.program_update_date := l_ase_rec.program_update_date;
3045: END IF;
3046: IF (x_ase_rec.created_by = Okc_Api.G_MISS_NUM)
3047: THEN
3048: x_ase_rec.created_by := l_ase_rec.created_by;
3049: END IF;
3050: IF (x_ase_rec.creation_date = Okc_Api.G_MISS_DATE)
3046: IF (x_ase_rec.created_by = Okc_Api.G_MISS_NUM)
3047: THEN
3048: x_ase_rec.created_by := l_ase_rec.created_by;
3049: END IF;
3050: IF (x_ase_rec.creation_date = Okc_Api.G_MISS_DATE)
3051: THEN
3052: x_ase_rec.creation_date := l_ase_rec.creation_date;
3053: END IF;
3054: IF (x_ase_rec.last_updated_by = Okc_Api.G_MISS_NUM)
3050: IF (x_ase_rec.creation_date = Okc_Api.G_MISS_DATE)
3051: THEN
3052: x_ase_rec.creation_date := l_ase_rec.creation_date;
3053: END IF;
3054: IF (x_ase_rec.last_updated_by = Okc_Api.G_MISS_NUM)
3055: THEN
3056: x_ase_rec.last_updated_by := l_ase_rec.last_updated_by;
3057: END IF;
3058: IF (x_ase_rec.last_update_date = Okc_Api.G_MISS_DATE)
3054: IF (x_ase_rec.last_updated_by = Okc_Api.G_MISS_NUM)
3055: THEN
3056: x_ase_rec.last_updated_by := l_ase_rec.last_updated_by;
3057: END IF;
3058: IF (x_ase_rec.last_update_date = Okc_Api.G_MISS_DATE)
3059: THEN
3060: x_ase_rec.last_update_date := l_ase_rec.last_update_date;
3061: END IF;
3062: IF (x_ase_rec.last_update_login = Okc_Api.G_MISS_NUM)
3058: IF (x_ase_rec.last_update_date = Okc_Api.G_MISS_DATE)
3059: THEN
3060: x_ase_rec.last_update_date := l_ase_rec.last_update_date;
3061: END IF;
3062: IF (x_ase_rec.last_update_login = Okc_Api.G_MISS_NUM)
3063: THEN
3064: x_ase_rec.last_update_login := l_ase_rec.last_update_login;
3065: END IF;
3066: END IF;
3072: FUNCTION Set_Attributes (
3073: p_ase_rec IN ase_rec_type,
3074: x_ase_rec OUT NOCOPY ase_rec_type
3075: ) RETURN VARCHAR2 IS
3076: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3077: BEGIN
3078: x_ase_rec := p_ase_rec;
3079: RETURN(l_return_status);
3080: END Set_Attributes;
3078: x_ase_rec := p_ase_rec;
3079: RETURN(l_return_status);
3080: END Set_Attributes;
3081: BEGIN
3082: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
3083: p_init_msg_list,
3084: '_PVT',
3085: x_return_status);
3086: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3082: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
3083: p_init_msg_list,
3084: '_PVT',
3085: x_return_status);
3086: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3087: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3088: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3089: RAISE Okc_Api.G_EXCEPTION_ERROR;
3090: END IF;
3083: p_init_msg_list,
3084: '_PVT',
3085: x_return_status);
3086: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3087: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3088: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3089: RAISE Okc_Api.G_EXCEPTION_ERROR;
3090: END IF;
3091: --- Setting item attributes
3084: '_PVT',
3085: x_return_status);
3086: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3087: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3088: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3089: RAISE Okc_Api.G_EXCEPTION_ERROR;
3090: END IF;
3091: --- Setting item attributes
3092: l_return_status := Set_Attributes(
3085: x_return_status);
3086: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3087: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3088: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3089: RAISE Okc_Api.G_EXCEPTION_ERROR;
3090: END IF;
3091: --- Setting item attributes
3092: l_return_status := Set_Attributes(
3093: p_ase_rec, -- IN
3092: l_return_status := Set_Attributes(
3093: p_ase_rec, -- IN
3094: l_ase_rec); -- OUT
3095: --- If any errors happen abort API
3096: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3097: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3098: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3099: RAISE Okc_Api.G_EXCEPTION_ERROR;
3100: END IF;
3093: p_ase_rec, -- IN
3094: l_ase_rec); -- OUT
3095: --- If any errors happen abort API
3096: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3097: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3098: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3099: RAISE Okc_Api.G_EXCEPTION_ERROR;
3100: END IF;
3101: l_return_status := populate_new_record(l_ase_rec, l_def_ase_rec);
3094: l_ase_rec); -- OUT
3095: --- If any errors happen abort API
3096: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3097: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3098: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3099: RAISE Okc_Api.G_EXCEPTION_ERROR;
3100: END IF;
3101: l_return_status := populate_new_record(l_ase_rec, l_def_ase_rec);
3102: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3095: --- If any errors happen abort API
3096: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3097: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3098: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3099: RAISE Okc_Api.G_EXCEPTION_ERROR;
3100: END IF;
3101: l_return_status := populate_new_record(l_ase_rec, l_def_ase_rec);
3102: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3103: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3098: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3099: RAISE Okc_Api.G_EXCEPTION_ERROR;
3100: END IF;
3101: l_return_status := populate_new_record(l_ase_rec, l_def_ase_rec);
3102: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3103: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3104: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3105: RAISE Okc_Api.G_EXCEPTION_ERROR;
3106: END IF;
3099: RAISE Okc_Api.G_EXCEPTION_ERROR;
3100: END IF;
3101: l_return_status := populate_new_record(l_ase_rec, l_def_ase_rec);
3102: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3103: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3104: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3105: RAISE Okc_Api.G_EXCEPTION_ERROR;
3106: END IF;
3107: UPDATE OKL_ACCT_SOURCES
3100: END IF;
3101: l_return_status := populate_new_record(l_ase_rec, l_def_ase_rec);
3102: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3103: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3104: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3105: RAISE Okc_Api.G_EXCEPTION_ERROR;
3106: END IF;
3107: UPDATE OKL_ACCT_SOURCES
3108: SET SOURCE_TABLE = l_def_ase_rec.source_table,
3101: l_return_status := populate_new_record(l_ase_rec, l_def_ase_rec);
3102: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3103: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3104: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3105: RAISE Okc_Api.G_EXCEPTION_ERROR;
3106: END IF;
3107: UPDATE OKL_ACCT_SOURCES
3108: SET SOURCE_TABLE = l_def_ase_rec.source_table,
3109: SOURCE_ID = l_def_ase_rec.source_id,
3152: WHERE ID = l_def_ase_rec.id;
3153:
3154: x_ase_rec := l_ase_rec;
3155: x_return_status := l_return_status;
3156: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3157: EXCEPTION
3158: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
3159: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3160: (
3154: x_ase_rec := l_ase_rec;
3155: x_return_status := l_return_status;
3156: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3157: EXCEPTION
3158: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
3159: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3160: (
3161: l_api_name,
3162: G_PKG_NAME,
3155: x_return_status := l_return_status;
3156: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3157: EXCEPTION
3158: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
3159: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3160: (
3161: l_api_name,
3162: G_PKG_NAME,
3163: 'OKC_API.G_RET_STS_ERROR',
3159: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3160: (
3161: l_api_name,
3162: G_PKG_NAME,
3163: 'OKC_API.G_RET_STS_ERROR',
3164: x_msg_count,
3165: x_msg_data,
3166: '_PVT'
3167: );
3164: x_msg_count,
3165: x_msg_data,
3166: '_PVT'
3167: );
3168: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3169: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3170: (
3171: l_api_name,
3172: G_PKG_NAME,
3165: x_msg_data,
3166: '_PVT'
3167: );
3168: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3169: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3170: (
3171: l_api_name,
3172: G_PKG_NAME,
3173: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3169: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3170: (
3171: l_api_name,
3172: G_PKG_NAME,
3173: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3174: x_msg_count,
3175: x_msg_data,
3176: '_PVT'
3177: );
3175: x_msg_data,
3176: '_PVT'
3177: );
3178: WHEN OTHERS THEN
3179: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3180: (
3181: l_api_name,
3182: G_PKG_NAME,
3183: 'OTHERS',
3199: x_asev_rec OUT NOCOPY asev_rec_type) IS
3200:
3201: l_api_version CONSTANT NUMBER := 1;
3202: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
3203: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3204: l_asev_rec asev_rec_type := p_asev_rec;
3205: l_def_asev_rec asev_rec_type;
3206: l_db_asev_rec asev_rec_type;
3207: l_ase_rec ase_rec_type;
3226: p_asev_rec IN asev_rec_type,
3227: x_asev_rec OUT NOCOPY asev_rec_type
3228: ) RETURN VARCHAR2 IS
3229: l_row_notfound BOOLEAN := TRUE;
3230: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3231: BEGIN
3232: x_asev_rec := p_asev_rec;
3233: -- Get current database values
3234: -- NOTE: Never assign the OBJECT_VERSION_NUMBER. Force the user to pass it
3233: -- Get current database values
3234: -- NOTE: Never assign the OBJECT_VERSION_NUMBER. Force the user to pass it
3235: -- so it may be verified through LOCK_ROW.
3236: l_db_asev_rec := get_rec(p_asev_rec, l_return_status);
3237: IF (l_return_status = Okc_Api.G_RET_STS_SUCCESS) THEN
3238: -- udhenuko Bug#5042061 Modified G_MISS_NUM to G_MISS_CHAR
3239: IF (x_asev_rec.id = Okc_Api.G_MISS_CHAR)
3240: THEN
3241: x_asev_rec.id := l_db_asev_rec.id;
3235: -- so it may be verified through LOCK_ROW.
3236: l_db_asev_rec := get_rec(p_asev_rec, l_return_status);
3237: IF (l_return_status = Okc_Api.G_RET_STS_SUCCESS) THEN
3238: -- udhenuko Bug#5042061 Modified G_MISS_NUM to G_MISS_CHAR
3239: IF (x_asev_rec.id = Okc_Api.G_MISS_CHAR)
3240: THEN
3241: x_asev_rec.id := l_db_asev_rec.id;
3242: END IF;
3243: IF (x_asev_rec.source_table = Okc_Api.G_MISS_CHAR)
3239: IF (x_asev_rec.id = Okc_Api.G_MISS_CHAR)
3240: THEN
3241: x_asev_rec.id := l_db_asev_rec.id;
3242: END IF;
3243: IF (x_asev_rec.source_table = Okc_Api.G_MISS_CHAR)
3244: THEN
3245: x_asev_rec.source_table := l_db_asev_rec.source_table;
3246: END IF;
3247: IF (x_asev_rec.source_id = Okc_Api.G_MISS_NUM)
3243: IF (x_asev_rec.source_table = Okc_Api.G_MISS_CHAR)
3244: THEN
3245: x_asev_rec.source_table := l_db_asev_rec.source_table;
3246: END IF;
3247: IF (x_asev_rec.source_id = Okc_Api.G_MISS_NUM)
3248: THEN
3249: x_asev_rec.source_id := l_db_asev_rec.source_id;
3250: END IF;
3251: IF (x_asev_rec.pdt_id = Okc_Api.G_MISS_NUM)
3247: IF (x_asev_rec.source_id = Okc_Api.G_MISS_NUM)
3248: THEN
3249: x_asev_rec.source_id := l_db_asev_rec.source_id;
3250: END IF;
3251: IF (x_asev_rec.pdt_id = Okc_Api.G_MISS_NUM)
3252: THEN
3253: x_asev_rec.pdt_id := l_db_asev_rec.pdt_id;
3254: END IF;
3255: IF (x_asev_rec.try_id = Okc_Api.G_MISS_NUM)
3251: IF (x_asev_rec.pdt_id = Okc_Api.G_MISS_NUM)
3252: THEN
3253: x_asev_rec.pdt_id := l_db_asev_rec.pdt_id;
3254: END IF;
3255: IF (x_asev_rec.try_id = Okc_Api.G_MISS_NUM)
3256: THEN
3257: x_asev_rec.try_id := l_db_asev_rec.try_id;
3258: END IF;
3259: IF (x_asev_rec.sty_id = Okc_Api.G_MISS_NUM)
3255: IF (x_asev_rec.try_id = Okc_Api.G_MISS_NUM)
3256: THEN
3257: x_asev_rec.try_id := l_db_asev_rec.try_id;
3258: END IF;
3259: IF (x_asev_rec.sty_id = Okc_Api.G_MISS_NUM)
3260: THEN
3261: x_asev_rec.sty_id := l_db_asev_rec.sty_id;
3262: END IF;
3263: IF (x_asev_rec.memo_yn = Okc_Api.G_MISS_CHAR)
3259: IF (x_asev_rec.sty_id = Okc_Api.G_MISS_NUM)
3260: THEN
3261: x_asev_rec.sty_id := l_db_asev_rec.sty_id;
3262: END IF;
3263: IF (x_asev_rec.memo_yn = Okc_Api.G_MISS_CHAR)
3264: THEN
3265: x_asev_rec.memo_yn := l_db_asev_rec.memo_yn;
3266: END IF;
3267: IF (x_asev_rec.factor_investor_flag = Okc_Api.G_MISS_CHAR)
3263: IF (x_asev_rec.memo_yn = Okc_Api.G_MISS_CHAR)
3264: THEN
3265: x_asev_rec.memo_yn := l_db_asev_rec.memo_yn;
3266: END IF;
3267: IF (x_asev_rec.factor_investor_flag = Okc_Api.G_MISS_CHAR)
3268: THEN
3269: x_asev_rec.factor_investor_flag := l_db_asev_rec.factor_investor_flag;
3270: END IF;
3271: IF (x_asev_rec.factor_investor_code = Okc_Api.G_MISS_CHAR)
3267: IF (x_asev_rec.factor_investor_flag = Okc_Api.G_MISS_CHAR)
3268: THEN
3269: x_asev_rec.factor_investor_flag := l_db_asev_rec.factor_investor_flag;
3270: END IF;
3271: IF (x_asev_rec.factor_investor_code = Okc_Api.G_MISS_CHAR)
3272: THEN
3273: x_asev_rec.factor_investor_code := l_db_asev_rec.factor_investor_code;
3274: END IF;
3275: IF (x_asev_rec.amount = Okc_Api.G_MISS_NUM)
3271: IF (x_asev_rec.factor_investor_code = Okc_Api.G_MISS_CHAR)
3272: THEN
3273: x_asev_rec.factor_investor_code := l_db_asev_rec.factor_investor_code;
3274: END IF;
3275: IF (x_asev_rec.amount = Okc_Api.G_MISS_NUM)
3276: THEN
3277: x_asev_rec.amount := l_db_asev_rec.amount;
3278: END IF;
3279: IF (x_asev_rec.formula_used = Okc_Api.G_MISS_CHAR)
3275: IF (x_asev_rec.amount = Okc_Api.G_MISS_NUM)
3276: THEN
3277: x_asev_rec.amount := l_db_asev_rec.amount;
3278: END IF;
3279: IF (x_asev_rec.formula_used = Okc_Api.G_MISS_CHAR)
3280: THEN
3281: x_asev_rec.formula_used := l_db_asev_rec.formula_used;
3282: END IF;
3283: IF (x_asev_rec.entered_date = Okc_Api.G_MISS_DATE)
3279: IF (x_asev_rec.formula_used = Okc_Api.G_MISS_CHAR)
3280: THEN
3281: x_asev_rec.formula_used := l_db_asev_rec.formula_used;
3282: END IF;
3283: IF (x_asev_rec.entered_date = Okc_Api.G_MISS_DATE)
3284: THEN
3285: x_asev_rec.entered_date := l_db_asev_rec.entered_date;
3286: END IF;
3287: IF (x_asev_rec.accounting_date = Okc_Api.G_MISS_DATE)
3283: IF (x_asev_rec.entered_date = Okc_Api.G_MISS_DATE)
3284: THEN
3285: x_asev_rec.entered_date := l_db_asev_rec.entered_date;
3286: END IF;
3287: IF (x_asev_rec.accounting_date = Okc_Api.G_MISS_DATE)
3288: THEN
3289: x_asev_rec.accounting_date := l_db_asev_rec.accounting_date;
3290: END IF;
3291: IF (x_asev_rec.gl_reversal_flag = Okc_Api.G_MISS_CHAR)
3287: IF (x_asev_rec.accounting_date = Okc_Api.G_MISS_DATE)
3288: THEN
3289: x_asev_rec.accounting_date := l_db_asev_rec.accounting_date;
3290: END IF;
3291: IF (x_asev_rec.gl_reversal_flag = Okc_Api.G_MISS_CHAR)
3292: THEN
3293: x_asev_rec.gl_reversal_flag := l_db_asev_rec.gl_reversal_flag;
3294: END IF;
3295: IF (x_asev_rec.post_to_gl = Okc_Api.G_MISS_CHAR)
3291: IF (x_asev_rec.gl_reversal_flag = Okc_Api.G_MISS_CHAR)
3292: THEN
3293: x_asev_rec.gl_reversal_flag := l_db_asev_rec.gl_reversal_flag;
3294: END IF;
3295: IF (x_asev_rec.post_to_gl = Okc_Api.G_MISS_CHAR)
3296: THEN
3297: x_asev_rec.post_to_gl := l_db_asev_rec.post_to_gl;
3298: END IF;
3299: IF (x_asev_rec.currency_code = Okc_Api.G_MISS_CHAR)
3295: IF (x_asev_rec.post_to_gl = Okc_Api.G_MISS_CHAR)
3296: THEN
3297: x_asev_rec.post_to_gl := l_db_asev_rec.post_to_gl;
3298: END IF;
3299: IF (x_asev_rec.currency_code = Okc_Api.G_MISS_CHAR)
3300: THEN
3301: x_asev_rec.currency_code := l_db_asev_rec.currency_code;
3302: END IF;
3303: IF (x_asev_rec.currency_conversion_type = Okc_Api.G_MISS_CHAR)
3299: IF (x_asev_rec.currency_code = Okc_Api.G_MISS_CHAR)
3300: THEN
3301: x_asev_rec.currency_code := l_db_asev_rec.currency_code;
3302: END IF;
3303: IF (x_asev_rec.currency_conversion_type = Okc_Api.G_MISS_CHAR)
3304: THEN
3305: x_asev_rec.currency_conversion_type := l_db_asev_rec.currency_conversion_type;
3306: END IF;
3307: IF (x_asev_rec.currency_conversion_date = Okc_Api.G_MISS_DATE)
3303: IF (x_asev_rec.currency_conversion_type = Okc_Api.G_MISS_CHAR)
3304: THEN
3305: x_asev_rec.currency_conversion_type := l_db_asev_rec.currency_conversion_type;
3306: END IF;
3307: IF (x_asev_rec.currency_conversion_date = Okc_Api.G_MISS_DATE)
3308: THEN
3309: x_asev_rec.currency_conversion_date := l_db_asev_rec.currency_conversion_date;
3310: END IF;
3311: IF (x_asev_rec.currency_conversion_rate = Okc_Api.G_MISS_NUM)
3307: IF (x_asev_rec.currency_conversion_date = Okc_Api.G_MISS_DATE)
3308: THEN
3309: x_asev_rec.currency_conversion_date := l_db_asev_rec.currency_conversion_date;
3310: END IF;
3311: IF (x_asev_rec.currency_conversion_rate = Okc_Api.G_MISS_NUM)
3312: THEN
3313: x_asev_rec.currency_conversion_rate := l_db_asev_rec.currency_conversion_rate;
3314: END IF;
3315: IF (x_asev_rec.khr_id = Okc_Api.G_MISS_NUM)
3311: IF (x_asev_rec.currency_conversion_rate = Okc_Api.G_MISS_NUM)
3312: THEN
3313: x_asev_rec.currency_conversion_rate := l_db_asev_rec.currency_conversion_rate;
3314: END IF;
3315: IF (x_asev_rec.khr_id = Okc_Api.G_MISS_NUM)
3316: THEN
3317: x_asev_rec.khr_id := l_db_asev_rec.khr_id;
3318: END IF;
3319: IF (x_asev_rec.kle_id = Okc_Api.G_MISS_NUM)
3315: IF (x_asev_rec.khr_id = Okc_Api.G_MISS_NUM)
3316: THEN
3317: x_asev_rec.khr_id := l_db_asev_rec.khr_id;
3318: END IF;
3319: IF (x_asev_rec.kle_id = Okc_Api.G_MISS_NUM)
3320: THEN
3321: x_asev_rec.kle_id := l_db_asev_rec.kle_id;
3322: END IF;
3323: IF (x_asev_rec.pay_vendor_sites_pk = Okc_Api.G_MISS_CHAR)
3319: IF (x_asev_rec.kle_id = Okc_Api.G_MISS_NUM)
3320: THEN
3321: x_asev_rec.kle_id := l_db_asev_rec.kle_id;
3322: END IF;
3323: IF (x_asev_rec.pay_vendor_sites_pk = Okc_Api.G_MISS_CHAR)
3324: THEN
3325: x_asev_rec.pay_vendor_sites_pk := l_db_asev_rec.pay_vendor_sites_pk;
3326: END IF;
3327: IF (x_asev_rec.rec_site_uses_pk = Okc_Api.G_MISS_CHAR)
3323: IF (x_asev_rec.pay_vendor_sites_pk = Okc_Api.G_MISS_CHAR)
3324: THEN
3325: x_asev_rec.pay_vendor_sites_pk := l_db_asev_rec.pay_vendor_sites_pk;
3326: END IF;
3327: IF (x_asev_rec.rec_site_uses_pk = Okc_Api.G_MISS_CHAR)
3328: THEN
3329: x_asev_rec.rec_site_uses_pk := l_db_asev_rec.rec_site_uses_pk;
3330: END IF;
3331: IF (x_asev_rec.asset_category_id_pk1 = Okc_Api.G_MISS_CHAR)
3327: IF (x_asev_rec.rec_site_uses_pk = Okc_Api.G_MISS_CHAR)
3328: THEN
3329: x_asev_rec.rec_site_uses_pk := l_db_asev_rec.rec_site_uses_pk;
3330: END IF;
3331: IF (x_asev_rec.asset_category_id_pk1 = Okc_Api.G_MISS_CHAR)
3332: THEN
3333: x_asev_rec.asset_category_id_pk1 := l_db_asev_rec.asset_category_id_pk1;
3334: END IF;
3335: IF (x_asev_rec.asset_book_pk2 = Okc_Api.G_MISS_CHAR)
3331: IF (x_asev_rec.asset_category_id_pk1 = Okc_Api.G_MISS_CHAR)
3332: THEN
3333: x_asev_rec.asset_category_id_pk1 := l_db_asev_rec.asset_category_id_pk1;
3334: END IF;
3335: IF (x_asev_rec.asset_book_pk2 = Okc_Api.G_MISS_CHAR)
3336: THEN
3337: x_asev_rec.asset_book_pk2 := l_db_asev_rec.asset_book_pk2;
3338: END IF;
3339: IF (x_asev_rec.pay_financial_options_pk = Okc_Api.G_MISS_CHAR)
3335: IF (x_asev_rec.asset_book_pk2 = Okc_Api.G_MISS_CHAR)
3336: THEN
3337: x_asev_rec.asset_book_pk2 := l_db_asev_rec.asset_book_pk2;
3338: END IF;
3339: IF (x_asev_rec.pay_financial_options_pk = Okc_Api.G_MISS_CHAR)
3340: THEN
3341: x_asev_rec.pay_financial_options_pk := l_db_asev_rec.pay_financial_options_pk;
3342: END IF;
3343: IF (x_asev_rec.jtf_sales_reps_pk = Okc_Api.G_MISS_CHAR)
3339: IF (x_asev_rec.pay_financial_options_pk = Okc_Api.G_MISS_CHAR)
3340: THEN
3341: x_asev_rec.pay_financial_options_pk := l_db_asev_rec.pay_financial_options_pk;
3342: END IF;
3343: IF (x_asev_rec.jtf_sales_reps_pk = Okc_Api.G_MISS_CHAR)
3344: THEN
3345: x_asev_rec.jtf_sales_reps_pk := l_db_asev_rec.jtf_sales_reps_pk;
3346: END IF;
3347: IF (x_asev_rec.inventory_item_id_pk1 = Okc_Api.G_MISS_CHAR)
3343: IF (x_asev_rec.jtf_sales_reps_pk = Okc_Api.G_MISS_CHAR)
3344: THEN
3345: x_asev_rec.jtf_sales_reps_pk := l_db_asev_rec.jtf_sales_reps_pk;
3346: END IF;
3347: IF (x_asev_rec.inventory_item_id_pk1 = Okc_Api.G_MISS_CHAR)
3348: THEN
3349: x_asev_rec.inventory_item_id_pk1 := l_db_asev_rec.inventory_item_id_pk1;
3350: END IF;
3351: IF (x_asev_rec.inventory_org_id_pk2 = Okc_Api.G_MISS_CHAR)
3347: IF (x_asev_rec.inventory_item_id_pk1 = Okc_Api.G_MISS_CHAR)
3348: THEN
3349: x_asev_rec.inventory_item_id_pk1 := l_db_asev_rec.inventory_item_id_pk1;
3350: END IF;
3351: IF (x_asev_rec.inventory_org_id_pk2 = Okc_Api.G_MISS_CHAR)
3352: THEN
3353: x_asev_rec.inventory_org_id_pk2 := l_db_asev_rec.inventory_org_id_pk2;
3354: END IF;
3355: IF (x_asev_rec.rec_trx_types_pk = Okc_Api.G_MISS_CHAR)
3351: IF (x_asev_rec.inventory_org_id_pk2 = Okc_Api.G_MISS_CHAR)
3352: THEN
3353: x_asev_rec.inventory_org_id_pk2 := l_db_asev_rec.inventory_org_id_pk2;
3354: END IF;
3355: IF (x_asev_rec.rec_trx_types_pk = Okc_Api.G_MISS_CHAR)
3356: THEN
3357: x_asev_rec.rec_trx_types_pk := l_db_asev_rec.rec_trx_types_pk;
3358: END IF;
3359: IF (x_asev_rec.avl_id = Okc_Api.G_MISS_NUM)
3355: IF (x_asev_rec.rec_trx_types_pk = Okc_Api.G_MISS_CHAR)
3356: THEN
3357: x_asev_rec.rec_trx_types_pk := l_db_asev_rec.rec_trx_types_pk;
3358: END IF;
3359: IF (x_asev_rec.avl_id = Okc_Api.G_MISS_NUM)
3360: THEN
3361: x_asev_rec.avl_id := l_db_asev_rec.avl_id;
3362: END IF;
3363: IF (x_asev_rec.local_product_yn = Okc_Api.G_MISS_CHAR)
3359: IF (x_asev_rec.avl_id = Okc_Api.G_MISS_NUM)
3360: THEN
3361: x_asev_rec.avl_id := l_db_asev_rec.avl_id;
3362: END IF;
3363: IF (x_asev_rec.local_product_yn = Okc_Api.G_MISS_CHAR)
3364: THEN
3365: x_asev_rec.local_product_yn := l_db_asev_rec.local_product_yn;
3366: END IF;
3367: IF (x_asev_rec.internal_status = Okc_Api.G_MISS_CHAR)
3363: IF (x_asev_rec.local_product_yn = Okc_Api.G_MISS_CHAR)
3364: THEN
3365: x_asev_rec.local_product_yn := l_db_asev_rec.local_product_yn;
3366: END IF;
3367: IF (x_asev_rec.internal_status = Okc_Api.G_MISS_CHAR)
3368: THEN
3369: x_asev_rec.internal_status := l_db_asev_rec.internal_status;
3370: END IF;
3371: IF (x_asev_rec.custom_status = Okc_Api.G_MISS_CHAR)
3367: IF (x_asev_rec.internal_status = Okc_Api.G_MISS_CHAR)
3368: THEN
3369: x_asev_rec.internal_status := l_db_asev_rec.internal_status;
3370: END IF;
3371: IF (x_asev_rec.custom_status = Okc_Api.G_MISS_CHAR)
3372: THEN
3373: x_asev_rec.custom_status := l_db_asev_rec.custom_status;
3374: END IF;
3375: IF (x_asev_rec.source_indicator_flag = Okc_Api.G_MISS_CHAR)
3371: IF (x_asev_rec.custom_status = Okc_Api.G_MISS_CHAR)
3372: THEN
3373: x_asev_rec.custom_status := l_db_asev_rec.custom_status;
3374: END IF;
3375: IF (x_asev_rec.source_indicator_flag = Okc_Api.G_MISS_CHAR)
3376: THEN
3377: x_asev_rec.source_indicator_flag := l_db_asev_rec.source_indicator_flag;
3378: END IF;
3379: IF (x_asev_rec.org_id = Okc_Api.G_MISS_NUM)
3375: IF (x_asev_rec.source_indicator_flag = Okc_Api.G_MISS_CHAR)
3376: THEN
3377: x_asev_rec.source_indicator_flag := l_db_asev_rec.source_indicator_flag;
3378: END IF;
3379: IF (x_asev_rec.org_id = Okc_Api.G_MISS_NUM)
3380: THEN
3381: x_asev_rec.org_id := l_db_asev_rec.org_id;
3382: END IF;
3383: IF (x_asev_rec.program_id = Okc_Api.G_MISS_NUM)
3379: IF (x_asev_rec.org_id = Okc_Api.G_MISS_NUM)
3380: THEN
3381: x_asev_rec.org_id := l_db_asev_rec.org_id;
3382: END IF;
3383: IF (x_asev_rec.program_id = Okc_Api.G_MISS_NUM)
3384: THEN
3385: x_asev_rec.program_id := l_db_asev_rec.program_id;
3386: END IF;
3387: IF (x_asev_rec.program_application_id = Okc_Api.G_MISS_NUM)
3383: IF (x_asev_rec.program_id = Okc_Api.G_MISS_NUM)
3384: THEN
3385: x_asev_rec.program_id := l_db_asev_rec.program_id;
3386: END IF;
3387: IF (x_asev_rec.program_application_id = Okc_Api.G_MISS_NUM)
3388: THEN
3389: x_asev_rec.program_application_id := l_db_asev_rec.program_application_id;
3390: END IF;
3391: IF (x_asev_rec.request_id = Okc_Api.G_MISS_NUM)
3387: IF (x_asev_rec.program_application_id = Okc_Api.G_MISS_NUM)
3388: THEN
3389: x_asev_rec.program_application_id := l_db_asev_rec.program_application_id;
3390: END IF;
3391: IF (x_asev_rec.request_id = Okc_Api.G_MISS_NUM)
3392: THEN
3393: x_asev_rec.request_id := l_db_asev_rec.request_id;
3394: END IF;
3395: IF (x_asev_rec.program_update_date = Okc_Api.G_MISS_DATE)
3391: IF (x_asev_rec.request_id = Okc_Api.G_MISS_NUM)
3392: THEN
3393: x_asev_rec.request_id := l_db_asev_rec.request_id;
3394: END IF;
3395: IF (x_asev_rec.program_update_date = Okc_Api.G_MISS_DATE)
3396: THEN
3397: x_asev_rec.program_update_date := l_db_asev_rec.program_update_date;
3398: END IF;
3399: IF (x_asev_rec.created_by = Okc_Api.G_MISS_NUM)
3395: IF (x_asev_rec.program_update_date = Okc_Api.G_MISS_DATE)
3396: THEN
3397: x_asev_rec.program_update_date := l_db_asev_rec.program_update_date;
3398: END IF;
3399: IF (x_asev_rec.created_by = Okc_Api.G_MISS_NUM)
3400: THEN
3401: x_asev_rec.created_by := l_db_asev_rec.created_by;
3402: END IF;
3403: IF (x_asev_rec.creation_date = Okc_Api.G_MISS_DATE)
3399: IF (x_asev_rec.created_by = Okc_Api.G_MISS_NUM)
3400: THEN
3401: x_asev_rec.created_by := l_db_asev_rec.created_by;
3402: END IF;
3403: IF (x_asev_rec.creation_date = Okc_Api.G_MISS_DATE)
3404: THEN
3405: x_asev_rec.creation_date := l_db_asev_rec.creation_date;
3406: END IF;
3407: IF (x_asev_rec.last_updated_by = Okc_Api.G_MISS_NUM)
3403: IF (x_asev_rec.creation_date = Okc_Api.G_MISS_DATE)
3404: THEN
3405: x_asev_rec.creation_date := l_db_asev_rec.creation_date;
3406: END IF;
3407: IF (x_asev_rec.last_updated_by = Okc_Api.G_MISS_NUM)
3408: THEN
3409: x_asev_rec.last_updated_by := l_db_asev_rec.last_updated_by;
3410: END IF;
3411: IF (x_asev_rec.last_update_date = Okc_Api.G_MISS_DATE)
3407: IF (x_asev_rec.last_updated_by = Okc_Api.G_MISS_NUM)
3408: THEN
3409: x_asev_rec.last_updated_by := l_db_asev_rec.last_updated_by;
3410: END IF;
3411: IF (x_asev_rec.last_update_date = Okc_Api.G_MISS_DATE)
3412: THEN
3413: x_asev_rec.last_update_date := l_db_asev_rec.last_update_date;
3414: END IF;
3415: IF (x_asev_rec.last_update_login = Okc_Api.G_MISS_NUM)
3411: IF (x_asev_rec.last_update_date = Okc_Api.G_MISS_DATE)
3412: THEN
3413: x_asev_rec.last_update_date := l_db_asev_rec.last_update_date;
3414: END IF;
3415: IF (x_asev_rec.last_update_login = Okc_Api.G_MISS_NUM)
3416: THEN
3417: x_asev_rec.last_update_login := l_db_asev_rec.last_update_login;
3418: END IF;
3419: END IF;
3425: FUNCTION Set_Attributes (
3426: p_asev_rec IN asev_rec_type,
3427: x_asev_rec OUT NOCOPY asev_rec_type
3428: ) RETURN VARCHAR2 IS
3429: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3430: l_request_id NUMBER := Fnd_Global.CONC_REQUEST_ID;
3431: l_prog_app_id NUMBER := Fnd_Global.PROG_APPL_ID;
3432: l_program_id NUMBER := Fnd_Global.CONC_PROGRAM_ID;
3433:
3446:
3447: RETURN(l_return_status);
3448: END Set_Attributes;
3449: BEGIN
3450: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
3451: G_PKG_NAME,
3452: p_init_msg_list,
3453: l_api_version,
3454: p_api_version,
3453: l_api_version,
3454: p_api_version,
3455: '_PVT',
3456: x_return_status);
3457: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3458: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3459: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3460: RAISE Okc_Api.G_EXCEPTION_ERROR;
3461: END IF;
3454: p_api_version,
3455: '_PVT',
3456: x_return_status);
3457: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3458: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3459: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3460: RAISE Okc_Api.G_EXCEPTION_ERROR;
3461: END IF;
3462: --- Setting item attributes
3455: '_PVT',
3456: x_return_status);
3457: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3458: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3459: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3460: RAISE Okc_Api.G_EXCEPTION_ERROR;
3461: END IF;
3462: --- Setting item attributes
3463: l_return_status := Set_Attributes(
3456: x_return_status);
3457: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3458: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3459: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3460: RAISE Okc_Api.G_EXCEPTION_ERROR;
3461: END IF;
3462: --- Setting item attributes
3463: l_return_status := Set_Attributes(
3464: p_asev_rec, -- IN
3463: l_return_status := Set_Attributes(
3464: p_asev_rec, -- IN
3465: x_asev_rec); -- OUT
3466: --- If any errors happen abort API
3467: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3468: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3469: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3470: RAISE Okc_Api.G_EXCEPTION_ERROR;
3471: END IF;
3464: p_asev_rec, -- IN
3465: x_asev_rec); -- OUT
3466: --- If any errors happen abort API
3467: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3468: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3469: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3470: RAISE Okc_Api.G_EXCEPTION_ERROR;
3471: END IF;
3472: l_return_status := populate_new_record(l_asev_rec, l_def_asev_rec);
3465: x_asev_rec); -- OUT
3466: --- If any errors happen abort API
3467: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3468: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3469: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3470: RAISE Okc_Api.G_EXCEPTION_ERROR;
3471: END IF;
3472: l_return_status := populate_new_record(l_asev_rec, l_def_asev_rec);
3473: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3466: --- If any errors happen abort API
3467: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3468: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3469: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3470: RAISE Okc_Api.G_EXCEPTION_ERROR;
3471: END IF;
3472: l_return_status := populate_new_record(l_asev_rec, l_def_asev_rec);
3473: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3474: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3469: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3470: RAISE Okc_Api.G_EXCEPTION_ERROR;
3471: END IF;
3472: l_return_status := populate_new_record(l_asev_rec, l_def_asev_rec);
3473: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3474: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3475: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3476: RAISE Okc_Api.G_EXCEPTION_ERROR;
3477: END IF;
3470: RAISE Okc_Api.G_EXCEPTION_ERROR;
3471: END IF;
3472: l_return_status := populate_new_record(l_asev_rec, l_def_asev_rec);
3473: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3474: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3475: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3476: RAISE Okc_Api.G_EXCEPTION_ERROR;
3477: END IF;
3478: l_def_asev_rec := fill_who_columns(l_def_asev_rec);
3471: END IF;
3472: l_return_status := populate_new_record(l_asev_rec, l_def_asev_rec);
3473: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3474: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3475: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3476: RAISE Okc_Api.G_EXCEPTION_ERROR;
3477: END IF;
3478: l_def_asev_rec := fill_who_columns(l_def_asev_rec);
3479: --- Validate all non-missing attributes (Item Level Validation)
3472: l_return_status := populate_new_record(l_asev_rec, l_def_asev_rec);
3473: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3474: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3475: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3476: RAISE Okc_Api.G_EXCEPTION_ERROR;
3477: END IF;
3478: l_def_asev_rec := fill_who_columns(l_def_asev_rec);
3479: --- Validate all non-missing attributes (Item Level Validation)
3480: l_return_status := Validate_Attributes(l_def_asev_rec);
3478: l_def_asev_rec := fill_who_columns(l_def_asev_rec);
3479: --- Validate all non-missing attributes (Item Level Validation)
3480: l_return_status := Validate_Attributes(l_def_asev_rec);
3481: --- If any errors happen abort API
3482: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3483: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3484: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3485: RAISE Okc_Api.G_EXCEPTION_ERROR;
3486: END IF;
3479: --- Validate all non-missing attributes (Item Level Validation)
3480: l_return_status := Validate_Attributes(l_def_asev_rec);
3481: --- If any errors happen abort API
3482: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3483: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3484: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3485: RAISE Okc_Api.G_EXCEPTION_ERROR;
3486: END IF;
3487: -- bug 4049781
3480: l_return_status := Validate_Attributes(l_def_asev_rec);
3481: --- If any errors happen abort API
3482: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3483: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3484: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3485: RAISE Okc_Api.G_EXCEPTION_ERROR;
3486: END IF;
3487: -- bug 4049781
3488: l_return_status := Validate_Record(l_def_asev_rec);
3481: --- If any errors happen abort API
3482: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3483: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3484: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3485: RAISE Okc_Api.G_EXCEPTION_ERROR;
3486: END IF;
3487: -- bug 4049781
3488: l_return_status := Validate_Record(l_def_asev_rec);
3489: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3485: RAISE Okc_Api.G_EXCEPTION_ERROR;
3486: END IF;
3487: -- bug 4049781
3488: l_return_status := Validate_Record(l_def_asev_rec);
3489: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3490: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3491: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3492: RAISE Okc_Api.G_EXCEPTION_ERROR;
3493: END IF;
3486: END IF;
3487: -- bug 4049781
3488: l_return_status := Validate_Record(l_def_asev_rec);
3489: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3490: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3491: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3492: RAISE Okc_Api.G_EXCEPTION_ERROR;
3493: END IF;
3494:
3487: -- bug 4049781
3488: l_return_status := Validate_Record(l_def_asev_rec);
3489: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3490: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3491: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3492: RAISE Okc_Api.G_EXCEPTION_ERROR;
3493: END IF;
3494:
3495: /*
3488: l_return_status := Validate_Record(l_def_asev_rec);
3489: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3490: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3491: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3492: RAISE Okc_Api.G_EXCEPTION_ERROR;
3493: END IF;
3494:
3495: /*
3496: -- Lock the Record
3500: x_return_status => l_return_status,
3501: x_msg_count => x_msg_count,
3502: x_msg_data => x_msg_data,
3503: p_asev_rec => p_asev_rec);
3504: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3505: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3506: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3507: RAISE Okc_Api.G_EXCEPTION_ERROR;
3508: END IF;
3501: x_msg_count => x_msg_count,
3502: x_msg_data => x_msg_data,
3503: p_asev_rec => p_asev_rec);
3504: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3505: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3506: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3507: RAISE Okc_Api.G_EXCEPTION_ERROR;
3508: END IF;
3509: */
3502: x_msg_data => x_msg_data,
3503: p_asev_rec => p_asev_rec);
3504: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3505: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3506: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3507: RAISE Okc_Api.G_EXCEPTION_ERROR;
3508: END IF;
3509: */
3510:
3503: p_asev_rec => p_asev_rec);
3504: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3505: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3506: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3507: RAISE Okc_Api.G_EXCEPTION_ERROR;
3508: END IF;
3509: */
3510:
3511: -----------------------------------------
3522: x_msg_data,
3523: l_ase_rec,
3524: lx_ase_rec
3525: );
3526: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3527: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3528: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3529: RAISE Okc_Api.G_EXCEPTION_ERROR;
3530: END IF;
3523: l_ase_rec,
3524: lx_ase_rec
3525: );
3526: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3527: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3528: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3529: RAISE Okc_Api.G_EXCEPTION_ERROR;
3530: END IF;
3531: migrate(lx_ase_rec, l_def_asev_rec);
3524: lx_ase_rec
3525: );
3526: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3527: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3528: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3529: RAISE Okc_Api.G_EXCEPTION_ERROR;
3530: END IF;
3531: migrate(lx_ase_rec, l_def_asev_rec);
3532: x_asev_rec := l_def_asev_rec;
3525: );
3526: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3527: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3528: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3529: RAISE Okc_Api.G_EXCEPTION_ERROR;
3530: END IF;
3531: migrate(lx_ase_rec, l_def_asev_rec);
3532: x_asev_rec := l_def_asev_rec;
3533: x_return_status := l_return_status;
3530: END IF;
3531: migrate(lx_ase_rec, l_def_asev_rec);
3532: x_asev_rec := l_def_asev_rec;
3533: x_return_status := l_return_status;
3534: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3535: EXCEPTION
3536: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
3537: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3538: (
3532: x_asev_rec := l_def_asev_rec;
3533: x_return_status := l_return_status;
3534: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3535: EXCEPTION
3536: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
3537: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3538: (
3539: l_api_name,
3540: G_PKG_NAME,
3533: x_return_status := l_return_status;
3534: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3535: EXCEPTION
3536: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
3537: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3538: (
3539: l_api_name,
3540: G_PKG_NAME,
3541: 'OKC_API.G_RET_STS_ERROR',
3537: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3538: (
3539: l_api_name,
3540: G_PKG_NAME,
3541: 'OKC_API.G_RET_STS_ERROR',
3542: x_msg_count,
3543: x_msg_data,
3544: '_PVT'
3545: );
3542: x_msg_count,
3543: x_msg_data,
3544: '_PVT'
3545: );
3546: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3547: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3548: (
3549: l_api_name,
3550: G_PKG_NAME,
3543: x_msg_data,
3544: '_PVT'
3545: );
3546: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3547: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3548: (
3549: l_api_name,
3550: G_PKG_NAME,
3551: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3547: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3548: (
3549: l_api_name,
3550: G_PKG_NAME,
3551: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3552: x_msg_count,
3553: x_msg_data,
3554: '_PVT'
3555: );
3553: x_msg_data,
3554: '_PVT'
3555: );
3556: WHEN OTHERS THEN
3557: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3558: (
3559: l_api_name,
3560: G_PKG_NAME,
3561: 'OTHERS',
3579: x_asev_tbl OUT NOCOPY asev_tbl_type) IS
3580:
3581: l_api_version CONSTANT NUMBER := 1;
3582: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
3583: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3584: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3585: i NUMBER := 0;
3586:
3587: BEGIN
3580:
3581: l_api_version CONSTANT NUMBER := 1;
3582: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
3583: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3584: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3585: i NUMBER := 0;
3586:
3587: BEGIN
3588: Okc_Api.init_msg_list(p_init_msg_list);
3584: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3585: i NUMBER := 0;
3586:
3587: BEGIN
3588: Okc_Api.init_msg_list(p_init_msg_list);
3589: -- Make sure PL/SQL table has records in it before passing
3590:
3591: IF (p_asev_tbl.COUNT > 0) THEN
3592: i := p_asev_tbl.FIRST;
3592: i := p_asev_tbl.FIRST;
3593: LOOP
3594: update_row (
3595: p_api_version => p_api_version,
3596: p_init_msg_list => Okc_Api.G_FALSE,
3597: x_return_status => x_return_status,
3598: x_msg_count => x_msg_count,
3599: x_msg_data => x_msg_data,
3600: p_asev_rec => p_asev_tbl(i),
3599: x_msg_data => x_msg_data,
3600: p_asev_rec => p_asev_tbl(i),
3601: x_asev_rec => x_asev_tbl(i));
3602:
3603: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3604: IF (l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3605: l_overall_status := x_return_status;
3606: END IF;
3607: END IF;
3600: p_asev_rec => p_asev_tbl(i),
3601: x_asev_rec => x_asev_tbl(i));
3602:
3603: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3604: IF (l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3605: l_overall_status := x_return_status;
3606: END IF;
3607: END IF;
3608:
3612: END IF;
3613: x_return_Status := l_overall_Status;
3614:
3615: EXCEPTION
3616: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
3617: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3618: (
3619: l_api_name,
3620: G_PKG_NAME,
3613: x_return_Status := l_overall_Status;
3614:
3615: EXCEPTION
3616: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
3617: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3618: (
3619: l_api_name,
3620: G_PKG_NAME,
3621: 'OKC_API.G_RET_STS_ERROR',
3617: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3618: (
3619: l_api_name,
3620: G_PKG_NAME,
3621: 'OKC_API.G_RET_STS_ERROR',
3622: x_msg_count,
3623: x_msg_data,
3624: '_PVT'
3625: );
3622: x_msg_count,
3623: x_msg_data,
3624: '_PVT'
3625: );
3626: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3627: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3628: (
3629: l_api_name,
3630: G_PKG_NAME,
3623: x_msg_data,
3624: '_PVT'
3625: );
3626: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3627: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3628: (
3629: l_api_name,
3630: G_PKG_NAME,
3631: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3627: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3628: (
3629: l_api_name,
3630: G_PKG_NAME,
3631: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3632: x_msg_count,
3633: x_msg_data,
3634: '_PVT'
3635: );
3633: x_msg_data,
3634: '_PVT'
3635: );
3636: WHEN OTHERS THEN
3637: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3638: (
3639: l_api_name,
3640: G_PKG_NAME,
3641: 'OTHERS',
3659: p_ase_rec IN ase_rec_type) IS
3660:
3661: l_api_version CONSTANT NUMBER := 1;
3662: l_api_name CONSTANT VARCHAR2(30) := 'B_delete_row';
3663: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3664: l_ase_rec ase_rec_type := p_ase_rec;
3665: l_row_notfound BOOLEAN := TRUE;
3666: BEGIN
3667: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
3663: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3664: l_ase_rec ase_rec_type := p_ase_rec;
3665: l_row_notfound BOOLEAN := TRUE;
3666: BEGIN
3667: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
3668: p_init_msg_list,
3669: '_PVT',
3670: x_return_status);
3671: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3667: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
3668: p_init_msg_list,
3669: '_PVT',
3670: x_return_status);
3671: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3672: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3673: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3674: RAISE Okc_Api.G_EXCEPTION_ERROR;
3675: END IF;
3668: p_init_msg_list,
3669: '_PVT',
3670: x_return_status);
3671: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3672: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3673: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3674: RAISE Okc_Api.G_EXCEPTION_ERROR;
3675: END IF;
3676:
3669: '_PVT',
3670: x_return_status);
3671: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3672: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3673: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3674: RAISE Okc_Api.G_EXCEPTION_ERROR;
3675: END IF;
3676:
3677: DELETE FROM OKL_ACCT_SOURCES
3670: x_return_status);
3671: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3672: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3673: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3674: RAISE Okc_Api.G_EXCEPTION_ERROR;
3675: END IF;
3676:
3677: DELETE FROM OKL_ACCT_SOURCES
3678: WHERE ID = p_ase_rec.id;
3677: DELETE FROM OKL_ACCT_SOURCES
3678: WHERE ID = p_ase_rec.id;
3679:
3680: x_return_status := l_return_status;
3681: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3682: EXCEPTION
3683: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
3684: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3685: (
3679:
3680: x_return_status := l_return_status;
3681: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3682: EXCEPTION
3683: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
3684: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3685: (
3686: l_api_name,
3687: G_PKG_NAME,
3680: x_return_status := l_return_status;
3681: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3682: EXCEPTION
3683: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
3684: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3685: (
3686: l_api_name,
3687: G_PKG_NAME,
3688: 'OKC_API.G_RET_STS_ERROR',
3684: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3685: (
3686: l_api_name,
3687: G_PKG_NAME,
3688: 'OKC_API.G_RET_STS_ERROR',
3689: x_msg_count,
3690: x_msg_data,
3691: '_PVT'
3692: );
3689: x_msg_count,
3690: x_msg_data,
3691: '_PVT'
3692: );
3693: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3694: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3695: (
3696: l_api_name,
3697: G_PKG_NAME,
3690: x_msg_data,
3691: '_PVT'
3692: );
3693: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3694: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3695: (
3696: l_api_name,
3697: G_PKG_NAME,
3698: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3694: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3695: (
3696: l_api_name,
3697: G_PKG_NAME,
3698: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3699: x_msg_count,
3700: x_msg_data,
3701: '_PVT'
3702: );
3700: x_msg_data,
3701: '_PVT'
3702: );
3703: WHEN OTHERS THEN
3704: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3705: (
3706: l_api_name,
3707: G_PKG_NAME,
3708: 'OTHERS',
3723: p_asev_rec IN asev_rec_type) IS
3724:
3725: l_api_version CONSTANT NUMBER := 1;
3726: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
3727: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3728: l_asev_rec asev_rec_type := p_asev_rec;
3729: l_ase_rec ase_rec_type;
3730: BEGIN
3731: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
3727: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3728: l_asev_rec asev_rec_type := p_asev_rec;
3729: l_ase_rec ase_rec_type;
3730: BEGIN
3731: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
3732: G_PKG_NAME,
3733: p_init_msg_list,
3734: l_api_version,
3735: p_api_version,
3734: l_api_version,
3735: p_api_version,
3736: '_PVT',
3737: x_return_status);
3738: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3739: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3740: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3741: RAISE Okc_Api.G_EXCEPTION_ERROR;
3742: END IF;
3735: p_api_version,
3736: '_PVT',
3737: x_return_status);
3738: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3739: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3740: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3741: RAISE Okc_Api.G_EXCEPTION_ERROR;
3742: END IF;
3743: -----------------------------------------
3736: '_PVT',
3737: x_return_status);
3738: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3739: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3740: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3741: RAISE Okc_Api.G_EXCEPTION_ERROR;
3742: END IF;
3743: -----------------------------------------
3744: -- Move VIEW record to "Child" records --
3737: x_return_status);
3738: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3739: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3740: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3741: RAISE Okc_Api.G_EXCEPTION_ERROR;
3742: END IF;
3743: -----------------------------------------
3744: -- Move VIEW record to "Child" records --
3745: -----------------------------------------
3753: x_msg_count,
3754: x_msg_data,
3755: l_ase_rec
3756: );
3757: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3758: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3759: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3760: RAISE Okc_Api.G_EXCEPTION_ERROR;
3761: END IF;
3754: x_msg_data,
3755: l_ase_rec
3756: );
3757: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3758: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3759: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3760: RAISE Okc_Api.G_EXCEPTION_ERROR;
3761: END IF;
3762: x_return_status := l_return_status;
3755: l_ase_rec
3756: );
3757: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3758: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3759: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3760: RAISE Okc_Api.G_EXCEPTION_ERROR;
3761: END IF;
3762: x_return_status := l_return_status;
3763: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3756: );
3757: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3758: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3759: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3760: RAISE Okc_Api.G_EXCEPTION_ERROR;
3761: END IF;
3762: x_return_status := l_return_status;
3763: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3764: EXCEPTION
3759: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3760: RAISE Okc_Api.G_EXCEPTION_ERROR;
3761: END IF;
3762: x_return_status := l_return_status;
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: END IF;
3762: x_return_status := l_return_status;
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: x_return_status := l_return_status;
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',
3805: p_asev_tbl IN asev_tbl_type) IS
3806:
3807: l_api_version CONSTANT NUMBER := 1;
3808: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
3809: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3810: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3811: i NUMBER := 0;
3812:
3813: BEGIN
3806:
3807: l_api_version CONSTANT NUMBER := 1;
3808: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
3809: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3810: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3811: i NUMBER := 0;
3812:
3813: BEGIN
3814: Okc_Api.init_msg_list(p_init_msg_list);
3810: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3811: i NUMBER := 0;
3812:
3813: BEGIN
3814: Okc_Api.init_msg_list(p_init_msg_list);
3815: -- Make sure PL/SQL table has records in it before passing
3816:
3817: IF (p_asev_tbl.COUNT > 0) THEN
3818: i := p_asev_tbl.FIRST;
3818: i := p_asev_tbl.FIRST;
3819: LOOP
3820: delete_row (
3821: p_api_version => p_api_version,
3822: p_init_msg_list => Okc_Api.G_FALSE,
3823: x_return_status => x_return_status,
3824: x_msg_count => x_msg_count,
3825: x_msg_data => x_msg_data,
3826: p_asev_rec => p_asev_tbl(i));
3824: x_msg_count => x_msg_count,
3825: x_msg_data => x_msg_data,
3826: p_asev_rec => p_asev_tbl(i));
3827:
3828: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3829: IF (l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3830: l_overall_status := x_return_status;
3831: END IF;
3832: END IF;
3825: x_msg_data => x_msg_data,
3826: p_asev_rec => p_asev_tbl(i));
3827:
3828: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3829: IF (l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3830: l_overall_status := x_return_status;
3831: END IF;
3832: END IF;
3833: EXIT WHEN (i = p_asev_tbl.LAST);
3836: END IF;
3837: x_return_status := l_overall_status;
3838:
3839: EXCEPTION
3840: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
3841: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3842: (
3843: l_api_name,
3844: G_PKG_NAME,
3837: x_return_status := l_overall_status;
3838:
3839: EXCEPTION
3840: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
3841: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3842: (
3843: l_api_name,
3844: G_PKG_NAME,
3845: 'OKC_API.G_RET_STS_ERROR',
3841: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3842: (
3843: l_api_name,
3844: G_PKG_NAME,
3845: 'OKC_API.G_RET_STS_ERROR',
3846: x_msg_count,
3847: x_msg_data,
3848: '_PVT'
3849: );
3846: x_msg_count,
3847: x_msg_data,
3848: '_PVT'
3849: );
3850: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3851: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3852: (
3853: l_api_name,
3854: G_PKG_NAME,
3847: x_msg_data,
3848: '_PVT'
3849: );
3850: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3851: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3852: (
3853: l_api_name,
3854: G_PKG_NAME,
3855: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3851: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3852: (
3853: l_api_name,
3854: G_PKG_NAME,
3855: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3856: x_msg_count,
3857: x_msg_data,
3858: '_PVT'
3859: );
3857: x_msg_data,
3858: '_PVT'
3859: );
3860: WHEN OTHERS THEN
3861: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3862: (
3863: l_api_name,
3864: G_PKG_NAME,
3865: 'OTHERS',