Procedure

TfrmODLab.cboCollSampKeyPause

Module

fODLab

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODLab

Declaration

procedure cboCollSampKeyPause(Sender: TObject);

Calls Hierarchy


TfrmODLab.cboCollSampKeyPause
 ├TfrmODLab.GetAllCollSamples
 │ ├TLabTest.LoadAllSamples
 │ │ ├LoadSamples
 │ │ └TLabTest.FillCollSampList
 │ └SelectOtherCollSample
 │   └TfrmBase508Form.Create
 │     ├TfrmBase508Form.UpdateAccessibilityActions
 │     ├UnfocusableControlEnter
 │     └AdjustControls
 │       ├TfrmBase508Form.ModifyUnfocusableControl
 │       └..(rec)..
 ├TLabTest.LoadSpecimen
 │ ├TLabTest.ObtainSpecimen
 │ │ └TLabTest.IndexOfCollSamp
 │ ├LoadSpecimens
 │ ├TResponses.FindResponseByName
 │ ├TLabTest.IndexOfCollSamp
 │ ├GetOneSpecimen
 │ └TLabTest.ChangeSpecimen
 └TfrmODLab.ControlChange
   ├TResponses.FindResponseByName
   ├TResponses.Clear
   ├TResponses.Update
   │ ├TResponses.FindResponseByName
   │ └TResponses.IENForPrompt
   ├TLabTest.NameOfCollSamp
   │ └TLabTest.IndexOfCollSamp
   ├TLabTest.NameOfSpecimen
   │ └TLabTest.IndexOfCollSamp
   ├TLabTest.NameOfUrgency
   ├TfrmODLab.ValidCollTime
   │ └StrToFMDateTime
   └TResponses.GetOrderText
     ├TResponses.NextInstance
     ├TResponses.FindResponseByName
     ├TResponses.FormatResponse
     │ └TResponses.FindResponseByIEN
     └TResponses.AppendChildren
       ├TResponses.FindPromptByIEN
       ├TResponses.FindResponseByIEN
       └TResponses.FormatResponse...

Calls

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


Source

1789  procedure TfrmODLab.cboCollSampKeyPause(Sender: TObject);
1790  begin
1791    inherited;
1792    if ALabTest = nil then exit;
1793    with cboCollSamp do
1794      if (ItemIndex >= 0) and (ItemIEN = 0) then GetAllCollSamples(cboCollSamp);
1795    if (cboCollSamp.ItemIEN = 0) then
1796      begin
1797        ALabTest.Specimen := 0;
1798        ALabTest.CollSamp := 0;
1799        cboCollSamp.ItemIndex := -1;
1800        cboSpecimen.ItemIndex := -1;
1801      end
1802    else
1803      ALabTest.LoadSpecimen(cboSpecimen);
1804    ControlChange(Self);
1805  end;