Function

TLabTest.ObtainSpecimen

Module

fODLab

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TLabTest

Declaration

function ObtainSpecimen: Boolean;

Calls Hierarchy


TLabTest.ObtainSpecimen
 └TLabTest.IndexOfCollSamp

Called-By Hierarchy


              TLabTest.ObtainSpecimen
              TLabTest.LoadSpecimen┤ 
     TfrmODLab.cboAvailTestSelect┤ │ 
          TfrmODLab.SetupDialog┤ │ │ 
     TfrmODLab.cboAvailTestExit┘ │ │ 
      TfrmODLab.cboCollSampChange┤ │ 
          TfrmODLab.SetupDialog┤ │ │ 
TfrmODLab.cboAvailTestSelect...┘ │ │ 
    TfrmODLab.cboCollSampKeyPause┤ │ 
  TfrmODLab.cboCollSampMouseClick┘ │ 
    TfrmODLab.cboAvailTestSelect...┤ 
     TfrmODLab.cboCollSampChange...┘ 

Calls

Name Declaration Comments
TLabTest.IndexOfCollSamp function IndexOfCollSamp(CollSampIEN: Integer): Integer; -

Called-By

Name Declaration Comments
TfrmODLab.cboAvailTestSelect procedure cboAvailTestSelect(Sender: TObject); -
TfrmODLab.cboCollSampChange procedure cboCollSampChange(Sender: TObject); -
TLabTest.LoadSpecimen procedure LoadSpecimen(AComboBox: TORComboBox); -


Source

844   function TLabTest.ObtainSpecimen: Boolean;
845   var
846     i: Integer;
847   begin
848     Result := True;
849     i := IndexOfCollSamp(CollSamp);
850     if (i > -1) and (i < CollSampList.Count) then with TCollSamp(CollSampList.Items[i]) do
851       if SpecimenID > 0 then Result := False;
852   end;