Procedure

TfrmODBBank.calCollTimeEnter

Module

fODBBank

Last Modified

7/15/2014 3:26:40 PM

Visibility

Public/Published

Owner

TfrmODBBank

Declaration

procedure calCollTimeEnter(Sender: TObject);

Calls Hierarchy


TfrmODBBank.calCollTimeEnter
 └TfrmODBBank.lvSelectionListClick
   ├StrToFMDateTime
   ├TLabTest.Create
   │ ├LoadLabTestData
   │ ├GetOneSpecimen
   │ ├TLabTest.FillCollSampList
   │ ├TResponses.FindResponseByName
   │ ├TLabTest.IndexOfCollSamp
   │ ├GetOneCollSamp
   │ ├TLabTest.LoadAllSamples
   │ │ ├LoadSamples
   │ │ └TLabTest.FillCollSampList
   │ └TLabTest.SetCollSampDflts
   │   ├TResponses.FindResponseByName
   │   ├TLabTest.ChangeSpecimen
   │   └TLabTest.IndexOfCollSamp
   ├TfrmODBBank.DisableDiagTestControls
   ├TfrmODBBank.EnableComponentControls
   │ └TResponses.Update
   │   ├TResponses.FindResponseByName
   │   └TResponses.IENForPrompt
   ├TfrmODBBank.DisableComponentControls
   └TfrmODBBank.EnableDiagTestControls

Calls

Name Declaration Comments
TfrmODBBank.lvSelectionListClick procedure lvSelectionListClick(Sender: TObject); -


Source

4401  procedure TfrmODBBank.calCollTimeEnter(Sender: TObject);
4402  var
4403    j: integer;
4404  begin
4405    inherited;
4406    if Length(cboAvailTest.Text) > 0 then Exit;
4407    for j := uSelectedItems.Count - 1 downto 0 do
4408      begin
4409        if not(lvSelectionList.Items[j] = nil) and (piece(uSelectedItems[j],'^',1) = '1') then
4410          begin
4411            lvSelectionList.Items[j].Selected := true;
4412            lvSelectionListClick(self);
4413            Break;
4414          end;
4415      end;
4416  end;