Declaration

TSurgCaseContext = record
  Changed: Boolean;
  OpProc:  string;
  BeginDate: string;
  FMBeginDate: TFMDateTime;
  EndDate: string;
  FMEndDate: TFMDateTime;
  MaxDocs: integer;
  Status: string;
  GroupBy: string;
  TreeAscending: Boolean;
end ;