76:
77: WHERE UTILIZATION_ID=l_util_id;
78:
79: DELETE FROM OZF_SD_BATCH_LINES_ALL WHERE batch_line_id=p_batch_line_id;
80: x_return_status := FND_API.G_RET_STS_SUCCESS;
81: x_meaning := NULL;
82:
83:
84: EXCEPTION
85:
86: --confirm with joshua abt action to be taken
87: --error code will be returned to java layer where commit or rollback can happen
88: WHEN OTHERS then
89: x_return_status := FND_API.G_RET_STS_ERROR;
90: x_meaning := NULL;
91: RETURN;
92:
93: end;
293:
294: BEGIN
295:
296: x_msg_data := '';
297: x_return_status := FND_API.G_RET_STS_SUCCESS ;
298: l_error_message := FND_MESSAGE.GET_STRING('OZF','OZF_SD_FEED_DATA_ERROR') ;
299:
300: -- Validate the SDR Request Number
301: Select count(*) into l_req_number_count from OZF_SD_REQUEST_HEADERS_ALL_B
303: IF l_req_number_count = 0 THEN
304:
305: l_msg_data := l_msg_data ||','|| 'The request number '||p_request_number ||' is not valid.' ;
306: x_msg_data := 'No Ship and Debit Request exists for : '||p_request_number;
307: x_return_status := FND_API.G_RET_STS_ERROR ;
308:
309: -- DO THE MASS UPDATE FOR THE INTERFACE TABLES
310: UPDATE OZF_SD_RES_HEADER_INTF SET PROCESSED_FLAG='Y',ERROR_TXT=x_msg_data WHERE REQUEST_NUMBER=p_request_number and PROCESSED_FLAG in('N',null) ;
311:
359: AND NVL(PROCESSED_FLAG,'N') <>'Y';
360:
361: l_error_count := l_error_count +1 ;
362: x_msg_data := l_error_message;
363: x_return_status := FND_API.G_RET_STS_ERROR ;
364: l_line_status := 'E' ;
365: END IF;
366:
367: -- Validate the product code
376: AND NVL(PROCESSED_FLAG,'N') <>'Y' ;
377:
378: l_error_count := l_error_count +1 ;
379: x_msg_data := l_error_message;
380: x_return_status := FND_API.G_RET_STS_ERROR ;
381: l_line_status := 'E' ;
382: END IF;
383:
384: -- Validate the discount type
393: AND NVL(PROCESSED_FLAG,'N') <>'Y' ;
394:
395: l_error_count := l_error_count +1 ;
396: x_msg_data := l_error_message;
397: x_return_status := FND_API.G_RET_STS_ERROR ;
398: l_line_status := 'E' ;
399: END IF;
400:
401: -- Validate the currency if not null
422: AND NVL(PROCESSED_FLAG,'N') <>'Y' ;
423:
424: l_error_count := l_error_count +1 ;
425: x_msg_data := l_error_message;
426: x_return_status := FND_API.G_RET_STS_ERROR ;
427: l_line_status := 'E' ;
428: END IF;
429: END IF ;
430:
477:
478: ELSE
479: l_msg_data := l_msg_data ||','|| 'The ststus is not pending suppler approval' ;
480: x_msg_data := 'Currently the request is not pending for supplier approval';
481: x_return_status := FND_API.G_RET_STS_ERROR;
482:
483: UPDATE OZF_SD_RES_HEADER_INTF SET ERROR_TXT=x_msg_data WHERE REQUEST_NUMBER=p_request_number
484: and NVL(PROCESSED_FLAG,'N') <>'Y';
485:
496: COMMIT ;
497: EXCEPTION
498:
499: WHEN OTHERS then
500: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
501: -- DO THE MASS UPDATE FOR THE INTERFACE TABLES
502: UPDATE OZF_SD_RES_HEADER_INTF SET PROCESSED_FLAG='Y',ERROR_TXT='Error' WHERE REQUEST_NUMBER=p_request_number and NVL(PROCESSED_FLAG,'N') <>'Y';
503: UPDATE OZF_SD_RES_CUST_INTF SET PROCESSED_FLAG='Y',ERROR_TXT='Error' WHERE REQUEST_NUMBER=p_request_number and NVL(PROCESSED_FLAG,'N') <>'Y';
504: UPDATE OZF_SD_RES_PROD_INTF SET PROCESSED_FLAG='Y',ERROR_TXT='Error' WHERE REQUEST_NUMBER=p_request_number and NVL(PROCESSED_FLAG,'N') <>'Y';
636:
637: EXCEPTION
638:
639: WHEN OTHERS then
640: x_return_status := FND_API.G_RET_STS_ERROR;
641: RETURN;
642:
643: END SD_RAISE_EVENT;
644: