[Home] [Help]
327: CLOSE c_fund_exists;
328:
329: IF l_fund_exists IS NULL THEN
330: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
331: fnd_message.set_name('OZF', 'OZF_INVALID_FUND_ID');
332: fnd_msg_pub.add;
333: END IF;
334: x_return_status := fnd_api.g_ret_sts_error;
335: RETURN;
343: IF l_fund_id IS NOT NULL THEN
344: p_adj_rec.fund_id := l_fund_id;
345: ELSE
346: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
347: fnd_message.set_name('OZF', 'OZF_INVALID_FUND_NUM');
348: fnd_msg_pub.add;
349: END IF;
350: x_return_status := fnd_api.g_ret_sts_error;
351: RETURN;
351: RETURN;
352: END IF;
353: ELSE
354: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
355: fnd_message.set_name('OZF', 'OZF_NO_FUND_ID');
356: fnd_msg_pub.add;
357: END IF;
358: x_return_status := fnd_api.g_ret_sts_error;
359: RETURN;
360: END IF;
361:
362: IF p_adj_rec.adjustment_type = fnd_api.g_miss_char OR p_adj_rec.adjustment_type IS NULL THEN
363: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
364: fnd_message.set_name('OZF', 'OZF_FUND_NO_ADJ_TYPE');
365: fnd_msg_pub.add;
366: END IF;
367: x_return_status := fnd_api.g_ret_sts_error;
368: RETURN;
370:
371: IF p_adj_rec.adjustment_type NOT IN ('DECREASE_COMM_EARNED', 'DECREASE_COMMITTED', 'DECREASE_EARNED',
372: 'STANDARD', 'DECREASE_PAID', 'INCREASE_PAID') THEN
373: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
374: fnd_message.set_name('OZF', 'OZF_INVALID_ADJ_TYPE');
375: fnd_msg_pub.add;
376: END IF;
377: x_return_status := fnd_api.g_ret_sts_error;
378: RETURN;
384: IF (p_adj_rec.amount = fnd_api.g_miss_num OR p_adj_rec.amount IS NULL)
385: --nirprasa,ER 8399134 add this condition since user can now pass plan_amount also
386: AND (p_adj_rec.plan_amount = fnd_api.g_miss_num OR p_adj_rec.plan_amount IS NULL) THEN
387: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
388: fnd_message.set_name('OZF', 'OZF_FUND_NO_ADJ_AMT');
389: fnd_msg_pub.add;
390: END IF;
391: x_return_status := fnd_api.g_ret_sts_error;
392: RETURN;
400: IF p_adj_rec.currency_code IS NULL OR p_adj_rec.currency_code = fnd_api.g_miss_char THEN
401: p_adj_rec.currency_code := l_fund_curr_code;
402: ELSIF p_adj_rec.currency_code <> l_fund_curr_code THEN
403: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
404: fnd_message.set_name('OZF', 'OZF_INVALID_FUND_CURR_CODE');
405: fnd_msg_pub.add;
406: END IF;
407: x_return_status := fnd_api.g_ret_sts_error;
408: RETURN;
411: --end ER 8399134 code changes
412:
413: IF p_adj_rec.activity_type NOT IN ('CAMP', 'DELV', 'EVEH', 'OFFR') THEN
414: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
415: fnd_message.set_name('OZF', 'OZF_INVALID_ACTIVITY_TYPE');
416: fnd_msg_pub.add;
417: END IF;
418: x_return_status := fnd_api.g_ret_sts_error;
419: RETURN;
438: END IF;
439:
440: IF l_activity_id IS NULL THEN
441: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
442: fnd_message.set_name('OZF', 'OZF_INVALID_ACTIVITY_ID');
443: fnd_msg_pub.add;
444: END IF;
445: x_return_status := fnd_api.g_ret_sts_error;
446: RETURN;
454: CLOSE c_valid_csch;
455:
456: IF l_valid_csch IS NULL THEN
457: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
458: fnd_message.set_name('OZF', 'OZF_INVALID_CSCH_ID');
459: fnd_msg_pub.add;
460: END IF;
461: x_return_status := fnd_api.g_ret_sts_error;
462: RETURN;
470: CLOSE c_valid_cust_type;
471:
472: IF l_cust_type IS NULL THEN
473: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
474: fnd_message.set_name('OZF', 'OZF_INVALID_CUST_TYPE');
475: fnd_msg_pub.add;
476: END IF;
477: x_return_status := fnd_api.g_ret_sts_error;
478: RETURN;
509:
510: IF p_adj_rec.cust_account_id = fnd_api.g_miss_num OR p_adj_rec.cust_account_id IS NULL THEN
511:
512: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
513: fnd_message.set_name('OZF', 'OZF_INVALID_CUST_ID');
514: fnd_msg_pub.add;
515: END IF;
516: x_return_status := fnd_api.g_ret_sts_error;
517: RETURN;
522: IF p_adj_rec.document_type <> fnd_api.g_miss_char AND p_adj_rec.document_type IS NOT NULL THEN
523: IF p_adj_rec.document_type NOT IN ('INVOICE', 'ORDER', 'PCHO', 'TP_ORDER') THEN
524:
525: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
526: fnd_message.set_name('OZF', 'OZF_INVALID_DOCUMENT_TYPE');
527: fnd_msg_pub.add;
528: END IF;
529: x_return_status := fnd_api.g_ret_sts_error;
530: RETURN;
532:
533: IF p_adj_rec.document_number = fnd_api.g_miss_num OR p_adj_rec.document_number IS NULL THEN
534:
535: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
536: fnd_message.set_name('OZF', 'OZF_NO_DOCUMENT_NUM');
537: fnd_msg_pub.add;
538: END IF;
539: x_return_status := fnd_api.g_ret_sts_error;
540: RETURN;
549: CLOSE c_valid_scantype_id;
550:
551: IF l_valid_scantype_id 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_INVALID_SCANTYPE_ID');
554: fnd_msg_pub.add;
555: END IF;
556: x_return_status := fnd_api.g_ret_sts_error;
557: RETURN;
562: IF p_adj_rec.product_level_type <> fnd_api.g_miss_char AND p_adj_rec.product_level_type IS NOT NULL THEN
563:
564: IF p_adj_rec.product_level_type NOT IN ('FAMILY', 'PRODUCT') THEN
565: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
566: fnd_message.set_name('OZF', 'OZF_INVALID_PROD_LEVEL');
567: fnd_msg_pub.add;
568: END IF;
569: x_return_status := fnd_api.g_ret_sts_error;
570: RETURN;
577: END IF;
578:
579: IF p_adj_rec.product_name = fnd_api.g_miss_char OR p_adj_rec.product_name IS NULL THEN
580: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
581: fnd_message.set_name('OZF', 'OZF_NO_PROD_NAME');
582: fnd_msg_pub.add;
583: END IF;
584: x_return_status := fnd_api.g_ret_sts_error;
585: RETURN;
620: END IF;
621:
622: IF p_adj_rec.product_id IS NULL THEN
623: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
624: fnd_message.set_name('OZF', 'OZF_INVALID_PROD');
625: fnd_msg_pub.add;
626: END IF;
627: x_return_status := fnd_api.g_ret_sts_error;
628: RETURN;
636:
637: IF p_adj_rec.adjustment_type IN ('INCREASE_PAID', 'DECREASE_PAID') THEN
638: IF p_adj_rec.gl_account_credit = fnd_api.g_miss_num OR p_adj_rec.gl_account_credit IS NULL THEN
639: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
640: fnd_message.set_name('OZF', 'OZF_NO_GL_CREDIT_ACCT');
641: fnd_msg_pub.add;
642: END IF;
643: x_return_status := fnd_api.g_ret_sts_error;
644: RETURN;
645: END IF;
646:
647: IF p_adj_rec.gl_account_debit = fnd_api.g_miss_num OR p_adj_rec.gl_account_debit IS NULL THEN
648: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
649: fnd_message.set_name('OZF', 'OZF_NO_GL_DEBIT_ACCT');
650: fnd_msg_pub.add;
651: END IF;
652: x_return_status := fnd_api.g_ret_sts_error;
653: RETURN;
664: IF p_adj_rec.skip_acct_gen_flag <> fnd_api.g_miss_char AND p_adj_rec.skip_acct_gen_flag IS NOT NULL THEN
665:
666: IF p_adj_rec.skip_acct_gen_flag NOT IN ('F', 'T') THEN
667: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
668: fnd_message.set_name('OZF', 'OZF_INVALID_ACCT_GEN_FLAG');
669: fnd_msg_pub.add;
670: END IF;
671: x_return_status := fnd_api.g_ret_sts_error;
672: RETURN;
681: OPEN c_order_line(p_adj_rec.order_line_id, p_adj_rec.document_number);
682: FETCH c_order_line INTO l_dummy;
683: IF c_order_line%NOTFOUND THEN
684: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
685: fnd_message.set_name('OZF', 'OZF_INVALID_ORDER_LINE');
686: fnd_msg_pub.add;
687: END IF;
688: x_return_status := fnd_api.g_ret_sts_error;
689: RETURN;
704: OPEN c_org_id(p_adj_rec.org_id, p_adj_rec.fund_id);
705: FETCH c_org_id INTO l_dummy;
706: IF c_org_id%NOTFOUND THEN
707: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
708: fnd_message.set_name('OZF', 'OZF_INVALID_ORG_LEDGER');
709: fnd_msg_pub.add;
710: END IF;
711: x_return_status := fnd_api.g_ret_sts_error;
712: RETURN;
715: END IF;
716:
717: IF l_site_org_id IS NOT NULL AND l_site_org_id <> p_adj_rec.org_id THEN
718: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
719: fnd_message.set_name('OZF', 'OZF_INVALID_ORG_SITE');
720: fnd_msg_pub.add;
721: END IF;
722: x_return_status := fnd_api.g_ret_sts_error;
723: RETURN;
724: END IF;
725:
726: IF l_offer_org_id IS NOT NULL AND l_offer_org_id <> p_adj_rec.org_id THEN
727: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
728: fnd_message.set_name('OZF', 'OZF_INVALID_ORG_OFFER');
729: fnd_msg_pub.add;
730: END IF;
731: x_return_status := fnd_api.g_ret_sts_error;
732: RETURN;
798: OPEN c_adj_type(p_adj_rec.adjustment_type_id,p_adj_rec.org_id);
799: FETCH c_adj_type INTO l_adjustment_type;
800: IF c_adj_type%NOTFOUND THEN
801: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
802: fnd_message.set_name('OZF', 'OZF_INVALID_ADJ_TYPE_ID');
803: fnd_msg_pub.add;
804: END IF;
805: x_return_status := fnd_api.g_ret_sts_error;
806: RETURN;
808: CLOSE c_adj_type;
809:
810: IF p_adj_rec.adjustment_type <> l_adjustment_type THEN
811: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
812: fnd_message.set_name('OZF', 'OZF_INVALID_ADJ_TYPE_ID');
813: fnd_msg_pub.add;
814: END IF;
815: x_return_status := fnd_api.g_ret_sts_error;
816: RETURN;
835: OR p_adj_rec.document_type = fnd_api.g_miss_char
836: OR p_adj_rec.document_number IS NULL
837: OR p_adj_rec.document_number = fnd_api.g_miss_num THEN
838: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
839: fnd_message.set_name('OZF', 'OZF_NO_DOCUMENT_INFO');
840: fnd_msg_pub.add;
841: END IF;
842: x_return_status := fnd_api.g_ret_sts_error;
843: RETURN;
899: p_adj_rec.plan_currency_code := l_document_curr;
900: ELSE
901: IF l_document_curr <> p_adj_rec.plan_currency_code THEN
902: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
903: fnd_message.set_name('OZF', 'OZF_INVALID_PLAN_CURR_CODE');
904: fnd_msg_pub.add;
905: END IF;
906: x_return_status := fnd_api.g_ret_sts_error;
907: RETURN;
932:
933: --Cost Price is mandatory for Ship & Debit Offer
934: IF p_adj_rec.cost_price = fnd_api.g_miss_num OR p_adj_rec.cost_price IS NULL THEN
935: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
936: fnd_message.set_name('OZF', 'OZF_NO_COST_PRICE');
937: fnd_msg_pub.add;
938: END IF;
939: x_return_status := fnd_api.g_ret_sts_error;
940: RETURN;
942:
943: --Cost Price should be greater than 0
944: IF p_adj_rec.cost_price <= 0 THEN
945: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
946: fnd_message.set_name('OZF', 'OZF_COST_PRICE_GT_ZERO');
947: fnd_msg_pub.add;
948: END IF;
949: x_return_status := fnd_api.g_ret_sts_error;
950: RETURN;
957: CLOSE c_valid_currency;
958:
959: IF l_valid_curr IS NULL THEN
960: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
961: fnd_message.set_name('OZF', 'OZF_INVALID_COST_PRICE_CURR');
962: fnd_msg_pub.add;
963: END IF;
964: x_return_status := fnd_api.g_ret_sts_error;
965: RETURN;
971:
972: --Discount Type is mandatory for Ship & Debit Offer
973: IF p_adj_rec.discount_type = fnd_api.g_miss_char OR p_adj_rec.discount_type IS NULL THEN
974: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
975: fnd_message.set_name('OZF', 'OZF_NO_DIS_TYPE');
976: fnd_msg_pub.add;
977: END IF;
978: x_return_status := fnd_api.g_ret_sts_error;
979: RETURN;
981:
982: --Valid values for Discount Type = % (Percent), AMT (Amount), NEWPRICE (New Price)
983: IF p_adj_rec.discount_type NOT IN ('%', 'AMT', 'NEWPRICE') THEN
984: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
985: fnd_message.set_name('OZF', 'OZF_INVALID_DIS_TYPE');
986: fnd_msg_pub.add;
987: END IF;
988: x_return_status := fnd_api.g_ret_sts_error;
989: RETURN;
992:
993: --Discount Amount is mandatory for Ship & Debit Offer
994: IF p_adj_rec.discount_amount = fnd_api.g_miss_num OR p_adj_rec.discount_amount IS NULL THEN
995: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
996: fnd_message.set_name('OZF', 'OZF_NO_DIS_AMT');
997: fnd_msg_pub.add;
998: END IF;
999: x_return_status := fnd_api.g_ret_sts_error;
1000: RETURN;
1002:
1003: --Discount Amount should be greater than 0
1004: IF p_adj_rec.discount_amount <= 0 THEN
1005: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1006: fnd_message.set_name('OZF', 'OZF_DIS_AMT_GT_ZERO');
1007: fnd_msg_pub.add;
1008: END IF;
1009: x_return_status := fnd_api.g_ret_sts_error;
1010: RETURN;
1022: CLOSE c_valid_currency;
1023:
1024: IF l_valid_curr IS NULL THEN
1025: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1026: fnd_message.set_name('OZF', 'OZF_INVALID_DIS_AMT_CURR');
1027: fnd_msg_pub.add;
1028: END IF;
1029: x_return_status := fnd_api.g_ret_sts_error;
1030: RETURN;
1030: RETURN;
1031: END IF;
1032: ELSE
1033: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1034: fnd_message.set_name('OZF', 'OZF_NO_DIS_AMT_CURR');
1035: fnd_msg_pub.add;
1036: END IF;
1037: x_return_status := fnd_api.g_ret_sts_error;
1038: RETURN;
1236: l_act_util_rec.product_id := l_adj_rec.product_id;
1237: l_act_util_rec.cust_account_id := l_adj_rec.cust_account_id;
1238: l_act_util_rec.bill_to_site_use_id := l_adj_rec.bill_to_site_use_id;
1239: l_act_util_rec.ship_to_site_use_id := l_adj_rec.ship_to_site_use_id;
1240: l_act_budgets_rec.justification := fnd_message.get_string ('OZF', 'OZF_ADJ_PUB_API');
1241: l_act_budgets_rec.budget_source_type := l_adj_rec.activity_type;
1242: l_act_budgets_rec.budget_source_id := l_adj_rec.activity_id;
1243: l_act_budgets_rec.transaction_type := 'DEBIT';
1244: l_act_budgets_rec.status_code := 'APPROVED';
1456: END IF;
1457:
1458: IF l_act_util_rec.orig_utilization_id IS NULL THEN
1459: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1460: fnd_message.set_name('OZF', 'OZF_NO_ORIG_UTIL_ID');
1461: fnd_msg_pub.add;
1462: END IF;
1463: RAISE fnd_api.g_exc_error;
1464: END IF;
1466: --if the original utilization is not posted to GL(e.g. marketing cost, or off invoice offer
1467: --where gl posting is not required), then paid adjustment should not be allowed.
1468: IF l_gl_posted_flag <> 'Y' THEN
1469: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1470: fnd_message.set_name('OZF', 'OZF_ADJ_PAID_NOT_ALLOWED');
1471: fnd_msg_pub.add;
1472: END IF;
1473: RAISE fnd_api.g_exc_error;
1474: END IF;
1589: END IF;
1590:
1591: IF l_act_util_rec.orig_utilization_id IS NULL THEN
1592: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1593: fnd_message.set_name('OZF', 'OZF_NO_ORIG_UTIL_ID');
1594: fnd_msg_pub.add;
1595: END IF;
1596: RAISE fnd_api.g_exc_error;
1597: END IF;
1599: --if the original utilization is not posted to GL(e.g. marketing cost, or off invoice offer
1600: --where gl posting is not required), then paid adjustment should not be allowed.
1601: IF l_gl_posted_flag <> 'Y' THEN
1602: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1603: fnd_message.set_name('OZF', 'OZF_ADJ_PAID_NOT_ALLOWED');
1604: fnd_msg_pub.add;
1605: END IF;
1606: RAISE fnd_api.g_exc_error;
1607: END IF;