502:
503: if sql%rowcount = 0 THEN
504: x_return_status := 'E';
505: x_msg_count := 1;
506: FND_MESSAGE.SET_NAME('RRS','RRS_UPD_LOC_FAILED');
507: FND_MESSAGE.SET_TOKEN('LOCATION_ID',p_loc_id);
508: x_msg_data := FND_MESSAGE.GET;
509: END IF;
510:
503: if sql%rowcount = 0 THEN
504: x_return_status := 'E';
505: x_msg_count := 1;
506: FND_MESSAGE.SET_NAME('RRS','RRS_UPD_LOC_FAILED');
507: FND_MESSAGE.SET_TOKEN('LOCATION_ID',p_loc_id);
508: x_msg_data := FND_MESSAGE.GET;
509: END IF;
510:
511: EXCEPTION
504: x_return_status := 'E';
505: x_msg_count := 1;
506: FND_MESSAGE.SET_NAME('RRS','RRS_UPD_LOC_FAILED');
507: FND_MESSAGE.SET_TOKEN('LOCATION_ID',p_loc_id);
508: x_msg_data := FND_MESSAGE.GET;
509: END IF;
510:
511: EXCEPTION
512: when others then
551:
552: IF (sql%rowcount = 0) THEN
553: x_return_status := 'E';
554: x_msg_count := 1;
555: FND_MESSAGE.SET_NAME('RRS','RRS_INVALID_OBJ_VALUE');
556: FND_MESSAGE.SET_TOKEN('OBJECT_NAME','LOCATION');
557: FND_MESSAGE.SET_TOKEN('OBJECT_VALUE',p_loc_id);
558: x_msg_data := FND_MESSAGE.GET;
559: END IF;
552: IF (sql%rowcount = 0) THEN
553: x_return_status := 'E';
554: x_msg_count := 1;
555: FND_MESSAGE.SET_NAME('RRS','RRS_INVALID_OBJ_VALUE');
556: FND_MESSAGE.SET_TOKEN('OBJECT_NAME','LOCATION');
557: FND_MESSAGE.SET_TOKEN('OBJECT_VALUE',p_loc_id);
558: x_msg_data := FND_MESSAGE.GET;
559: END IF;
560:
553: x_return_status := 'E';
554: x_msg_count := 1;
555: FND_MESSAGE.SET_NAME('RRS','RRS_INVALID_OBJ_VALUE');
556: FND_MESSAGE.SET_TOKEN('OBJECT_NAME','LOCATION');
557: FND_MESSAGE.SET_TOKEN('OBJECT_VALUE',p_loc_id);
558: x_msg_data := FND_MESSAGE.GET;
559: END IF;
560:
561: IF x_latitude IS NULL THEN
554: x_msg_count := 1;
555: FND_MESSAGE.SET_NAME('RRS','RRS_INVALID_OBJ_VALUE');
556: FND_MESSAGE.SET_TOKEN('OBJECT_NAME','LOCATION');
557: FND_MESSAGE.SET_TOKEN('OBJECT_VALUE',p_loc_id);
558: x_msg_data := FND_MESSAGE.GET;
559: END IF;
560:
561: IF x_latitude IS NULL THEN
562: x_null_flag := 'T';
600:
601: IF (sql%rowcount = 0) THEN
602: x_return_status := 'E';
603: x_msg_count := 1;
604: FND_MESSAGE.SET_NAME('RRS','RRS_INVALID_OBJ_VALUE');
605: FND_MESSAGE.SET_TOKEN('OBJECT_NAME','LOCATION');
606: FND_MESSAGE.SET_TOKEN('OBJECT_VALUE',p_loc_id);
607: x_msg_data := FND_MESSAGE.GET;
608: ELSE
601: IF (sql%rowcount = 0) THEN
602: x_return_status := 'E';
603: x_msg_count := 1;
604: FND_MESSAGE.SET_NAME('RRS','RRS_INVALID_OBJ_VALUE');
605: FND_MESSAGE.SET_TOKEN('OBJECT_NAME','LOCATION');
606: FND_MESSAGE.SET_TOKEN('OBJECT_VALUE',p_loc_id);
607: x_msg_data := FND_MESSAGE.GET;
608: ELSE
609:
602: x_return_status := 'E';
603: x_msg_count := 1;
604: FND_MESSAGE.SET_NAME('RRS','RRS_INVALID_OBJ_VALUE');
605: FND_MESSAGE.SET_TOKEN('OBJECT_NAME','LOCATION');
606: FND_MESSAGE.SET_TOKEN('OBJECT_VALUE',p_loc_id);
607: x_msg_data := FND_MESSAGE.GET;
608: ELSE
609:
610: UPDATE hz_locations
603: x_msg_count := 1;
604: FND_MESSAGE.SET_NAME('RRS','RRS_INVALID_OBJ_VALUE');
605: FND_MESSAGE.SET_TOKEN('OBJECT_NAME','LOCATION');
606: FND_MESSAGE.SET_TOKEN('OBJECT_VALUE',p_loc_id);
607: x_msg_data := FND_MESSAGE.GET;
608: ELSE
609:
610: UPDATE hz_locations
611: SET geometry_source = l_default_geosource