Class

TCollSamp

Module

fODBBank

Last Modified

7/15/2014 3:26:40 PM

Scope

Interfaced

Inherits from

TObject

Declaration


TCollSamp = class(TObject)
  CollSampID: Integer;                  { IEN of CollSamp }
  CollSampName: string;                 { Name of CollSamp }
  SpecimenID: Integer;                  { IEN of default specimen }
  SpecimenName: string;                 { Name of the specimen }
  TubeColor: string;                    { TubeColor (text) }
  MinInterval: Integer;                 { Minimum days between orders }
  MaxPerDay: Integer;                   { Maximum orders per day }
  LabCanCollect: Boolean;               { True if lab can collect }
  SampReqComment: string;               { Name of required comment }
  WardComment: TStringList;             { CollSamp specific comment }
end;

Class Hierarchy


TObject
 └TCollSamp

Class Fields

Name Type Scope Comments
CollSampID Integer Public/Published IEN of CollSamp
CollSampName UnicodeString Public/Published Name of CollSamp
LabCanCollect Boolean Public/Published True if lab can collect
MaxPerDay Integer Public/Published Maximum orders per day
MinInterval Integer Public/Published Minimum days between orders
SampReqComment UnicodeString Public/Published Name of required comment
SpecimenID Integer Public/Published IEN of default specimen
SpecimenName UnicodeString Public/Published Name of the specimen
TubeColor UnicodeString Public/Published TubeColor (text)
WardComment TStringList Public/Published CollSamp specific comment

Referenced By (5)

Module (line) Referrer Type
fODBBank (579) - Read
fODBBank (1227) - Read
fODBBank (1398) - Read
fODBBank (1417) - Read
fODBBank (2539) - Read