[Home] [Help]
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;
230: RETURN;
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;
247: RETURN;
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;
263: RETURN;
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;
276: RETURN;
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;
286: RETURN;
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;
294: RETURN;
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;
318: RETURN;
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;
335: RETURN;
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;
353: RETURN;
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;
369: RETURN;
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;
385: RETURN;
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;
397: RETURN;
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;
413: RETURN;
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;
429: RETURN;
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;
445: RETURN;
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;
458: END IF;
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;
474: RETURN;
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;
490: RETURN;
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;
506: RETURN;
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;
528: RETURN;
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;
539: RETURN;
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;
547: RETURN;
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;
557: RETURN;
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;
565: RETURN;
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;
575: RETURN;
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;
583: RETURN;
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;
599: RETURN;
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;
618: RETURN;
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;
634: RETURN;
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;
650: RETURN;
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;
668: RETURN;
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;
684: RETURN;
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;
700: RETURN;
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;
718: RETURN;
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;
734: RETURN;
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;
750: RETURN;
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;
1504: RETURN;
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;
1518: RETURN;
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;
1529: RETURN;
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;
1542: RETURN;
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;
1554: RETURN;
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;
1567: RETURN;
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;
1577: RETURN;
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;
1616: RETURN;
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;
1629: RETURN;
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;
1939: END IF;
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;
1952: END IF;
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;
2088: RETURN;
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;
2102: RETURN;
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;
2113: RETURN;
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;
2126: RETURN;
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;
2141: RETURN;
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;
2164: RETURN;
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;
2180: RETURN;
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;
2203: RETURN;
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;
2219: RETURN;
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;
2237: RETURN;
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;
2248: RETURN;
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;
2559: END IF;
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;
2572: END IF;
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;
2933: RAISE FND_API.G_EXC_ERROR;
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;
2946: RAISE FND_API.G_EXC_ERROR;
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;
2954: END IF;
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;
2971: RAISE FND_API.G_EXC_ERROR;
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;
2983: RAISE FND_API.G_EXC_ERROR;
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;
3014: END IF;
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;
3027: RAISE FND_API.G_EXC_ERROR;
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;
3039: RAISE FND_API.G_EXC_ERROR;
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;
3051: RAISE FND_API.G_EXC_ERROR;
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;
3068: ELSE
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;
3078: RAISE FND_API.G_EXC_ERROR;
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;
3099: RAISE FND_API.G_EXC_ERROR;
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;
3163: RAISE FND_API.G_EXC_ERROR;
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;
3176: RAISE FND_API.G_EXC_ERROR;
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;
3195: RAISE FND_API.G_EXC_ERROR;
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;
3213: RAISE FND_API.G_EXC_ERROR;
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;
3289: RAISE FND_API.G_EXC_ERROR;
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;
3456: RAISE fnd_api.g_exc_error;
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;
3479: END IF;
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;
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;
3533: END IF;
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;
3596: END IF;
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;
3626: END IF;
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;
3820: END IF;