anchor.diff:  begin
     Result := inherited;
     SendUSControlsMessage(aClient);
  +end;
  +
  +procedure TUSScenario.HandleNewMapView(aClient: TClient; aMapView: TMapView);
  +var
  +  point: TGIS_Point;
  +  focusPayload: ByteBuffers.TByteBuffer;
  +begin
  +  inherited;
  +  point.X := aMapView.lon;
  +  point.Y := aMapView.lat;
  +  point := (project as TUSProject).fSourceProjection.FromGeocs(point);
  +  focusPayload.Clear;
  +  focusPayload.Prepare(point.X);
  +  focusPayload.Prepare(point.Y);
  +  focusPayload.PrepareApply;
  +  focusPayload.QWrite(point.X);
  +  focusPayload.QWrite(point.Y);
  +  IMBConnection.SignalEvent(
  +    IMB3Prefix+'.'+FocusEventName,
  +    ekChangeObjectEvent,
  +    focusPayload,
  +    False);
  +end;
  +
  +function TUSScenario.IMB3Prefix: string;
  +begin
  +  Result := (project as TUSProject).OraSession.Username+'#'+fTablePrefix.Replace('#', '');
   end;
   
   procedure TUSScenario.LayerRefreshed(aTilerLayerID: Integer; const aElementID: string; aTimeStamp: TDateTime; aLayer: TSubscribeObject);
  
positive.code:         aClient.signalString(responseJSON);
        end;
      end
      else if True then
  
    end;
  end;
  
  
negative.code:   controlActive, controlID: Integer;
    payloadArray: TJSONArray;
    scenario: TUSScenario;
    scenarioID: Integer;
    baseScenario: TScenario;
    requestID, requestType, responseJSON: string;
  begin
    inherited;
    if aJSONObject.TryGetValue<TJSONValue>('payload', payloadValue) then
  