Procedure

TLabTest.ChangeCollSamp

Module

fODLab

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TLabTest

Declaration

procedure ChangeCollSamp(CollSampIEN: Integer);

Calls Hierarchy


TLabTest.ChangeCollSamp
 └TLabTest.SetCollSampDflts
   ├TResponses.FindResponseByName
   ├TLabTest.ChangeSpecimen
   └TLabTest.IndexOfCollSamp

Called-By Hierarchy


         TLabTest.ChangeCollSamp
   TfrmODLab.cboCollSampChange┘ 
       TfrmODLab.SetupDialog┤   
TfrmODLab.cboAvailTestSelect┘   
     TfrmODLab.SetupDialog┤     
TfrmODLab.cboAvailTestExit┘     

Calls

Name Declaration Comments
TLabTest.SetCollSampDflts procedure SetCollSampDflts; -

Called-By

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


Source

615   procedure TLabTest.ChangeCollSamp(CollSampIEN: Integer);
616   begin
617     CollSamp := CollSampIEN;
618     SetCollSampDflts;
619   end;