anchor.diff:          aClient.signalString(responseJSON);
         end;
       end
  -    else if True then
  -
     end;
   end;
   
  
positive.code: begin
    Result := inherited;
    SendUSControlsMessage(aClient);
  end;
  
  procedure TUSScenario.LayerRefreshed(aTilerLayerID: Integer; const aElementID: string; aTimeStamp: TDateTime; aLayer: TSubscribeObject);
  
negative.code:     procedure ReadIndicators (aTableNames: array of string; aOraSession: TOraSession);
      procedure ReadIndicator (aTableName: string; aOraSession: TOraSession);
      procedure ReadBasicLayers(aOraSession: TOraSession);
    protected
      procedure HandleNewMapView(aClient: TClient; aMapView: TMapView); override;
    public
      property IMBConnection: TIMBConnection read fIMBConnection;
    public
      property Tableprefix: string read fTableprefix;
      function IMB3Prefix: string;
      function GetUSControlsJSON: string;
      procedure SendUSControlsMessage(aClient: TClient);
      procedure UpsertUSControlStatus(const aControlID, aActive: Integer);
  