Procedure

TfrmODAllergy.grpObsHistClick

Module

fODAllgy

Last Modified

7/15/2014 3:26:40 PM

Visibility

Public/Published

Owner

TfrmODAllergy

Declaration

procedure grpObsHistClick(Sender: TObject);

Calls Hierarchy


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

220   procedure TfrmODAllergy.grpObsHistClick(Sender: TObject);
221   begin
222     inherited;
223     Changing := True;
224     cboSeverity.ItemIndex := -1;
225     case grpObsHist.ItemIndex of
226       0:  begin
227             cboSeverity.Visible := True;
228             lblSeverity.Visible := True;
229           end;
230       1:  begin
231             cboSeverity.Visible := False;
232             lblSeverity.Visible := False;
233           end;
234     end;
235     Changing := False;
236     ControlChange(Self);
237   end;