Function

TLabTest.NameOfUrgency

Module

fODLab

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TLabTest

Declaration

function NameOfUrgency: string;

Called-By Hierarchy


               TLabTest.NameOfUrgency
            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┘   

Called-By

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


Source

826   function TLabTest.NameOfUrgency: string;
827   var
828     i: Integer;
829   begin
830     Result := '';
831     with UrgencyList do for i := 0 to Count - 1 do
832     begin
833       if StrToInt(Piece(Strings[i], '^', 1)) = Urgency
834         then Result := Piece(Strings[i], '^', 2);
835       break;
836     end;
837   end;