[Home] [Help]
2: /* $Header: ozfpsdrb.pls 120.47.12020000.2 2012/11/20 09:17:24 annsrini ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30):= 'OZF_SD_REQUEST_PUB';
5: G_FILE_NAME CONSTANT VARCHAR2(14) := 'ozfpsdrb.pls';
6: G_DEBUG BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_high);
7: G_ITEM_ORG_ID NUMBER;
8: G_REQUEST_HEADER_ID NUMBER;
9:
10: CURSOR c_currency(p_currency_code IN VARCHAR2) IS
698: FETCH c_user INTO l_user_id;
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;
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;
708: RETURN;
709: ELSE --// Check if User is a valid resource or not
711: FETCH c_resource_id INTO l_resource_id;
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;
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;
721: END IF;
724: END IF;
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;
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;
734: RETURN;
735: END IF;
740: FETCH c_org_id INTO l_org_id;
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;
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;
750: RETURN;
751: END IF;
751: END IF;
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;
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;
761: RETURN;
762: END IF;
770: FETCH c_requestor_id INTO l_requestor_id;
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');
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;
780: FND_MSG_PUB.add;
781: END IF;
782: x_return_status := fnd_api.g_ret_sts_error;
783: RETURN;
784: END IF;
799: FETCH c_supp_id INTO l_supplier_id;
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;
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;
809: RETURN;
810: END IF;
809: RETURN;
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;
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;
819: RETURN;
820: END IF;
828: FETCH c_supplier_site_id INTO l_supplier_site_id;
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;
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;
838: RETURN;
839: END IF;
838: RETURN;
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;
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;
848: RETURN;
849: END IF;
857: FETCH c_chk_stp_exists INTO l_stp_count;
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;
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;
867: RETURN;
868: END IF;
880: IF l_supplier_contact_id IS NOT NULL THEN
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;
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;
890: RETURN;
891: ELSE
908:
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;
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;
918: END IF;
924:
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;
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;
934: END IF;
940:
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;
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;
950: END IF;
969: FETCH c_requestor_id INTO l_assignee_resource_id;
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;
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;
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;
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;
988: RETURN;
989: END IF;
994:
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;
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;
1004: END IF;
1010:
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;
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;
1020: END IF;
1048: FETCH c_cust_account_id INTO l_cust_account_id;
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;
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;
1058: RETURN;
1059: END IF;
1058: RETURN;
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;
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;
1068: RETURN;
1069: END IF;
1085: p_SDR_hdr_rec.request_end_date := p_SDR_hdr_rec.request_start_date + l_authorization_period;
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;
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;
1095: RETURN;
1096: END IF;
1106: FETCH c_currency INTO l_currency_code;
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;
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;
1116: END IF;
1119: p_SDR_hdr_rec.request_currency_code :=FND_PROFILE.value('JTF_PROFILE_DEFAULT_CURRENCY');
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;
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;
1129: RETURN;
1130: END IF;
1137: ,p_lookup_type =>'OZF_SD_REQUEST_OUTCOME'
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;
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;
1147: END IF;
1153: FETCH c_order_no INTO l_internal_order_number;
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;
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;
1163: END IF;
1169: FETCH c_currency INTO l_sales_order_currency;
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;
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;
1179: RETURN;
1180: END IF;
1186:
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;
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;
1196: END IF;
1442: FETCH c_request_line_id INTO l_request_line_id;
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;
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;
1452: RETURN;
1453: ELSIF p_SDR_lines_tbl(i).create_from <> 'ADJ' THEN
1567: ,p_lookup_type =>'OZF_SD_PRODUCT_CONTEXT'
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;
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;
1577: END IF;
1575: x_return_status := fnd_api.g_ret_sts_error;
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;
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;
1585: RETURN;
1586: END IF;
1598: FETCH c_inventory_item_id INTO l_inventory_item_id;
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;
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;
1608: RETURN;
1609: END IF;
1624: FETCH c_ext_int_code INTO l_external_code,l_internal_code;
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;
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;
1634: END IF;
1634: END IF;
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;
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;
1644: RETURN;
1645: END IF;
1653: FETCH c_item_uom INTO l_item_uom;
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;
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;
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;
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;
1672: RETURN;
1673: END IF;
1679: FETCH c_product_cost INTO p_SDR_lines_tbl(i).product_cost;
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;
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;
1689: RETURN;
1690: END IF;
1702: FETCH c_currency INTO l_currency_var;
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;
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;
1712: END IF;
1729: FETCH c_category_id INTO l_category_id;
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;
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;
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;
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;
1748: RETURN;
1749: END IF;
1756: FETCH c_category_set_id INTO l_category_set_id;
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;
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;
1766: RETURN;
1767: END IF;
1792: ,p_category_id => p_SDR_lines_tbl(i).prod_catg_id
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;
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;
1802: RETURN;
1803: END IF;
1812: ,p_lookup_type =>'OZF_SD_REQUEST_DISTYPE'
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;
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;
1822: END IF;
1820: x_return_status := fnd_api.g_ret_sts_error;
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;
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;
1830: END IF;
1831:
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;
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;
1841: END IF;
1843: /*
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;
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;
1853: RETURN;
1854: END IF;
1867: FETCH c_currency INTO l_currency_var;
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;
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;
1877: END IF;
1886: FETCH c_price_formula INTO l_formula_count;
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;
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;
1896: END IF;
1908: --//Max Qty
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;
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;
1918: RETURN;
1919: END IF;
1932: --//End Customer price
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;
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;
1942: RETURN;
1943: END IF;
1949: FETCH c_currency INTO l_currency_var;
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;
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;
1959: END IF;
1975: IF p_SDR_lines_tbl(i).vendor_approved_flag = FND_API.g_miss_char OR p_SDR_lines_tbl(i).vendor_approved_flag IS NULL THEN
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;
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;
1985: END IF;
1991:
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;
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;
2001: RETURN;
2002: END IF;
2007:
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;
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;
2017: RETURN;
2018: END IF;
2024: END IF;
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;
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;
2034: RETURN;
2035: END IF;
2044: ,p_lookup_type =>'OZF_SD_PRICE_TYPE'
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;
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;
2054: END IF;
2061: ,p_lookup_type =>'OZF_SD_TOLERANCE_TYPE'
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;
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;
2071: END IF;
2078: ,p_lookup_type =>'OZF_SD_REQ_LINE_REJECT_CODE'
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;
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;
2088: END IF;
2110: ,p_lookup_type =>'OZF_SP_REQUEST_DISTYPE'
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;
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;
2120: END IF;
2127: --//Approved discount Value
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;
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;
2137: END IF;
2150: FETCH c_currency INTO l_currency_var;
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;
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;
2160: RETURN;
2161: END IF;
2166: --//Approved Max Qty
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;
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;
2176: END IF;
2179: END IF;
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;
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; */
2189:
2343: FETCH c_request_customer_id INTO l_request_customer_id;
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;
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;
2353: ELSE
2411: IF p_SDR_cust_tbl(j).end_customer_flag <> FND_API.g_miss_char AND p_SDR_cust_tbl(j).end_customer_flag IS NOT NULL THEN
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;
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;
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;
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;
2430: RETURN;
2431: END IF;
2438: ,p_lookup_type =>'OZF_SD_CUSTOMER_TYPE'
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;
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;
2448: END IF;
2449:
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;
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;
2459: END IF;
2470: FETCH c_buying_group INTO l_bg_party_id;
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;
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;
2480: RETURN;
2481: END IF;
2484: FETCH c_party_id INTO l_party_id;
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;
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;
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;
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;
2503: RETURN;
2504: END IF;
2511: FETCH c_cust_account_id INTO l_cust_account_id;
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;
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;
2521: END IF;
2519: x_return_status := fnd_api.g_ret_sts_error;
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;
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;
2529: END IF;
2537: FETCH c_cust_account_id INTO l_cust_account_id;
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;
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;
2547: END IF;
2556: FETCH c_site_use_id INTO l_site_use_id;
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;
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;
2566: END IF;
2564: x_return_status := fnd_api.g_ret_sts_error;
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;
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;
2574: END IF;
2579:
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;
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;
2589: RETURN;
2590: END IF;
2599: FETCH c_get_list_header INTO l_cust_usage_chk;
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;
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;
2609: RETURN;
2610: END IF;
2614: FETCH c_get_segment INTO l_cust_usage_chk;
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;
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;
2624: RETURN;
2625: END IF;
2629: FETCH c_get_territory INTO l_cust_usage_chk;
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;
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;
2639: RETURN;
2640: END IF;
2640: END IF;
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;
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;
2650: RETURN;
2651: END IF;
2798: WHEN FND_API.G_EXC_ERROR THEN
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;
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: ---------------------------------------------------------------------
2808: -- PROCEDURE
2878: WHEN FND_API.G_EXC_ERROR THEN
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:
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;
2888: ---------------------------------------------------------------------
3084: WHEN FND_API.G_EXC_ERROR THEN
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:
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;
3094:
3163: OZF_UTILITY_PVT.debug_message('End Customer Flag :'||p_SDR_cust_tbl(c).end_customer_flag);
3164: OZF_UTILITY_PVT.debug_message('Cust Usage Value :'||p_SDR_cust_tbl(c).cust_usage_value);
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');
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;
3176: RETURN;
3177: END IF;
3261: WHEN FND_API.G_EXC_ERROR THEN
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;
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: ---------------------------------------------------------------------
3271: -- PROCEDURE
3396: IF G_DEBUG THEN
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:
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;
3406: ---------------------------------------------------------------------
3468:
3469: -- Initialize message list if p_init_msg_list is set to TRUE.
3470: IF FND_API.to_Boolean( p_init_msg_list )
3471: THEN
3472: FND_MSG_PUB.initialize;
3473: END IF;
3474: -- Debug Message
3475: IF G_DEBUG THEN
3476: OZF_UTILITY_PVT.debug_message('Public API: ' || l_api_name || ' PUB start');
3490: ,p_lookup_type =>'OZF_SDR_ACCRUAL_TYPE'
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;
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;
3500: END IF;
3498: x_return_status := fnd_api.g_ret_sts_error;
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;
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;
3508: RETURN;
3509: END IF;
3514: END IF;
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;
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;
3524: RETURN;
3525: END IF;
3526:
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;
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;
3536: RETURN;
3537: END IF;
3537: END IF;
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;
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;
3547: RETURN;
3548: END IF;
3553: OZF_UTILITY_PVT.debug_message('l_system_status_code :'||l_system_status_code);
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;
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;
3563: RETURN;
3564: END IF;
3568: FETCH c_request_number INTO l_request_number;
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;
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;
3578: END IF;
3584: FETCH c_request_type_setup INTO l_request_type_setup_id,l_request_type;
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;
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;
3594: RETURN;
3595: ELSE
3596: IF ((l_request_type = 'BID')
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;
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;
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;
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;
3615: RETURN;
3616: END IF;
3801: THEN
3802: COMMIT WORK;
3803: END IF;
3804:
3805: FND_MSG_PUB.Count_And_Get (
3806: p_encoded => FND_API.G_FALSE,
3807: p_count => x_msg_count,
3808: p_data => x_msg_data
3809: );
3812: WHEN FND_API.G_EXC_ERROR THEN
3813: ROLLBACK TO CREATE_SDR_PUB;
3814: x_return_status := FND_API.G_RET_STS_ERROR;
3815: -- Standard call to get message count and if count=1, get the message
3816: FND_MSG_PUB.Count_And_Get (
3817: p_encoded => FND_API.G_FALSE,
3818: p_count => x_msg_count,
3819: p_data => x_msg_data
3820: );
3821: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3822: ROLLBACK TO CREATE_SDR_PUB;
3823: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3824: -- Standard call to get message count and if count=1, get the message
3825: FND_MSG_PUB.Count_And_Get (
3826: p_encoded => FND_API.G_FALSE,
3827: p_count => x_msg_count,
3828: p_data => x_msg_data
3829: );
3829: );
3830: WHEN OTHERS THEN
3831: ROLLBACK TO CREATE_SDR_PUB;
3832: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3833: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3834: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3835: END IF;
3836: -- Standard call to get message count and if count=1, get the message
3837: FND_MSG_PUB.Count_And_Get (
3830: WHEN OTHERS THEN
3831: ROLLBACK TO CREATE_SDR_PUB;
3832: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3833: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3834: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3835: END IF;
3836: -- Standard call to get message count and if count=1, get the message
3837: FND_MSG_PUB.Count_And_Get (
3838: p_encoded => FND_API.G_FALSE,
3833: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3834: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3835: END IF;
3836: -- Standard call to get message count and if count=1, get the message
3837: FND_MSG_PUB.Count_And_Get (
3838: p_encoded => FND_API.G_FALSE,
3839: p_count => x_msg_count,
3840: p_data => x_msg_data
3841: );
4020:
4021: -- Initialize message list if p_init_msg_list is set to TRUE.
4022: IF FND_API.to_Boolean( p_init_msg_list )
4023: THEN
4024: FND_MSG_PUB.initialize;
4025: END IF;
4026: -- Debug Message
4027: IF G_DEBUG THEN
4028: OZF_UTILITY_PVT.debug_message('Public API: ' || l_api_name || ' PUB start');
4031: x_return_status := FND_API.G_RET_STS_SUCCESS;
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;
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;
4041: ELSE
4043: FETCH c_request_header_id INTO l_request_header_id;
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;
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;
4053: RETURN;
4054: END IF;
4065: FETCH c_request_number INTO l_request_number;
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;
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;
4075: END IF;
4128: CLOSE c_old_sdr_hdr;
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;
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;
4138:
4149: FETCH c_user INTO l_user_id;
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;
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;
4159: RETURN;
4160: ELSE --// Check if User is a valid resource or not
4162: FETCH c_resource_id INTO l_resource_id;
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;
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;
4172: END IF;
4172: END IF;
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;
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;
4182: RETURN;
4183: END IF;
4216: IF ((l_owner_flag IS NULL)
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;
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;
4226: RETURN;
4227: END IF;
4262: END IF;
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;
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;
4272: RETURN;
4273: END IF;
4282: ,p_internal_flag =>l_internal_flag
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;
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;
4292: RETURN;
4293: END IF;
4915: ,p_supplier_site_id => l_old_sdr_hdr_rec.supplier_site_id);
4916:
4917: END IF;
4918:
4919: FND_MSG_PUB.Count_And_Get (
4920: p_encoded => FND_API.G_FALSE,
4921: p_count => x_msg_count,
4922: p_data => x_msg_data
4923: );
4926: WHEN FND_API.G_EXC_ERROR THEN
4927: ROLLBACK TO UPDATE_SDR_PUB;
4928: x_return_status := FND_API.G_RET_STS_ERROR;
4929: -- Standard call to get message count and if count=1, get the message
4930: FND_MSG_PUB.Count_And_Get (
4931: p_encoded => FND_API.G_FALSE,
4932: p_count => x_msg_count,
4933: p_data => x_msg_data
4934: );
4935: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4936: ROLLBACK TO UPDATE_SDR_PUB;
4937: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4938: -- Standard call to get message count and if count=1, get the message
4939: FND_MSG_PUB.Count_And_Get (
4940: p_encoded => FND_API.G_FALSE,
4941: p_count => x_msg_count,
4942: p_data => x_msg_data
4943: );
4943: );
4944: WHEN OTHERS THEN
4945: ROLLBACK TO UPDATE_SDR_PUB;
4946: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4947: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4948: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4949: END IF;
4950: -- Standard call to get message count and if count=1, get the message
4951: FND_MSG_PUB.Count_And_Get (
4944: WHEN OTHERS THEN
4945: ROLLBACK TO UPDATE_SDR_PUB;
4946: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4947: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4948: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4949: END IF;
4950: -- Standard call to get message count and if count=1, get the message
4951: FND_MSG_PUB.Count_And_Get (
4952: p_encoded => FND_API.G_FALSE,
4947: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4948: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4949: END IF;
4950: -- Standard call to get message count and if count=1, get the message
4951: FND_MSG_PUB.Count_And_Get (
4952: p_encoded => FND_API.G_FALSE,
4953: p_count => x_msg_count,
4954: p_data => x_msg_data
4955: );
5184:
5185: -- Initialize message list if p_init_msg_list is set to TRUE.
5186: IF FND_API.to_Boolean( p_init_msg_list )
5187: THEN
5188: FND_MSG_PUB.initialize;
5189: END IF;
5190: -- Debug Message
5191: IF G_DEBUG THEN
5192: OZF_UTILITY_PVT.debug_message('Public API: ' || l_api_name || ' pub start');
5206: FETCH c_resource_id INTO l_resource_id;
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;
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;
5216: END IF;
5226: FETCH c_source_request_header_id INTO l_source_rid;
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;
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;
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;
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;
5245: RETURN;
5246: END IF;
5251: FETCH c_new_request_no INTO l_new_req_no;
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;
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;
5261: RETURN;
5262: END IF;
5268: ,p_lookup_type =>'OZF_SDR_ACCRUAL_TYPE'
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;
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;
5278: END IF;
5276: x_return_status := fnd_api.g_ret_sts_error;
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;
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;
5286: RETURN;
5287: END IF;
5289: --//Cust Account ID Validation
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;
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;
5299: ELSE
5301: FETCH c_cust_account_id INTO l_cust_account_id;
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;
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;
5311: END IF;
5351: END IF;
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;
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;
5361: END IF;
5417: l_request_end_date := p_request_end_date;
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;
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;
5427: RETURN;
5428: END IF;
5434: END IF;
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;
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;
5444: RETURN;
5445:
5721: THEN
5722: COMMIT WORK;
5723: END IF;
5724:
5725: FND_MSG_PUB.Count_And_Get (
5726: p_encoded => FND_API.G_FALSE,
5727: p_count => x_msg_count,
5728: p_data => x_msg_data
5729: );
5733: WHEN FND_API.G_EXC_ERROR THEN
5734: ROLLBACK TO COPY_SDR_PUB;
5735: x_return_status := FND_API.G_RET_STS_ERROR;
5736: -- Standard call to get message count and if count=1, get the message
5737: FND_MSG_PUB.Count_And_Get (
5738: p_encoded => FND_API.G_FALSE,
5739: p_count => x_msg_count,
5740: p_data => x_msg_data
5741: );
5742: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5743: ROLLBACK TO COPY_SDR_PUB;
5744: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5745: -- Standard call to get message count and if count=1, get the message
5746: FND_MSG_PUB.Count_And_Get (
5747: p_encoded => FND_API.G_FALSE,
5748: p_count => x_msg_count,
5749: p_data => x_msg_data
5750: );
5750: );
5751: WHEN OTHERS THEN
5752: ROLLBACK TO COPY_SDR_PUB;
5753: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5754: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5755: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
5756: END IF;
5757: -- Standard call to get message count and if count=1, get the message
5758: FND_MSG_PUB.Count_And_Get (
5751: WHEN OTHERS THEN
5752: ROLLBACK TO COPY_SDR_PUB;
5753: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5754: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5755: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
5756: END IF;
5757: -- Standard call to get message count and if count=1, get the message
5758: FND_MSG_PUB.Count_And_Get (
5759: p_encoded => FND_API.G_FALSE,
5754: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5755: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
5756: END IF;
5757: -- Standard call to get message count and if count=1, get the message
5758: FND_MSG_PUB.Count_And_Get (
5759: p_encoded => FND_API.G_FALSE,
5760: p_count => x_msg_count,
5761: p_data => x_msg_data
5762: );