Class

TLabTest

Module

fODBBank

Last Modified

7/15/2014 3:26:40 PM

Scope

Interfaced

Inherits from

TObject

Declaration


TLabTest = class(TObject)
  TestID: Integer;                      { IEN of Lab Test }
  TestName: string;                     { Name of Lab Test }
  ItemID: Integer;                      { Orderable Item ID }
  LabSubscript: string ;                { which section of Lab? }
  CollSamp: Integer;                    { index into CollSampList }
  Specimen: Integer;                    { IEN of specimen }
  Urgency: Integer;                     { IEN of urgency }
  Comment: TStringList;                 { text of comment }
  TestReqComment: string;               { Name of required comment }
  CurReqComment: string;                { name of required comment }
  CurWardComment: TStringList;          { WP of Ward Comment }
  UniqueCollSamp: Boolean;              { true if not prompt CollSamp }
  CollSampList: TList;                  { collection sample objects }
  CollSampCount: integer;               { count of original contents of CollSampList}
  SpecimenList: TStringList;            { Strings: IEN^Specimen Name }
  SpecListCount: integer;               { count of original contents of SpecimenList}
  UrgencyList: TStringList;             { Strings: IEN^Urgency Name }
  ForceUrgency: Boolean;                { true if not prompt Urgency }
  SurgeryList: TStringList;             { Strings: Surgeries}
  PatientInfo: TStringList;             { Text of Patient Information}
  ResultsDisplay: TStringList;          { Text of Test Results}
  QuickOrderResponses: TResponses;      { if created as a result of a quick order selection}
  { functions & procedures }
  constructor Create(const LabTestIEN: string; Responses: TResponses);
  destructor Destroy; override ;
  function  IndexOfCollSamp(CollSampIEN: Integer): Integer;
  procedure FillCollSampList(LoadData: TStringList; DfltCollSamp: Integer);
  procedure LoadAllSamples;
  procedure SetCollSampDflts;
  procedure ChangeCollSamp(CollSampIEN: Integer);
  procedure ChangeSpecimen(const SpecimenIEN: string);
  procedure ChangeComment(const CommentText: string);
  function  LabCanCollect: Boolean;
  procedure LoadCollSamp(AComboBox: TORComboBox);
  procedure LoadSpecimen(AComboBox: TORComboBox);
  procedure LoadUrgency(CollType: string; AComboBox:TORComboBox);
  function  NameOfCollSamp: string;
  function  NameOfSpecimen: string;
  function  NameOfUrgency: string;
  function  ObtainCollSamp: Boolean;
  function  ObtainSpecimen: Boolean;
  function  ObtainUrgency: Boolean;
  function  ObtainComment: Boolean;

end;

Class Hierarchy


TObject
 └TLabTest

Class Fields

Name Type Scope Comments
CollSamp Integer Public/Published Index into CollSampList
CollSampCount Integer Public/Published Count of original contents of CollSampList
CollSampList TList Public/Published Collection sample objects
Comment TStringList Public/Published Text of comment
CurReqComment UnicodeString Public/Published Name of required comment
CurWardComment TStringList Public/Published WP of Ward Comment
ForceUrgency Boolean Public/Published True if not prompt Urgency
ItemID Integer Public/Published Orderable Item ID
LabSubscript UnicodeString Public/Published Which section of Lab?
PatientInfo TStringList Public/Published Text of Patient Information
QuickOrderResponses TResponses Public/Published If created as a result of a quick order selection
ResultsDisplay TStringList Public/Published Text of Test Results
Specimen Integer Public/Published IEN of specimen
SpecimenList TStringList Public/Published Strings: IEN^Specimen Name
SpecListCount Integer Public/Published Count of original contents of SpecimenList
SurgeryList TStringList Public/Published Strings: Surgeries
TestID Integer Public/Published IEN of Lab Test
TestName UnicodeString Public/Published Name of Lab Test
TestReqComment UnicodeString Public/Published Name of required comment
UniqueCollSamp Boolean Public/Published True if not prompt CollSamp
Urgency Integer Public/Published IEN of urgency
UrgencyList TStringList Public/Published Strings: IEN^Urgency Name

Constructors

Name Declaration Scope Comments
Create constructor Create(const LabTestIEN: string; Responses: TResponses); Public/Published Functions & procedures

Destructors

Name Declaration Scope Comments
Destroy destructor Destroy; override ; Public/Published -

Methods

Name Declaration Scope Comments
ChangeCollSamp procedure ChangeCollSamp(CollSampIEN: Integer); Public/Published -
ChangeComment procedure ChangeComment(const CommentText: string); Public/Published -
ChangeSpecimen procedure ChangeSpecimen(const SpecimenIEN: string); Public/Published -
FillCollSampList procedure FillCollSampList(LoadData: TStringList; DfltCollSamp: Integer); Public/Published
1  2        3         4       5         6          7         8          9               10   
n^IEN^CollSampName^SpecIEN^TubeTop^MinInterval^MaxPerDay^LabCollect^SampReqCommentIEN;name^SpecName
IndexOfCollSamp function IndexOfCollSamp(CollSampIEN: Integer): Integer; Public/Published -
LabCanCollect function LabCanCollect: Boolean; Public/Published -
LoadAllSamples procedure LoadAllSamples; Public/Published -
LoadCollSamp procedure LoadCollSamp(AComboBox: TORComboBox); Public/Published Loads the collection sample combo box, expects CollSamp to already be set to default
LoadSpecimen procedure LoadSpecimen(AComboBox: TORComboBox); Public/Published Loads specimen combo box, if SpecimenList is empty, use 'E' xref on 61 ??
LoadUrgency procedure LoadUrgency(CollType: string; AComboBox:TORComboBox); Public/Published -
NameOfCollSamp function NameOfCollSamp: string; Public/Published -
NameOfSpecimen function NameOfSpecimen: string; Public/Published -
NameOfUrgency function NameOfUrgency: string; Public/Published -
ObtainCollSamp function ObtainCollSamp: Boolean; Public/Published -
ObtainComment function ObtainComment: Boolean; Public/Published -
ObtainSpecimen function ObtainSpecimen: Boolean; Public/Published -
ObtainUrgency function ObtainUrgency: Boolean; Public/Published -
SetCollSampDflts procedure SetCollSampDflts; Public/Published -

Referenced By (14)

Module (line) Referrer Type
fODBBank (261) ALabTest Read
fODBBank (467) - Read
fODBBank (504) - Read
fODBBank (717) - Read
fODBBank (883) - Read
fODBBank (930) - Read
fODBBank (935) - Read
fODBBank (1297) - Read
fODBBank (2483) - Read
fODBBank (2686) - Read
fODBBank (3511) - Read
fODBBank (4029) - Read
fODBBank (4050) - Read
fODBBank (4083) - Read