Procedure

TfrmODAllergy.cboSymptomsClick

Module

fODAllgy

Last Modified

7/15/2014 3:26:40 PM

Visibility

Public/Published

Owner

TfrmODAllergy

Declaration

procedure cboSymptomsClick(Sender: TObject);

Calls Hierarchy


TfrmODAllergy.cboSymptomsClick
 └TfrmODAllergy.ControlChange
   ├TResponses.Clear
   ├TResponses.Update
   │ ├TResponses.FindResponseByName
   │ └TResponses.IENForPrompt
   ├ValidDateTimeStr
   └TResponses.GetOrderText
     ├TResponses.NextInstance
     ├TResponses.FindResponseByName
     ├TResponses.FormatResponse
     │ └TResponses.FindResponseByIEN
     └TResponses.AppendChildren
       ├TResponses.FindPromptByIEN
       ├TResponses.FindResponseByIEN
       └TResponses.FormatResponse...

Calls

Name Declaration Comments
TfrmODAllergy.ControlChange procedure ControlChange(Sender: TObject); -


Source

352   procedure TfrmODAllergy.cboSymptomsClick(Sender: TObject);
353   begin
354     inherited;
355     if cboSymptoms.ItemIndex < 0 then exit;
356     Changing := True;
357     if lstSelectedSymptoms.SelectByID(cboSymptoms.ItemID) > -1 then exit;
358     with lstSelectedSymptoms do
359       begin
360         Items.Add(cboSymptoms.Items[cboSymptoms.ItemIndex]);
361         SelectByID(cboSymptoms.ItemID);
362       end;
363     Changing := False;
364     ControlChange(Self)
365   end;