[Home] [Help]
1: PACKAGE BODY OZF_FUNDS_PUB AS
2: /* $Header: OZFPFUNB.pls 120.14.12020000.3 2013/03/10 03:22:44 bkunjan ship $ */
3:
4: g_pkg_name CONSTANT VARCHAR2(30) := 'OZF_FUNDS_PUB';
5: G_DEBUG BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_high);
6:
7: ---------------------------------------------------------------------
8: -- PROCEDURE
9: -- validate_fund_items
221: --if both fund id and fund number are null, then raise exception
222: IF (p_fund_rec.fund_id = fnd_api.g_miss_num OR p_fund_rec.fund_id IS NULL) AND
223: (p_fund_rec.fund_number = fnd_api.g_miss_char OR p_fund_rec.fund_number IS NULL) THEN
224:
225: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
226: fnd_message.set_name('OZF', 'OZF_NO_FUND_ID_NUM');
227: fnd_msg_pub.add;
228: END IF;
229: x_return_status := fnd_api.g_ret_sts_error;
223: (p_fund_rec.fund_number = fnd_api.g_miss_char OR p_fund_rec.fund_number IS NULL) THEN
224:
225: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
226: fnd_message.set_name('OZF', 'OZF_NO_FUND_ID_NUM');
227: fnd_msg_pub.add;
228: END IF;
229: x_return_status := fnd_api.g_ret_sts_error;
230: RETURN;
231:
238: FETCH c_fund_exists INTO l_fund_exists;
239: CLOSE c_fund_exists;
240:
241: IF l_fund_exists IS NULL THEN
242: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
243: fnd_message.set_name('OZF', 'OZF_INVALID_FUND_ID');
244: fnd_msg_pub.add;
245: END IF;
246: x_return_status := fnd_api.g_ret_sts_error;
240:
241: IF l_fund_exists IS NULL THEN
242: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
243: fnd_message.set_name('OZF', 'OZF_INVALID_FUND_ID');
244: fnd_msg_pub.add;
245: END IF;
246: x_return_status := fnd_api.g_ret_sts_error;
247: RETURN;
248: END IF;
254: FETCH c_fund_num_exists INTO p_fund_rec.fund_id;
255: CLOSE c_fund_num_exists;
256:
257: IF p_fund_rec.fund_id IS NULL THEN
258: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
259: fnd_message.set_name('OZF', 'OZF_INVALID_FUND_NUM');
260: fnd_msg_pub.add;
261: END IF;
262: x_return_status := fnd_api.g_ret_sts_error;
256:
257: IF p_fund_rec.fund_id IS NULL THEN
258: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
259: fnd_message.set_name('OZF', 'OZF_INVALID_FUND_NUM');
260: fnd_msg_pub.add;
261: END IF;
262: x_return_status := fnd_api.g_ret_sts_error;
263: RETURN;
264: END IF;
267: END IF;
268:
269: --if fund name is null, then raise exception
270: IF p_fund_rec.short_name = fnd_api.g_miss_char OR p_fund_rec.short_name IS NULL THEN
271: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
272: fnd_message.set_name('OZF', 'OZF_NO_FUND_NAME');
273: fnd_msg_pub.add;
274: END IF;
275: x_return_status := fnd_api.g_ret_sts_error;
269: --if fund name is null, then raise exception
270: IF p_fund_rec.short_name = fnd_api.g_miss_char OR p_fund_rec.short_name IS NULL THEN
271: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
272: fnd_message.set_name('OZF', 'OZF_NO_FUND_NAME');
273: fnd_msg_pub.add;
274: END IF;
275: x_return_status := fnd_api.g_ret_sts_error;
276: RETURN;
277: END IF;
277: END IF;
278:
279: --if fund type is null, then raise exception
280: IF p_fund_rec.fund_type = fnd_api.g_miss_char OR p_fund_rec.fund_type IS NULL THEN
281: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
282: fnd_message.set_name('OZF', 'OZF_NO_FUND_TYPE');
283: fnd_msg_pub.add;
284: END IF;
285: x_return_status := fnd_api.g_ret_sts_error;
279: --if fund type is null, then raise exception
280: IF p_fund_rec.fund_type = fnd_api.g_miss_char OR p_fund_rec.fund_type IS NULL THEN
281: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
282: fnd_message.set_name('OZF', 'OZF_NO_FUND_TYPE');
283: fnd_msg_pub.add;
284: END IF;
285: x_return_status := fnd_api.g_ret_sts_error;
286: RETURN;
287: ELSE
285: x_return_status := fnd_api.g_ret_sts_error;
286: RETURN;
287: ELSE
288: IF p_fund_rec.fund_type NOT IN ('FIXED', 'FULLY_ACCRUED') THEN
289: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
290: fnd_message.set_name('OZF', 'OZF_INVALID_FUND_TYPE');
291: fnd_msg_pub.add;
292: END IF;
293: x_return_status := fnd_api.g_ret_sts_error;
287: ELSE
288: IF p_fund_rec.fund_type NOT IN ('FIXED', 'FULLY_ACCRUED') THEN
289: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
290: fnd_message.set_name('OZF', 'OZF_INVALID_FUND_TYPE');
291: fnd_msg_pub.add;
292: END IF;
293: x_return_status := fnd_api.g_ret_sts_error;
294: RETURN;
295: END IF;
309: FETCH c_cust_setup_exists INTO l_cust_setup_exists;
310: CLOSE c_cust_setup_exists;
311:
312: IF l_cust_setup_exists IS NULL THEN
313: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
314: fnd_message.set_name('OZF', 'OZF_INVALID_SETUP_ID');
315: fnd_msg_pub.add;
316: END IF;
317: x_return_status := fnd_api.g_ret_sts_error;
311:
312: IF l_cust_setup_exists IS NULL THEN
313: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
314: fnd_message.set_name('OZF', 'OZF_INVALID_SETUP_ID');
315: fnd_msg_pub.add;
316: END IF;
317: x_return_status := fnd_api.g_ret_sts_error;
318: RETURN;
319: END IF;
326: FETCH c_par_fund_exists INTO l_par_fund_exists;
327: CLOSE c_par_fund_exists;
328:
329: IF l_par_fund_exists IS NULL THEN -- HBANDI(21-JUNE-1010) Changed the condition l_fund_exists to l_par_fund_exists for resolving the issue #9578854.
330: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
331: fnd_message.set_name('OZF', 'OZF_INVALID_PAR_FUND_ID');
332: fnd_msg_pub.add;
333: END IF;
334: x_return_status := fnd_api.g_ret_sts_error;
328:
329: IF l_par_fund_exists IS NULL THEN -- HBANDI(21-JUNE-1010) Changed the condition l_fund_exists to l_par_fund_exists for resolving the issue #9578854.
330: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
331: fnd_message.set_name('OZF', 'OZF_INVALID_PAR_FUND_ID');
332: fnd_msg_pub.add;
333: END IF;
334: x_return_status := fnd_api.g_ret_sts_error;
335: RETURN;
336: END IF;
344: FETCH c_par_fund_id_exists INTO l_par_fund_exists;
345: CLOSE c_par_fund_id_exists;
346:
347: IF l_par_fund_exists IS NULL THEN
348: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
349: fnd_message.set_name('OZF', 'OZF_INVALID_PAR_FUND_ID_NAME');
350: fnd_msg_pub.add;
351: END IF;
352: x_return_status := fnd_api.g_ret_sts_error;
346:
347: IF l_par_fund_exists IS NULL THEN
348: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
349: fnd_message.set_name('OZF', 'OZF_INVALID_PAR_FUND_ID_NAME');
350: fnd_msg_pub.add;
351: END IF;
352: x_return_status := fnd_api.g_ret_sts_error;
353: RETURN;
354: END IF;
360: FETCH c_par_fund_exists INTO l_par_fund_exists;
361: CLOSE c_par_fund_exists;
362:
363: IF l_par_fund_exists IS NULL THEN
364: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
365: fnd_message.set_name('OZF', 'OZF_INVALID_PAR_FUND_ID');
366: fnd_msg_pub.add;
367: END IF;
368: x_return_status := fnd_api.g_ret_sts_error;
362:
363: IF l_par_fund_exists IS NULL THEN
364: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
365: fnd_message.set_name('OZF', 'OZF_INVALID_PAR_FUND_ID');
366: fnd_msg_pub.add;
367: END IF;
368: x_return_status := fnd_api.g_ret_sts_error;
369: RETURN;
370: END IF;
376: FETCH c_par_fund_name_exists INTO p_fund_rec.parent_fund_id;
377: CLOSE c_par_fund_name_exists;
378:
379: IF p_fund_rec.parent_fund_id IS NULL THEN
380: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
381: fnd_message.set_name('OZF', 'OZF_INVALID_PAR_FUND_NAME');
382: fnd_msg_pub.add;
383: END IF;
384: x_return_status := fnd_api.g_ret_sts_error;
378:
379: IF p_fund_rec.parent_fund_id IS NULL THEN
380: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
381: fnd_message.set_name('OZF', 'OZF_INVALID_PAR_FUND_NAME');
382: fnd_msg_pub.add;
383: END IF;
384: x_return_status := fnd_api.g_ret_sts_error;
385: RETURN;
386: END IF;
388:
389: IF (p_fund_rec.category_name = fnd_api.g_miss_char OR p_fund_rec.category_name IS NULL) AND
390: (p_fund_rec.category_id = fnd_api.g_miss_num OR p_fund_rec.category_id IS NULL) THEN
391:
392: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
393: fnd_message.set_name('OZF', 'OZF_NO_CAT_ID_NAME');
394: fnd_msg_pub.add;
395: END IF;
396: x_return_status := fnd_api.g_ret_sts_error;
390: (p_fund_rec.category_id = fnd_api.g_miss_num OR p_fund_rec.category_id IS NULL) THEN
391:
392: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
393: fnd_message.set_name('OZF', 'OZF_NO_CAT_ID_NAME');
394: fnd_msg_pub.add;
395: END IF;
396: x_return_status := fnd_api.g_ret_sts_error;
397: RETURN;
398:
404: FETCH c_cat_exists INTO l_cat_exists;
405: CLOSE c_cat_exists;
406:
407: IF l_cat_exists IS NULL THEN
408: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
409: fnd_message.set_name('OZF', 'OZF_INVALID_CAT_ID_NAME');
410: fnd_msg_pub.add;
411: END IF;
412: x_return_status := fnd_api.g_ret_sts_error;
406:
407: IF l_cat_exists IS NULL THEN
408: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
409: fnd_message.set_name('OZF', 'OZF_INVALID_CAT_ID_NAME');
410: fnd_msg_pub.add;
411: END IF;
412: x_return_status := fnd_api.g_ret_sts_error;
413: RETURN;
414: END IF;
420: FETCH c_cat_id_exists INTO l_cat_exists;
421: CLOSE c_cat_id_exists;
422:
423: IF l_cat_exists IS NULL THEN
424: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
425: fnd_message.set_name('OZF', 'OZF_INVALID_CAT_ID');
426: fnd_msg_pub.add;
427: END IF;
428: x_return_status := fnd_api.g_ret_sts_error;
422:
423: IF l_cat_exists IS NULL THEN
424: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
425: fnd_message.set_name('OZF', 'OZF_INVALID_CAT_ID');
426: fnd_msg_pub.add;
427: END IF;
428: x_return_status := fnd_api.g_ret_sts_error;
429: RETURN;
430: END IF;
436: FETCH c_cat_name_exists INTO p_fund_rec.category_id;
437: CLOSE c_cat_name_exists;
438:
439: IF p_fund_rec.category_id IS NULL THEN
440: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
441: fnd_message.set_name('OZF', 'OZF_INVALID_CAT_NAME');
442: fnd_msg_pub.add;
443: END IF;
444: x_return_status := fnd_api.g_ret_sts_error;
438:
439: IF p_fund_rec.category_id IS NULL THEN
440: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
441: fnd_message.set_name('OZF', 'OZF_INVALID_CAT_NAME');
442: fnd_msg_pub.add;
443: END IF;
444: x_return_status := fnd_api.g_ret_sts_error;
445: RETURN;
446: END IF;
449: IF p_mode = 'CREATE' THEN
450: p_fund_rec.org_id := MO_UTILS.get_default_org_id;
451:
452: IF p_fund_rec.org_id = fnd_api.g_miss_num OR p_fund_rec.org_id IS NULL THEN
453: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
454: fnd_message.set_name('OZF', 'OZF_NO_DEFAULT_ORG_ID');
455: fnd_msg_pub.add;
456: END IF;
457: END IF;
451:
452: IF p_fund_rec.org_id = fnd_api.g_miss_num OR p_fund_rec.org_id IS NULL THEN
453: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
454: fnd_message.set_name('OZF', 'OZF_NO_DEFAULT_ORG_ID');
455: fnd_msg_pub.add;
456: END IF;
457: END IF;
458: END IF;
459:
465: FETCH c_bus_unit_exists INTO l_bus_unit_exists;
466: CLOSE c_bus_unit_exists;
467:
468: IF l_bus_unit_exists IS NULL THEN
469: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
470: fnd_message.set_name('OZF', 'OZF_INVALID_BUS_UNIT_ID_NAME');
471: fnd_msg_pub.add;
472: END IF;
473: x_return_status := fnd_api.g_ret_sts_error;
467:
468: IF l_bus_unit_exists IS NULL THEN
469: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
470: fnd_message.set_name('OZF', 'OZF_INVALID_BUS_UNIT_ID_NAME');
471: fnd_msg_pub.add;
472: END IF;
473: x_return_status := fnd_api.g_ret_sts_error;
474: RETURN;
475: END IF;
481: FETCH c_bus_id_exists INTO l_bus_unit_exists;
482: CLOSE c_bus_id_exists;
483:
484: IF l_bus_unit_exists IS NULL THEN
485: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
486: fnd_message.set_name('OZF', 'OZF_INVALID_BUS_UNIT_ID');
487: fnd_msg_pub.add;
488: END IF;
489: x_return_status := fnd_api.g_ret_sts_error;
483:
484: IF l_bus_unit_exists IS NULL THEN
485: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
486: fnd_message.set_name('OZF', 'OZF_INVALID_BUS_UNIT_ID');
487: fnd_msg_pub.add;
488: END IF;
489: x_return_status := fnd_api.g_ret_sts_error;
490: RETURN;
491: END IF;
497: FETCH c_bus_name_exists INTO p_fund_rec.business_unit_id;
498: CLOSE c_bus_name_exists;
499:
500: IF p_fund_rec.business_unit_id IS NULL THEN
501: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
502: fnd_message.set_name('OZF', 'OZF_INVALID_BUS_UNIT');
503: fnd_msg_pub.add;
504: END IF;
505: x_return_status := fnd_api.g_ret_sts_error;
499:
500: IF p_fund_rec.business_unit_id IS NULL THEN
501: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
502: fnd_message.set_name('OZF', 'OZF_INVALID_BUS_UNIT');
503: fnd_msg_pub.add;
504: END IF;
505: x_return_status := fnd_api.g_ret_sts_error;
506: RETURN;
507: END IF;
519: END IF;
520:
521: --if currency code is null, then raise exception
522: IF p_fund_rec.currency_code_tc = fnd_api.g_miss_char OR p_fund_rec.currency_code_tc IS NULL THEN
523: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
524: fnd_message.set_name('OZF', 'OZF_NO_CURR_CODE');
525: fnd_msg_pub.add;
526: END IF;
527: x_return_status := fnd_api.g_ret_sts_error;
521: --if currency code is null, then raise exception
522: IF p_fund_rec.currency_code_tc = fnd_api.g_miss_char OR p_fund_rec.currency_code_tc IS NULL THEN
523: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
524: fnd_message.set_name('OZF', 'OZF_NO_CURR_CODE');
525: fnd_msg_pub.add;
526: END IF;
527: x_return_status := fnd_api.g_ret_sts_error;
528: RETURN;
529: END IF;
530:
531: IF p_fund_rec.fund_type = 'FULLY_ACCRUED' THEN
532:
533: IF p_fund_rec.accrual_basis = fnd_api.g_miss_char OR p_fund_rec.accrual_basis IS NULL THEN
534: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
535: fnd_message.set_name('OZF', 'OZF_NO_ACCR_BASIS');
536: fnd_msg_pub.add;
537: END IF;
538: x_return_status := fnd_api.g_ret_sts_error;
532:
533: IF p_fund_rec.accrual_basis = fnd_api.g_miss_char OR p_fund_rec.accrual_basis IS NULL THEN
534: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
535: fnd_message.set_name('OZF', 'OZF_NO_ACCR_BASIS');
536: fnd_msg_pub.add;
537: END IF;
538: x_return_status := fnd_api.g_ret_sts_error;
539: RETURN;
540: ELSE
538: x_return_status := fnd_api.g_ret_sts_error;
539: RETURN;
540: ELSE
541: IF p_fund_rec.accrual_basis NOT IN ('CUSTOMER', 'SALES') THEN
542: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
543: fnd_message.set_name('OZF', 'OZF_INVALID_ACCR_BASIS');
544: fnd_msg_pub.add;
545: END IF;
546: x_return_status := fnd_api.g_ret_sts_error;
540: ELSE
541: IF p_fund_rec.accrual_basis NOT IN ('CUSTOMER', 'SALES') THEN
542: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
543: fnd_message.set_name('OZF', 'OZF_INVALID_ACCR_BASIS');
544: fnd_msg_pub.add;
545: END IF;
546: x_return_status := fnd_api.g_ret_sts_error;
547: RETURN;
548: END IF;
548: END IF;
549: END IF;
550:
551: IF p_fund_rec.accrual_phase = fnd_api.g_miss_char OR p_fund_rec.accrual_phase IS NULL THEN
552: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
553: fnd_message.set_name('OZF', 'OZF_NO_ACCR_PHASE');
554: fnd_msg_pub.add;
555: END IF;
556: x_return_status := fnd_api.g_ret_sts_error;
550:
551: IF p_fund_rec.accrual_phase = fnd_api.g_miss_char OR p_fund_rec.accrual_phase IS NULL THEN
552: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
553: fnd_message.set_name('OZF', 'OZF_NO_ACCR_PHASE');
554: fnd_msg_pub.add;
555: END IF;
556: x_return_status := fnd_api.g_ret_sts_error;
557: RETURN;
558: ELSE
556: x_return_status := fnd_api.g_ret_sts_error;
557: RETURN;
558: ELSE
559: IF p_fund_rec.accrual_phase NOT IN ('ACCRUAL', 'VOLUME') THEN
560: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
561: fnd_message.set_name('OZF', 'OZF_INVALID_ACCR_PHASE');
562: fnd_msg_pub.add;
563: END IF;
564: x_return_status := fnd_api.g_ret_sts_error;
558: ELSE
559: IF p_fund_rec.accrual_phase NOT IN ('ACCRUAL', 'VOLUME') THEN
560: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
561: fnd_message.set_name('OZF', 'OZF_INVALID_ACCR_PHASE');
562: fnd_msg_pub.add;
563: END IF;
564: x_return_status := fnd_api.g_ret_sts_error;
565: RETURN;
566: END IF;
566: END IF;
567: END IF;
568:
569: IF p_fund_rec.accrual_discount_level = fnd_api.g_miss_char OR p_fund_rec.accrual_discount_level IS NULL THEN
570: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
571: fnd_message.set_name('OZF', 'OZF_NO_DISC_LEVEL');
572: fnd_msg_pub.add;
573: END IF;
574: x_return_status := fnd_api.g_ret_sts_error;
568:
569: IF p_fund_rec.accrual_discount_level = fnd_api.g_miss_char OR p_fund_rec.accrual_discount_level IS NULL THEN
570: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
571: fnd_message.set_name('OZF', 'OZF_NO_DISC_LEVEL');
572: fnd_msg_pub.add;
573: END IF;
574: x_return_status := fnd_api.g_ret_sts_error;
575: RETURN;
576: ELSE
574: x_return_status := fnd_api.g_ret_sts_error;
575: RETURN;
576: ELSE
577: IF p_fund_rec.accrual_discount_level NOT IN ('LINE', 'LINEGROUP') THEN
578: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
579: fnd_message.set_name('OZF', 'OZF_INVALID_DISC_LEVEL');
580: fnd_msg_pub.add;
581: END IF;
582: x_return_status := fnd_api.g_ret_sts_error;
576: ELSE
577: IF p_fund_rec.accrual_discount_level NOT IN ('LINE', 'LINEGROUP') THEN
578: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
579: fnd_message.set_name('OZF', 'OZF_INVALID_DISC_LEVEL');
580: fnd_msg_pub.add;
581: END IF;
582: x_return_status := fnd_api.g_ret_sts_error;
583: RETURN;
584: END IF;
590: p_fund_rec.liability_flag := NVL(p_fund_rec.liability_flag, 'N');
591: END IF;
592:
593: IF p_fund_rec.liability_flag NOT IN ('Y', 'N') THEN
594: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
595: fnd_message.set_name('OZF', 'OZF_INVALID_LIAB_FLAG');
596: fnd_msg_pub.add;
597: END IF;
598: x_return_status := fnd_api.g_ret_sts_error;
592:
593: IF p_fund_rec.liability_flag NOT IN ('Y', 'N') THEN
594: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
595: fnd_message.set_name('OZF', 'OZF_INVALID_LIAB_FLAG');
596: fnd_msg_pub.add;
597: END IF;
598: x_return_status := fnd_api.g_ret_sts_error;
599: RETURN;
600: END IF;
609: FETCH c_thrh_exists INTO l_thrh_exists;
610: CLOSE c_thrh_exists;
611:
612: IF l_thrh_exists IS NULL THEN
613: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
614: fnd_message.set_name('OZF', 'OZF_INVALID_BUS_UNIT_ID_NAME');
615: fnd_msg_pub.add;
616: END IF;
617: x_return_status := fnd_api.g_ret_sts_error;
611:
612: IF l_thrh_exists IS NULL THEN
613: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
614: fnd_message.set_name('OZF', 'OZF_INVALID_BUS_UNIT_ID_NAME');
615: fnd_msg_pub.add;
616: END IF;
617: x_return_status := fnd_api.g_ret_sts_error;
618: RETURN;
619: END IF;
625: FETCH c_thrh_id_exists INTO l_thrh_exists;
626: CLOSE c_thrh_id_exists;
627:
628: IF l_thrh_exists IS NULL THEN
629: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
630: fnd_message.set_name('OZF', 'OZF_INVALID_THRH_ID');
631: fnd_msg_pub.add;
632: END IF;
633: x_return_status := fnd_api.g_ret_sts_error;
627:
628: IF l_thrh_exists IS NULL THEN
629: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
630: fnd_message.set_name('OZF', 'OZF_INVALID_THRH_ID');
631: fnd_msg_pub.add;
632: END IF;
633: x_return_status := fnd_api.g_ret_sts_error;
634: RETURN;
635: END IF;
641: FETCH c_thrh_name_exists INTO p_fund_rec.threshold_id;
642: CLOSE c_thrh_name_exists;
643:
644: IF p_fund_rec.threshold_id IS NULL THEN
645: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
646: fnd_message.set_name('OZF', 'OZF_INVALID_THRH_NAME');
647: fnd_msg_pub.add;
648: END IF;
649: x_return_status := fnd_api.g_ret_sts_error;
643:
644: IF p_fund_rec.threshold_id IS NULL THEN
645: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
646: fnd_message.set_name('OZF', 'OZF_INVALID_THRH_NAME');
647: fnd_msg_pub.add;
648: END IF;
649: x_return_status := fnd_api.g_ret_sts_error;
650: RETURN;
651: END IF;
659: FETCH c_task_exists INTO l_task_exists;
660: CLOSE c_task_exists;
661:
662: IF l_task_exists IS NULL THEN
663: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
664: fnd_message.set_name('OZF', 'OZF_INVALID_TASK_ID_NAME');
665: fnd_msg_pub.add;
666: END IF;
667: x_return_status := fnd_api.g_ret_sts_error;
661:
662: IF l_task_exists IS NULL THEN
663: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
664: fnd_message.set_name('OZF', 'OZF_INVALID_TASK_ID_NAME');
665: fnd_msg_pub.add;
666: END IF;
667: x_return_status := fnd_api.g_ret_sts_error;
668: RETURN;
669: END IF;
675: FETCH c_task_id_exists INTO l_task_exists;
676: CLOSE c_task_id_exists;
677:
678: IF l_task_exists IS NULL THEN
679: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
680: fnd_message.set_name('OZF', 'OZF_INVALID_TASK_ID');
681: fnd_msg_pub.add;
682: END IF;
683: x_return_status := fnd_api.g_ret_sts_error;
677:
678: IF l_task_exists IS NULL THEN
679: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
680: fnd_message.set_name('OZF', 'OZF_INVALID_TASK_ID');
681: fnd_msg_pub.add;
682: END IF;
683: x_return_status := fnd_api.g_ret_sts_error;
684: RETURN;
685: END IF;
691: FETCH c_task_name_exists INTO p_fund_rec.task_id;
692: CLOSE c_task_name_exists;
693:
694: IF p_fund_rec.task_id IS NULL THEN
695: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
696: fnd_message.set_name('OZF', 'OZF_INVALID_TASK_NAME');
697: fnd_msg_pub.add;
698: END IF;
699: x_return_status := fnd_api.g_ret_sts_error;
693:
694: IF p_fund_rec.task_id IS NULL THEN
695: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
696: fnd_message.set_name('OZF', 'OZF_INVALID_TASK_NAME');
697: fnd_msg_pub.add;
698: END IF;
699: x_return_status := fnd_api.g_ret_sts_error;
700: RETURN;
701: END IF;
709: FETCH c_ledger_exists INTO l_ledger_exists;
710: CLOSE c_ledger_exists;
711:
712: IF l_ledger_exists IS NULL THEN
713: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
714: fnd_message.set_name('OZF', 'OZF_INVALID_LEDGER_ID_NAME');
715: fnd_msg_pub.add;
716: END IF;
717: x_return_status := fnd_api.g_ret_sts_error;
711:
712: IF l_ledger_exists IS NULL THEN
713: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
714: fnd_message.set_name('OZF', 'OZF_INVALID_LEDGER_ID_NAME');
715: fnd_msg_pub.add;
716: END IF;
717: x_return_status := fnd_api.g_ret_sts_error;
718: RETURN;
719: END IF;
725: FETCH c_ledger_id_exists INTO l_ledger_exists;
726: CLOSE c_ledger_id_exists;
727:
728: IF l_ledger_exists IS NULL THEN
729: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
730: fnd_message.set_name('OZF', 'OZF_INVALID_LEDGER_ID');
731: fnd_msg_pub.add;
732: END IF;
733: x_return_status := fnd_api.g_ret_sts_error;
727:
728: IF l_ledger_exists IS NULL THEN
729: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
730: fnd_message.set_name('OZF', 'OZF_INVALID_LEDGER_ID');
731: fnd_msg_pub.add;
732: END IF;
733: x_return_status := fnd_api.g_ret_sts_error;
734: RETURN;
735: END IF;
741: FETCH c_ledger_name_exists INTO p_fund_rec.ledger_id;
742: CLOSE c_ledger_name_exists;
743:
744: IF p_fund_rec.ledger_id IS NULL THEN
745: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
746: fnd_message.set_name('OZF', 'OZF_INVALID_LEDGER_NAME');
747: fnd_msg_pub.add;
748: END IF;
749: x_return_status := fnd_api.g_ret_sts_error;
743:
744: IF p_fund_rec.ledger_id IS NULL THEN
745: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
746: fnd_message.set_name('OZF', 'OZF_INVALID_LEDGER_NAME');
747: fnd_msg_pub.add;
748: END IF;
749: x_return_status := fnd_api.g_ret_sts_error;
750: RETURN;
751: END IF;
1009: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
1010: RAISE fnd_api.g_exc_error;
1011: END IF;
1012:
1013: FND_MSG_PUB.Count_And_Get (
1014: p_encoded => FND_API.G_FALSE,
1015: p_count => x_msg_count,
1016: p_data => x_msg_data
1017: );
1020: WHEN FND_API.G_EXC_ERROR THEN
1021: ROLLBACK TO Create_Fund_PUB;
1022: x_return_status := FND_API.G_RET_STS_ERROR;
1023: -- Standard call to get message count and if count=1, get the message
1024: FND_MSG_PUB.Count_And_Get (
1025: p_encoded => FND_API.G_FALSE,
1026: p_count => x_msg_count,
1027: p_data => x_msg_data
1028: );
1029: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1030: ROLLBACK TO Create_Fund_PUB;
1031: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1032: -- Standard call to get message count and if count=1, get the message
1033: FND_MSG_PUB.Count_And_Get (
1034: p_encoded => FND_API.G_FALSE,
1035: p_count => x_msg_count,
1036: p_data => x_msg_data
1037: );
1037: );
1038: WHEN OTHERS THEN
1039: ROLLBACK TO Create_Fund_PUB;
1040: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1041: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1042: THEN
1043: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1044: END IF;
1045: -- Standard call to get message count and if count=1, get the message
1039: ROLLBACK TO Create_Fund_PUB;
1040: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1041: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1042: THEN
1043: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1044: END IF;
1045: -- Standard call to get message count and if count=1, get the message
1046: FND_MSG_PUB.Count_And_Get (
1047: p_encoded => FND_API.G_FALSE,
1042: THEN
1043: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1044: END IF;
1045: -- Standard call to get message count and if count=1, get the message
1046: FND_MSG_PUB.Count_And_Get (
1047: p_encoded => FND_API.G_FALSE,
1048: p_count => x_msg_count,
1049: p_data => x_msg_data
1050: );
1101: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
1102: RAISE fnd_api.g_exc_error;
1103: END IF;
1104:
1105: FND_MSG_PUB.Count_And_Get(
1106: p_encoded => FND_API.G_FALSE,
1107: p_count => x_msg_count,
1108: p_data => x_msg_data
1109: );
1112: WHEN FND_API.G_EXC_ERROR THEN
1113: ROLLBACK TO Delete_Fund_PUB;
1114: x_return_status := FND_API.G_RET_STS_ERROR;
1115: -- Standard call to get message count and if count=1, get the message
1116: FND_MSG_PUB.Count_And_Get (
1117: p_encoded => FND_API.G_FALSE,
1118: p_count => x_msg_count,
1119: p_data => x_msg_data
1120: );
1121: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1122: ROLLBACK TO Delete_Fund_PUB;
1123: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1124: -- Standard call to get message count and if count=1, get the message
1125: FND_MSG_PUB.Count_And_Get (
1126: p_encoded => FND_API.G_FALSE,
1127: p_count => x_msg_count,
1128: p_data => x_msg_data
1129: );
1129: );
1130: WHEN OTHERS THEN
1131: ROLLBACK TO Delete_Fund_PUB;
1132: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1133: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1134: THEN
1135: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1136: END IF;
1137: -- Standard call to get message count and if count=1, get the message
1131: ROLLBACK TO Delete_Fund_PUB;
1132: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1133: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1134: THEN
1135: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1136: END IF;
1137: -- Standard call to get message count and if count=1, get the message
1138: FND_MSG_PUB.Count_And_Get (
1139: p_encoded => FND_API.G_FALSE,
1134: THEN
1135: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1136: END IF;
1137: -- Standard call to get message count and if count=1, get the message
1138: FND_MSG_PUB.Count_And_Get (
1139: p_encoded => FND_API.G_FALSE,
1140: p_count => x_msg_count,
1141: p_data => x_msg_data
1142: );
1346: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
1347: RAISE fnd_api.g_exc_error;
1348: END IF;
1349:
1350: FND_MSG_PUB.Count_And_Get (
1351: p_encoded => FND_API.G_FALSE,
1352: p_count => x_msg_count,
1353: p_data => x_msg_data
1354: );
1357: WHEN FND_API.G_EXC_ERROR THEN
1358: ROLLBACK TO Update_Fund_PUB;
1359: x_return_status := FND_API.G_RET_STS_ERROR;
1360: -- Standard call to get message count and if count=1, get the message
1361: FND_MSG_PUB.Count_And_Get (
1362: p_encoded => FND_API.G_FALSE,
1363: p_count => x_msg_count,
1364: p_data => x_msg_data
1365: );
1366: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1367: ROLLBACK TO Update_Fund_PUB;
1368: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1369: -- Standard call to get message count and if count=1, get the message
1370: FND_MSG_PUB.Count_And_Get (
1371: p_encoded => FND_API.G_FALSE,
1372: p_count => x_msg_count,
1373: p_data => x_msg_data
1374: );
1374: );
1375: WHEN OTHERS THEN
1376: ROLLBACK TO Update_Fund_PUB;
1377: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1378: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1379: THEN
1380: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1381: END IF;
1382: -- Standard call to get message count and if count=1, get the message
1376: ROLLBACK TO Update_Fund_PUB;
1377: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1378: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1379: THEN
1380: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1381: END IF;
1382: -- Standard call to get message count and if count=1, get the message
1383: FND_MSG_PUB.Count_And_Get (
1384: p_encoded => FND_API.G_FALSE,
1379: THEN
1380: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1381: END IF;
1382: -- Standard call to get message count and if count=1, get the message
1383: FND_MSG_PUB.Count_And_Get (
1384: p_encoded => FND_API.G_FALSE,
1385: p_count => x_msg_count,
1386: p_data => x_msg_data
1387: );
1495: ELSE
1496: --if activity market segment id is null, then raise exception
1497: IF (p_mks_rec.activity_market_segment_id = fnd_api.g_miss_num OR p_mks_rec.activity_market_segment_id IS NULL) THEN
1498:
1499: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1500: fnd_message.set_name('OZF', 'OZF_NO_ACT_SEG_ID');
1501: fnd_msg_pub.add;
1502: END IF;
1503: x_return_status := fnd_api.g_ret_sts_error;
1497: IF (p_mks_rec.activity_market_segment_id = fnd_api.g_miss_num OR p_mks_rec.activity_market_segment_id IS NULL) THEN
1498:
1499: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1500: fnd_message.set_name('OZF', 'OZF_NO_ACT_SEG_ID');
1501: fnd_msg_pub.add;
1502: END IF;
1503: x_return_status := fnd_api.g_ret_sts_error;
1504: RETURN;
1505: ELSE
1509: FETCH c_act_mkt_exists INTO l_act_mkt_exists;
1510: CLOSE c_act_mkt_exists;
1511:
1512: IF l_act_mkt_exists IS NULL THEN
1513: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1514: fnd_message.set_name('OZF', 'OZF_INVALID_ACT_SEG_ID');
1515: fnd_msg_pub.add;
1516: END IF;
1517: x_return_status := fnd_api.g_ret_sts_error;
1511:
1512: IF l_act_mkt_exists IS NULL THEN
1513: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1514: fnd_message.set_name('OZF', 'OZF_INVALID_ACT_SEG_ID');
1515: fnd_msg_pub.add;
1516: END IF;
1517: x_return_status := fnd_api.g_ret_sts_error;
1518: RETURN;
1519: END IF;
1520: END IF;
1521: END IF;
1522:
1523: IF p_mks_rec.act_market_segment_used_by_id = fnd_api.g_miss_num OR p_mks_rec.act_market_segment_used_by_id IS NULL THEN
1524: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1525: fnd_message.set_name('OZF', 'OZF_NO_MKT_SEG_USED_BY_ID');
1526: fnd_msg_pub.add;
1527: END IF;
1528: x_return_status := fnd_api.g_ret_sts_error;
1522:
1523: IF p_mks_rec.act_market_segment_used_by_id = fnd_api.g_miss_num OR p_mks_rec.act_market_segment_used_by_id IS NULL THEN
1524: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1525: fnd_message.set_name('OZF', 'OZF_NO_MKT_SEG_USED_BY_ID');
1526: fnd_msg_pub.add;
1527: END IF;
1528: x_return_status := fnd_api.g_ret_sts_error;
1529: RETURN;
1530: ELSE
1533: FETCH c_segment_used_by_exists INTO l_segment_used_by_exists;
1534: CLOSE c_segment_used_by_exists;
1535:
1536: IF l_segment_used_by_exists IS NULL THEN
1537: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1538: fnd_message.set_name('OZF', 'OZF_INVALID_MKT_SEG_USED_BY_ID');
1539: fnd_msg_pub.add;
1540: END IF;
1541: x_return_status := fnd_api.g_ret_sts_error;
1535:
1536: IF l_segment_used_by_exists IS NULL THEN
1537: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1538: fnd_message.set_name('OZF', 'OZF_INVALID_MKT_SEG_USED_BY_ID');
1539: fnd_msg_pub.add;
1540: END IF;
1541: x_return_status := fnd_api.g_ret_sts_error;
1542: RETURN;
1543: END IF;
1545:
1546: p_mks_rec.arc_act_market_segment_used_by := 'FUND';
1547:
1548: IF p_mks_rec.segment_type = fnd_api.g_miss_char OR p_mks_rec.segment_type IS NULL THEN
1549: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1550: fnd_message.set_name('OZF', 'OZF_NO_SEGMENT_TYPE');
1551: fnd_msg_pub.add;
1552: END IF;
1553: x_return_status := fnd_api.g_ret_sts_error;
1547:
1548: IF p_mks_rec.segment_type = fnd_api.g_miss_char OR p_mks_rec.segment_type IS NULL THEN
1549: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1550: fnd_message.set_name('OZF', 'OZF_NO_SEGMENT_TYPE');
1551: fnd_msg_pub.add;
1552: END IF;
1553: x_return_status := fnd_api.g_ret_sts_error;
1554: RETURN;
1555: ELSE
1558: FETCH c_segment_exists INTO l_segment_exists;
1559: CLOSE c_segment_exists;
1560:
1561: IF l_segment_exists IS NULL THEN
1562: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1563: fnd_message.set_name('OZF', 'OZF_INVALID_SEGMENT_TYPE');
1564: fnd_msg_pub.add;
1565: END IF;
1566: x_return_status := fnd_api.g_ret_sts_error;
1560:
1561: IF l_segment_exists IS NULL THEN
1562: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1563: fnd_message.set_name('OZF', 'OZF_INVALID_SEGMENT_TYPE');
1564: fnd_msg_pub.add;
1565: END IF;
1566: x_return_status := fnd_api.g_ret_sts_error;
1567: RETURN;
1568: END IF;
1568: END IF;
1569: END IF;
1570:
1571: IF p_mks_rec.market_segment_id = fnd_api.g_miss_num OR p_mks_rec.market_segment_id IS NULL THEN
1572: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1573: fnd_message.set_name('OZF', 'OZF_NO_MKT_SEG_ID');
1574: fnd_msg_pub.add;
1575: END IF;
1576: x_return_status := fnd_api.g_ret_sts_error;
1570:
1571: IF p_mks_rec.market_segment_id = fnd_api.g_miss_num OR p_mks_rec.market_segment_id IS NULL THEN
1572: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1573: fnd_message.set_name('OZF', 'OZF_NO_MKT_SEG_ID');
1574: fnd_msg_pub.add;
1575: END IF;
1576: x_return_status := fnd_api.g_ret_sts_error;
1577: RETURN;
1578: ELSE
1607: CLOSE c_segment_terr;
1608: END IF;
1609:
1610: IF l_segment_id_exists IS NULL THEN
1611: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1612: fnd_message.set_name('OZF', 'OZF_INVALID_MKT_SEG_ID');
1613: fnd_msg_pub.add;
1614: END IF;
1615: x_return_status := fnd_api.g_ret_sts_error;
1609:
1610: IF l_segment_id_exists IS NULL THEN
1611: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1612: fnd_message.set_name('OZF', 'OZF_INVALID_MKT_SEG_ID');
1613: fnd_msg_pub.add;
1614: END IF;
1615: x_return_status := fnd_api.g_ret_sts_error;
1616: RETURN;
1617: END IF;
1620:
1621: p_mks_rec.exclude_flag := NVL(p_mks_rec.exclude_flag, 'N');
1622:
1623: IF p_mks_rec.exclude_flag NOT IN ('Y', 'N') THEN
1624: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1625: fnd_message.set_name('OZF', 'OZF_INVALID_EXCLUDE_FLAG');
1626: fnd_msg_pub.add;
1627: END IF;
1628: x_return_status := fnd_api.g_ret_sts_error;
1622:
1623: IF p_mks_rec.exclude_flag NOT IN ('Y', 'N') THEN
1624: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1625: fnd_message.set_name('OZF', 'OZF_INVALID_EXCLUDE_FLAG');
1626: fnd_msg_pub.add;
1627: END IF;
1628: x_return_status := fnd_api.g_ret_sts_error;
1629: RETURN;
1630: END IF;
1702: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
1703: RAISE fnd_api.g_exc_error;
1704: END IF;
1705:
1706: FND_MSG_PUB.Count_And_Get (
1707: p_encoded => FND_API.G_FALSE,
1708: p_count => x_msg_count,
1709: p_data => x_msg_data
1710: );
1713: WHEN FND_API.G_EXC_ERROR THEN
1714: ROLLBACK TO create_market_pub;
1715: x_return_status := FND_API.G_RET_STS_ERROR;
1716: -- Standard call to get message count and if count=1, get the message
1717: FND_MSG_PUB.Count_And_Get (
1718: p_encoded => FND_API.G_FALSE,
1719: p_count => x_msg_count,
1720: p_data => x_msg_data
1721: );
1722: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1723: ROLLBACK TO create_market_pub;
1724: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1725: -- Standard call to get message count and if count=1, get the message
1726: FND_MSG_PUB.Count_And_Get (
1727: p_encoded => FND_API.G_FALSE,
1728: p_count => x_msg_count,
1729: p_data => x_msg_data
1730: );
1730: );
1731: WHEN OTHERS THEN
1732: ROLLBACK TO create_market_pub;
1733: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1734: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1735: THEN
1736: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1737: END IF;
1738: -- Standard call to get message count and if count=1, get the message
1732: ROLLBACK TO create_market_pub;
1733: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1734: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1735: THEN
1736: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1737: END IF;
1738: -- Standard call to get message count and if count=1, get the message
1739: FND_MSG_PUB.Count_And_Get (
1740: p_encoded => FND_API.G_FALSE,
1735: THEN
1736: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1737: END IF;
1738: -- Standard call to get message count and if count=1, get the message
1739: FND_MSG_PUB.Count_And_Get (
1740: p_encoded => FND_API.G_FALSE,
1741: p_count => x_msg_count,
1742: p_data => x_msg_data
1743: );
1835: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
1836: RAISE fnd_api.g_exc_error;
1837: END IF;
1838:
1839: FND_MSG_PUB.Count_And_Get (
1840: p_encoded => FND_API.G_FALSE,
1841: p_count => x_msg_count,
1842: p_data => x_msg_data
1843: );
1846: WHEN FND_API.G_EXC_ERROR THEN
1847: ROLLBACK TO update_market_pub;
1848: x_return_status := FND_API.G_RET_STS_ERROR;
1849: -- Standard call to get message count and if count=1, get the message
1850: FND_MSG_PUB.Count_And_Get (
1851: p_encoded => FND_API.G_FALSE,
1852: p_count => x_msg_count,
1853: p_data => x_msg_data
1854: );
1855: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1856: ROLLBACK TO update_market_pub;
1857: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1858: -- Standard call to get message count and if count=1, get the message
1859: FND_MSG_PUB.Count_And_Get (
1860: p_encoded => FND_API.G_FALSE,
1861: p_count => x_msg_count,
1862: p_data => x_msg_data
1863: );
1863: );
1864: WHEN OTHERS THEN
1865: ROLLBACK TO update_market_pub;
1866: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1867: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1868: THEN
1869: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1870: END IF;
1871: -- Standard call to get message count and if count=1, get the message
1865: ROLLBACK TO update_market_pub;
1866: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1867: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1868: THEN
1869: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1870: END IF;
1871: -- Standard call to get message count and if count=1, get the message
1872: FND_MSG_PUB.Count_And_Get (
1873: p_encoded => FND_API.G_FALSE,
1868: THEN
1869: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1870: END IF;
1871: -- Standard call to get message count and if count=1, get the message
1872: FND_MSG_PUB.Count_And_Get (
1873: p_encoded => FND_API.G_FALSE,
1874: p_count => x_msg_count,
1875: p_data => x_msg_data
1876: );
1930:
1931: --if activity market segment id is null, then raise exception
1932: IF (p_act_mks_id = fnd_api.g_miss_num OR p_act_mks_id IS NULL) THEN
1933:
1934: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1935: fnd_message.set_name('OZF', 'OZF_NO_ACT_SEG_ID');
1936: fnd_msg_pub.add;
1937: END IF;
1938: RAISE fnd_api.g_exc_error;
1932: IF (p_act_mks_id = fnd_api.g_miss_num OR p_act_mks_id IS NULL) THEN
1933:
1934: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1935: fnd_message.set_name('OZF', 'OZF_NO_ACT_SEG_ID');
1936: fnd_msg_pub.add;
1937: END IF;
1938: RAISE fnd_api.g_exc_error;
1939: END IF;
1940:
1943: FETCH c_valid_act_mks_id INTO l_object_version;
1944: CLOSE c_valid_act_mks_id;
1945:
1946: IF l_object_version IS NULL THEN
1947: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1948: fnd_message.set_name('OZF', 'OZF_INVALID_ACT_SEG_ID');
1949: fnd_msg_pub.add;
1950: END IF;
1951: RAISE fnd_api.g_exc_error;
1945:
1946: IF l_object_version IS NULL THEN
1947: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1948: fnd_message.set_name('OZF', 'OZF_INVALID_ACT_SEG_ID');
1949: fnd_msg_pub.add;
1950: END IF;
1951: RAISE fnd_api.g_exc_error;
1952: END IF;
1953:
1967: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
1968: RAISE fnd_api.g_exc_error;
1969: END IF;
1970:
1971: FND_MSG_PUB.Count_And_Get (
1972: p_encoded => FND_API.G_FALSE,
1973: p_count => x_msg_count,
1974: p_data => x_msg_data
1975: );
1978: WHEN FND_API.G_EXC_ERROR THEN
1979: ROLLBACK TO delete_market_pub;
1980: x_return_status := FND_API.G_RET_STS_ERROR;
1981: -- Standard call to get message count and if count=1, get the message
1982: FND_MSG_PUB.Count_And_Get (
1983: p_encoded => FND_API.G_FALSE,
1984: p_count => x_msg_count,
1985: p_data => x_msg_data
1986: );
1987: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1988: ROLLBACK TO delete_market_pub;
1989: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1990: -- Standard call to get message count and if count=1, get the message
1991: FND_MSG_PUB.Count_And_Get (
1992: p_encoded => FND_API.G_FALSE,
1993: p_count => x_msg_count,
1994: p_data => x_msg_data
1995: );
1995: );
1996: WHEN OTHERS THEN
1997: ROLLBACK TO delete_market_pub;
1998: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1999: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2000: THEN
2001: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2002: END IF;
2003: -- Standard call to get message count and if count=1, get the message
1997: ROLLBACK TO delete_market_pub;
1998: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1999: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2000: THEN
2001: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2002: END IF;
2003: -- Standard call to get message count and if count=1, get the message
2004: FND_MSG_PUB.Count_And_Get (
2005: p_encoded => FND_API.G_FALSE,
2000: THEN
2001: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2002: END IF;
2003: -- Standard call to get message count and if count=1, get the message
2004: FND_MSG_PUB.Count_And_Get (
2005: p_encoded => FND_API.G_FALSE,
2006: p_count => x_msg_count,
2007: p_data => x_msg_data
2008: );
2079: ELSE
2080: --if activity product id is null, then raise exception
2081: IF (p_act_product_rec.activity_product_id = fnd_api.g_miss_num OR p_act_product_rec.activity_product_id IS NULL) THEN
2082:
2083: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2084: fnd_message.set_name('OZF', 'OZF_NO_ACT_PROD_ID');
2085: fnd_msg_pub.add;
2086: END IF;
2087: x_return_status := fnd_api.g_ret_sts_error;
2081: IF (p_act_product_rec.activity_product_id = fnd_api.g_miss_num OR p_act_product_rec.activity_product_id IS NULL) THEN
2082:
2083: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2084: fnd_message.set_name('OZF', 'OZF_NO_ACT_PROD_ID');
2085: fnd_msg_pub.add;
2086: END IF;
2087: x_return_status := fnd_api.g_ret_sts_error;
2088: RETURN;
2089: ELSE
2093: FETCH c_act_prod_exists INTO l_act_prod_exists;
2094: CLOSE c_act_prod_exists;
2095:
2096: IF l_act_prod_exists IS NULL THEN
2097: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2098: fnd_message.set_name('OZF', 'OZF_INVALID_ACT_PROD_ID');
2099: fnd_msg_pub.add;
2100: END IF;
2101: x_return_status := fnd_api.g_ret_sts_error;
2095:
2096: IF l_act_prod_exists IS NULL THEN
2097: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2098: fnd_message.set_name('OZF', 'OZF_INVALID_ACT_PROD_ID');
2099: fnd_msg_pub.add;
2100: END IF;
2101: x_return_status := fnd_api.g_ret_sts_error;
2102: RETURN;
2103: END IF;
2104: END IF;
2105: END IF;
2106:
2107: IF p_act_product_rec.act_product_used_by_id = fnd_api.g_miss_num OR p_act_product_rec.act_product_used_by_id IS NULL THEN
2108: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2109: fnd_message.set_name('OZF', 'OZF_NO_PROD_USED_BY');
2110: fnd_msg_pub.add;
2111: END IF;
2112: x_return_status := fnd_api.g_ret_sts_error;
2106:
2107: IF p_act_product_rec.act_product_used_by_id = fnd_api.g_miss_num OR p_act_product_rec.act_product_used_by_id IS NULL THEN
2108: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2109: fnd_message.set_name('OZF', 'OZF_NO_PROD_USED_BY');
2110: fnd_msg_pub.add;
2111: END IF;
2112: x_return_status := fnd_api.g_ret_sts_error;
2113: RETURN;
2114: ELSE
2117: FETCH c_act_prod_used_by_exists INTO l_act_prod_used_by_exists;
2118: CLOSE c_act_prod_used_by_exists;
2119:
2120: IF l_act_prod_used_by_exists IS NULL THEN
2121: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2122: fnd_message.set_name('OZF', 'OZF_INVALID_PROD_USED_BY');
2123: fnd_msg_pub.add;
2124: END IF;
2125: x_return_status := fnd_api.g_ret_sts_error;
2119:
2120: IF l_act_prod_used_by_exists IS NULL THEN
2121: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2122: fnd_message.set_name('OZF', 'OZF_INVALID_PROD_USED_BY');
2123: fnd_msg_pub.add;
2124: END IF;
2125: x_return_status := fnd_api.g_ret_sts_error;
2126: RETURN;
2127: END IF;
2132: (p_act_product_rec.inventory_item_name = fnd_api.g_miss_char OR p_act_product_rec.inventory_item_name IS NULL) AND
2133: (p_act_product_rec.category_id = fnd_api.g_miss_num OR p_act_product_rec.category_id IS NULL) AND
2134: (p_act_product_rec.category_name = fnd_api.g_miss_char OR p_act_product_rec.category_name IS NULL) THEN
2135:
2136: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2137: fnd_message.set_name('OZF', 'OZF_NO_INV_ITEM_CAT');
2138: fnd_msg_pub.add;
2139: END IF;
2140: x_return_status := fnd_api.g_ret_sts_error;
2134: (p_act_product_rec.category_name = fnd_api.g_miss_char OR p_act_product_rec.category_name IS NULL) THEN
2135:
2136: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2137: fnd_message.set_name('OZF', 'OZF_NO_INV_ITEM_CAT');
2138: fnd_msg_pub.add;
2139: END IF;
2140: x_return_status := fnd_api.g_ret_sts_error;
2141: RETURN;
2142:
2155: FETCH c_inv_id_exists INTO l_inv_id_exists;
2156: CLOSE c_inv_id_exists;
2157:
2158: IF l_inv_id_exists IS NULL THEN
2159: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2160: fnd_message.set_name('OZF', 'OZF_INVALID_INV_ITEM_ID');
2161: fnd_msg_pub.add;
2162: END IF;
2163: x_return_status := fnd_api.g_ret_sts_error;
2157:
2158: IF l_inv_id_exists IS NULL THEN
2159: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2160: fnd_message.set_name('OZF', 'OZF_INVALID_INV_ITEM_ID');
2161: fnd_msg_pub.add;
2162: END IF;
2163: x_return_status := fnd_api.g_ret_sts_error;
2164: RETURN;
2165: END IF;
2171: FETCH c_inv_name_exists INTO p_act_product_rec.inventory_item_id;
2172: CLOSE c_inv_name_exists;
2173:
2174: IF p_act_product_rec.inventory_item_id IS NULL THEN
2175: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2176: fnd_message.set_name('OZF', 'OZF_INVALID_INV_ITEM_NAME');
2177: fnd_msg_pub.add;
2178: END IF;
2179: x_return_status := fnd_api.g_ret_sts_error;
2173:
2174: IF p_act_product_rec.inventory_item_id IS NULL THEN
2175: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2176: fnd_message.set_name('OZF', 'OZF_INVALID_INV_ITEM_NAME');
2177: fnd_msg_pub.add;
2178: END IF;
2179: x_return_status := fnd_api.g_ret_sts_error;
2180: RETURN;
2181: END IF;
2194: FETCH c_cat_id_exists INTO p_act_product_rec.category_set_id;
2195: CLOSE c_cat_id_exists;
2196:
2197: IF p_act_product_rec.category_set_id IS NULL THEN
2198: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2199: fnd_message.set_name('OZF', 'OZF_INVALID_CATEGORY_ID');
2200: fnd_msg_pub.add;
2201: END IF;
2202: x_return_status := fnd_api.g_ret_sts_error;
2196:
2197: IF p_act_product_rec.category_set_id IS NULL THEN
2198: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2199: fnd_message.set_name('OZF', 'OZF_INVALID_CATEGORY_ID');
2200: fnd_msg_pub.add;
2201: END IF;
2202: x_return_status := fnd_api.g_ret_sts_error;
2203: RETURN;
2204: END IF;
2210: FETCH c_cat_name_exists INTO p_act_product_rec.category_id, p_act_product_rec.category_set_id;
2211: CLOSE c_cat_name_exists;
2212:
2213: IF p_act_product_rec.category_id IS NULL THEN
2214: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2215: fnd_message.set_name('OZF', 'OZF_INVALID_CATEGORY_NAME');
2216: fnd_msg_pub.add;
2217: END IF;
2218: x_return_status := fnd_api.g_ret_sts_error;
2212:
2213: IF p_act_product_rec.category_id IS NULL THEN
2214: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2215: fnd_message.set_name('OZF', 'OZF_INVALID_CATEGORY_NAME');
2216: fnd_msg_pub.add;
2217: END IF;
2218: x_return_status := fnd_api.g_ret_sts_error;
2219: RETURN;
2220: END IF;
2228:
2229: p_act_product_rec.primary_product_flag := NVL(p_act_product_rec.primary_product_flag, 'N');
2230:
2231: IF p_act_product_rec.primary_product_flag NOT IN ('Y', 'N') THEN
2232: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2233: fnd_message.set_name('OZF', 'OZF_INVALID_PRIMARY_FLAG');
2234: fnd_msg_pub.add;
2235: END IF;
2236: x_return_status := fnd_api.g_ret_sts_error;
2230:
2231: IF p_act_product_rec.primary_product_flag NOT IN ('Y', 'N') THEN
2232: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2233: fnd_message.set_name('OZF', 'OZF_INVALID_PRIMARY_FLAG');
2234: fnd_msg_pub.add;
2235: END IF;
2236: x_return_status := fnd_api.g_ret_sts_error;
2237: RETURN;
2238: END IF;
2239:
2240: p_act_product_rec.excluded_flag := NVL(p_act_product_rec.excluded_flag, 'N');
2241:
2242: IF p_act_product_rec.excluded_flag NOT IN ('Y', 'N') THEN
2243: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2244: fnd_message.set_name('OZF', 'OZF_INVALID_EXCLUDED_FLAG');
2245: fnd_msg_pub.add;
2246: END IF;
2247: x_return_status := fnd_api.g_ret_sts_error;
2241:
2242: IF p_act_product_rec.excluded_flag NOT IN ('Y', 'N') THEN
2243: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2244: fnd_message.set_name('OZF', 'OZF_INVALID_EXCLUDED_FLAG');
2245: fnd_msg_pub.add;
2246: END IF;
2247: x_return_status := fnd_api.g_ret_sts_error;
2248: RETURN;
2249: END IF;
2325: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
2326: RAISE fnd_api.g_exc_error;
2327: END IF;
2328:
2329: FND_MSG_PUB.Count_And_Get (
2330: p_encoded => FND_API.G_FALSE,
2331: p_count => x_msg_count,
2332: p_data => x_msg_data
2333: );
2336: WHEN FND_API.G_EXC_ERROR THEN
2337: ROLLBACK TO create_product_pub;
2338: x_return_status := FND_API.G_RET_STS_ERROR;
2339: -- Standard call to get message count and if count=1, get the message
2340: FND_MSG_PUB.Count_And_Get (
2341: p_encoded => FND_API.G_FALSE,
2342: p_count => x_msg_count,
2343: p_data => x_msg_data
2344: );
2345: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2346: ROLLBACK TO create_product_pub;
2347: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2348: -- Standard call to get message count and if count=1, get the message
2349: FND_MSG_PUB.Count_And_Get (
2350: p_encoded => FND_API.G_FALSE,
2351: p_count => x_msg_count,
2352: p_data => x_msg_data
2353: );
2353: );
2354: WHEN OTHERS THEN
2355: ROLLBACK TO create_product_pub;
2356: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2357: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2358: THEN
2359: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2360: END IF;
2361: -- Standard call to get message count and if count=1, get the message
2355: ROLLBACK TO create_product_pub;
2356: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2357: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2358: THEN
2359: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2360: END IF;
2361: -- Standard call to get message count and if count=1, get the message
2362: FND_MSG_PUB.Count_And_Get (
2363: p_encoded => FND_API.G_FALSE,
2358: THEN
2359: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2360: END IF;
2361: -- Standard call to get message count and if count=1, get the message
2362: FND_MSG_PUB.Count_And_Get (
2363: p_encoded => FND_API.G_FALSE,
2364: p_count => x_msg_count,
2365: p_data => x_msg_data
2366: );
2469: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
2470: RAISE fnd_api.g_exc_error;
2471: END IF;
2472:
2473: FND_MSG_PUB.Count_And_Get (
2474: p_encoded => FND_API.G_FALSE,
2475: p_count => x_msg_count,
2476: p_data => x_msg_data
2477: );
2480: WHEN FND_API.G_EXC_ERROR THEN
2481: ROLLBACK TO update_product_pub;
2482: x_return_status := FND_API.G_RET_STS_ERROR;
2483: -- Standard call to get message count and if count=1, get the message
2484: FND_MSG_PUB.Count_And_Get (
2485: p_encoded => FND_API.G_FALSE,
2486: p_count => x_msg_count,
2487: p_data => x_msg_data
2488: );
2489: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2490: ROLLBACK TO update_product_pub;
2491: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2492: -- Standard call to get message count and if count=1, get the message
2493: FND_MSG_PUB.Count_And_Get (
2494: p_encoded => FND_API.G_FALSE,
2495: p_count => x_msg_count,
2496: p_data => x_msg_data
2497: );
2497: );
2498: WHEN OTHERS THEN
2499: ROLLBACK TO update_product_pub;
2500: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2501: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2502: THEN
2503: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2504: END IF;
2505: -- Standard call to get message count and if count=1, get the message
2499: ROLLBACK TO update_product_pub;
2500: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2501: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2502: THEN
2503: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2504: END IF;
2505: -- Standard call to get message count and if count=1, get the message
2506: FND_MSG_PUB.Count_And_Get (
2507: p_encoded => FND_API.G_FALSE,
2502: THEN
2503: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2504: END IF;
2505: -- Standard call to get message count and if count=1, get the message
2506: FND_MSG_PUB.Count_And_Get (
2507: p_encoded => FND_API.G_FALSE,
2508: p_count => x_msg_count,
2509: p_data => x_msg_data
2510: );
2550:
2551: --if activity market segment id is null, then raise exception
2552: IF (p_act_product_id = fnd_api.g_miss_num OR p_act_product_id IS NULL) THEN
2553:
2554: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2555: fnd_message.set_name('OZF', 'OZF_NO_ACT_PROD_ID');
2556: fnd_msg_pub.add;
2557: END IF;
2558: RAISE fnd_api.g_exc_error;
2552: IF (p_act_product_id = fnd_api.g_miss_num OR p_act_product_id IS NULL) THEN
2553:
2554: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2555: fnd_message.set_name('OZF', 'OZF_NO_ACT_PROD_ID');
2556: fnd_msg_pub.add;
2557: END IF;
2558: RAISE fnd_api.g_exc_error;
2559: END IF;
2560:
2563: FETCH c_valid_act_prod_id INTO l_object_version;
2564: CLOSE c_valid_act_prod_id;
2565:
2566: IF l_object_version IS NULL THEN
2567: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2568: fnd_message.set_name('OZF', 'OZF_INVALID_ACT_PROD_ID');
2569: fnd_msg_pub.add;
2570: END IF;
2571: RAISE fnd_api.g_exc_error;
2565:
2566: IF l_object_version IS NULL THEN
2567: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2568: fnd_message.set_name('OZF', 'OZF_INVALID_ACT_PROD_ID');
2569: fnd_msg_pub.add;
2570: END IF;
2571: RAISE fnd_api.g_exc_error;
2572: END IF;
2573:
2587: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
2588: RAISE fnd_api.g_exc_error;
2589: END IF;
2590:
2591: FND_MSG_PUB.Count_And_Get (
2592: p_encoded => FND_API.G_FALSE,
2593: p_count => x_msg_count,
2594: p_data => x_msg_data
2595: );
2598: WHEN FND_API.G_EXC_ERROR THEN
2599: ROLLBACK TO delete_product_pub;
2600: x_return_status := FND_API.G_RET_STS_ERROR;
2601: -- Standard call to get message count and if count=1, get the message
2602: FND_MSG_PUB.Count_And_Get (
2603: p_encoded => FND_API.G_FALSE,
2604: p_count => x_msg_count,
2605: p_data => x_msg_data
2606: );
2607: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2608: ROLLBACK TO delete_product_pub;
2609: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2610: -- Standard call to get message count and if count=1, get the message
2611: FND_MSG_PUB.Count_And_Get (
2612: p_encoded => FND_API.G_FALSE,
2613: p_count => x_msg_count,
2614: p_data => x_msg_data
2615: );
2615: );
2616: WHEN OTHERS THEN
2617: ROLLBACK TO delete_product_pub;
2618: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2619: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2620: THEN
2621: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2622: END IF;
2623: -- Standard call to get message count and if count=1, get the message
2617: ROLLBACK TO delete_product_pub;
2618: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2619: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2620: THEN
2621: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2622: END IF;
2623: -- Standard call to get message count and if count=1, get the message
2624: FND_MSG_PUB.Count_And_Get (
2625: p_encoded => FND_API.G_FALSE,
2620: THEN
2621: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2622: END IF;
2623: -- Standard call to get message count and if count=1, get the message
2624: FND_MSG_PUB.Count_And_Get (
2625: p_encoded => FND_API.G_FALSE,
2626: p_count => x_msg_count,
2627: p_data => x_msg_data
2628: );
2896:
2897: SAVEPOINT process_fund_from_adapter;
2898:
2899: IF FND_API.to_boolean(p_init_msg_list) THEN
2900: FND_MSG_PUB.initialize;
2901: END IF;
2902:
2903: IF NOT FND_API.compatible_api_call
2904: (l_api_version,
2924: l_mode := 'CREATE';
2925:
2926: --//Valiidation
2927: IF (l_fund_rec.fund_type = FND_API.g_miss_char OR l_fund_rec.fund_type IS NULL) THEN
2928: IF FND_MSG_PUB.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2929: FND_MESSAGE.set_name('OZF', 'OZF_FUND_NO_FUND_TYPE');
2930: --//The mandatory Fund Type is missing. Please enter a valid Fund Type.
2931: FND_MSG_PUB.add;
2932: END IF;
2927: IF (l_fund_rec.fund_type = FND_API.g_miss_char OR l_fund_rec.fund_type IS NULL) THEN
2928: IF FND_MSG_PUB.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2929: FND_MESSAGE.set_name('OZF', 'OZF_FUND_NO_FUND_TYPE');
2930: --//The mandatory Fund Type is missing. Please enter a valid Fund Type.
2931: FND_MSG_PUB.add;
2932: END IF;
2933: RAISE FND_API.G_EXC_ERROR;
2934: ELSE
2935: l_lookup_check :=OZF_UTILITY_PVT.check_lookup_exists(
2937: ,p_lookup_type =>'OZF_FUND_TYPE'
2938: ,p_lookup_code => l_fund_rec.fund_type);
2939:
2940: IF l_lookup_check = FND_API.g_false THEN
2941: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2942: FND_MESSAGE.set_name('OZF', 'OZF_FUND_BAD_FUND_TYPE');
2943: --//Program Error: The budget type is not valid.
2944: FND_MSG_PUB.add;
2945: END IF;
2940: IF l_lookup_check = FND_API.g_false THEN
2941: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2942: FND_MESSAGE.set_name('OZF', 'OZF_FUND_BAD_FUND_TYPE');
2943: --//Program Error: The budget type is not valid.
2944: FND_MSG_PUB.add;
2945: END IF;
2946: RAISE FND_API.G_EXC_ERROR;
2947: ELSE
2948: IF l_fund_rec.fund_type = 'QUOTA' THEN
2945: END IF;
2946: RAISE FND_API.G_EXC_ERROR;
2947: ELSE
2948: IF l_fund_rec.fund_type = 'QUOTA' THEN
2949: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2950: FND_MESSAGE.set_name('OZF', 'OZF_FUND_BAD_FUND_TYPE');
2951: FND_MSG_PUB.add;
2952: END IF;
2953: RAISE FND_API.G_EXC_ERROR;
2947: ELSE
2948: IF l_fund_rec.fund_type = 'QUOTA' THEN
2949: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2950: FND_MESSAGE.set_name('OZF', 'OZF_FUND_BAD_FUND_TYPE');
2951: FND_MSG_PUB.add;
2952: END IF;
2953: RAISE FND_API.G_EXC_ERROR;
2954: END IF;
2955: END IF;
2962:
2963: l_pvt_fund_rec.fund_id := l_fund_rec.fund_id;
2964:
2965: IF l_fund_rec.fund_number IS NULL OR l_fund_rec.fund_number = FND_API.g_miss_char THEN
2966: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2967: FND_MESSAGE.set_name('OZF', 'OZF_NO_FUND_ID_NUM');
2968: --//Please enter a valid value for required fields Fund ID/ Fund Number
2969: FND_MSG_PUB.add;
2970: END IF;
2965: IF l_fund_rec.fund_number IS NULL OR l_fund_rec.fund_number = FND_API.g_miss_char THEN
2966: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2967: FND_MESSAGE.set_name('OZF', 'OZF_NO_FUND_ID_NUM');
2968: --//Please enter a valid value for required fields Fund ID/ Fund Number
2969: FND_MSG_PUB.add;
2970: END IF;
2971: RAISE FND_API.G_EXC_ERROR;
2972: ELSE
2973: OPEN c_get_fund_no(l_fund_rec.fund_number);
2974: FETCH c_get_fund_no INTO l_fund_number;
2975: CLOSE c_get_fund_no;
2976:
2977: IF l_fund_number IS NOT NULL THEN
2978: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2979: FND_MESSAGE.set_name('OZF', 'OZF_INVALID_FUND_NUM');
2980: --//The Fund Number provided is invalid. Please provide a valid Fund Number.
2981: FND_MSG_PUB.add;
2982: END IF;
2977: IF l_fund_number IS NOT NULL THEN
2978: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2979: FND_MESSAGE.set_name('OZF', 'OZF_INVALID_FUND_NUM');
2980: --//The Fund Number provided is invalid. Please provide a valid Fund Number.
2981: FND_MSG_PUB.add;
2982: END IF;
2983: RAISE FND_API.G_EXC_ERROR;
2984: END IF;
2985: END IF;
3005: FETCH c_bus_id_exists INTO l_bus_unit_exists;
3006: CLOSE c_bus_id_exists;
3007:
3008: IF l_bus_unit_exists IS NULL THEN
3009: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
3010: fnd_message.set_name('OZF', 'OZF_INVALID_BUS_UNIT_ID');
3011: fnd_msg_pub.add;
3012: END IF;
3013: RAISE FND_API.G_EXC_ERROR;
3007:
3008: IF l_bus_unit_exists IS NULL THEN
3009: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
3010: fnd_message.set_name('OZF', 'OZF_INVALID_BUS_UNIT_ID');
3011: fnd_msg_pub.add;
3012: END IF;
3013: RAISE FND_API.G_EXC_ERROR;
3014: END IF;
3015: END IF;
3018: l_pvt_fund_rec.status_code := 'ACTIVE';
3019: l_pvt_fund_rec.user_status_id := OZF_UTILITY_PVT.get_default_user_status('OZF_FUND_STATUS','ACTIVE');
3020:
3021: IF l_fund_rec.start_date_active IS NULL OR l_fund_rec.start_date_active = FND_API.g_miss_date THEN
3022: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3023: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_START_DATE_NULL');
3024: --//Please Enter a Start Date.
3025: FND_MSG_PUB.add;
3026: END IF;
3021: IF l_fund_rec.start_date_active IS NULL OR l_fund_rec.start_date_active = FND_API.g_miss_date THEN
3022: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3023: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_START_DATE_NULL');
3024: --//Please Enter a Start Date.
3025: FND_MSG_PUB.add;
3026: END IF;
3027: RAISE FND_API.G_EXC_ERROR;
3028: END IF;
3029:
3030: IF ((l_fund_rec.start_date_active <> FND_API.g_miss_date AND l_fund_rec.start_date_active IS NOT NULL)
3031: AND (l_fund_rec.end_date_active <> FND_API.g_miss_date AND l_fund_rec.end_date_active IS NOT NULL)
3032: AND (l_fund_rec.end_date_active < l_fund_rec.start_date_active)) THEN
3033:
3034: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3035: FND_MESSAGE.set_name('OZF', 'OZF_FUND_DATE_MISMATCH');
3036: --//Start date cannot be later than the end date.
3037: FND_MSG_PUB.add;
3038: END IF;
3033:
3034: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3035: FND_MESSAGE.set_name('OZF', 'OZF_FUND_DATE_MISMATCH');
3036: --//Start date cannot be later than the end date.
3037: FND_MSG_PUB.add;
3038: END IF;
3039: RAISE FND_API.G_EXC_ERROR;
3040: END IF;
3041:
3042: --//Fix for Bug 14158423
3043: /*
3044: IF l_fund_rec.fund_type = 'FULLY_ACCRUED' THEN
3045: IF l_fund_rec.start_date_active < TRUNC(SYSDATE) THEN
3046: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3047: FND_MESSAGE.set_name('OZF', 'OZF_FUND_STARTDATE_MISMATCH');
3048: --//Fully Accrued Budget 'Start Date' cannot be before today's Date. Please enter a valid 'Start Date'.
3049: FND_MSG_PUB.add;
3050: END IF;
3045: IF l_fund_rec.start_date_active < TRUNC(SYSDATE) THEN
3046: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3047: FND_MESSAGE.set_name('OZF', 'OZF_FUND_STARTDATE_MISMATCH');
3048: --//Fully Accrued Budget 'Start Date' cannot be before today's Date. Please enter a valid 'Start Date'.
3049: FND_MSG_PUB.add;
3050: END IF;
3051: RAISE FND_API.G_EXC_ERROR;
3052: END IF;
3053: END IF;
3059: l_pvt_fund_rec.end_period_name := l_fund_rec.end_period_name;
3060:
3061: --if currency code is null, then raise exception
3062: IF l_fund_rec.currency_code_tc = fnd_api.g_miss_char OR l_fund_rec.currency_code_tc IS NULL THEN
3063: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
3064: fnd_message.set_name('OZF', 'OZF_NO_CURR_CODE');
3065: fnd_msg_pub.add;
3066: END IF;
3067: RAISE FND_API.G_EXC_ERROR;
3061: --if currency code is null, then raise exception
3062: IF l_fund_rec.currency_code_tc = fnd_api.g_miss_char OR l_fund_rec.currency_code_tc IS NULL THEN
3063: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
3064: fnd_message.set_name('OZF', 'OZF_NO_CURR_CODE');
3065: fnd_msg_pub.add;
3066: END IF;
3067: RAISE FND_API.G_EXC_ERROR;
3068: ELSE
3069: OPEN c_currency(l_fund_rec.currency_code_tc);
3069: OPEN c_currency(l_fund_rec.currency_code_tc);
3070: FETCH c_currency INTO l_currency_code;
3071: CLOSE c_currency;
3072: IF l_currency_code IS NULL THEN
3073: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3074: FND_MESSAGE.set_name('OZF', 'OZF_INVALID_CURRENCY_CODE');
3075: --//Mandatory field Currency Code is missing. Please enter a valid Currency Code
3076: FND_MSG_PUB.add;
3077: END IF;
3072: IF l_currency_code IS NULL THEN
3073: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3074: FND_MESSAGE.set_name('OZF', 'OZF_INVALID_CURRENCY_CODE');
3075: --//Mandatory field Currency Code is missing. Please enter a valid Currency Code
3076: FND_MSG_PUB.add;
3077: END IF;
3078: RAISE FND_API.G_EXC_ERROR;
3079: END IF;
3080: END IF;
3090: FETCH c_threshold_id INTO l_threshold_id;
3091: CLOSE c_threshold_id;
3092:
3093: IF l_threshold_id IS NULL THEN
3094: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3095: FND_MESSAGE.set_name('OZF', 'OZF_THRESHOLD_NO_THRESHOLD_ID');
3096: --//Please enter a valid Id for Threshold.
3097: FND_MSG_PUB.add;
3098: END IF;
3093: IF l_threshold_id IS NULL THEN
3094: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3095: FND_MESSAGE.set_name('OZF', 'OZF_THRESHOLD_NO_THRESHOLD_ID');
3096: --//Please enter a valid Id for Threshold.
3097: FND_MSG_PUB.add;
3098: END IF;
3099: RAISE FND_API.G_EXC_ERROR;
3100: END IF;
3101: END IF;
3154:
3155: IF l_ledger_id IS NOT NULL THEN
3156: l_pvt_fund_rec.ledger_id := l_ledger_id;
3157: ELSE
3158: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3159: FND_MESSAGE.set_name('OZF', 'OZF_LEDGER_DERIVE_FAILURE');
3160: --//Not able to derive ledger identifier. Please either pass a valid ledger Identifier or set the Ledger identifier in Buudget category/System parameters/Operating Unit level.
3161: FND_MSG_PUB.add;
3162: END IF;
3157: ELSE
3158: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3159: FND_MESSAGE.set_name('OZF', 'OZF_LEDGER_DERIVE_FAILURE');
3160: --//Not able to derive ledger identifier. Please either pass a valid ledger Identifier or set the Ledger identifier in Buudget category/System parameters/Operating Unit level.
3161: FND_MSG_PUB.add;
3162: END IF;
3163: RAISE FND_API.G_EXC_ERROR;
3164: END IF;
3165: ELSE
3167: FETCH c_ledger_from_gl INTO l_ledger_count;
3168: CLOSE c_ledger_from_gl;
3169:
3170: IF l_ledger_count = 0 THEN
3171: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3172: FND_MESSAGE.set_name('OZF', 'OZF_INVALID_LEDGER_ID');
3173: --//The Ledger ID provided is invalid. Please provide a valid Ledger ID
3174: FND_MSG_PUB.add;
3175: END IF;
3170: IF l_ledger_count = 0 THEN
3171: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3172: FND_MESSAGE.set_name('OZF', 'OZF_INVALID_LEDGER_ID');
3173: --//The Ledger ID provided is invalid. Please provide a valid Ledger ID
3174: FND_MSG_PUB.add;
3175: END IF;
3176: RAISE FND_API.G_EXC_ERROR;
3177: END IF;
3178: END IF;
3186: FETCH c_gl_ccid INTO l_ccid_count;
3187: CLOSE c_gl_ccid;
3188:
3189: IF l_ccid_count = 0 THEN
3190: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3191: FND_MESSAGE.set_name('OZF', 'OZF_INVALID_ACC_LIAB_CCID');
3192: --//Accrual Liability Account provided is invalid. Please provide a valid Accrual Liability Account.
3193: FND_MSG_PUB.add;
3194: END IF;
3189: IF l_ccid_count = 0 THEN
3190: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3191: FND_MESSAGE.set_name('OZF', 'OZF_INVALID_ACC_LIAB_CCID');
3192: --//Accrual Liability Account provided is invalid. Please provide a valid Accrual Liability Account.
3193: FND_MSG_PUB.add;
3194: END IF;
3195: RAISE FND_API.G_EXC_ERROR;
3196: END IF;
3197: END IF;
3204: FETCH c_gl_ccid INTO l_ccid_count;
3205: CLOSE c_gl_ccid;
3206:
3207: IF l_ccid_count = 0 THEN
3208: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3209: FND_MESSAGE.set_name('OZF', 'OZF_INVALID_DED_ADJ_CCID');
3210: --//Sales/Expense/Charge Account provided is invalid. Please provide a valid Sales/Expense/Charge Account.
3211: FND_MSG_PUB.add;
3212: END IF;
3207: IF l_ccid_count = 0 THEN
3208: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3209: FND_MESSAGE.set_name('OZF', 'OZF_INVALID_DED_ADJ_CCID');
3210: --//Sales/Expense/Charge Account provided is invalid. Please provide a valid Sales/Expense/Charge Account.
3211: FND_MSG_PUB.add;
3212: END IF;
3213: RAISE FND_API.G_EXC_ERROR;
3214: END IF;
3215: END IF;
3280: l_pvt_fund_rec.org_id,
3281: l_pvt_fund_rec.liability_flag;
3282:
3283: IF c_fund_details%NOTFOUND THEN
3284: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3285: FND_MESSAGE.set_name('OZF', 'OZF_INVALID_FUND_ID');
3286: --//The Fund ID provided is invalid. Please provide a valid Fund ID.
3287: FND_MSG_PUB.add;
3288: END IF;
3283: IF c_fund_details%NOTFOUND THEN
3284: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3285: FND_MESSAGE.set_name('OZF', 'OZF_INVALID_FUND_ID');
3286: --//The Fund ID provided is invalid. Please provide a valid Fund ID.
3287: FND_MSG_PUB.add;
3288: END IF;
3289: RAISE FND_API.G_EXC_ERROR;
3290: END IF;
3291: CLOSE c_fund_details;
3447: l_modifier_line_tbl(i).list_line_no := NVL(p_modifier_line_tbl(i).list_line_no,Fnd_Api.g_miss_char);
3448:
3449:
3450: IF l_modifier_line_tbl(i).PRODUCT_ATTR_VAL = fnd_api.g_miss_num OR l_modifier_line_tbl(i).PRODUCT_ATTR_VAL is NULL THEN
3451: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
3452: fnd_message.set_name('OZF', 'OZF_ACCRUAL_NO_PROD');
3453: --//An accrual type budget must have a product eligibility defined to go 'Active'. Please define product eligibility for the budget.
3454: fnd_msg_pub.add;
3455: END IF;
3450: IF l_modifier_line_tbl(i).PRODUCT_ATTR_VAL = fnd_api.g_miss_num OR l_modifier_line_tbl(i).PRODUCT_ATTR_VAL is NULL THEN
3451: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
3452: fnd_message.set_name('OZF', 'OZF_ACCRUAL_NO_PROD');
3453: --//An accrual type budget must have a product eligibility defined to go 'Active'. Please define product eligibility for the budget.
3454: fnd_msg_pub.add;
3455: END IF;
3456: RAISE fnd_api.g_exc_error;
3457: END IF;
3458:
3470: , fnd_profile.value('QP_ORGANIZATION_ID')
3471: );
3472: FETCH c_uom INTO l_uom;
3473: IF ( c_uom%NOTFOUND) THEN
3474: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3475: FND_MESSAGE.SET_NAME('QP','QP_INVALID_PROD_UOM');
3476: FND_MSG_PUB.add;
3477: END IF;
3478: RAISE Fnd_Api.g_exc_error;
3472: FETCH c_uom INTO l_uom;
3473: IF ( c_uom%NOTFOUND) THEN
3474: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3475: FND_MESSAGE.SET_NAME('QP','QP_INVALID_PROD_UOM');
3476: FND_MSG_PUB.add;
3477: END IF;
3478: RAISE Fnd_Api.g_exc_error;
3479: END IF;
3480: CLOSE c_uom;
3515: l_qualifier_tbl(j).attribute14 := NVL(p_qualifier_tbl(j).attribute14,Fnd_Api.g_miss_char);
3516: l_qualifier_tbl(j).attribute15 := NVL(p_qualifier_tbl(j).attribute15,Fnd_Api.g_miss_char);
3517:
3518: IF l_qualifier_tbl(j).qualifier_attr_value = fnd_api.g_miss_num OR l_qualifier_tbl(j).qualifier_attr_value is NULL THEN
3519: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
3520: fnd_message.set_name('OZF', 'OZF_FUND_NO_CUSTOMER');
3521: fnd_msg_pub.add;
3522: END IF;
3523: RAISE fnd_api.g_exc_error;
3517:
3518: IF l_qualifier_tbl(j).qualifier_attr_value = fnd_api.g_miss_num OR l_qualifier_tbl(j).qualifier_attr_value is NULL THEN
3519: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
3520: fnd_message.set_name('OZF', 'OZF_FUND_NO_CUSTOMER');
3521: fnd_msg_pub.add;
3522: END IF;
3523: RAISE fnd_api.g_exc_error;
3524: END IF;
3525:
3524: END IF;
3525:
3526: END LOOP;
3527: ELSE
3528: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
3529: fnd_message.set_name('OZF', 'OZF_FUND_NO_CUSTOMER');
3530: fnd_msg_pub.add;
3531: END IF;
3532: RAISE fnd_api.g_exc_error;
3526: END LOOP;
3527: ELSE
3528: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
3529: fnd_message.set_name('OZF', 'OZF_FUND_NO_CUSTOMER');
3530: fnd_msg_pub.add;
3531: END IF;
3532: RAISE fnd_api.g_exc_error;
3533: END IF;
3534:
3587: IF p_qualifier_tbl.COUNT > 0 THEN
3588: FOR i IN p_qualifier_tbl.FIRST..p_qualifier_tbl.LAST LOOP
3589: l_seg_rec.market_segment_id := p_qualifier_tbl(i).qualifier_attr_value;
3590: IF l_seg_rec.market_segment_id = fnd_api.g_miss_num OR l_seg_rec.market_segment_id is NULL THEN
3591: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
3592: fnd_message.set_name('OZF', 'OZF_FUND_NO_CUSTOMER');
3593: fnd_msg_pub.add;
3594: END IF;
3595: RAISE fnd_api.g_exc_error;
3589: l_seg_rec.market_segment_id := p_qualifier_tbl(i).qualifier_attr_value;
3590: IF l_seg_rec.market_segment_id = fnd_api.g_miss_num OR l_seg_rec.market_segment_id is NULL THEN
3591: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
3592: fnd_message.set_name('OZF', 'OZF_FUND_NO_CUSTOMER');
3593: fnd_msg_pub.add;
3594: END IF;
3595: RAISE fnd_api.g_exc_error;
3596: END IF;
3597: l_seg_rec.act_market_segment_used_by_id := x_fund_id;
3617: RAISE fnd_api.g_exc_error;
3618: END IF;
3619: END LOOP;
3620: ELSE
3621: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
3622: fnd_message.set_name('OZF', 'OZF_FUND_NO_CUSTOMER');
3623: fnd_msg_pub.add;
3624: END IF;
3625: RAISE fnd_api.g_exc_error;
3619: END LOOP;
3620: ELSE
3621: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
3622: fnd_message.set_name('OZF', 'OZF_FUND_NO_CUSTOMER');
3623: fnd_msg_pub.add;
3624: END IF;
3625: RAISE fnd_api.g_exc_error;
3626: END IF;
3627: END IF;
3811: , fnd_profile.value('QP_ORGANIZATION_ID')
3812: );
3813: FETCH c_uom INTO l_uom;
3814: IF ( c_uom%NOTFOUND) THEN
3815: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3816: FND_MESSAGE.SET_NAME('QP','QP_INVALID_PROD_UOM');
3817: FND_MSG_PUB.add;
3818: END IF;
3819: RAISE Fnd_Api.g_exc_error;
3813: FETCH c_uom INTO l_uom;
3814: IF ( c_uom%NOTFOUND) THEN
3815: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3816: FND_MESSAGE.SET_NAME('QP','QP_INVALID_PROD_UOM');
3817: FND_MSG_PUB.add;
3818: END IF;
3819: RAISE Fnd_Api.g_exc_error;
3820: END IF;
3821: CLOSE c_uom;
3907:
3908: END IF;
3909: END IF;
3910:
3911: FND_MSG_PUB.Count_And_Get (
3912: p_encoded => FND_API.G_FALSE,
3913: p_count => x_msg_count,
3914: p_data => x_msg_data
3915: );
3916:
3917: x_msg_tbl(1).msg_text :='successful';
3918:
3919: FOR i IN 1..x_msg_count LOOP
3920: x_msg_tbl(i).msg_text := substr(fnd_msg_pub.get(p_msg_index => i, p_encoded => 'F'), 1, 254);
3921: END LOOP;
3922:
3923: EXCEPTION
3924: WHEN FND_API.G_EXC_ERROR THEN
3924: WHEN FND_API.G_EXC_ERROR THEN
3925: ROLLBACK TO process_fund_from_adapter;
3926: x_return_status := FND_API.G_RET_STS_ERROR;
3927: -- Standard call to get message count and if count=1, get the message
3928: FND_MSG_PUB.Count_And_Get (
3929: p_encoded => FND_API.G_FALSE,
3930: p_count => x_msg_count,
3931: p_data => x_msg_data
3932: );
3931: p_data => x_msg_data
3932: );
3933:
3934: for i in 1..x_msg_count loop
3935: x_msg_tbl(i).msg_text := substr(fnd_msg_pub.get(p_msg_index => i, p_encoded => 'F'), 1, 254);
3936: end loop;
3937: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3938: ROLLBACK TO process_fund_from_adapter;
3939: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3937: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3938: ROLLBACK TO process_fund_from_adapter;
3939: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3940: -- Standard call to get message count and if count=1, get the message
3941: FND_MSG_PUB.Count_And_Get (
3942: p_encoded => FND_API.G_FALSE,
3943: p_count => x_msg_count,
3944: p_data => x_msg_data
3945: );
3943: p_count => x_msg_count,
3944: p_data => x_msg_data
3945: );
3946: for i in 1..x_msg_count loop
3947: x_msg_tbl(i).msg_text := substr(fnd_msg_pub.get(p_msg_index => i, p_encoded => 'F'), 1, 254);
3948: end loop;
3949: WHEN OTHERS THEN
3950: ROLLBACK TO process_fund_from_adapter;
3951: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3948: end loop;
3949: WHEN OTHERS THEN
3950: ROLLBACK TO process_fund_from_adapter;
3951: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3952: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3953: THEN
3954: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3955: END IF;
3956: -- Standard call to get message count and if count=1, get the message
3950: ROLLBACK TO process_fund_from_adapter;
3951: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3952: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3953: THEN
3954: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3955: END IF;
3956: -- Standard call to get message count and if count=1, get the message
3957: FND_MSG_PUB.Count_And_Get (
3958: p_encoded => FND_API.G_FALSE,
3953: THEN
3954: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3955: END IF;
3956: -- Standard call to get message count and if count=1, get the message
3957: FND_MSG_PUB.Count_And_Get (
3958: p_encoded => FND_API.G_FALSE,
3959: p_count => x_msg_count,
3960: p_data => x_msg_data
3961: );
3959: p_count => x_msg_count,
3960: p_data => x_msg_data
3961: );
3962: for i in 1..x_msg_count loop
3963: x_msg_tbl(i).msg_text := substr(fnd_msg_pub.get(p_msg_index => i, p_encoded => 'F'), 1, 254);
3964: end loop;
3965:
3966: END process_fund_from_adapter;
3967: