Procedure

TLabTest.ChangeSpecimen

Module

fODLab

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TLabTest

Declaration

procedure ChangeSpecimen(const SpecimenIEN: string);

Called-By Hierarchy


                TLabTest.ChangeSpecimen
            TLabTest.SetCollSampDflts┤ 
                    TLabTest.Create┤ │ 
     TfrmODLab.cboAvailTestSelect┘ │ │ 
          TfrmODLab.SetupDialog┤   │ │ 
     TfrmODLab.cboAvailTestExit┘   │ │ 
            TLabTest.ChangeCollSamp┘ │ 
      TfrmODLab.cboCollSampChange┘   │ 
          TfrmODLab.SetupDialog┤     │ 
TfrmODLab.cboAvailTestSelect...┘     │ 
                TLabTest.LoadSpecimen┤ 
    TfrmODLab.cboAvailTestSelect...┤ │ 
     TfrmODLab.cboCollSampChange...┤ │ 
      TfrmODLab.cboCollSampKeyPause┤ │ 
    TfrmODLab.cboCollSampMouseClick┘ │ 
          TfrmODLab.cboSpecimenChange┘ 

Called-By

Name Declaration Comments
TfrmODLab.cboSpecimenChange procedure cboSpecimenChange(Sender: TObject); -
TLabTest.LoadSpecimen procedure LoadSpecimen(AComboBox: TORComboBox); -
TLabTest.SetCollSampDflts procedure SetCollSampDflts; -


Source

621   procedure TLabTest.ChangeSpecimen(const SpecimenIEN: string);
622   begin
623     Specimen := StrToIntDef(SpecimenIEN,0);
624   end;