[Home] [Help]
494: l_message := fnd_msg_pub.get(p_encoded => fnd_api.g_false);
495: raise_application_error( -20000, l_message);
496: END IF;
497: ELSIF x_return_Status = FND_API.G_RET_STS_UNEXP_ERROR THEN
498: fnd_message.set_name ('OZF', 'OZF_WADI_CREATE_ERROR');
499: l_message := fnd_message.get();
500: l_code := 'OZF_WADI_CREATE_ERROR';
501: raise_application_error( -20000, l_message);
502: END IF;
495: raise_application_error( -20000, l_message);
496: END IF;
497: ELSIF x_return_Status = FND_API.G_RET_STS_UNEXP_ERROR THEN
498: fnd_message.set_name ('OZF', 'OZF_WADI_CREATE_ERROR');
499: l_message := fnd_message.get();
500: l_code := 'OZF_WADI_CREATE_ERROR';
501: raise_application_error( -20000, l_message);
502: END IF;
503: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
506: OZF_UTILITY_PVT.debug_message('Code Conversion ID ' || l_code_conversion_id_tbl(i) );
507: END LOOP;
508: END IF;
509: ELSE
510: fnd_message.set_name ('OZF', 'OZF_REQ_PARAM_MISSING');
511: l_message := fnd_message.get();
512: l_code := 'OZF_REQ_PARAM_MISSING';
513: raise_application_error( -20000, l_message);
514: END IF;
507: END LOOP;
508: END IF;
509: ELSE
510: fnd_message.set_name ('OZF', 'OZF_REQ_PARAM_MISSING');
511: l_message := fnd_message.get();
512: l_code := 'OZF_REQ_PARAM_MISSING';
513: raise_application_error( -20000, l_message);
514: END IF;
515:
538: l_message := substr(l_message,1,30);
539: END IF;
540: raise_application_error( -20000, l_message);
541: ELSIF x_return_Status = FND_API.G_RET_STS_UNEXP_ERROR THEN
542: fnd_message.set_name ('OZF', 'OZF_WADI_UPDATE_ERROR');
543: l_message := fnd_message.get();
544: l_code := 'OZF_WADI_UPDATE_ERROR';
545: raise_application_error( -20000, l_message);
546: END IF;
539: END IF;
540: raise_application_error( -20000, l_message);
541: ELSIF x_return_Status = FND_API.G_RET_STS_UNEXP_ERROR THEN
542: fnd_message.set_name ('OZF', 'OZF_WADI_UPDATE_ERROR');
543: l_message := fnd_message.get();
544: l_code := 'OZF_WADI_UPDATE_ERROR';
545: raise_application_error( -20000, l_message);
546: END IF;
547:
573: --Fix for Bug#10624065(+)
574: /*
575: IF length( SQLERRM) > 30 THEN
576: ozf_utility_pvt.debug_message(substr(SQLERRM,12,30));
577: fnd_message.set_name ('OZF', substr(SQLERRM,12,30));
578: ELSE
579: */
580: fnd_message.set_name ('OZF', NVL(l_code,l_message));
581: --END IF;
576: ozf_utility_pvt.debug_message(substr(SQLERRM,12,30));
577: fnd_message.set_name ('OZF', substr(SQLERRM,12,30));
578: ELSE
579: */
580: fnd_message.set_name ('OZF', NVL(l_code,l_message));
581: --END IF;
582: --Fix for Bug#10624065(-)
583: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
584: WHEN OTHERS THEN
585: -- Fix for Bug#10624065(+)
586: /*
587: IF length( SQLERRM) > 30 THEN
588: ozf_utility_pvt.debug_message(substr(SQLERRM,12,30));
589: fnd_message.set_name ('OZF', substr(SQLERRM,12,30));
590: ELSE
591: */
592: fnd_message.set_name ('OZF', NVL(l_code,l_message));
593: --END IF;
588: ozf_utility_pvt.debug_message(substr(SQLERRM,12,30));
589: fnd_message.set_name ('OZF', substr(SQLERRM,12,30));
590: ELSE
591: */
592: fnd_message.set_name ('OZF', NVL(l_code,l_message));
593: --END IF;
594: --Fix for Bug#10624065(-)
595: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
596: END CODE_CONVERSION_WEBADI;
962: x_return_status := FND_API.G_RET_STS_SUCCESS;
963:
964: -- R12 MOAC Enhancement (+)
965: IF P_ORG_ID IS NULL THEN
966: fnd_message.set_name ('OZF', 'OZF_ENTER_OPEARTING_UNIT');
967: l_error_message := fnd_message.get();
968: l_code := 'OZF_ENTER_OPEARTING_UNIT';
969: raise_application_error( -20000, l_error_message);
970: END IF;
963:
964: -- R12 MOAC Enhancement (+)
965: IF P_ORG_ID IS NULL THEN
966: fnd_message.set_name ('OZF', 'OZF_ENTER_OPEARTING_UNIT');
967: l_error_message := fnd_message.get();
968: l_code := 'OZF_ENTER_OPEARTING_UNIT';
969: raise_application_error( -20000, l_error_message);
970: END IF;
971:
975:
976: --l_org_id := MO_GLOBAL.get_valid_org(p_org_id);
977:
978: IF l_org_id IS NULL THEN
979: fnd_message.set_name ('OZF', 'OZF_ENTER_OPERATING_UNIT');
980: l_error_message := fnd_message.get();
981: l_code := 'OZF_ENTER_OPERATING_UNIT';
982: raise_application_error( -20000, l_error_message);
983: --x_return_status := FND_API.G_RET_STS_ERROR;
976: --l_org_id := MO_GLOBAL.get_valid_org(p_org_id);
977:
978: IF l_org_id IS NULL THEN
979: fnd_message.set_name ('OZF', 'OZF_ENTER_OPERATING_UNIT');
980: l_error_message := fnd_message.get();
981: l_code := 'OZF_ENTER_OPERATING_UNIT';
982: raise_application_error( -20000, l_error_message);
983: --x_return_status := FND_API.G_RET_STS_ERROR;
984: --RAISE FND_API.G_EXC_ERROR;
990:
991: -- Batch Level Required Value Validation
992:
993: IF p_report_start_date IS NULL THEN
994: fnd_message.set_name ('OZF', 'OZF_ENTER_REPORT_START_DATE');
995: l_error_message := fnd_message.get();
996: l_code := 'OZF_ENTER_REPORT_START_DATE';
997: raise_application_error( -20000, l_error_message);
998: END IF;
991: -- Batch Level Required Value Validation
992:
993: IF p_report_start_date IS NULL THEN
994: fnd_message.set_name ('OZF', 'OZF_ENTER_REPORT_START_DATE');
995: l_error_message := fnd_message.get();
996: l_code := 'OZF_ENTER_REPORT_START_DATE';
997: raise_application_error( -20000, l_error_message);
998: END IF;
999:
997: raise_application_error( -20000, l_error_message);
998: END IF;
999:
1000: IF p_report_end_date IS NULL THEN
1001: fnd_message.set_name ('OZF', 'OZF_ENTER_REPORT_END_DATE');
1002: l_error_message := fnd_message.get();
1003: l_code := 'OZF_ENTER_REPORT_END_DATE';
1004: raise_application_error( -20000, l_error_message);
1005: END IF;
998: END IF;
999:
1000: IF p_report_end_date IS NULL THEN
1001: fnd_message.set_name ('OZF', 'OZF_ENTER_REPORT_END_DATE');
1002: l_error_message := fnd_message.get();
1003: l_code := 'OZF_ENTER_REPORT_END_DATE';
1004: raise_application_error( -20000, l_error_message);
1005: END IF;
1006:
1004: raise_application_error( -20000, l_error_message);
1005: END IF;
1006:
1007: IF p_report_start_date > p_report_end_date THEN
1008: fnd_message.set_name ('OZF', 'OZF_END_DATE_LESS_START_DATE');
1009: l_error_message := fnd_message.get();
1010: l_code := 'OZF_END_DATE_LESS_START_DATE';
1011: raise_application_error( -20000, l_error_message);
1012: END IF;
1005: END IF;
1006:
1007: IF p_report_start_date > p_report_end_date THEN
1008: fnd_message.set_name ('OZF', 'OZF_END_DATE_LESS_START_DATE');
1009: l_error_message := fnd_message.get();
1010: l_code := 'OZF_END_DATE_LESS_START_DATE';
1011: raise_application_error( -20000, l_error_message);
1012: END IF;
1013:
1011: raise_application_error( -20000, l_error_message);
1012: END IF;
1013:
1014: IF p_partner_party_id IS NULL THEN
1015: fnd_message.set_name ('OZF', 'OZF_ENTER_PARTNER_ID');
1016: l_error_message := fnd_message.get();
1017: l_code := 'OZF_ENTER_PARTNER_ID';
1018: raise_application_error( -20000, l_error_message);
1019: END IF;
1012: END IF;
1013:
1014: IF p_partner_party_id IS NULL THEN
1015: fnd_message.set_name ('OZF', 'OZF_ENTER_PARTNER_ID');
1016: l_error_message := fnd_message.get();
1017: l_code := 'OZF_ENTER_PARTNER_ID';
1018: raise_application_error( -20000, l_error_message);
1019: END IF;
1020:
1018: raise_application_error( -20000, l_error_message);
1019: END IF;
1020:
1021: IF p_batch_type IS NULL AND p_transaction_type IS NULL THEN
1022: fnd_message.set_name ('OZF', 'OZF_ENTER_BATCH_TYPE');
1023: l_error_message := fnd_message.get();
1024: l_code := 'OZF_ENTER_BATCH_TYPE';
1025: raise_application_error( -20000, l_error_message);
1026: END IF;
1019: END IF;
1020:
1021: IF p_batch_type IS NULL AND p_transaction_type IS NULL THEN
1022: fnd_message.set_name ('OZF', 'OZF_ENTER_BATCH_TYPE');
1023: l_error_message := fnd_message.get();
1024: l_code := 'OZF_ENTER_BATCH_TYPE';
1025: raise_application_error( -20000, l_error_message);
1026: END IF;
1027:
1028: -- Line Level Required Value Validation
1029:
1030: IF p_item_description IS NULL THEN
1031: IF p_orig_system_item_number IS NULL THEN
1032: fnd_message.set_name ('OZF', 'OZF_ENTER_ITEM_NUMBER');
1033: l_error_message := fnd_message.get();
1034: l_code := 'OZF_ENTER_ITEM_NUMBER';
1035: raise_application_error( -20000, l_error_message);
1036: END IF;
1029:
1030: IF p_item_description IS NULL THEN
1031: IF p_orig_system_item_number IS NULL THEN
1032: fnd_message.set_name ('OZF', 'OZF_ENTER_ITEM_NUMBER');
1033: l_error_message := fnd_message.get();
1034: l_code := 'OZF_ENTER_ITEM_NUMBER';
1035: raise_application_error( -20000, l_error_message);
1036: END IF;
1037: END IF;
1037: END IF;
1038:
1039: IF p_quantity IS NULL THEN
1040: IF p_orig_system_quantity IS NULL THEN
1041: fnd_message.set_name ('OZF', 'OZF_ENTER_QUANTITY');
1042: l_error_message := fnd_message.get();
1043: l_code := 'OZF_ENTER_QUANTITY';
1044: raise_application_error( -20000, l_error_message);
1045: END IF;
1038:
1039: IF p_quantity IS NULL THEN
1040: IF p_orig_system_quantity IS NULL THEN
1041: fnd_message.set_name ('OZF', 'OZF_ENTER_QUANTITY');
1042: l_error_message := fnd_message.get();
1043: l_code := 'OZF_ENTER_QUANTITY';
1044: raise_application_error( -20000, l_error_message);
1045: END IF;
1046: END IF;
1045: END IF;
1046: END IF;
1047:
1048: IF p_order_number IS NULL THEN
1049: fnd_message.set_name ('OZF', 'OZF_ENTER_ORDER_NUMBER');
1050: l_error_message := fnd_message.get();
1051: l_code := 'OZF_ENTER_ORDER_NUMBER';
1052: raise_application_error( -20000, l_error_message);
1053: END IF;
1046: END IF;
1047:
1048: IF p_order_number IS NULL THEN
1049: fnd_message.set_name ('OZF', 'OZF_ENTER_ORDER_NUMBER');
1050: l_error_message := fnd_message.get();
1051: l_code := 'OZF_ENTER_ORDER_NUMBER';
1052: raise_application_error( -20000, l_error_message);
1053: END IF;
1054: IF p_date_ordered IS NULL THEN
1051: l_code := 'OZF_ENTER_ORDER_NUMBER';
1052: raise_application_error( -20000, l_error_message);
1053: END IF;
1054: IF p_date_ordered IS NULL THEN
1055: fnd_message.set_name ('OZF', 'OZF_ENTER_ORDER_DATE');
1056: l_error_message := fnd_message.get();
1057: l_code := 'OZF_ENTER_ORDER_DATE';
1058: raise_application_error( -20000, l_error_message);
1059: END IF;
1052: raise_application_error( -20000, l_error_message);
1053: END IF;
1054: IF p_date_ordered IS NULL THEN
1055: fnd_message.set_name ('OZF', 'OZF_ENTER_ORDER_DATE');
1056: l_error_message := fnd_message.get();
1057: l_code := 'OZF_ENTER_ORDER_DATE';
1058: raise_application_error( -20000, l_error_message);
1059: END IF;
1060:
1058: raise_application_error( -20000, l_error_message);
1059: END IF;
1060:
1061: IF p_date_ordered < p_report_start_date THEN
1062: fnd_message.set_name ('OZF', 'OZF_ORDER_DATE_LESS_START_DATE');
1063: l_error_message := fnd_message.get();
1064: l_code := 'OZF_ORDER_DATE_LESS_START_DATE';
1065: raise_application_error( -20000, l_error_message);
1066: END IF;
1059: END IF;
1060:
1061: IF p_date_ordered < p_report_start_date THEN
1062: fnd_message.set_name ('OZF', 'OZF_ORDER_DATE_LESS_START_DATE');
1063: l_error_message := fnd_message.get();
1064: l_code := 'OZF_ORDER_DATE_LESS_START_DATE';
1065: raise_application_error( -20000, l_error_message);
1066: END IF;
1067:
1065: raise_application_error( -20000, l_error_message);
1066: END IF;
1067:
1068: IF p_date_ordered > p_report_end_date THEN
1069: fnd_message.set_name ('OZF', 'OZF_ORDER_DATE_GRT_END_DATE');
1070: l_error_message := fnd_message.get();
1071: l_code := 'OZF_ORDER_DATE_GRT_END_DATE';
1072: raise_application_error( -20000, l_error_message);
1073: END IF;
1066: END IF;
1067:
1068: IF p_date_ordered > p_report_end_date THEN
1069: fnd_message.set_name ('OZF', 'OZF_ORDER_DATE_GRT_END_DATE');
1070: l_error_message := fnd_message.get();
1071: l_code := 'OZF_ORDER_DATE_GRT_END_DATE';
1072: raise_application_error( -20000, l_error_message);
1073: END IF;
1074:
1072: raise_application_error( -20000, l_error_message);
1073: END IF;
1074:
1075: IF p_currency IS NULL THEN
1076: fnd_message.set_name ('OZF', 'OZF_ENTER_CURRENCY');
1077: l_error_message := fnd_message.get();
1078: l_code := 'OZF_ENTER_CURRENCY';
1079: raise_application_error( -20000, l_error_message);
1080: END IF;
1073: END IF;
1074:
1075: IF p_currency IS NULL THEN
1076: fnd_message.set_name ('OZF', 'OZF_ENTER_CURRENCY');
1077: l_error_message := fnd_message.get();
1078: l_code := 'OZF_ENTER_CURRENCY';
1079: raise_application_error( -20000, l_error_message);
1080: END IF;
1081:
1082:
1083: -- Start RSATYAVA Fix for Bug#10085365
1084: IF p_uom IS NULL THEN
1085: IF p_orig_system_uom IS NULL THEN
1086: fnd_message.set_name ('OZF', 'OZF_ENTER_UOM');
1087: l_error_message := fnd_message.get();
1088: l_code := 'OZF_ENTER_UOM';
1089: raise_application_error( -20000, l_error_message);
1090: END IF;
1083: -- Start RSATYAVA Fix for Bug#10085365
1084: IF p_uom IS NULL THEN
1085: IF p_orig_system_uom IS NULL THEN
1086: fnd_message.set_name ('OZF', 'OZF_ENTER_UOM');
1087: l_error_message := fnd_message.get();
1088: l_code := 'OZF_ENTER_UOM';
1089: raise_application_error( -20000, l_error_message);
1090: END IF;
1091: END IF;
1096:
1097: -- REPORT_END_DATE must be lesser than SYSDATE
1098: IF (trunc(P_REPORT_END_DATE) > trunc(SYSDATE)) THEN
1099: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1100: FND_MESSAGE.set_name('OZF', 'OZF_REP_END_DATE_GT_SYSDATE');
1101: l_error_message := fnd_message.get();
1102: l_code := 'OZF_REP_END_DATE_GT_SYSDATE';
1103: raise_application_error( -20000, l_error_message);
1104: END IF;
1097: -- REPORT_END_DATE must be lesser than SYSDATE
1098: IF (trunc(P_REPORT_END_DATE) > trunc(SYSDATE)) THEN
1099: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1100: FND_MESSAGE.set_name('OZF', 'OZF_REP_END_DATE_GT_SYSDATE');
1101: l_error_message := fnd_message.get();
1102: l_code := 'OZF_REP_END_DATE_GT_SYSDATE';
1103: raise_application_error( -20000, l_error_message);
1104: END IF;
1105: END IF;
1107:
1108: -- REPORT_DATE must be greater than or equal to REPORT_END_DATE and lesser than SYSDATE
1109: IF (trunc(P_REPORT_DATE) < trunc(P_REPORT_END_DATE) OR trunc(P_REPORT_DATE) > trunc(SYSDATE)) THEN
1110: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1111: FND_MESSAGE.set_name('OZF', 'OZF_REP_DATE_GT_SYSDATE');
1112: l_code := 'OZF_REP_DATE_GT_SYSDATE';
1113: l_error_message := fnd_message.get();
1114: raise_application_error( -20000, l_error_message);
1115: END IF;
1109: IF (trunc(P_REPORT_DATE) < trunc(P_REPORT_END_DATE) OR trunc(P_REPORT_DATE) > trunc(SYSDATE)) THEN
1110: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1111: FND_MESSAGE.set_name('OZF', 'OZF_REP_DATE_GT_SYSDATE');
1112: l_code := 'OZF_REP_DATE_GT_SYSDATE';
1113: l_error_message := fnd_message.get();
1114: raise_application_error( -20000, l_error_message);
1115: END IF;
1116: END IF;
1117:
1122: IF P_BATCH_TYPE ='CHARGEBACK' THEN
1123: IF (P_BILL_TO_PARTY_NAME IS NOT NULL AND P_BILL_TO_LOCATION IS NOT NULL) THEN
1124: l_location_count := check_location(TO_NUMBER(P_BILL_TO_PARTY_NAME),P_BILL_TO_LOCATION,'BILL_TO');
1125: IF l_location_count = 0 THEN
1126: fnd_message.set_name ('OZF', 'OZF_BILL_TO_LOCATION_WRNG');
1127: l_error_message := fnd_message.get();
1128: l_code := 'OZF_BILL_TO_LOCATION_WRNG';
1129: raise_application_error( -20000, l_error_message);
1130: END IF;
1123: IF (P_BILL_TO_PARTY_NAME IS NOT NULL AND P_BILL_TO_LOCATION IS NOT NULL) THEN
1124: l_location_count := check_location(TO_NUMBER(P_BILL_TO_PARTY_NAME),P_BILL_TO_LOCATION,'BILL_TO');
1125: IF l_location_count = 0 THEN
1126: fnd_message.set_name ('OZF', 'OZF_BILL_TO_LOCATION_WRNG');
1127: l_error_message := fnd_message.get();
1128: l_code := 'OZF_BILL_TO_LOCATION_WRNG';
1129: raise_application_error( -20000, l_error_message);
1130: END IF;
1131: END IF;
1132:
1133: IF (P_SHIP_TO_PARTY_NAME IS NOT NULL AND P_SHIP_TO_LOCATION IS NOT NULL) THEN
1134: l_location_count := check_location(TO_NUMBER(P_SHIP_TO_PARTY_NAME),P_SHIP_TO_LOCATION,'SHIP_TO');
1135: IF l_location_count = 0 THEN
1136: fnd_message.set_name ('OZF', 'OZF_SHIP_TO_LOCATION_WRNG');
1137: l_error_message := fnd_message.get();
1138: l_code := 'OZF_SHIP_TO_LOCATION_WRNG';
1139: raise_application_error( -20000, l_error_message);
1140: END IF;
1133: IF (P_SHIP_TO_PARTY_NAME IS NOT NULL AND P_SHIP_TO_LOCATION IS NOT NULL) THEN
1134: l_location_count := check_location(TO_NUMBER(P_SHIP_TO_PARTY_NAME),P_SHIP_TO_LOCATION,'SHIP_TO');
1135: IF l_location_count = 0 THEN
1136: fnd_message.set_name ('OZF', 'OZF_SHIP_TO_LOCATION_WRNG');
1137: l_error_message := fnd_message.get();
1138: l_code := 'OZF_SHIP_TO_LOCATION_WRNG';
1139: raise_application_error( -20000, l_error_message);
1140: END IF;
1141: END IF;
1142:
1143: IF (P_SHIP_FROM_PARTY_NAME IS NOT NULL AND P_SHIP_FROM_LOCATION IS NOT NULL) THEN
1144: l_location_count := check_location(TO_NUMBER(P_SHIP_FROM_PARTY_NAME),P_SHIP_FROM_LOCATION,'SHIP_FROM');
1145: IF l_location_count = 0 THEN
1146: fnd_message.set_name ('OZF', 'OZF_SHIP_FROM_LOCATION_WRNG');
1147: l_error_message := fnd_message.get();
1148: l_code := 'OZF_SHIP_FROM_LOCATION_WRNG';
1149: raise_application_error( -20000, l_error_message);
1150: END IF;
1143: IF (P_SHIP_FROM_PARTY_NAME IS NOT NULL AND P_SHIP_FROM_LOCATION IS NOT NULL) THEN
1144: l_location_count := check_location(TO_NUMBER(P_SHIP_FROM_PARTY_NAME),P_SHIP_FROM_LOCATION,'SHIP_FROM');
1145: IF l_location_count = 0 THEN
1146: fnd_message.set_name ('OZF', 'OZF_SHIP_FROM_LOCATION_WRNG');
1147: l_error_message := fnd_message.get();
1148: l_code := 'OZF_SHIP_FROM_LOCATION_WRNG';
1149: raise_application_error( -20000, l_error_message);
1150: END IF;
1151: END IF;
1152:
1153: IF (P_SOLD_FROM_PARTY_NAME IS NOT NULL AND P_SOLD_FROM_LOCATION IS NOT NULL) THEN
1154: l_location_count := check_location(TO_NUMBER(P_SOLD_FROM_PARTY_NAME),P_SOLD_FROM_LOCATION,'SOLD_FROM');
1155: IF l_location_count = 0 THEN
1156: fnd_message.set_name ('OZF', 'OZF_SOLD_FROM_LOCATION_WRNG');
1157: l_error_message := fnd_message.get();
1158: l_code := 'OZF_SOLD_FROM_LOCATION_WRNG';
1159: raise_application_error( -20000, l_error_message);
1160: END IF;
1153: IF (P_SOLD_FROM_PARTY_NAME IS NOT NULL AND P_SOLD_FROM_LOCATION IS NOT NULL) THEN
1154: l_location_count := check_location(TO_NUMBER(P_SOLD_FROM_PARTY_NAME),P_SOLD_FROM_LOCATION,'SOLD_FROM');
1155: IF l_location_count = 0 THEN
1156: fnd_message.set_name ('OZF', 'OZF_SOLD_FROM_LOCATION_WRNG');
1157: l_error_message := fnd_message.get();
1158: l_code := 'OZF_SOLD_FROM_LOCATION_WRNG';
1159: raise_application_error( -20000, l_error_message);
1160: END IF;
1161: END IF;
1361: l_partner_party_id := FND_PROFILE.VALUE('OZF_IDSM_ORDER_SRC_PARTY_ID');
1362:
1363: IF P_PARTNER_PARTY_ID = l_partner_party_id THEN
1364: IF p_batch_type <> 'TRACING' THEN
1365: fnd_message.set_name ('OZF', 'OZF_DIRECT_ORDER_TRC_ERR');
1366: l_error_message := fnd_message.get();
1367: l_code := 'OZF_DIRECT_ORDER_TRC_ERR';
1368: raise_application_error(-20000, l_error_message);
1369: ELSE
1362:
1363: IF P_PARTNER_PARTY_ID = l_partner_party_id THEN
1364: IF p_batch_type <> 'TRACING' THEN
1365: fnd_message.set_name ('OZF', 'OZF_DIRECT_ORDER_TRC_ERR');
1366: l_error_message := fnd_message.get();
1367: l_code := 'OZF_DIRECT_ORDER_TRC_ERR';
1368: raise_application_error(-20000, l_error_message);
1369: ELSE
1370: l_direct_order_flag := true;
1677: OZF_UTILITY_PVT.debug_message('batch status '|| l_batch_status);
1678: -- Transaction Purpose Code Validations
1679: IF l_batch_status IS NOT NULL THEN
1680: IF l_batch_status = 'CLOSED' THEN
1681: fnd_message.set_name ('OZF', 'OZF_WADI_CANNOT_UPDATE');
1682: l_code := 'OZF_WADI_CANNOT_UPDATE';
1683: l_error_message := fnd_message.get();
1684: RAISE_APPLICATION_ERROR( -20000, l_error_message);
1685: ELSIF l_batch_status IN ('NEW','OPEN','PROCESSED','DISPUTED') THEN
1679: IF l_batch_status IS NOT NULL THEN
1680: IF l_batch_status = 'CLOSED' THEN
1681: fnd_message.set_name ('OZF', 'OZF_WADI_CANNOT_UPDATE');
1682: l_code := 'OZF_WADI_CANNOT_UPDATE';
1683: l_error_message := fnd_message.get();
1684: RAISE_APPLICATION_ERROR( -20000, l_error_message);
1685: ELSIF l_batch_status IN ('NEW','OPEN','PROCESSED','DISPUTED') THEN
1686: l_status_code := l_batch_status;
1687: -- [BEGIN OF BUG 4212707 FIXING] by mchang
1686: l_status_code := l_batch_status;
1687: -- [BEGIN OF BUG 4212707 FIXING] by mchang
1688: ELSE
1689: /*
1690: FND_MESSAGE.set_name('OZF', 'OZF_WADI_BATCH_NO_UPLOAD');
1691: FND_MESSAGE.set_token( 'NUMBER', P_BATCH_NUMBER);
1692: FND_MESSAGE.set_token( 'STATUS'
1693: , OZF_UTILITY_PVT.get_lookup_meaning('OZF_RESALE_BATCH_STATUS'
1694: ,l_batch_status
1687: -- [BEGIN OF BUG 4212707 FIXING] by mchang
1688: ELSE
1689: /*
1690: FND_MESSAGE.set_name('OZF', 'OZF_WADI_BATCH_NO_UPLOAD');
1691: FND_MESSAGE.set_token( 'NUMBER', P_BATCH_NUMBER);
1692: FND_MESSAGE.set_token( 'STATUS'
1693: , OZF_UTILITY_PVT.get_lookup_meaning('OZF_RESALE_BATCH_STATUS'
1694: ,l_batch_status
1695: )
1688: ELSE
1689: /*
1690: FND_MESSAGE.set_name('OZF', 'OZF_WADI_BATCH_NO_UPLOAD');
1691: FND_MESSAGE.set_token( 'NUMBER', P_BATCH_NUMBER);
1692: FND_MESSAGE.set_token( 'STATUS'
1693: , OZF_UTILITY_PVT.get_lookup_meaning('OZF_RESALE_BATCH_STATUS'
1694: ,l_batch_status
1695: )
1696: );
1694: ,l_batch_status
1695: )
1696: );
1697: */
1698: --l_error_message := FND_MESSAGE.get();
1699: l_batch_status_n := OZF_UTILITY_PVT.get_lookup_meaning('OZF_RESALE_BATCH_STATUS'
1700: ,l_batch_status
1701: );
1702: l_error_message := 'Cannot update '||l_batch_status_n||' batch';
1838: EXCEPTION
1839:
1840: WHEN OTHERS THEN
1841: l_text := l_text||'Error in Create Batch '||SQLERRM||' \n ';
1842: fnd_message.set_name ('OZF', 'OZF_WADI_CREATE_BATCH_ERROR');
1843: l_error_message := fnd_message.get();
1844: l_code := 'OZF_WADI_CREATE_BATCH_ERROR';
1845: raise_application_error( -20000, l_error_message);
1846: END;
1839:
1840: WHEN OTHERS THEN
1841: l_text := l_text||'Error in Create Batch '||SQLERRM||' \n ';
1842: fnd_message.set_name ('OZF', 'OZF_WADI_CREATE_BATCH_ERROR');
1843: l_error_message := fnd_message.get();
1844: l_code := 'OZF_WADI_CREATE_BATCH_ERROR';
1845: raise_application_error( -20000, l_error_message);
1846: END;
1847:
1883: x_msg_data => l_msg_data );
1884:
1885: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1886: l_text := l_text||'Error in Create Line '||SQLERRM||' \n ';
1887: fnd_message.set_name ('OZF', 'OZF_WADI_CREATE_LINE_ERROR');
1888: l_error_message := fnd_message.get();
1889: l_code := 'OZF_WADI_CREATE_LINE_ERROR';
1890: raise_application_error( -20000, l_error_message);
1891: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1884:
1885: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1886: l_text := l_text||'Error in Create Line '||SQLERRM||' \n ';
1887: fnd_message.set_name ('OZF', 'OZF_WADI_CREATE_LINE_ERROR');
1888: l_error_message := fnd_message.get();
1889: l_code := 'OZF_WADI_CREATE_LINE_ERROR';
1890: raise_application_error( -20000, l_error_message);
1891: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1892: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1949: );
1950:
1951: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1952: l_text := l_text||'Error in Update Batch '||SQLERRM||' \n ';
1953: fnd_message.set_name ('OZF', 'OZF_WADI_UPDATE_BATCH_ERROR');
1954: l_error_message := fnd_message.get();
1955: l_code := 'OZF_WADI_UPDATE_BATCH_ERROR';
1956: raise_application_error( -20000, l_error_message);
1957: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1950:
1951: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1952: l_text := l_text||'Error in Update Batch '||SQLERRM||' \n ';
1953: fnd_message.set_name ('OZF', 'OZF_WADI_UPDATE_BATCH_ERROR');
1954: l_error_message := fnd_message.get();
1955: l_code := 'OZF_WADI_UPDATE_BATCH_ERROR';
1956: raise_application_error( -20000, l_error_message);
1957: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1958: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1975: );
1976:
1977: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1978: l_text := l_text||'Error in Update Line '||SQLERRM||' \n ';
1979: fnd_message.set_name ('OZF', 'OZF_WADI_UPDATE_LINE_ERROR');
1980: l_error_message := fnd_message.get();
1981: l_code := 'OZF_WADI_UPDATE_LINE_ERROR';
1982: raise_application_error( -20000, l_error_message);
1983: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1976:
1977: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1978: l_text := l_text||'Error in Update Line '||SQLERRM||' \n ';
1979: fnd_message.set_name ('OZF', 'OZF_WADI_UPDATE_LINE_ERROR');
1980: l_error_message := fnd_message.get();
1981: l_code := 'OZF_WADI_UPDATE_LINE_ERROR';
1982: raise_application_error( -20000, l_error_message);
1983: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1984: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2020: -- Fix for Bug#10624065(+)
2021: /*
2022: IF length( SQLERRM) > 30 THEN
2023: ozf_utility_pvt.debug_message(substr(SQLERRM,12,30));
2024: fnd_message.set_name ('OZF', substr(SQLERRM,12,30));
2025: ELSE
2026: */
2027: fnd_message.set_name ('OZF', NVL(l_code,l_error_message));
2028: --END IF;
2023: ozf_utility_pvt.debug_message(substr(SQLERRM,12,30));
2024: fnd_message.set_name ('OZF', substr(SQLERRM,12,30));
2025: ELSE
2026: */
2027: fnd_message.set_name ('OZF', NVL(l_code,l_error_message));
2028: --END IF;
2029: -- Fix for Bug#10624065(-)
2030: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2031: WHEN OTHERS THEN
2033: -- Fix for Bug#10624065(+)
2034: /*
2035: IF length( SQLERRM) > 30 THEN
2036: ozf_utility_pvt.debug_message(substr(SQLERRM,12,30));
2037: fnd_message.set_name ('OZF', substr(SQLERRM,12,30));
2038: ELSE
2039: */
2040: fnd_message.set_name ('OZF', NVL(l_code,l_error_message));
2041: --END IF;
2036: ozf_utility_pvt.debug_message(substr(SQLERRM,12,30));
2037: fnd_message.set_name ('OZF', substr(SQLERRM,12,30));
2038: ELSE
2039: */
2040: fnd_message.set_name ('OZF', NVL(l_code,l_error_message));
2041: --END IF;
2042: -- Fix for Bug#10624065(-)
2043: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2044: