Function

TLabTest.LabCanCollect

Module

fODLab

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TLabTest

Declaration

function  LabCanCollect: Boolean;

Calls Hierarchy


TLabTest.LabCanCollect
 └TLabTest.IndexOfCollSamp

Called-By Hierarchy


                    TLabTest.LabCanCollect
                  TfrmODLab.LoadCollType┤ 
           TfrmODLab.cboCollSampChange┤ │ 
               TfrmODLab.SetupDialog┤ │ │ 
        TfrmODLab.cboAvailTestSelect┘ │ │ 
             TfrmODLab.SetupDialog┤   │ │ 
        TfrmODLab.cboAvailTestExit┘   │ │ 
 TfrmODLab.DetermineCollectionDefaults┘ │ 
               TfrmODLab.SetupDialog┤   │ 
     TfrmODLab.cboAvailTestSelect...┘   │ 
                      TfrmODLab.Validate┤ 
             TfrmODLab.cboCollTypeChange┤ 
               TfrmODLab.cboCollTimeExit┤ 
TfrmODLab.DetermineCollectionDefaults...┘ 

Calls

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

Called-By

Name Declaration Comments
TfrmODLab.cboCollTimeExit procedure cboCollTimeExit(Sender: TObject); -
TfrmODLab.cboCollTypeChange procedure cboCollTypeChange(Sender: TObject); -
TfrmODLab.DetermineCollectionDefaults procedure DetermineCollectionDefaults(Responses: TResponses); -
TfrmODLab.LoadCollType procedure LoadCollType(AComboBox:TORComboBox); -
TfrmODLab.Validate procedure Validate(var AnErrMsg: string); override; -


Source

636   function TLabTest.LabCanCollect: Boolean;
637   var
638     i: Integer;
639   begin
640     Result := False;
641     i := IndexOfCollSamp(CollSamp);
642     if i > -1 then with TCollSamp(CollSampList.Items[i]) do Result := LabCanCollect;
643   end;