[Home] [Help]
699: CLOSE c_user;
700:
701: IF l_user_id IS NULL THEN
702: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
703: FND_MESSAGE.set_name('OZF', 'OZF_SD_INVALID_USER_ID');
704: --//User Id is invalid, Please re-enter
705: FND_MSG_PUB.add;
706: END IF;
707: x_return_status := fnd_api.g_ret_sts_error;
712: CLOSE c_resource_id;
713:
714: IF l_resource_id IS NULL THEN
715: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
716: FND_MESSAGE.set_name('OZF', 'OZF_SD_USER_IS_NOT_RESOURCE');
717: FND_MSG_PUB.add;
718: END IF;
719: x_return_status := fnd_api.g_ret_sts_error;
720: RETURN;
725: END IF;
726:
727: ELSE
728: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
729: FND_MESSAGE.set_name('OZF', 'OZF_SD_NO_USER_ID');
730: --//User Id is Mandatory
731: FND_MSG_PUB.add;
732: END IF;
733: x_return_status := fnd_api.g_ret_sts_error;
741: CLOSE c_org_id;
742:
743: IF l_org_id IS NULL THEN
744: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
745: FND_MESSAGE.set_name('OZF', 'OZF_SD_INVALID_ORG_ID');
746: --//Organization id entered is invalid
747: FND_MSG_PUB.add;
748: END IF;
749: x_return_status := fnd_api.g_ret_sts_error;
752: --//Set Org ID to Global Variable
753: -- G_ORG_ID := p_SDR_hdr_rec.org_id;
754: ELSE
755: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
756: FND_MESSAGE.set_name('OZF', 'OZF_SD_NO_ORG_ID');
757: --//Organization id is Mandatory
758: FND_MSG_PUB.add;
759: END IF;
760: x_return_status := fnd_api.g_ret_sts_error;
771: CLOSE c_requestor_id;
772:
773: IF l_requestor_id IS NULL THEN
774: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
775: FND_MESSAGE.set_name('OZF', 'OZF_SD_INVALID_REQUESTOR_ID');
776: --//Requestor id entered is invalid
777: IF G_DEBUG THEN
778: OZF_UTILITY_PVT.debug_message('Requestor id entered is invalid');
779: END IF;
800: CLOSE c_supp_id;
801:
802: IF l_supplier_id IS NULL THEN
803: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
804: FND_MESSAGE.set_name('OZF', 'OZF_SD_INVALID_SUPPLIER_ID');
805: --//Supplier id entered is invalid
806: FND_MSG_PUB.add;
807: END IF;
808: x_return_status := fnd_api.g_ret_sts_error;
810: END IF;
811:
812: ELSE
813: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
814: FND_MESSAGE.set_name('OZF', 'OZF_SD_NO_SUPPLIER_ID');
815: --//Supplier id is Mandatory
816: FND_MSG_PUB.add;
817: END IF;
818: x_return_status := fnd_api.g_ret_sts_error;
829: CLOSE c_supplier_site_id;
830:
831: IF l_supplier_site_id IS NULL THEN
832: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
833: FND_MESSAGE.set_name('OZF', 'OZF_SD_INVALID_SUPP_SITE_ID');
834: --//Supplier site id entered is invalid
835: FND_MSG_PUB.add;
836: END IF;
837: x_return_status := fnd_api.g_ret_sts_error;
839: END IF;
840:
841: ELSE
842: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
843: FND_MESSAGE.set_name('OZF', 'OZF_SD_NO_SUPP_SITE_ID');
844: --//Supplier site id is Mandatory
845: FND_MSG_PUB.add;
846: END IF;
847: x_return_status := fnd_api.g_ret_sts_error;
858: CLOSE c_chk_stp_exists;
859:
860: IF l_stp_count = 0 THEN
861: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
862: FND_MESSAGE.set_name('OZF', 'OZF_SD_NO_SUP_TRD_PRFL');
863: --//Supplier site id entered is invalid
864: FND_MSG_PUB.add;
865: END IF;
866: x_return_status := fnd_api.g_ret_sts_error;
881: p_SDR_hdr_rec.supplier_contact_name := l_sup_contact_full_name;
882: ELSE
883: IF p_SDR_hdr_rec.supplier_contact_name = FND_API.g_miss_char OR p_SDR_hdr_rec.supplier_contact_name IS NULL THEN
884: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
885: FND_MESSAGE.set_name('OZF', 'OZF_SD_INVALID_SUPP_CONTACT_ID');
886: --//Supplier contact id entered is invalid
887: FND_MSG_PUB.add;
888: END IF;
889: x_return_status := fnd_api.g_ret_sts_error;
909: IF p_SDR_hdr_rec.supplier_response_by_date NOT BETWEEN p_SDR_hdr_rec.request_start_date AND
910: p_SDR_hdr_rec.request_end_date THEN
911:
912: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
913: FND_MESSAGE.set_name('OZF', 'OZF_SD_INVALID_SUPRESPB_DATE');
914: FND_MSG_PUB.add;
915: END IF;
916: x_return_status := fnd_api.g_ret_sts_error;
917: RETURN;
925: IF p_SDR_hdr_rec.supplier_response_date NOT BETWEEN p_SDR_hdr_rec.request_start_date AND
926: p_SDR_hdr_rec.request_end_date THEN
927:
928: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
929: FND_MESSAGE.set_name('OZF', 'OZF_SD_INVALID_SUPRESP_DATE');
930: FND_MSG_PUB.add;
931: END IF;
932: x_return_status := fnd_api.g_ret_sts_error;
933: RETURN;
941: IF p_SDR_hdr_rec.supplier_submission_date NOT BETWEEN p_SDR_hdr_rec.request_start_date AND
942: p_SDR_hdr_rec.request_end_date THEN
943:
944: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
945: FND_MESSAGE.set_name('OZF', 'OZF_SD_INVALID_SUPSUB_DATE');
946: FND_MSG_PUB.add;
947: END IF;
948: x_return_status := fnd_api.g_ret_sts_error;
949: RETURN;
970: CLOSE c_requestor_id;
971:
972: IF l_assignee_resource_id IS NULL THEN
973: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
974: FND_MESSAGE.set_name('OZF', 'OZF_SD_INVALID_ASSIGNEE_ID');
975: --//Assignee id entered is invalid (Approver)
976: FND_MSG_PUB.add;
977: END IF;
978: x_return_status := fnd_api.g_ret_sts_error;
979: RETURN;
980: END IF;
981: ELSE
982: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
983: FND_MESSAGE.set_name('OZF', 'OZF_SD_NO_ASSIGNEE_ID');
984: --//Assignee resource id is Mandatory (Approver is mandatory)
985: FND_MSG_PUB.add;
986: END IF;
987: x_return_status := fnd_api.g_ret_sts_error;
995: IF p_SDR_hdr_rec.assignee_response_by_date NOT BETWEEN p_SDR_hdr_rec.request_start_date AND
996: p_SDR_hdr_rec.request_end_date THEN
997:
998: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
999: FND_MESSAGE.set_name('OZF', 'OZF_SD_INVALID_ASRESPB_DATE');
1000: FND_MSG_PUB.add;
1001: END IF;
1002: x_return_status := fnd_api.g_ret_sts_error;
1003: RETURN;
1011: IF p_SDR_hdr_rec.assignee_response_date NOT BETWEEN p_SDR_hdr_rec.request_start_date AND
1012: p_SDR_hdr_rec.request_end_date THEN
1013:
1014: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1015: FND_MESSAGE.set_name('OZF', 'OZF_SD_INVALID_ASRESP_DATE');
1016: FND_MSG_PUB.add;
1017: END IF;
1018: x_return_status := fnd_api.g_ret_sts_error;
1019: RETURN;
1049: CLOSE c_cust_account_id;
1050:
1051: IF l_cust_account_id IS NULL THEN
1052: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1053: FND_MESSAGE.set_name('OZF', 'OZF_SD_INVALID_CUST_ACCOUNT_ID');
1054: --//Cust Account ID entered is invalid
1055: FND_MSG_PUB.add;
1056: END IF;
1057: x_return_status := fnd_api.g_ret_sts_error;
1059: END IF;
1060:
1061: ELSE
1062: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1063: FND_MESSAGE.set_name('OZF', 'OZF_SD_NO_CUST_ACCOUNT_ID');
1064: --//Cust Account id is Mandatory
1065: FND_MSG_PUB.add;
1066: END IF;
1067: x_return_status := fnd_api.g_ret_sts_error;
1086: END IF;
1087:
1088: ELSIF p_SDR_hdr_rec.request_end_date < p_SDR_hdr_rec.request_start_date THEN
1089: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1090: FND_MESSAGE.set_name('OZF', 'OZF_SD_INVALID_END_DATE');
1091: --//End date should be greater than start date
1092: FND_MSG_PUB.add;
1093: END IF;
1094: x_return_status := fnd_api.g_ret_sts_error;
1107: CLOSE c_currency;
1108:
1109: IF l_currency_code IS NULL THEN
1110: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1111: FND_MESSAGE.set_name('OZF', 'OZF_SD_INVALID_CURRENCY_CODE');
1112: FND_MSG_PUB.add;
1113: END IF;
1114: x_return_status := fnd_api.g_ret_sts_error;
1115: RETURN;
1120:
1121: IF p_SDR_hdr_rec.request_currency_code IS NULL THEN
1122:
1123: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1124: FND_MESSAGE.set_name('OZF', 'OZF_SD_ADD_PROFILE_CURRENCY');
1125: --//Please set default Currency in profile JTF_PROFILE_DEFAULT_CURRENCY
1126: FND_MSG_PUB.add;
1127: END IF;
1128: x_return_status := fnd_api.g_ret_sts_error;
1138: ,p_lookup_code => p_SDR_hdr_rec.request_outcome);
1139:
1140: IF l_lookup_stat = FND_API.g_false THEN
1141: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1142: FND_MESSAGE.set_name('OZF', 'OZF_SD_INVALID_REQ_OUTCOME');
1143: FND_MSG_PUB.add;
1144: END IF;
1145: x_return_status := fnd_api.g_ret_sts_error;
1146: RETURN;
1154: CLOSE c_order_no;
1155:
1156: IF l_internal_order_number IS NULL THEN
1157: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1158: FND_MESSAGE.set_name('OZF', 'OZF_SD_INVALID_ORDER_NUMBER');
1159: FND_MSG_PUB.add;
1160: END IF;
1161: x_return_status := fnd_api.g_ret_sts_error;
1162: RETURN;
1170: CLOSE c_currency;
1171:
1172: IF l_sales_order_currency IS NULL THEN
1173: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1174: FND_MESSAGE.set_name('OZF', 'OZF_SD_INVALID_SO_CURRENCY');
1175: --//Invalid Sales order Currency.
1176: FND_MSG_PUB.add;
1177: END IF;
1178: x_return_status := fnd_api.g_ret_sts_error;
1187: IF p_SDR_hdr_rec.internal_submission_date NOT BETWEEN p_SDR_hdr_rec.request_start_date AND
1188: p_SDR_hdr_rec.request_end_date THEN
1189:
1190: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1191: FND_MESSAGE.set_name('OZF', 'OZF_SD_INVALID_INTSUB_DATE');
1192: FND_MSG_PUB.add;
1193: END IF;
1194: x_return_status := fnd_api.g_ret_sts_error;
1195: RETURN;
1443: CLOSE c_request_line_id;
1444:
1445: IF l_request_line_id IS NULL AND p_SDR_lines_tbl(i).create_from <> 'ADJ' THEN
1446: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1447: FND_MESSAGE.set_name('OZF', 'OZF_SD_INVALID_REQUEST_LINE_ID');
1448: --//Request Line id is Invalid , Please Re-enter
1449: FND_MSG_PUB.add;
1450: END IF;
1451: x_return_status := fnd_api.g_ret_sts_error;
1568: ,p_lookup_code => p_SDR_lines_tbl(i).product_context);
1569:
1570: IF l_lookup_stat = FND_API.g_false THEN
1571: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1572: FND_MESSAGE.set_name('OZF', 'OZF_SD_INVALID_PRODUCT_TYPE');
1573: FND_MSG_PUB.add;
1574: END IF;
1575: x_return_status := fnd_api.g_ret_sts_error;
1576: RETURN;
1576: RETURN;
1577: END IF;
1578: ELSE
1579: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1580: FND_MESSAGE.set_name('OZF', 'OZF_SD_NO_PRODUCT_CONTEXT');
1581: --//Product context is Mandatory
1582: FND_MSG_PUB.add;
1583: END IF;
1584: x_return_status := fnd_api.g_ret_sts_error;
1599: CLOSE c_inventory_item_id;
1600:
1601: IF l_inventory_item_id IS NULL THEN
1602: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1603: FND_MESSAGE.set_name('OZF', 'OZF_SD_INVALID_INVENTORY_ITEM_ID');
1604: --//Inventory item id is Invalid
1605: FND_MSG_PUB.add;
1606: END IF;
1607: x_return_status := fnd_api.g_ret_sts_error;
1625: CLOSE c_ext_int_code;
1626:
1627: IF l_external_code IS NULL THEN
1628: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1629: FND_MESSAGE.set_name('OZF', 'OZF_SD_INVALID_VENDOR_ITEM_CODE');
1630: FND_MSG_PUB.add;
1631: END IF;
1632: x_return_status := fnd_api.g_ret_sts_error;
1633: RETURN;
1635: p_SDR_lines_tbl(i).inventory_item_id := l_internal_code;
1636:
1637: ELSE
1638: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1639: FND_MESSAGE.set_name('OZF', 'OZF_SD_NO_INVENTORY_ITEM_ID');
1640: --//Inventory item id is mandatory
1641: FND_MSG_PUB.add;
1642: END IF;
1643: x_return_status := fnd_api.g_ret_sts_error;
1654: CLOSE c_item_uom;
1655:
1656: IF l_item_uom IS NULL THEN
1657: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1658: FND_MESSAGE.set_name('OZF', 'OZF_SD_INVALID_ITEM_UOM');
1659: --//Unit of Measurement is Invalid
1660: FND_MSG_PUB.add;
1661: END IF;
1662: x_return_status := fnd_api.g_ret_sts_error;
1663: RETURN;
1664: END IF;
1665: ELSE
1666: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1667: FND_MESSAGE.set_name('OZF', 'OZF_SD_NO_ITEM_UOM');
1668: --//Unit of Measurement is mandatory
1669: FND_MSG_PUB.add;
1670: END IF;
1671: x_return_status := fnd_api.g_ret_sts_error;
1680: CLOSE c_product_cost;
1681:
1682: IF p_SDR_lines_tbl(i).product_cost IS NULL THEN
1683: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1684: FND_MESSAGE.set_name('OZF', 'OZF_SD_NO_PRODUCT_COST');
1685: --//A value must be entered for Product Cost
1686: FND_MSG_PUB.add;
1687: END IF;
1688: x_return_status := fnd_api.g_ret_sts_error;
1703: CLOSE c_currency;
1704:
1705: IF l_currency_var IS NULL THEN
1706: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1707: FND_MESSAGE.set_name('OZF', 'OZF_INVALID_PROD_COST_CURR');
1708: FND_MSG_PUB.add;
1709: END IF;
1710: x_return_status := fnd_api.g_ret_sts_error;
1711: RETURN;
1730: CLOSE c_category_id;
1731:
1732: IF l_category_id IS NULL THEN
1733: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1734: FND_MESSAGE.set_name('OZF', 'OZF_SD_INVALID_PRODUCT_CATEGORY');
1735: --//Product category is Invalid
1736: FND_MSG_PUB.add;
1737: END IF;
1738: x_return_status := fnd_api.g_ret_sts_error;
1739: RETURN;
1740: END IF;
1741: ELSE
1742: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1743: FND_MESSAGE.set_name('OZF', 'OZF_SD_NO_PRODUCT_CATEGORY');
1744: --//Product category is mandatory
1745: FND_MSG_PUB.add;
1746: END IF;
1747: x_return_status := fnd_api.g_ret_sts_error;
1757: CLOSE c_category_set_id;
1758:
1759: IF l_category_set_id IS NULL THEN
1760: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1761: FND_MESSAGE.set_name('OZF', 'OZF_SD_INVALID_PRODUCT_CATEGORY_SET');
1762: --//Product category set is Invalid
1763: FND_MSG_PUB.add;
1764: END IF;
1765: x_return_status := fnd_api.g_ret_sts_error;
1793: ,p_item_UOM => p_SDR_lines_tbl(i).item_uom);
1794:
1795: IF NOT l_UOM_chk THEN
1796: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1797: FND_MESSAGE.set_name('OZF', 'OZF_SD_INVALID_ITEM_UOM');
1798: --//Unit of Measurement is Invalid
1799: FND_MSG_PUB.add;
1800: END IF;
1801: x_return_status := fnd_api.g_ret_sts_error;
1813: ,p_lookup_code => p_SDR_lines_tbl(i).requested_discount_type);
1814:
1815: IF l_lookup_stat = FND_API.g_false THEN
1816: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1817: FND_MESSAGE.set_name('OZF', 'OZF_SD_INVALID_DISCOUNT_TYPE');
1818: FND_MSG_PUB.add;
1819: END IF;
1820: x_return_status := fnd_api.g_ret_sts_error;
1821: RETURN;
1821: RETURN;
1822: END IF;
1823: ELSE
1824: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1825: FND_MESSAGE.set_name('OZF', 'OZF_SD_NO_DISCOUNT_TYPE');
1826: FND_MSG_PUB.add;
1827: END IF;
1828: x_return_status := fnd_api.g_ret_sts_error;
1829: RETURN;
1832: --//Requested discount Value
1833:
1834: IF p_SDR_lines_tbl(i).requested_discount_value = FND_API.g_miss_num OR p_SDR_lines_tbl(i).requested_discount_value IS NULL THEN
1835: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1836: FND_MESSAGE.set_name('OZF', 'OZF_SD_NO_DISC_VALUE');
1837: FND_MSG_PUB.add;
1838: END IF;
1839: x_return_status := fnd_api.g_ret_sts_error;
1840: RETURN;
1844: ELSE
1845: l_status := check_zero(p_SDR_lines_tbl(i).requested_discount_value);
1846: IF l_status = FND_API.g_false THEN
1847: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1848: FND_MESSAGE.set_name('OZF', 'OZF_SD_DISCOUNT_VALUE_IS_ZERO');
1849: --//Discount value should not be zero
1850: FND_MSG_PUB.add;
1851: END IF;
1852: x_return_status := fnd_api.g_ret_sts_error;
1868: CLOSE c_currency;
1869:
1870: IF l_currency_var IS NULL THEN
1871: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1872: FND_MESSAGE.set_name('OZF', 'OZF_INVALID_REQ_DISC_CURR');
1873: FND_MSG_PUB.add;
1874: END IF;
1875: x_return_status := fnd_api.g_ret_sts_error;
1876: RETURN;
1887: CLOSE c_price_formula;
1888:
1889: IF l_formula_count = 0 THEN
1890: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1891: FND_MESSAGE.set_name('OZF', 'OZF_SD_INVALID_COST_BASIS');
1892: FND_MSG_PUB.add;
1893: END IF;
1894: x_return_status := fnd_api.g_ret_sts_error;
1895: RETURN;
1909: IF p_SDR_lines_tbl(i).max_qty <> FND_API.g_miss_num AND p_SDR_lines_tbl(i).max_qty IS NOT NULL THEN
1910: l_status := check_zero(p_SDR_lines_tbl(i).max_qty);
1911: IF l_status = FND_API.g_false THEN
1912: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1913: FND_MESSAGE.set_name('OZF', 'OZF_SD_MAX_QTY_ZERO_CHECK'); --//Check the message!
1914: --//Discount value should not be zero
1915: FND_MSG_PUB.add;
1916: END IF;
1917: x_return_status := fnd_api.g_ret_sts_error;
1933: IF p_SDR_lines_tbl(i).end_customer_price <> FND_API.g_miss_num AND p_SDR_lines_tbl(i).end_customer_price IS NOT NULL THEN
1934: l_status := check_zero(p_SDR_lines_tbl(i).end_customer_price);
1935: IF l_status = FND_API.g_false THEN
1936: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1937: FND_MESSAGE.set_name('OZF', 'OZF_SD_END_CUST_PRICE_VALUE_IS_ZERO');
1938: --//Discount value should not be zero
1939: FND_MSG_PUB.add;
1940: END IF;
1941: x_return_status := fnd_api.g_ret_sts_error;
1950: CLOSE c_currency;
1951:
1952: IF l_currency_var IS NULL THEN
1953: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1954: FND_MESSAGE.set_name('OZF', 'OZF_INVALID_END_CUST_CURR');
1955: FND_MSG_PUB.add;
1956: END IF;
1957: x_return_status := fnd_api.g_ret_sts_error;
1958: RETURN;
1976: p_SDR_lines_tbl(i).vendor_approved_flag := 'Y';
1977: ELSE
1978: IF p_SDR_lines_tbl(i).vendor_approved_flag NOT IN ('Y','N')THEN
1979: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1980: FND_MESSAGE.set_name('OZF', 'OZF_SD_INVALID_VENDOR_APPR_FLAG');
1981: FND_MSG_PUB.add;
1982: END IF;
1983: x_return_status := fnd_api.g_ret_sts_error;
1984: RETURN;
1992: ELSIF TRUNC(p_SDR_lines_tbl(i).start_date) NOT BETWEEN
1993: TRUNC(p_SDR_hdr_rec.request_start_date) AND TRUNC(p_SDR_hdr_rec.request_end_date) THEN
1994:
1995: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1996: FND_MESSAGE.set_name('OZF', 'OZF_SD_LINE_START_DATE_CHECK');
1997: --//Start Date should fall in between Header Start date and End Date
1998: FND_MSG_PUB.add;
1999: END IF;
2000: x_return_status := fnd_api.g_ret_sts_error;
2008: ELSIF TRUNC(p_SDR_lines_tbl(i).end_date) NOT BETWEEN
2009: TRUNC(p_SDR_hdr_rec.request_start_date) AND TRUNC(p_SDR_hdr_rec.request_end_date) THEN
2010:
2011: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2012: FND_MESSAGE.set_name('OZF', 'OZF_SD_LINE_END_DATE_CHECK');
2013: --//End Date should fall in between Header Start date and End Date
2014: FND_MSG_PUB.add;
2015: END IF;
2016: x_return_status := fnd_api.g_ret_sts_error;
2025:
2026:
2027: IF p_SDR_lines_tbl(i).end_date < p_SDR_lines_tbl(i).start_date THEN
2028: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2029: FND_MESSAGE.set_name('OZF', 'OZF_SD_LINE_END_DATE_GT_CHECK');
2030: --//End Date should be greater than start date
2031: FND_MSG_PUB.add;
2032: END IF;
2033: x_return_status := fnd_api.g_ret_sts_error;
2045: ,p_lookup_code => p_SDR_lines_tbl(i).end_customer_price_type);
2046:
2047: IF l_lookup_stat = FND_API.g_false THEN
2048: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2049: FND_MESSAGE.set_name('OZF', 'OZF_SD_INVALID_PRICE_TYPE');
2050: FND_MSG_PUB.add;
2051: END IF;
2052: x_return_status := fnd_api.g_ret_sts_error;
2053: RETURN;
2062: ,p_lookup_code => p_SDR_lines_tbl(i).end_customer_tolerance_type);
2063:
2064: IF l_lookup_stat = FND_API.g_false THEN
2065: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2066: FND_MESSAGE.set_name('OZF', 'OZF_SD_BAD_TOLERANCE_TYPE');
2067: FND_MSG_PUB.add;
2068: END IF;
2069: x_return_status := fnd_api.g_ret_sts_error;
2070: RETURN;
2079: ,p_lookup_code => p_SDR_lines_tbl(i).rejection_code);
2080:
2081: IF l_lookup_stat = FND_API.g_false THEN
2082: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2083: FND_MESSAGE.set_name('OZF', 'OZF_SD_INVALID_REJECTION_CODE');
2084: FND_MSG_PUB.add;
2085: END IF;
2086: x_return_status := fnd_api.g_ret_sts_error;
2087: RETURN;
2111: ,p_lookup_code => p_SDR_lines_tbl(i).approved_discount_type);
2112:
2113: IF l_lookup_stat =FND_API.g_false THEN
2114: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2115: FND_MESSAGE.set_name('OZF', 'OZF_SD_INVALID_APPROVED_DISC_TYPE');
2116: FND_MSG_PUB.add;
2117: END IF;
2118: x_return_status := fnd_api.g_ret_sts_error;
2119: RETURN;
2128: IF p_SDR_lines_tbl(i).approved_discount_value <> FND_API.g_miss_num AND p_SDR_lines_tbl(i).approved_discount_value IS NOT NULL THEN
2129: l_status := check_zero(p_SDR_lines_tbl(i).approved_discount_value);
2130: IF l_status = FND_API.g_false THEN
2131: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2132: FND_MESSAGE.set_name('OZF', 'OZF_SD_APPR_DISC_VALUE_IS_ZERO');
2133: FND_MSG_PUB.add;
2134: END IF;
2135: x_return_status := fnd_api.g_ret_sts_error;
2136: RETURN;
2151: CLOSE c_currency;
2152:
2153: IF l_currency_var IS NULL THEN
2154: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2155: FND_MESSAGE.set_name('OZF', 'OZF_INVALID_APPR_DISC_CURR');
2156: --//A value must be entered for Product Cost
2157: FND_MSG_PUB.add;
2158: END IF;
2159: x_return_status := fnd_api.g_ret_sts_error;
2167: IF p_SDR_lines_tbl(i).approved_max_qty <> FND_API.g_miss_num AND p_SDR_lines_tbl(i).approved_max_qty IS NOT NULL THEN
2168: l_status := check_zero(p_SDR_lines_tbl(i).approved_max_qty);
2169: IF l_status = FND_API.g_false THEN
2170: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2171: FND_MESSAGE.set_name('OZF', 'OZF_SD_APPR_MAX_QTY_VALUE_IS_ZERO');
2172: FND_MSG_PUB.add;
2173: END IF;
2174: x_return_status := fnd_api.g_ret_sts_error;
2175: RETURN;
2180:
2181: /* BugFix : 7501013
2182: ELSE
2183: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2184: FND_MESSAGE.set_name('OZF', 'OZF_SD_NO_APPROVED_MAX_QTY');
2185: FND_MSG_PUB.add;
2186: END IF;
2187: x_return_status := fnd_api.g_ret_sts_error;
2188: RETURN; */
2344: CLOSE c_request_customer_id;
2345:
2346: IF l_request_customer_id IS NULL THEN
2347: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2348: FND_MESSAGE.set_name('OZF', 'OZF_SD_INVALID_REQUEST_CUSTOMER_ID');
2349: FND_MSG_PUB.add;
2350: END IF;
2351: x_return_status := fnd_api.g_ret_sts_error;
2352: RETURN;
2412:
2413: IF p_SDR_cust_tbl(j).end_customer_flag NOT IN ('N','Y') THEN
2414:
2415: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2416: FND_MESSAGE.set_name('OZF', 'OZF_SD_INVALID_END_CUST_FLAG');
2417: --//Invalid End Customer flag
2418: FND_MSG_PUB.add;
2419: END IF;
2420: x_return_status := fnd_api.g_ret_sts_error;
2421: RETURN;
2422: END IF;
2423: ELSE
2424: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2425: FND_MESSAGE.set_name('OZF', 'OZF_SD_NO_END_CUST_FLAG');
2426: --//End Customer Flag is Mandatory
2427: FND_MSG_PUB.add;
2428: END IF;
2429: x_return_status := fnd_api.g_ret_sts_error;
2439: ,p_lookup_code => p_SDR_cust_tbl(j).cust_usage_code);
2440:
2441: IF l_lookup_stat = FND_API.g_false THEN
2442: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2443: FND_MESSAGE.set_name('OZF', 'OZF_SD_INVALID_CUST_ADDR_TYPE');
2444: FND_MSG_PUB.add;
2445: END IF;
2446: x_return_status := fnd_api.g_ret_sts_error;
2447: RETURN;
2450: --//if end_customer_flag = 'Y' then cust_usage_code should be CUSTOMER only
2451: IF ((p_SDR_cust_tbl(j).end_customer_flag ='Y')
2452: AND (p_SDR_cust_tbl(j).cust_usage_code <> 'CUSTOMER')) THEN
2453: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2454: FND_MESSAGE.set_name('OZF', 'OZF_SD_INVALID_CUST_COMB');
2455: FND_MSG_PUB.add;
2456: END IF;
2457: x_return_status := fnd_api.g_ret_sts_error;
2458: RETURN;
2471: CLOSE c_buying_group;
2472:
2473: IF l_bg_party_id IS NULL THEN
2474: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2475: FND_MESSAGE.set_name('OZF', 'OZF_SD_INVALID_BUYING_GRP');
2476: --//Buying Group selected is invalid. Please select a valid Buying Group.
2477: FND_MSG_PUB.add;
2478: END IF;
2479: x_return_status := fnd_api.g_ret_sts_error;
2485: CLOSE c_party_id;
2486:
2487: IF l_party_id IS NULL THEN
2488: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2489: FND_MESSAGE.set_name('OZF', 'OZF_SD_INVALID_PARTY_ID');
2490: FND_MSG_PUB.add;
2491: END IF;
2492: x_return_status := fnd_api.g_ret_sts_error;
2493: RETURN;
2494: END IF;
2495: END IF;
2496: ELSE
2497: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2498: FND_MESSAGE.set_name('OZF', 'OZF_SD_NO_PARTY_ID');
2499: --//Party Id is mandatory
2500: FND_MSG_PUB.add;
2501: END IF;
2502: x_return_status := fnd_api.g_ret_sts_error;
2512: CLOSE c_cust_account_id;
2513:
2514: IF l_cust_account_id IS NULL THEN
2515: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2516: FND_MESSAGE.set_name('OZF', 'OZF_SD_INVALID_CUST_ACCOUNT_ID');
2517: FND_MSG_PUB.add;
2518: END IF;
2519: x_return_status := fnd_api.g_ret_sts_error;
2520: RETURN;
2520: RETURN;
2521: END IF;
2522: ELSE
2523: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2524: FND_MESSAGE.set_name('OZF', 'OZF_SD_NO_CUST_ACCOUNT_ID');
2525: FND_MSG_PUB.add;
2526: END IF;
2527: x_return_status := fnd_api.g_ret_sts_error;
2528: RETURN;
2538: CLOSE c_cust_account_id;
2539:
2540: IF l_cust_account_id IS NULL THEN
2541: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2542: FND_MESSAGE.set_name('OZF', 'OZF_SD_INVALID_CUST_ACCOUNT_ID');
2543: FND_MSG_PUB.add;
2544: END IF;
2545: x_return_status := fnd_api.g_ret_sts_error;
2546: RETURN;
2557: CLOSE c_site_use_id;
2558:
2559: IF l_site_use_id IS NULL THEN
2560: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2561: FND_MESSAGE.set_name('OZF', 'OZF_SD_INVALID_SITE_USE_ID');
2562: FND_MSG_PUB.add;
2563: END IF;
2564: x_return_status := fnd_api.g_ret_sts_error;
2565: RETURN;
2565: RETURN;
2566: END IF;
2567: ELSE
2568: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2569: FND_MESSAGE.set_name('OZF', 'OZF_SD_NO_SITE_USE_ID');
2570: FND_MSG_PUB.add;
2571: END IF;
2572: x_return_status := fnd_api.g_ret_sts_error;
2573: RETURN;
2580: --ER 9779889
2581: ELSIF p_SDR_cust_tbl(j).cust_usage_code IN ('LIST','SEGMENT','TERRITORY') THEN
2582: IF p_SDR_cust_tbl(j).cust_usage_value = FND_API.g_miss_char OR p_SDR_cust_tbl(j).cust_usage_value IS NULL THEN
2583: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2584: FND_MESSAGE.set_name('OZF', 'OZF_SD_NO_CUST_USAGE_VALUE');
2585: --//
2586: FND_MSG_PUB.add;
2587: END IF;
2588: x_return_status := fnd_api.g_ret_sts_error;
2600: CLOSE c_get_list_header;
2601:
2602: IF l_cust_usage_chk IS NULL THEN
2603: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2604: FND_MESSAGE.set_name('OZF', 'OZF_SD_INVALID_LIST');
2605: --//List selected is invalid. Please select a valid List.
2606: FND_MSG_PUB.add;
2607: END IF;
2608: x_return_status := fnd_api.g_ret_sts_error;
2615: CLOSE c_get_segment;
2616:
2617: IF l_cust_usage_chk IS NULL THEN
2618: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2619: FND_MESSAGE.set_name('OZF', 'OZF_SD_INVALID_SEGMENT');
2620: --//Segment selected is invalid. Please select a valid Segment.
2621: FND_MSG_PUB.add;
2622: END IF;
2623: x_return_status := fnd_api.g_ret_sts_error;
2630: CLOSE c_get_territory;
2631:
2632: IF l_cust_usage_chk IS NULL THEN
2633: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2634: FND_MESSAGE.set_name('OZF', 'OZF_SD_INVALID_TERRITORY');
2635: --//Territory selected is invalid. Please select a valid Territory.
2636: FND_MSG_PUB.add;
2637: END IF;
2638: x_return_status := fnd_api.g_ret_sts_error;
2641: END IF;
2642: END IF;
2643: ELSE
2644: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2645: FND_MESSAGE.set_name('OZF', 'OZF_SD_NO_CUST_ADDR_TYPE');
2646: --//Invalid Customer Usage Code
2647: FND_MSG_PUB.add;
2648: END IF;
2649: x_return_status := fnd_api.g_ret_sts_error;
2799: x_return_status := FND_API.G_RET_STS_ERROR;
2800: WHEN OTHERS THEN
2801: x_return_status := FND_API.g_ret_sts_unexp_error;
2802: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2803: FND_MESSAGE.set_name('OZF', 'OZF_TABLE_HANDLER_ERROR');
2804: FND_MSG_PUB.add;
2805: END IF;
2806: End insert_header_record;
2807: ---------------------------------------------------------------------
2879: x_return_status := FND_API.G_RET_STS_ERROR;
2880: WHEN OTHERS THEN
2881: x_return_status := FND_API.g_ret_sts_unexp_error;
2882: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2883: FND_MESSAGE.set_name('OZF', 'OZF_SD_TL_POPULATION_ERROR');
2884: FND_MSG_PUB.add;
2885: END IF;
2886:
2887: END populate_translation_record;
3085: x_return_status := FND_API.G_RET_STS_ERROR;
3086: WHEN OTHERS THEN
3087: x_return_status := FND_API.g_ret_sts_unexp_error;
3088: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3089: FND_MESSAGE.set_name('OZF', 'OZF_TABLE_HANDLER_ERROR');
3090: FND_MSG_PUB.add;
3091: END IF;
3092:
3093: END populate_product_lines;
3165: END IF;
3166:
3167: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3168: IF p_SDR_cust_tbl(c).end_customer_flag = 'Y' THEN
3169: FND_MESSAGE.set_name('OZF', 'OZF_SD_REQ_DUP_END_CUST');
3170: ELSE
3171: FND_MESSAGE.set_name('OZF', 'OZF_SD_REQ_DUP_CUSTOMER');
3172: END IF;
3173: FND_MSG_PUB.add;
3167: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3168: IF p_SDR_cust_tbl(c).end_customer_flag = 'Y' THEN
3169: FND_MESSAGE.set_name('OZF', 'OZF_SD_REQ_DUP_END_CUST');
3170: ELSE
3171: FND_MESSAGE.set_name('OZF', 'OZF_SD_REQ_DUP_CUSTOMER');
3172: END IF;
3173: FND_MSG_PUB.add;
3174: END IF;
3175: x_return_status := fnd_api.g_ret_sts_error;
3262: x_return_status := FND_API.G_RET_STS_ERROR;
3263: WHEN OTHERS THEN
3264: x_return_status := FND_API.g_ret_sts_unexp_error;
3265: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3266: FND_MESSAGE.set_name('OZF', 'OZF_TABLE_HANDLER_ERROR');
3267: FND_MSG_PUB.add;
3268: END IF;
3269: END populate_customer_details;
3270: ---------------------------------------------------------------------
3397: OZF_UTILITY_PVT.debug_message(SQLERRM);
3398: END IF;
3399: x_return_status := FND_API.g_ret_sts_unexp_error;
3400: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3401: FND_MESSAGE.set_name('OZF', 'OZF_TABLE_HANDLER_ERROR');
3402: FND_MSG_PUB.add;
3403: END IF;
3404:
3405: END update_header_record;
3491: ,p_lookup_code => l_SDR_rec.accrual_type);
3492:
3493: IF l_lookup_check = FND_API.g_false THEN
3494: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3495: FND_MESSAGE.set_name('OZF', 'OZF_SD_INVALID_ACCRUAL_TYPE');
3496: FND_MSG_PUB.add;
3497: END IF;
3498: x_return_status := fnd_api.g_ret_sts_error;
3499: RETURN;
3499: RETURN;
3500: END IF;
3501: ELSE
3502: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3503: FND_MESSAGE.set_name('OZF', 'OZF_SD_NO_ACCRUAL_TYPE');
3504: --//Accrual type is Mandatory
3505: FND_MSG_PUB.add;
3506: END IF;
3507: x_return_status := fnd_api.g_ret_sts_error;
3515: l_system_status_code := get_system_status_code(l_SDR_rec.user_status_id);
3516:
3517: IF l_system_status_code IS NULL THEN
3518: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3519: FND_MESSAGE.set_name('OZF', 'OZF_SD_INVALID_USER_STATUS_ID');
3520: --//User status id entered is invalid
3521: FND_MSG_PUB.add;
3522: END IF;
3523: x_return_status := fnd_api.g_ret_sts_error;
3527: --//Accrual type wise status check
3528: IF l_SDR_rec.accrual_type ='SUPPLIER' THEN
3529: IF l_system_status_code NOT IN ('DRAFT','ASSIGNED','SUPPLIER_APPROVED') THEN
3530: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3531: FND_MESSAGE.set_name('OZF', 'OZF_SD_INVALID_CREATE_STATUS');
3532: --//User status id entered is invalid for Create
3533: FND_MSG_PUB.add;
3534: END IF;
3535: x_return_status := fnd_api.g_ret_sts_error;
3538:
3539: ELSIF l_SDR_rec.accrual_type ='INTERNAL' THEN
3540: IF l_system_status_code <> 'DRAFT' THEN
3541: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3542: FND_MESSAGE.set_name('OZF', 'OZF_SD_INVALID_CREATE_STATUS_I');
3543: --//User status id entered is invalid for Create
3544: FND_MSG_PUB.add;
3545: END IF;
3546: x_return_status := fnd_api.g_ret_sts_error;
3554: END IF;
3555:
3556: IF (l_system_status_code <> 'DRAFT') AND (p_SDR_lines_tbl.count = 0) THEN
3557: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3558: FND_MESSAGE.set_name('OZF', 'OZF_SD_NO_PRODUCT_RECORDS');
3559: --//Product Line records are mandatory
3560: FND_MSG_PUB.add;
3561: END IF;
3562: x_return_status := fnd_api.g_ret_sts_error;
3569: CLOSE c_request_number;
3570:
3571: IF l_request_number IS NOT NULL THEN
3572: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3573: FND_MESSAGE.set_name('OZF', 'OZF_SD_DUP_SOURCE_REQ_NO');
3574: FND_MSG_PUB.add;
3575: END IF;
3576: x_return_status := fnd_api.g_ret_sts_error;
3577: RETURN;
3585: CLOSE c_request_type_setup;
3586:
3587: IF l_request_type_setup_id IS NULL THEN
3588: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3589: FND_MESSAGE.set_name('OZF', 'OZF_SD_INVALID_REQUEST_TYPE_SETUP');
3590: --//Request type setup id is Mandatory
3591: FND_MSG_PUB.add;
3592: END IF;
3593: x_return_status := fnd_api.g_ret_sts_error;
3597: AND (l_system_status_code <> 'DRAFT')
3598: AND (l_SDR_cust_tbl.count = 0)) THEN
3599:
3600: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3601: FND_MESSAGE.set_name('OZF', 'OZF_SD_NO_CUSTOMER_DETAILS');
3602: FND_MSG_PUB.add;
3603: END IF;
3604: x_return_status := fnd_api.g_ret_sts_error;
3605: RETURN;
3606: END IF;
3607: END IF;
3608: ELSE
3609: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3610: FND_MESSAGE.set_name('OZF', 'OZF_SD_NO_REQUEST_TYPE_SETUP');
3611: --//Request type setup id is Mandatory
3612: FND_MSG_PUB.add;
3613: END IF;
3614: x_return_status := fnd_api.g_ret_sts_error;
4032: --==============================================================================
4033: IF l_new_sdr_hdr_rec.request_header_id = FND_API.g_miss_num OR l_new_sdr_hdr_rec.request_header_id IS NULL THEN
4034:
4035: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4036: FND_MESSAGE.set_name('OZF', 'OZF_SD_REQUEST_HEADER_ID_NULL');
4037: FND_MSG_PUB.add;
4038: END IF;
4039: x_return_status := fnd_api.g_ret_sts_error;
4040: RETURN;
4044: CLOSE c_request_header_id;
4045:
4046: IF l_request_header_id IS NULL THEN
4047: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4048: FND_MESSAGE.set_name('OZF', 'OZF_SD_INVALID_REQ_HEADER_ID');
4049: --//Request id is invalid. Please re-enter
4050: FND_MSG_PUB.add;
4051: END IF;
4052: x_return_status := fnd_api.g_ret_sts_error;
4066: CLOSE c_request_number;
4067:
4068: IF l_request_number IS NOT NULL THEN
4069: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4070: FND_MESSAGE.set_name('OZF', 'OZF_SD_DUP_SOURCE_REQ_NO');
4071: FND_MSG_PUB.add;
4072: END IF;
4073: x_return_status := fnd_api.g_ret_sts_error;
4074: RETURN;
4129:
4130: --// Object Version number check
4131: IF l_old_sdr_hdr_rec.object_version_number <> l_new_sdr_hdr_rec.object_version_number THEN
4132: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4133: FND_MESSAGE.Set_Name('OZF', 'OZF_API_RESOURCE_LOCKED');
4134: FND_MSG_PUB.ADD;
4135: END IF;
4136: RAISE FND_API.G_EXC_ERROR;
4137: END IF;
4150: CLOSE c_user;
4151:
4152: IF l_user_id IS NULL THEN
4153: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4154: FND_MESSAGE.set_name('OZF', 'OZF_SD_INVALID_USER_ID');
4155: --//User Id is invalid, Please re-enter
4156: FND_MSG_PUB.add;
4157: END IF;
4158: x_return_status := fnd_api.g_ret_sts_error;
4163: CLOSE c_resource_id;
4164:
4165: IF l_resource_id IS NULL THEN
4166: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4167: FND_MESSAGE.set_name('OZF', 'OZF_SD_USER_IS_NOT_RESOURCE');
4168: FND_MSG_PUB.add;
4169: END IF;
4170: x_return_status := fnd_api.g_ret_sts_error;
4171: RETURN;
4173: END IF;
4174:
4175: ELSE
4176: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4177: FND_MESSAGE.set_name('OZF', 'OZF_SD_NO_USER_ID');
4178: --//User Id is Mandatory
4179: FND_MSG_PUB.add;
4180: END IF;
4181: x_return_status := fnd_api.g_ret_sts_error;
4217: AND (l_approver_flag IS NULL)
4218: AND(l_admin_flag IS NULL)) THEN
4219:
4220: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4221: FND_MESSAGE.set_name('OZF', 'OZF_SD_NO_USER_PERMISSIONS');
4222: --//User has no previlage to update the record.
4223: FND_MSG_PUB.add;
4224: END IF;
4225: x_return_status := fnd_api.g_ret_sts_error;
4263:
4264: --//Update is not allowed in the following statuses
4265: IF l_old_status_code IN ('CLOSED','CANCELLED') THEN
4266: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4267: FND_MESSAGE.set_name('OZF', 'OZF_SD_NO_UPDATE_ALLOWED');
4268: --//Ship and Debit Request updation is not allowed in Closed/Cancelled Status.
4269: FND_MSG_PUB.add;
4270: END IF;
4271: x_return_status := fnd_api.g_ret_sts_error;
4283: ,p_external_flag =>l_external_flag);
4284:
4285: IF l_is_stat_trns_allowed = FND_API.g_false THEN
4286: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4287: FND_MESSAGE.set_name('OZF', 'OZF_SD_INVALID_STATUS_TRANS');
4288: --//Status transition is invalid
4289: FND_MSG_PUB.add;
4290: END IF;
4291: x_return_status := fnd_api.g_ret_sts_error;
5207: CLOSE c_resource_id;
5208:
5209: IF l_resource_id IS NULL THEN
5210: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
5211: FND_MESSAGE.set_name('OZF', 'OZF_SD_USER_IS_NOT_RESOURCE');
5212: FND_MSG_PUB.add;
5213: END IF;
5214: x_return_status := fnd_api.g_ret_sts_error;
5215: RETURN;
5227: CLOSE c_source_request_header_id;
5228:
5229: IF l_source_rid IS NULL THEN
5230: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
5231: FND_MESSAGE.set_name('OZF', 'OZF_SD_INVALID_SOURCE_REQ_ID');
5232: --//Invalid source request id. Please re-enter
5233: FND_MSG_PUB.add;
5234: END IF;
5235: x_return_status := fnd_api.g_ret_sts_error;
5236: RETURN;
5237: END IF;
5238: ELSE
5239: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
5240: FND_MESSAGE.set_name('OZF', 'OZF_SD_NO_SOURCE_REQ_ID');
5241: --//Invalid source request id. Please re-enter
5242: FND_MSG_PUB.add;
5243: END IF;
5244: x_return_status := fnd_api.g_ret_sts_error;
5252: CLOSE c_new_request_no;
5253:
5254: IF l_new_req_no IS NOT NULL THEN
5255: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
5256: FND_MESSAGE.set_name('OZF', 'OZF_SD_DUP_SOURCE_REQ_NO');
5257: --//New request number entered is already exists.
5258: FND_MSG_PUB.add;
5259: END IF;
5260: x_return_status := fnd_api.g_ret_sts_error;
5269: ,p_lookup_code => p_accrual_type);
5270:
5271: IF l_lookup_stat = FND_API.g_false THEN
5272: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
5273: FND_MESSAGE.set_name('OZF', 'OZF_SD_INVALID_ACCRUAL_TYPE');
5274: FND_MSG_PUB.add;
5275: END IF;
5276: x_return_status := fnd_api.g_ret_sts_error;
5277: RETURN;
5277: RETURN;
5278: END IF;
5279: ELSE
5280: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
5281: FND_MESSAGE.set_name('OZF', 'OZF_SD_NO_ACCRUAL_TYPE');
5282: --//Accrual type is Mandatory
5283: FND_MSG_PUB.add;
5284: END IF;
5285: x_return_status := fnd_api.g_ret_sts_error;
5290: IF p_accrual_type ='INTERNAL' THEN
5291:
5292: IF p_cust_account_id IS NULL THEN
5293: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
5294: FND_MESSAGE.set_name('OZF', 'OZF_SD_NO_CUST_ACCOUNT_ID');
5295: FND_MSG_PUB.add;
5296: END IF;
5297: x_return_status := fnd_api.g_ret_sts_error;
5298: RETURN;
5302: CLOSE c_cust_account_id;
5303:
5304: IF l_cust_account_id IS NULL THEN
5305: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
5306: FND_MESSAGE.set_name('OZF', 'OZF_SD_INVALID_CUST_ACCOUNT_ID');
5307: FND_MSG_PUB.add;
5308: END IF;
5309: x_return_status := fnd_api.g_ret_sts_error;
5310: RETURN;
5352: END IF;
5353:
5354: IF p_request_source NOT IN ('API','Manual') THEN
5355: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
5356: FND_MESSAGE.set_name('OZF', 'OZF_SD_INVALID_REQUEST_SOURCE');
5357: FND_MSG_PUB.add;
5358: END IF;
5359: x_return_status := fnd_api.g_ret_sts_error;
5360: RETURN;
5418: END IF;
5419:
5420: IF p_request_end_date < p_request_start_date THEN
5421: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
5422: FND_MESSAGE.set_name('OZF', 'OZF_SD_INVALID_END_DATE');
5423: --//End date should be greater than start date
5424: FND_MSG_PUB.add;
5425: END IF;
5426: x_return_status := fnd_api.g_ret_sts_error;
5435:
5436: IF (l_sdr_source_rec.accrual_type ='INTERNAL') AND (p_accrual_type ='SUPPLIER') THEN
5437: --Invalid Copy Option
5438: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
5439: FND_MESSAGE.set_name('OZF', 'OZF_SD_INVALID_COPY_OPTION');
5440: --//Internal to Supplier Copy option is invalid!
5441: FND_MSG_PUB.add;
5442: END IF;
5443: x_return_status := fnd_api.g_ret_sts_error;