Procedure

TfrmODAllergy.cboSymptomsMouseClick

Module

fODAllgy

Last Modified

7/15/2014 3:26:40 PM

Visibility

Public/Published

Owner

TfrmODAllergy

Declaration

procedure cboSymptomsMouseClick(Sender: TObject);

Calls Hierarchy


TfrmODAllergy.cboSymptomsMouseClick
 └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...

Called-By Hierarchy


TfrmODAllergy.cboSymptomsMouseClick
 TfrmODAllergy.cboSymptomsKeyDown┘ 

Calls

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

Called-By

Name Declaration Comments
TfrmODAllergy.cboSymptomsKeyDown procedure cboSymptomsKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); -


Source

497   procedure TfrmODAllergy.cboSymptomsMouseClick(Sender: TObject);
498   var
499     x: string;
500   begin
501     inherited;
502     if cboSymptoms.ItemIndex < 0 then exit;
503     Changing := True;
504     if lstSelectedSymptoms.SelectByID(cboSymptoms.ItemID) > -1 then exit;
505     with cboSymptoms do
506       if Piece(Items[ItemIndex], U, 3) <> '' then
507         x := ItemID + U + Piece(Items[ItemIndex], U, 3)
508       else
509         x := ItemID + U + Piece(Items[ItemIndex], U, 2);
510     with lstSelectedSymptoms do
511       begin
512         Items.Add(x);
513         SelectByID(cboSymptoms.ItemID);
514       end;
515     Changing := False;
516     ControlChange(Self)
517   end;