Function

TLabTest.IndexOfCollSamp

Module

fODLab

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TLabTest

Declaration

function IndexOfCollSamp(CollSampIEN: Integer): Integer;

Called-By Hierarchy


                    TLabTest.IndexOfCollSamp
                           TLabTest.Create┤ 
            TfrmODLab.cboAvailTestSelect┘ │ 
                 TfrmODLab.SetupDialog┤   │ 
            TfrmODLab.cboAvailTestExit┘   │ 
                 TLabTest.SetCollSampDflts┤ 
                      TLabTest.Create...┤ │ 
                 TLabTest.ChangeCollSamp┘ │ 
           TfrmODLab.cboCollSampChange┘   │ 
               TfrmODLab.SetupDialog┤     │ 
     TfrmODLab.cboAvailTestSelect...┘     │ 
                    TLabTest.LabCanCollect┤ 
                  TfrmODLab.LoadCollType┤ │ 
        TfrmODLab.cboCollSampChange...┤ │ │ 
 TfrmODLab.DetermineCollectionDefaults┘ │ │ 
               TfrmODLab.SetupDialog┤   │ │ 
     TfrmODLab.cboAvailTestSelect...┘   │ │ 
                      TfrmODLab.Validate┤ │ 
             TfrmODLab.cboCollTypeChange┤ │ 
               TfrmODLab.cboCollTimeExit┤ │ 
TfrmODLab.DetermineCollectionDefaults...┘ │ 
                     TLabTest.LoadSpecimen┤ 
         TfrmODLab.cboAvailTestSelect...┤ │ 
          TfrmODLab.cboCollSampChange...┤ │ 
           TfrmODLab.cboCollSampKeyPause┤ │ 
         TfrmODLab.cboCollSampMouseClick┘ │ 
                   TLabTest.NameOfCollSamp┤ 
                 TfrmODLab.ControlChange┘ │ 
                 TfrmODLab.SetupDialog┤   │ 
                    TfrmODLab.Validate┤   │ 
       TfrmODLab.cboAvailTestSelect...┤   │ 
        TfrmODLab.cboCollSampChange...┤   │ 
            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┘   │ 
                   TLabTest.NameOfSpecimen┤ 
              TfrmODLab.ControlChange...┘ │ 
                   TLabTest.ObtainSpecimen┤ 
                TLabTest.LoadSpecimen...┤ │ 
         TfrmODLab.cboAvailTestSelect...┤ │ 
          TfrmODLab.cboCollSampChange...┘ │ 
           TfrmODLab.cboAvailTestSelect...┤ 
            TfrmODLab.cboCollSampChange...┘ 

Called-By

Name Declaration Comments
TfrmODLab.cboAvailTestSelect procedure cboAvailTestSelect(Sender: TObject); -
TfrmODLab.cboCollSampChange procedure cboCollSampChange(Sender: TObject); -
TLabTest.Create constructor Create(const LabTestIEN: string; Responses: TResponses); -
TLabTest.LabCanCollect function LabCanCollect: Boolean; -
TLabTest.LoadSpecimen procedure LoadSpecimen(AComboBox: TORComboBox); -
TLabTest.NameOfCollSamp function NameOfCollSamp: string; -
TLabTest.NameOfSpecimen function NameOfSpecimen: string; -
TLabTest.ObtainSpecimen function ObtainSpecimen: Boolean; -
TLabTest.SetCollSampDflts procedure SetCollSampDflts; -


Source

521   function TLabTest.IndexOfCollSamp(CollSampIEN: Integer): Integer;
522   var
523     i: Integer;
524   begin
525     Result := -1;
526     with CollSampList do for i := 0 to Count - 1 do with TCollSamp(Items[i]) do
527       if CollSampIEN = CollSampID then
528       begin
529         Result := i;
530         break;
531       end;
532   end;