Function

TLabTest.NameOfSpecimen

Module

fODLab

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TLabTest

Declaration

function NameOfSpecimen: string;

Calls Hierarchy


TLabTest.NameOfSpecimen
 └TLabTest.IndexOfCollSamp

Called-By Hierarchy


              TLabTest.NameOfSpecimen
            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

811   function TLabTest.NameOfSpecimen: string;
812   var
813     i: Integer;
814   begin
815     Result := '';
816     if CollSamp > 0 then with TCollSamp(CollSampList[IndexOfCollSamp(CollSamp)]) do
817       if (Specimen > 0) and (Specimen = SpecimenID) then Result := SpecimenName;
818     if (Length(Result) = 0) and (Specimen > 0) then with SpecimenList do
819       for i := 0 to Count - 1 do if Specimen = StrToInt(Piece(Strings[i], '^', 1)) then
820       begin
821         Result := Piece(Strings[i], '^', 2);
822         break;
823       end;
824   end;