Declaration

TMenuAccessRec = record
  UserLevel: integer;
  AllowMedResulting: Boolean;
  AllowMedDissociate: Boolean;
  AllowResubmit: Boolean;
  ClinProcFlag: integer;
  IsClinicalProcedure: Boolean;
end;