Function

TLabTest.NameOfCollSamp

Module

fODLab

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TLabTest

Declaration

function NameOfCollSamp: string;

Calls Hierarchy


TLabTest.NameOfCollSamp
 └TLabTest.IndexOfCollSamp

Called-By Hierarchy


              TLabTest.NameOfCollSamp
            TfrmODLab.ControlChange┘ 
            TfrmODLab.SetupDialog┤   
               TfrmODLab.Validate┤   
     TfrmODLab.cboAvailTestSelect┤   
          TfrmODLab.SetupDialog┤ │   
     TfrmODLab.cboAvailTestExit┘ │   
      TfrmODLab.cboCollSampChange┤   
          TfrmODLab.SetupDialog┤ │   
TfrmODLab.cboAvailTestSelect...┘ │   
       TfrmODLab.cboUrgencyChange┤   
      TfrmODLab.cboSpecimenChange┤   
      TfrmODLab.cboCollTimeChange┤   
     TfrmODLab.cboFrequencyChange┤   
          TfrmODLab.SetupDialog┤ │   
TfrmODLab.cboAvailTestSelect...┘ │   
      TfrmODLab.cboCollTypeChange┤   
    TfrmODLab.txtOrderCommentExit┤   
   TfrmODLab.txtAntiCoagulantExit┤   
     TfrmODLab.txtUrineVolumeExit┤   
     TfrmODLab.grpPeakTroughClick┤   
   TfrmODLab.txtAddlCommentExit┘ │   
        TfrmODLab.txtDoseTimeExit┤   
        TfrmODLab.txtDrawTimeExit┤   
    TfrmODLab.cboCollSampKeyPause┤   
  TfrmODLab.cboCollSampMouseClick┤   
        TfrmODLab.cboCollTimeExit┤   
  TfrmODLab.cboSpecimenMouseClick┤   
    TfrmODLab.cboSpecimenKeyPause┘   

Calls

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

Called-By

Name Declaration Comments
TfrmODLab.ControlChange procedure ControlChange(Sender: TObject); -


Source

802   function TLabTest.NameOfCollSamp: string;
803   var
804     i: Integer;
805   begin
806     Result := '';
807     i := IndexOfCollSamp(CollSamp);
808     if i > -1 then with TCollSamp(CollSampList.Items[i]) do Result := CollSampName;
809   end;